31 lines
404 B
Plaintext
31 lines
404 B
Plaintext
(= incr (mac (n) (list '= n (list '+ n 1))))
|
|
(= decr (mac (n) (list '= n (list '- n 1))))
|
|
|
|
(= draw-player (fn ()
|
|
(dcolor 31 31 31)
|
|
(drect player-x player-y 16 16)
|
|
))
|
|
|
|
(= update (fn ()
|
|
(incr player-x)
|
|
(incr player-y)
|
|
))
|
|
|
|
(= 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)
|