blob: 1c10c95041799c1f04d8f1e0989f905c4c00200c (
plain)
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
(require hy)
(require hyrule *)
(import pygame
pytmx.util_pygame [load_pygame]
entities [Player LevelTile]
tiles [TileSet draw-tile]
utils [neg]
text [render-text]
systems [apply-gravity apply-collisions]
math [floor])
(pygame.init)
(setv TILE_SCALING 1)
(setv TILE_SIZE (* TILE_SCALING 16))
(setv MACRO_STEP_WAIT 300)
(setv MACRO_COOLDOWN 5000)
(setv screen (pygame.display.set_mode #((* TILE_SCALING 640) (* TILE_SCALING 480))))
(setv clock (pygame.time.Clock))
(setv running True)
(setv tileset (TileSet "assets/monochrome-transparent.png" TILE_SCALING TILE_SIZE TILE_SIZE 1))
(setv sprites-group [])
(setv level (load_pygame "assets/level-0.tmx"))
(defn abs-to-tile-index [abs-id]
(int (floor (/ abs-id TILE_SIZE))))
(setv player-pos
(let [player-objects (lfor ent (get level.layers 1) :if (= ent.type "Player") ent)]
(if (any player-objects)
(let [player-object (get player-objects 0)]
#((abs-to-tile-index player-object.x)
(abs-to-tile-index player-object.y)))
#(5 5))))
(setv player (Player 1 (get tileset.tiles 28) TILE_SIZE #* player-pos))
(.append sprites-group player)
(setv macro-input-mode False)
(setv macro-wait-time 0)
(setv macro-commands [None None None])
(for [tiledef (enumerate (.tiles (get level.layers 0)))]
(.append sprites-group (LevelTile (get tiledef 0) TILE_SIZE TILE_SCALING #* (get tiledef 1))))
(setv ongoing_inputs [])
(while running
(for [event (pygame.event.get)]
(case event.type
pygame.QUIT (setv running False)
pygame.KEYDOWN (if (= event.key pygame.K_ESCAPE)
(setv running False)
(if macro-input-mode
(when (in event.key [pygame.K_a pygame.K_w pygame.K_a pygame.K_s pygame.K_d])
(setv (get macro-commands (.index macro-commands None)) event.key))
(if (and (= event.key pygame.K_SPACE) (= macro-wait-time 0))
(setv macro-input-mode True)
(.append ongoing_inputs event.key))))
pygame.KEYUP (when (in event.key ongoing_inputs)
(.remove ongoing_inputs event.key))))
(.fill screen "#000000")
;; Render text objects
(for [item (get level.layers 1)]
(when (= item.type "Text")
(render-text screen
tileset
(.upper item.text)
(abs-to-tile-index item.x)
(abs-to-tile-index item.y))))
(if macro-input-mode
;; If the commands list is full
(if (get macro-commands -1)
;; Process commands
(do
(let [#(command-id command) (get (lfor command (enumerate macro-commands) :if (get command 1) command) 0)]
(case command
pygame.K_a (.move player #((neg (* 2 TILE_SIZE)) 0))
pygame.K_s (.move player #(0 TILE_SIZE))
pygame.K_w (.move player #(0 (neg (/ player.MAX_JUMPING 2))))
pygame.K_d (.move player #((* 2 TILE_SIZE) 0)))
(if (= command-id (- (len macro-commands) 1))
(do (setv macro-commands [None None None])
(setv macro-input-mode False)
(setv macro-wait-time (+ (pygame.time.get_ticks) MACRO_COOLDOWN)))
(setv (get macro-commands command-id) None)))
(pygame.time.wait MACRO_STEP_WAIT))
;; If there's still space in the commands list
(for [#(num command) (enumerate macro-commands)]
(let [x-pos (+ 4 num)]
(case command
pygame.K_w (draw-tile screen tileset 1057 x-pos 5)
pygame.K_d (draw-tile screen tileset 1058 x-pos 5)
pygame.K_s (draw-tile screen tileset 1059 x-pos 5)
pygame.K_a (draw-tile screen tileset 1060 x-pos 5)
None (draw-tile screen tileset 725 x-pos 5)))))
;; Not in macro mode
(do
(when (> macro-wait-time 0)
(let [progress (round (* 3 (/ (- (pygame.time.get_ticks) macro-wait-time) MACRO_COOLDOWN)))]
(for [indicator (range 3)]
(draw-tile
screen tileset 725 ))))
(for [inp ongoing_inputs]
(case inp
pygame.K_a (.move player #((neg player.SPEED) 0))
pygame.K_s (.move player #(0 1))
pygame.K_w (.jump player)
pygame.K_d (.move player #(player.SPEED 0))))
(when (any ongoing_inputs)
(for [sprite sprites-group]
(apply-collisions sprite sprites-group)))
(.flush player)
;; Apply systems
(for [sprite sprites-group]
(apply-gravity sprite sprites-group)
(apply-collisions sprite sprites-group))
(.flush player)))
(for [sprite sprites-group]
(.blit screen sprite.surf sprite.rect))
(pygame.display.flip)
(when (or (= 0 macro-wait-time)
(< (- (pygame.time.get_ticks) macro-wait-time) 0))
(setv macro-wait-time 0))
(.tick clock 60))
(pygame.quit)
|
