0,]']±>Sп}WяНu$…8·d%qy)6o;]ЙA¦цsпчффф”°ВVl†3 ii 15) (set ii 15)) (if (and (= ir nil) (= ig nil) (= ib nil)) [(peek (+ 0x3fc0 (* ii 3))) (peek (+ 0x3fc0 (* ii 3) 1)) (peek (+ 0x3fc0 (* ii 3) 2))] (when (or (= ir nil) (< ir 0)) (set ir 0)) (when (or (= ig nil) (< ir 0)) (set ig 0)) (when (or (= ib nil) (< ir 0)) (set ib 0)) (when (> ir 255) (set ir 255)) (when (> ig 255) (set ig 255)) (when (> ib 255) (set ib 255)) (poke (+ 0x3fc0 (* ii 3) 2) ib) (poke (+ 0x3fc0 (* ii 3) 1) ig) (poke (+ 0x3fc0 (* ii 3)) ir))) ; Picks random 24-bit colour. (fn car-colour [] ;(color-hsl-to-rgb (math.random) (math.random) .5)) [(math.random 255) (math.random 255) (math.random 255)]) (fn create-car [] (var ct (get-ctype)) {:x (+ (math.random (- 72 (* 8 ct.spw)))) :y (* -8 ct.sph) :type ct :colour (car-colour)}) (var c_offset 0) (fn update-car [car speed] (set car.y (+ car.y (- cfg.minsp speed) 1)) car) (fn update-cars [cars speed] (each [i car (pairs cars)] (table.remove cars i) (when (< car.y 135) (table.insert cars i (update-car car speed)))) cars) (fn get-rectrect [r1x r1y r1w r1h r2x r2y r2w r2h] (and (>= (+ r1x r1w) r2x) (<= r1x (+ r2x r2w)) (>= (+ r1y r1h) r2y) (<= r1y (+ r2y r2h)))) (fn get-collision [car player] (get-rectrect (+ 48 player.x) (- 136 player.y) ctype.CARP.coll.w ctype.CARP.coll.h (+ 48 car.x car.type.coll.x) (+ car.y car.type.coll.y) car.type.coll.w car.type.coll.h)) (fn get-collisions [cars player] (var flag false) (each [i car (pairs cars)] (when (get-collision car player) (set flag true))) flag) (fn get-def-state [] {:started false :paused false :score 0 :speed cfg.minsp :cars [] :p {:x (- (* 9 8 .5) 8) :y 32 :ded flse}}) (var state (get-def-state)) (fn bdr [scanline] (each [i car (pairs state.cars)] (when (>= (+ scanline 3) car.y) (pal 9 (. car.colour 1) (. car.colour 2) (. car.colour 3))))) ; Do some palette swaps based on the car colour. (global BDR bdr) (global SCN bdr) ; Put everything on the screen. (var _ded_timer 0) (fn put-scr [] (when state.p.ded (set state.speed 1)) (set c_offset (/ (% t state.speed) state.speed)) (put-map c_offset) (put-score state.score) (put-car {:x state.p.x :y (- 136 state.p.y) :type ctype.CARP :colour 0xFF0000}) (put-cars state.cars (// state.speed cfg.maxsp)) (put-ded _ded_timer) (when (< (% (time) 1000) 500) (when (not state.started) (map 30 0 30 17 0 0 0) (print "Press A to start" 40 66 12)) (when state.paused (map 30 0 30 17 0 0 0) (print "Game paused" 52 66 12)))) (var ppt 0) ; Update game logic. (fn update [] (when (not state.started) (when (btn 4) (set state.started true) (set pt (time)))) (when (and state.started (not state.paused)) (when (< (pmem 0) state.score) (pmem 0 state.score)) (when state.p.ded (set _ded_timer (+ _ded_timer .075)) (when (> _ded_timer 1) (set _ded_timer 1)) (when (btn 4) (set state (get-def-state)) (set _ded_timer 0)) (set pt (time))) (when (not state.p.ded) (when (btn 0) (set state.p.y (+ state.p.y 1))) (when (btn 1) (set state.p.y (- state.p.y 1))) (when (btn 2) (set state.p.x (- state.p.x 1))) (when (btn 3) (set state.p.x (+ state.p.x 1))) (when (< state.p.x 0) (set state.p.x 0)) (when (> state.p.x 56) (set state.p.x 56)) (when (< state.p.y 24) (set state.p.y 24)) (when (> state.p.y (* 136 .7)) (set state.p.y (* 136 .7))) (when (= (% t 65) 0) (table.insert state.cars 1 (create-car))) (set state.cars (update-cars state.cars state.speed)) (when (get-collisions state.cars state.p) (set state.p.ded true)) (set state.score (// (- (time) pt) 100)))) (when state.started (when (and (btnp 4) (> state.score 1)) (set state.paused (not state.paused)) (if state.paused (set ppt (time)) (set pt (+ pt (- (time) ppt))))))) ; Main game loop. (global TIC (fn tic [] (update) (cls 0) (put-scr) (when (not state.paused) (set t (+ t 1)))))