diff options
Diffstat (limited to 'world.rhm')
| -rw-r--r-- | world.rhm | 33 |
1 files changed, 16 insertions, 17 deletions
@@ -14,20 +14,16 @@ class Chunk(width :: Int, constructor(width :: Int, height :: Int, offset_x :: Int, offset_y :: Int): super(width, height, offset_x, offset_y, Array.make(width * height, 0), MutableMap()) + method add_neighbour(chunk :: Chunk, direction :: Symbol): + neighbours[direction] := chunk + method get_tile(x :: Int, y :: Int): tiles[y * width + x] -class Entity(id:: Int, mutable x :: Int, mutable y :: Int, mutable current_chunk :: Chunk) - -class World(chunks :: MutableList.now_of(Chunk), - entities :: MutableList.now_of(Entity)): - - constructor(): - super(MutableList(), MutableList()) - +class Entity(id:: Int, mutable x :: Int, mutable y :: Int, mutable current_chunk :: Chunk): method - | entity_move(id :: Int, x :: Int, y :: Int): entity_move(id, x, y, 1) - | entity_move(id :: Int, x :: Int, y :: Int, max_dist :: Int) :: Boolean: + | move(x :: Int, y :: Int): move(x, y, 1) + | move(x :: Int, y :: Int, max_dist :: Int) :: Boolean: let validate_dist = fun (entity :: Entity) :: Boolean: let diff_x = math.abs(entity.x - x) let diff_y = math.abs(entity.y - y) @@ -66,14 +62,17 @@ class World(chunks :: MutableList.now_of(Chunk), entity.current_chunk := next_chunk!! #true - let entity :: maybe(Entity) = entities.find((fun (ent :: Entity) :: Boolean: ent.id == id)) cond - | !entity: - println("Can't find entity") - #false - | validate_dist(entity!!) && validate_chunk(entity!!): - entity!!.x := x - entity!!.y := y + | validate_dist(this) && validate_chunk(this): + this.x := x + this.y := y #true | ~else: #false + +class World(chunks :: MutableList.now_of(Chunk), + entities :: MutableList.now_of(Entity)): + + constructor(): + super(MutableList(), MutableList()) + |