0]']òï}WÿÍu§ðpú%qy)6o;]ÉA¦ösï÷ÿÿÿ”°ÂVl†30 then text("GET READY!",10,8,6)end if lives==0 then text("GAME OVER",10,8,2)end end if timeout<=0 and lives>0 then lives=lives-1 game_init() TIC=Game elseif timeout<=0 and lives<=0 then timeout=300 TIC=Title end hud() end function player_update() if btn(2) then pl.x=pl.x-1 pl.flp=1 pl.fr=pl.fr+.2 elseif btn(3) then pl.x=pl.x+1 pl.flp=0 pl.fr=pl.fr+.2 end if btnp(4) then sfx(2,50) pl.yd=pl.yd-4 pl.fr=0 end pl.fr=pl.fr%2 pl.x,pl.y,pl.yd=land(pl.x,pl.y,pl.yd) xm=pl.x/8 ym=pl.y/8 if mget(xm,ym)==34 then mset(xm,ym,0) pl.yd=-2 points_init(pl.x,pl.y,5) end spr(1+2*math.floor(pl.fr),pl.x-8,pl.y-8,0,1,pl.flp,0,2,2) end function birds_update() for id,b in pairs(birds) do b.t=b.t-1 if b.t<=0 then if b.flp>1 then table.remove(birds,id) end b.xd=-2+math.random(3) b.t=60 end if math.random(50)<2 and b.yd==0 then b.yd=-5 end if b.xd<0 then b.flp=1 b.fr=b.fr+.2 end if b.xd>0 then b.flp=0 b.fr=b.fr+.2 end if col(b,pl) and pl.yb.y then sfx(0,70) music(-1) timeout=240 TIC=dead end b.fr=b.fr%2 b.x=b.x+b.xd b.x,b.y,b.yd=land(b.x,b.y,b.yd) poke4(0x3ff0*2+8,b.c1) poke4(0x3ff0*2+10,b.c2) spr(5+2*math.floor(b.fr),b.x-8,b.y-8,0,1,b.flp,0,2,2) poke4(0x3ff0*2+8,8) poke4(0x3ff0*2+10,10) end end function land(x,y,yd) yd=yd+.2 yd=math.min(yd,1) y=y+yd cx=math.floor(x/8) cy=math.floor(y/8) if mget(cx,cy+1)~=32 then yd=yd+0.2 else yd=0 y=cy*8 end yd=math.min(yd,1) y=math.max(y,22) if x<2 then x=240 end if x>240 then x=2 end return x,y,yd end function col(a,b) if math.abs(a.x-b.x)<8 and math.abs(a.y-b.y)<8 then return true end end function points_init(_x,_y,_p) table.insert(points,{x=_x,y=_y,p=_p,t=30}) sfx(1,60) end function points_update() for id,o in pairs(points) do o.y=o.y-.5 o.t=o.t-1 if o.t<=0 then score=score+o.p table.remove(points,id) end print(o.p,o.x,o.y,time()%15,true,1,true) end end function hud() text("SCORE",1,0,2) if score>pmem(0) then pmem(0,score) end text(string.sub("000000"..tonumber(score),-6),1,1,12) hiscore_draw() for l=1,lives do spr(33,184+l*9,0) end end function hiscore_draw() text("HIGH SCORE",10,0,2) text(string.sub("000000"..tonumber(pmem(0)),-6),12,1,12) end function pstart() if time()%1000<=500 then text("a TO START",10,14,12) end end function text(str,x,y,c) poke4(0x3ff0*2+12,c) font(str,x*8,y*8,0,8,8,true,1) poke4(0x3ff0*2+12,12) end