31 lines
410 B
Plaintext
31 lines
410 B
Plaintext
(= ++ (mac (n) (list '= n (list '+ n 1))))
|
|
(= -- (mac (n) (list '= n (list '- n 1))))
|
|
|
|
(= draw-player (fn ()
|
|
(dcolor 31 31 31)
|
|
(drect player-x player-y 16 16)
|
|
))
|
|
|
|
(= update (fn ()
|
|
(++ player-x)
|
|
(= player-y (+ player-y 4))
|
|
))
|
|
|
|
(= draw (fn ()
|
|
(dblock
|
|
(dcolor 0 0 0)
|
|
(dclear)
|
|
(draw-player)
|
|
)
|
|
))
|
|
|
|
(= main (fn ()
|
|
(= player-x 0) (= player-y 0)
|
|
(while (< player-y 224)
|
|
(update)
|
|
(draw)
|
|
)
|
|
))
|
|
|
|
(main)
|