-
Notifications
You must be signed in to change notification settings - Fork 3
/
default.opa
98 lines (88 loc) · 3.13 KB
/
default.opa
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
89
90
91
92
93
94
95
96
97
98
/**
* Game grid
*
*
* 1: Normal food
* 2: Special food (TODO)
* 5: Teleport - Moving the player at one end of the line will teleport it at
* the other end - Ghosts can't teleport. (TODO)
* 8: Wall
*/
grid = [
[1,1,1,1,1,1,1,1,1,1,1,1,8,8,1,1,1,1,1,1,1,1,1,1,1,1],
[2,8,8,8,8,1,8,8,8,8,8,1,8,8,1,8,8,8,8,8,1,8,8,8,8,2],
[1,8,8,8,8,1,8,8,8,8,8,1,8,8,1,8,8,8,8,8,1,8,8,8,8,1],
[1,8,8,8,8,1,8,8,8,8,8,1,8,8,1,8,8,8,8,8,1,8,8,8,8,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],
[1,8,8,8,8,1,8,8,1,8,8,8,8,8,8,8,8,1,8,8,1,8,8,8,8,1],
[1,8,8,8,8,1,8,8,1,8,8,8,8,8,8,8,8,1,8,8,1,8,8,8,8,1],
[1,1,1,1,1,1,8,8,1,1,1,1,8,8,1,1,1,1,8,8,1,1,1,1,1,1],
[8,8,8,8,8,1,8,8,8,8,8,0,8,8,0,8,8,8,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,8,8,8,0,8,8,0,8,8,8,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,0,0,0,0,0,0,0,0,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,8,8,8,0,0,8,8,8,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,8,0,0,8,8,0,0,8,0,8,8,1,8,8,8,8,8],
[5,0,0,0,0,1,0,0,0,8,0,0,0,0,0,0,8,0,0,0,1,0,0,0,0,5],
[8,8,8,8,8,1,8,8,0,8,0,0,0,0,0,0,8,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,8,8,8,8,8,8,8,8,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,0,0,0,0,0,0,0,0,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,8,8,8,8,8,8,8,8,0,8,8,1,8,8,8,8,8],
[8,8,8,8,8,1,8,8,0,8,8,8,8,8,8,8,8,0,8,8,1,8,8,8,8,8],
[1,1,1,1,1,1,1,1,1,1,1,1,8,8,1,1,1,1,1,1,1,1,1,1,1,1],
[1,8,8,8,8,1,8,8,8,8,8,1,8,8,1,8,8,8,8,8,1,8,8,8,8,1],
[2,8,8,8,8,1,8,8,8,8,8,1,8,8,1,8,8,8,8,8,1,8,8,8,8,2],
[1,1,1,8,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,8,1,1,1],
[8,8,1,8,8,1,8,8,1,8,8,8,8,8,8,8,8,1,8,8,1,8,8,1,8,8],
[8,8,1,8,8,1,8,8,1,8,8,8,8,8,8,8,8,1,8,8,1,8,8,1,8,8],
[1,1,1,1,1,1,8,8,1,1,1,1,8,8,1,1,1,1,8,8,1,1,1,1,1,1],
[1,8,8,8,8,8,8,8,8,8,8,1,8,8,1,8,8,8,8,8,8,8,8,8,8,1],
[1,8,8,8,8,8,8,8,8,8,8,1,8,8,1,8,8,8,8,8,8,8,8,8,8,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],
]
Default = {{
@private get_grid_nums(n) : set(Base.pos) =
List.foldi(
y, l, acc ->
List.foldi(
x, v, acc ->
if v == n then Set.add(~{x y}, acc)
else acc,
l, acc),
grid, Set.empty:set(Base.pos))
food = get_grid_nums(1)
walls = get_grid_nums(8)
teleports =
elts =
get_grid_nums(5)
|> Set.fold(
~{x y}, acc -> [{line=y}|[{column=x}|acc]],
_, [])
|> List.sort
if elts == [] then []
else
List.fold(
e, (prev, acc) ->
if e == prev then (e, [e|acc])
else (e, acc),
List.tail(elts), (List.head(elts), []))
|> _.f2
pacman = {
base = Base.make(0, 0, {right}, 10)
next_dir = {right}
mouth_step = 0
mouth_incr = 1
mouth_steps = 10
} : Pacman.t
@private make_ghost(ai, x, y, dir, color, eye_color) = {
~ai ~color ~eye_color
base = Base.make(x, y, dir, 10)
eye_step = 0
eye_steps = 32
} : Ghost.t
ghosts = [
make_ghost({dumb}, 5, 4, {right}, Color.orange, Color.crimson),
make_ghost({guard}, 20, 4, {down}, Color.darkred, Color.gold),
make_ghost({dumb}, 20, 22, {left}, Color.purple, Color.silver),
make_ghost({guard}, 5, 22, {up}, Color.green, Color.navy),
] : list(Ghost.t)
}}