0 D$404mNJNL04e$FHuqaY}},m,Ҫm^ `xEͻxVD#rgVg4#E#m` v!Sf:xV4 Э  Э  Э    ̪ ̪ ̠ ̠ ̪ ̪ ̪ ffffoffffffffffofffffffffffffffDDDDDDOOOOOOOOOODDDDDDOODDDDDDDDDDDD fffffoofofoffffffffffofffffffffofffffDDDDOOOOOODOOODOOODOOODDDDDDDDDOOOOODDODDOOODOOODDDDD ڀ  Э 񠀈ʈπ̀ π̀  ̉ڀ  Э 񠀈̈̈̈ ̀ ʈπ̀ π̀ ڀ  Э 񠀈̈̈ ̈̀ ̀ʈπ̀ π̀   ̀̀ ̀  0 @ @ 0  c,+*)***++++++++,------......./D7y5#5r4^4~5^5m5M6]7-7L88+9: :;;<<==>>>>????k##**//)*..//---../////////////@@@=A}AA;B[BCYCDHEEvFH%IJKbLN1OO@IOAHNOOPQSU W Y []__][Z X W USQ "&(D-q./ # (G+s/ ` ` ` `` ` ` ` ` `` ` ` ` ` ` ` `  ` ` ` ` ` ` ` `` ` ` ` ` ` `` ` ` ` ` `  ` ``` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `` ` ` ` ` ``` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ```@``aaaaaaa aaa Aaaaaaaa a a a aa a aa a aa a aa a aa a aa a aa a aa a aa a aa a aa a aa a aa a aa a aaaa a aa a aa a aa a aa a aa a aaaaaaaaaaaa aa aa aa aaaaaaaaa a a a a aaa a a a aa i( ik i jh if@@ ?71wwswwwݭʬ7ww7ww3"2#"""3sz33s1sz33333Gw7ADwwGADDwDDDDw3swwwwwzʪݪz7w733ww7z3""#""2733s3w713333qz0wDwGCDDwCDDDD71swwwwzʪʪݪʪzww733sw3z3""""""733s1ww13333qp|wwwwwDzGADDwDDDDDs:3w:qzݪʪww333s33z3"""""1z30:3133330p|4DDwwGDD|DADDADDtwwzsw:ݭwww733s3333#"""23w317:31333137p|1DDDD:ADDtGDADzw:swwzݭz3w73337333#"""3ss3s7:31s3133s|0ʬ1DDwDDGADww:37s:3ߪsw33w7333s3333#""""33s7:313130z7171twwDDtwDGwz33s:3zz3w313w33333333z332"""1z333773133ww1D7DDDtwGGw7swzwwswݪzwzwwww333333333333z332#"33w3s7711333qz7AD|Aww13Attw|D7sW3ww733wwϪzw7sz3www3333333333337333#"sz7s7s3333330w1CD|wGDD1C4tDw|D33w1ww73w7sܪwww3s73wwww73333333333#333#"szwsw0w33333333q3Dqw7CwDDG1D4tw|tw31wwwwwwW3wwzsw7w7wz3s7www33333333333'333#"3zw3wsw733313131:CDD|GD4ADt|w7s733swwwwSsw73z3wwwwwww3ww3s733333333333s3333#2swww3w71z73333313ssz71DDyDDDDw̪|70735wws7sww7U5w7sw3w7ww7p73333333333333333##s37w3w7sz713333133ssz770wDDwDDCDtww71s733w3357wwww3zSsww7sSsww737333333333333#33333s373s71swww1w71313qwzwGtswDG1ADw̬w3w3333wwSSu7swwwwz3s770333w3733333w33333#2#333#s333s:s337w3sw3131z7w̞qwGGA4CDtw3w333s:S5ws73zwzwSP3073333w33373333333##s33#s:s31wz333337|I0IG41tDDDtw3373w3ww73s73U57sw7SUSu173wwz713sw33s333333333#s3z3s7s33z733zǬAI1swwDDDADw|17sw3u735wS3UQsS3wSsU7s0z7w߭z03s733w333333333#s772s#s73sw3331|7swDD0wwGDDtw|133w3Q533swSw7Sswsw7w3S531z3ߪ703333w7333333333#sz723wsz1333131z3w41DtDAyDDDtw|z33w3SU33ww7733wsww731ssz3s:30333sw33333333333sz33wqz33330s̬w3sGDwIDAGDDDtw3sw3SU33sww7uSs3swS03z33ݪs0333sw33333333333sz3szq13333303̬7tw|tyDĜGDDt3133w3173wwSwwwWU5s7S33s3zw3ws:0333s733333333333z33ws033s|wyD̙wDt333S5Wu73wwSw7s71w7Qs3s3zw3z33z1333w733333333333z33w313ʯ1̜D̜wt133U07UswSw7u7sww73wwww31333}133sw33333333333sz333733:sLt̜1313UU0wUu7573w33733ws7wz731s}133ww333333333333:w33!s731:sGAywsSSUwU51sW7QW3wzwzw30}133ww3333333333337w331sz31z|CtLDqwwQUq7s7s3SQswwW5wUS33sw7swz31:033s7333333333swss321swwGwGDq|DǜUU1w3333SPwwwS5wQ3s73s7w73331:033s73333333333ws3#213w13sGwwwD4qt|UU1SwUU53UQ3w3u73373sw31:033ww33ww3333333s3#2137131pwDAwGA|w|wSUsUPw7SQ53Uu73s7s3wz330:033w733ww333333ww3#137103pzDDDtDDAw̧WUsSPwwSQ57UU3s73www3330sw:03w37wwww3s333wwws3#23w11730|zCDDDDADADAwwPUsPww7Uww7U317sz333331ss:0swwwwwww3sw7sz7s3#23w13w137ǬGDDDDAD3DAww07wQww3www3ssw737333sw:s7swwwww7s73z3w3332w333sw13333GDDDDDDDD4wwpww5w73wwzw3ww3333wz13sw7ww737szsw3731Ǭzw331ww33371GCDDDDDDD433t|wwW0www35S3U5w33sz737313wwwwwww7wszwww73173ww33330swCDDDDD3DDAqwww7U3ww35UwW131s7w3371sq33wwwwwwwwwwwww331z30ww13333zCDDDD4DDDA4q|DwwwPw3U3SwW1zw33z3swwwwwwww733333sz3s1w7130<|3ADDDDDwDD4q|1GwwPw33w7w713sw733s31swwwwwwwww7333373sz3s1w73133p?ǬADDDDDIDD4q|wG33WQs7swww5swww33s:0wwwwwwww7333333733sz3s31w33133p?1DDDDDIDD4qwGw5WUUww7swu7ww717133qz1wwwwwwww733333373sz33313333p1DDDDDyDDq|ww3WUUwwWuw5ww711:1333sz1wwwwwwwww33333333sz33s1333130s7CDDDDDDDww37UUswWuw77711713333sz1wwwwww3sz713331sz33s13130qwADDDGDDwww7uwwww7111733333sz1wwwwww3sw3333313sw0w731313qwADDDyDDDwwDww7S0swzww33331s33333:swwwwww3sw73333313zs71313qwCDDt|DD4DwwIDwWspwsssw33q:317swwwww3sw733333qz3sw03330w7CCDtLDDDDD|DtwwwwWQUu7573s:sw7333q7317swwwwww3sw333333z33s0z10313G3At̜DDADǙyDtwwww7U{Uwws:z7317173w7wwww3sw333333z1s0w330313pGt̜ID1DyDts5wwSU{Uuw:sww7w1171w33www3sw333333z1s0w330331p:w4t̙IDADyD55wzU{SUw1w75wwsw13171s73www7sw3333333z13s0w7331331p7zGt̙IAD|D1Uwz7U{SU3Ssz7QUUsz333131133swwwww33333713z1w71w73313131p7Gq̙ADyD13swSUw75w3sw3SUUswsw713137swwww73333313:1w70w7331331q:GDC̙IDDɜyw13twSUsU3ww3wsWUw3sw3w7133337swwsww333333z7sw70w331331:LDD7̙IDADɜwQww7013sw7ws{7u733333z7sww3ww333333w3sz30w731333:|wtw̙DDDD̙w1SQ01Usw771{71s7133w7sw7sz33333173sz0w7313311z||t̙DDDDyG50UUs37P{7ww0331w7sw7wz333333173sw0w3313311z|s̙DDDwGyDUUUU0w3Us3zQw3ww7133w7swww733333331q33sw1ww31333ʯz7Ϭ|A̙GDDwwyQuW0wSs{3zSuw7sww73377swww7333333373331ww31333z7̬|t̙GDDDQuW5sʬ5w3zS5w3s7w13131773www332333337311w7313z3ʬ|GA̙GDDDQs[Qwz7SUwz33Us7{w33313s330w7w33213337331w7311|3GA̙DDDDtPs[P7uwwSww3333{w3s733130w7w3#3133327371w7311|3LADDDDtwPs[qww3qwws35{wws7113331w7333""3337331w733|3|CDIDDDDt|wUuSP3wSs73s335wwww713133ww333#"3337330w330z3s|sDwGDDDAtyt3QUss33wwwUwwwwʪ1133333133ww733#1337330w33sz3s|qDDDDDADəGt3Us33w3SUww7s733333313w733#23333s3330w303sʯw0w|wDDDDDtG17QQw3313w3S5wUUs7171333313w733333333103333031313swwwwDDDDDADGDt1QQU{3q3073swUUs:pz33133331w33333333331333s733303313qʯw3zDDDDDDDDDqw33Uw{sq3sz33SUUsz73wzw7333313313333333333313333s733033313sw1ǬwDDDDDDDDtwz73Qw71swwwszwzwzW7333313313333333333133331s73333313sw0zwDDDDDDDADt7w31w71www733uwswwswWW3333133133333333333333w7330333ssw07wDD3CDDDDADţ̪Uw1QUu{3swww733swwwwww3CW333311333333333333331ws7330333sswwDD43DDDADtQw1Qu755wwwS1swwwwwww7Uuw7333333333333333333w33333333swwDDD3DDDDtQ73sww33QUUUUs7szw1wwSUU11www3333333333333333333ws7333331qw7wDDDADDDADD5ws33QQUU1s7swzswwWQ11713333333333333333sws733333swq7wDDD1DDDDtw|073www7Q57s7U5w7ʬuWPs7wwz7s3333333333333333ww3303331z1wDDDDDDDA|{|3w{w3s5wwS:3S3w3ʬw3[uw73www3s3333333333333333s73313333z7CDDDDDDDw̻|5wws7uwww:0w37sʬ357szwt5s333333333733333s73133333zG1GDDADD|qww̻|PuGqK71Uw:s773www3wsww{7s333333333733333s7333333333zG1wDDADDqϬ|Awww|z057AW4U:3s7swWzU{3wswwD333333333s733333s333333333ϪG1wDD4ADDqGwGDwwtw703UUq44133Uu:337s7U|P{3w33SuWu53333073w333333s3333333333ϬG1wDDD3DDDqADDDDDt[U3QUUU313Uu733sWUwwwP7sz33SUUu51333307sw333333s3333333313GCDDD4CDDqADDDDDDWqUUU31qUUw733SUwDG0wUsz3S5S5U133333133w333333s3333333333G1DDD4ADDq|ADDwwwD3Q033371qUUw73Qs{DD0w1UUWU3333w3333333333s333333333qGAD4ADDs|1DtD7PUUs7ww1UUw333u{Dt073303US5S331szw33333333333333333pzG4ADDADDq|Ct|7Usww1UUW33swqw70Ws3qW3Uw130|q333333333313133333p:C4ADDCDDpADD3Uuw7UUwW3zwus:qW5SUwW13ʾw73333333333333331333p:A4DDDDDqCG43s3U{w711UUUU33z35ww3SUWU{13s컻wws7333333333333313330A4DDDDDt7141:U{w133wWQsw13ww75U{7qz7sWUwsw3333333333331331333s0:CDCDDDD|qwU{71333SUswwsW5Uw3sw703Swsw3333333333331333333s0:CD1DDADD7Aʪ0Uu{ww711333353UUUUww1WUUuwQ3wwu{333sw3337333333331333333w0zCDqDDADt|:PSu{Wu3sww135wU{z1w75S3UW7sw3Pu7S5s733wwww3333331133333w0zCD1DDq|80 then cnt=cnt-.4 print("THE END",27,48,9,false,5);end for i=0,360,45 do;j=i+45--+cnt oa,ob=bx+di(i+90)*bx,by+di(i)*by oc,od=bx+di(j+90)*bx,by+di(j)*by ca,cb=v(bx,by,i+135,size) cc,cd=v(bx,by,j+135,size) tri(oa,ob,ca,cb,cc,cd,9) tri(oa,ob,oc,od,cc,cd,9) end;cnt=cnt+.8 end yagi(Y.x-8,Y.y-8,6,2) if Y.y > 150 then print("INFERIOR: "..Y.k,87,88,15) print("PRESS (A) TO RESTART",64,100,6) if btn(4) then reset() end end return end -- play cls() T=T+1 M_LIMIT = M_BASE + math.sin(T*0.1)*12 - math.random(0,6) update_logic() -- gauge if Y.oh==0 then local cur = math.max(Y.cl, Y.cr) if cur > 0 then local gh = math.min(G_SIZE, (cur/M_LIMIT)*G_SIZE) local gc = (cur > M_LIMIT * 0.8) and 6 or 11 end end -- munch if Y.oh>0 then if Y.oh%12==0 then sfx(11,rnd(40,53)) end Y.oh=Y.oh-1 local sx = math.sin(T*0.8)*1.5 yagi(Y.x-8+sx,Y.y-8,0,0,bw) print("munch! munch!", Y.x-32, Y.y-22, 6) else handle_input() Y.x = Y.x + (Y.tx - Y.x) * 0.15 yagi(Y.x-8,Y.y-8,(Y.cl+Y.cr)//9,0,bw) end draw_scene() -- fall check if Y.xR_LIMIT then music(-1);sfx(8,42);sfx(4,25,-1,3) Y.dead=true Y.vy = -3 end end--tic -- inputs function handle_input() if btn(2) then bw,Y.cl,Y.cr=0,Y.cl+1,0 elseif btn(3) then bw,Y.cr,Y.cl=1,Y.cr+1,0 else if Y.cl>0 then sfx(9,30) attack(-1, Y.cl) Y.cl=0 end if Y.cr>0 then sfx(9,32) attack(1, Y.cr) Y.cr=0 end end if Y.cl > M_LIMIT or Y.cr > M_LIMIT then Y.oh=M_TIME Y.cl, Y.cr = 0, 0 end end -- attack function attack(dir, pow) local p = pow / M_LIMIT Y.tx = Y.x + dir * p * 85 for i=#ES,1,-1 do local e=ES[i] if math.abs(Y.x-e.x)<18 then if p>=0.75 then sfx(10,60,-1,3) spr(28,e.x,Y.y-24,0,2,0,0,2,2) table.insert(DE, {x=e.x, y=Y.y, vx=dir*(4+p*4), vy=-(3+p*4)}) table.remove(ES,i) Y.k=Y.k+1 else e.x=e.x+dir*p*60 spr(30,e.x,Y.y-28,0,1,0,0,2,2) end end end end -- update function update_logic() local max_e=math.min(4+math.floor(Y.k/5),8) if #ES0) and 16 or 14 if math.abs(e.x-Y.x) < hit_dist then if Y.oh > 0 then local push = (e.x < Y.x) and 2.2 or -2.2 Y.x = Y.x + push Y.tx = Y.x else Y.tx = Y.tx + ((e.x < Y.x) and 0.8 or -0.8) end end if e.x<-30 or e.x>270 then table.remove(ES,i) end end for i=#DE,1,-1 do local d=DE[i] d.x, d.y = d.x+d.vx, d.y+d.vy d.vy=d.vy+0.25 spr(62,d.x-8,d.y-8,0,1,0,0,2,2) if d.y>140 or d.x<-40 or d.x>280 then table.remove(DE,i) end end end -- screen function draw_scene() line(L_LIMIT,108,R_LIMIT,108,3) print("INFERIOR:"..Y.k,8,8,15) end -- replay function reset() Y={x=120,y=100,tx=120,cl=0,cr=0,oh=0,k=0,dead=false,vy=0} ES, DE={}, {} bw,T,cnt=0,0,0 music(0) end