0]']â>Sï}Wےحu§ًp8·d%qy)6o;]ةA¦ِsï÷ôôô”°آVl†3300 then tik=0 TIC=Attract end if btnp(4) then music(2) tik=0 TIC=Start end cls() map() spr(400,52,math.min(tik,32),0,1,0,0,16,7) spr(32+2*math.floor(f),-16+tik,16,0,1,0,0,2,2) if tik>32 then text("@2021 LOSTCADESOFT\n BY BGELAIS",6,12,10) end hiscore_draw() pstart() end function Attract() tik=tik+1 if tik>720 or btnp(4) then title_init() end tx=[[ PARTY TIME DUDE! NO, IT'S NOT WAYNE CAMPBELL! IT'S ME BOZO THE CLOWN! HERE COMES TROUBLE! WE'RE IN WAR AGAINST CLOWN INVADERS FROM MARS! I NEED HELP AND LOT OF CREAM PIES TO DEFEAT'EM ALL!]] cls() map(30,0) spr(108,24,40,7,1,0,0,4,4) spr(88+2*math.floor(tik/8%4),32,56,-1,1,0,0,2,1) spr(32,8,76,0,1,0,0,2,2) spr(40,8,92,0,1,0,0,2,2) spr(64,8,108,0,1,0,0,2,2) text(string.sub(tx,0,math.floor(tik/3)),9,3,13) text("20\n\n25\n\n10",4,10,tik/2%14) hiscore_draw() pstart() end function Start() tik=tik+1 if tik>180 then game_init() end cls() hud() text("GET READY!",10,8,5) end function Game() tik=tik+1 if #vaders==0 then music(1) tik=0 TIC=Levelup end cls() map(0) player() vaders_update() pies_update() points_update() hud() end function Levelup() tik=tik+1 if tik>=180 then wave=wave+1 wave=math.min(wave,119) game_init() end cls() text("WAVE COMPLETE",8,8,12) hud() end function Dead() tik=tik+1 spr(7,pl.x-8,pl.y-16,0,2,0,0,2,2) text("GOSH!",13,13,tik/8%14) if tik>=120 and lives>0 then pies={} pl={x=120,y=16*8,xd=0} lives=lives-1 tik=0 TIC=Game elseif tik>=120 and lives==0 then music(3) tik=0 TIC=GameOver end end function GameOver() tik=tik+1 if tik>180 then title_init() end cls() hud() text("GAME OVER",10,8,2) end function game_init() vaders={} for _y=0,3 do for _x=0,12 do vader={x=24+(_x*16),y=24+(_y*16), f=0,dead=false,t=60,p=0} type=math.random(3) if type==1 then vader.s=32 vader.p=20 end if type==2 then vader.s=40 vader.p=25 end if type==3 then vader.s=64 vader.p=10 end table.insert(vaders,vader) end end pl={x=120,y=16*8,xd=0} pies={} music(0) tik=0 TIC=Game end function player() if btn(2) then pl.xd=-2 end if btn(3) then pl.xd=2 end if btnp(4) and #pies<2 then sfx(2) pshot(pl.x-8,pl.y-8,0,-2,false) end pl.x=pl.x+pl.xd pl.x=math.max(pl.x,32) pl.x=math.min(pl.x,224) if pl.x%16==0 then pl.xd=0 end spr(1,pl.x-16,pl.y-8,0,1,0,0,4,2) end function pshot(_x,_y,_xd,_yd) pie={x=_x,y=_y,xd=_xd,yd=_yd} if _xd==-1 then pie.rot=3 end if _xd==1 then pie.rot=1 end if _yd==1 then pie.rot=2 end if _yd==-1 then pie.rot=0 end table.insert(pies,pie) end function pies_update() for id,o in pairs(pies) do o.x=o.x+o.xd o.y=o.y+o.yd if o.x<0 or o.x>240 or o.y<20 or o.y>136 then table.remove(pies,id) end spr(5,o.x-8,o.y-8,0,1,0,o.rot,2,2) if hit(o,pl) then sfx(4) tik=0 TIC=Dead end end end function vaders_update() for id,o in pairs(vaders) do o.t=o.t-1 if o.s==32 or o.s==40 then if o.t==0 and not o.dead then o.f=math.random(0,3) o.t=60*math.random(3) elseif o.t==0 and o.dead then d=math.random(-1,1) pshot(o.x,o.y+9,d,1) point_init(o.x,o.y,o.p) table.remove(vaders,id) end end if o.s==64 then if o.t<=0 and o.dead then o.y=o.y+2 end if o.y>136 then point_init(o.x,o.y,o.p) table.remove(vaders,id) end end if tik%120-wave==0 then o.y=o.y+1 end if hit(o,pl) then sfx(4) table.remove(vaders,id) tik=0 TIC=Dead end if hit_pie(o) then sfx(1) o.t=30 o.dead=true end spr(o.s+o.f*2,o.x-8,o.y-8,0,1,0,0,2,2) if o.dead then spr(7,o.x-6,o.y-8,0,1,0,0,2,2) end end end function hit_pie(ob) for id,o in pairs(pies) do if hit(ob,o) then table.remove(pies,id) return true end end end function hit(a,b) if math.abs(a.x-b.x)<16 and math.abs(a.y-b.y)<8 then return true end end function point_init(_x,_y,_p) sfx(0) table.insert(points,{ x=_x,y=_y,p=_p,t=30 }) end function points_update() for id,o in pairs(points) do o.y=o.y-1 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+1,15) print(o.p,o.x,o.y,12) 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(16,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,16,12) end end function text(str,x,y,c) poke4(0x3ff0*2+12,c) poke4(0x3ff0*2+13,c+1) font(str,x*8,y*8,-1,8,8,true,1) poke4(0x3ff0*2+12,12) poke4(0x3ff0*2+13,13) end