1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#lang rhombus/static
export:
Chunk
Entity
World
enum Direction:
north
north_east
east
south_east
south
south_west
west
north_west
class Chunk(width :: Int,
height :: Int,
offset_x :: Int,
offset_y :: Int,
tiles :: Array.now_of(Int),
neighbours :: MutableMap.now_of(Direction, Chunk)):
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 :: Direction):
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):
method
| 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)
// Diagonal case is moving in the same direction (same x & y) and that amount
// is less than or equal to max distance
let diagonal = diff_x == diff_y && diff_x <= max_dist
let x_axis = diff_x <= max_dist && diff_y == 0
let y_axis = diff_y <= max_dist && diff_x == 0
let no_movement = diff_x == 0 && diff_y == 0
!no_movement && (diagonal || x_axis || y_axis)
let validate_chunk = fun (entity :: Entity) :: Boolean:
let current_chunk = entity.current_chunk
let local_x = x - current_chunk.offset_x * current_chunk.width
let local_y = y - current_chunk.offset_y * current_chunk.height
let less_x = local_x < 0
let less_y = local_y < 0
let more_x = local_x >= current_chunk.width
let more_y = local_y >= current_chunk.height
let inside_x = !(less_x || more_x)
let inside_y = !(less_y || more_y)
let next_chunk :: maybe(Chunk) = cond
| inside_x && less_y: current_chunk.neighbours.get(#'north, #false)
| more_x && less_y: current_chunk.neighbours.get(#'north_east, #false)
| more_x && inside_y: current_chunk.neighbours.get(#'east, #false)
| more_x && more_y: current_chunk.neighbours.get(#'south_east, #false)
| inside_x && more_y: current_chunk.neighbours.get(#'south, #false)
| less_x && more_y: current_chunk.neighbours.get(#'south_west, #false)
| less_x && inside_y: current_chunk.neighbours.get(#'west, #false)
| less_x && less_y: current_chunk.neighbours.get(#'north_west, #false)
| ~else: current_chunk
cond
| !next_chunk: #false
| ~else:
entity.current_chunk := next_chunk!!
#true
cond
| 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())
|
