0,]']╠>SО}WЪмu8╥d%qy)6o;]иA╕ЖsОВТТТ■╟бVl├3@ABCDEFFGHIJKLMNPQRSTUVVWXYZ[\]^`abcdefwghijklmnopqrstuv┤wxyz{|}~─│┌┐└┘├≈┤┬┴┼▀▄█▌▐░▒▓⌠■∙√╖≈≤≥ ⌡°²·÷═║╒ё╓╔╕╥╖╗╘╙╚╛╜╝╞╟╠╡Ё╢╣╤г╥╦╧╨╩╪╫╬©юабцдефвгхийклмнопярстужГвьызшэщчъЮАБЦДЕФФВГХИЙКЛМНОПЯРСТУЖЖВЬЫЗШЭЩЧЪЖГХИЙВЬЫЗ з     )22ЯЯЯРЯППЯЯ !│!r!"#$%& ' ) * ,.////////////////▀ @000022358 : ; >??? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 02_3д5$6и8:`<ю>>????????????????????@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B C D E G I J L M N O O O O O O O OOOOOOOOOOOOOППППЮпп ╟ ═ ─ ───┌j````` `````` `` ` ``` `` `` `` ` `` ` `` ` `` ```` ` `` ``` `` `` `` `` `` ``` ` `` `` `` ``▄ 0@P─Tp\─Tp\@─T0 ▄ 0@P─Tp\─Tp\@─T0 ▄ 0@P─Tp\─Tp\@─T0 ▄ 0@P─Tp\─Tp\@─T0 └█└█$█Ь█H█H█┤█┤█'█└█└█$█ N┬NN┬N N┬NN┬N4──0н@ю?ЮНЮНЮЮЮННЮЮЮЮНЮННЮЮЮННННННЮЮЮЮНЮЮНЮ"""" " """ " """" """"""" " " " " " """ "ЮНЮНЮЮЮННЮЮ""""""""!"""""""""""""ЮЮНЮННЮ""""""""" """"""" " """ " """ "ЮЮННН""""""""""!""""""""""""""""""НННЮЮЮЮНЮ""" " "" " """""""""" " """"" """"ЮНЮЮНЮНЮЮЮННЮЮЮЮНЮННЮЮЮН^UUUUUННННЮЮЮЮPеллллл\Uелллллллл\UллллллллллUUлллллллллллл\НЮUллллллллллллллЮЮЮНЮЮЮНЮЮЮЮНННЮЮPллллллллллллллл\ЮНЮЮЮНЮННЮЮННЮНЮЮНЮЮЮНЮННЮЮННЮНЮЮНЮЮЮНЮННЮЮНЮННЮНННеллллллллллллллллЮННЮЮЮННЮЮЮЮЮЮНЮЮЮЮЮЮЮЮЮЮННЮЮЮЮЮЮНЮЮЮЮЮЮЮЮЮЮННЮЮЮЮЮЮНННЮНН^ллллллллллл\Uлллл\ЮЮЮЮЮЮЮЮНЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮНЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮЮНЮННЮННЮЮНЮЮЮеллллллллл\Uеллллл\ЮЮЮЮЮЮНЮНЮЮНЮЮЮНННЮЮЮЮЮНЮНЮЮНЮЮЮНННЮЮЮЮЮНЮНЮЮНЮЮЮННелллллл\UUеллUUелл\ЮНЮЮPллллллUеллUUUллллл\Pлллл\Uлл\Uлл\UUллл\НЮелллUе\UUел\UеллелллЮНЮНЮЮел\UлUелл\UеллллллллЮЮНЮе\е\UллUUеллллллллллЮЮее\е\UUлллллллллллллНННЮЮPллеUеллллллллUUUUлллPлл\лллллллл\UллллеллPллллллллллллллллллллPлллллллллллллллллллл\НЮеллллллллллллллллллл\PUллллл\UЮНЮНЮЮелл\UUUлллллеллллллл\PеллллллллUЮЮНЮел\елллеллл\ллUелллл\еллллллллллUЮЮелеллллллллеUUеелллл\UллллллллллллНННЮЮелелллUеелеU\Uеелллл\Pллллллллллллл\елллUUе\еле\\UUллллл\елллллллллллллл\Pлл\\UUеелелUелллллл\Pлллллллллллллллл\Pлл\\Uе\елеллллллллл\елллллллллллллллллНЮPлл\\UUеелеллллллллл\Pлллллллллллллллллл\ЮНЮНЮЮ^лллUUелелеллллллллл\Pлллллллллллллллллл\ЮЮНЮеллллллелеллллллллл\елллллллллллллллллллЮЮеллллллел\ллллллллл\Pлллллллллллллллллллл\НUНЮЮЮеллллллел\ллллллллл\еллллллллллллллллллллле\еллллллеллелллллллл\еллллллллллллллллллллл\елUUеллллллелл\лллллллл\лллллллллллллллллллллллпщщщЩЮпщщ Pелл\Pллллл\ллл\лллллллл\ллл\UUUUлллллллллллллллмлллэнЛмллэНЮPлллUPллллл\ллл\лллллллл\лUUеллллUUUUелллллллллл\плиллМЧч юМпэщмэЮНЮ^лллл\UЮ^ллллл\ллл\ллллллл\\лллллллллллл\UUUUUUUллллп°и≥иМЧЮмэмщщэщНЮЮНPллллллUUеллллле\Uеллллллллеллл\UUUUUлллллллллллUелл\пллллЩч юМмщщэщМЮЮ^лллллллл\Uеллллл\елллллллллеелл\еUелллUелллллUUUел\лл\п°≥≥и ЮмэмщмМНННННPллллллллллееллллллллллллллеее\л\е\е\UUUл\UUUUUллл\Uлел\плллл ч юМплщэщМННелллллллллл\лллллл\л\лллллле\\лUле\елллллUлллллл\Uеллелллп°≥≥л ЮЩъпчээщщНелллллллллл\\ллл\лее\\ллллUе\еелUл\елллллллUллл\Uел\Uе\лллплллл ОЩпчмнщллPл\елллллллллUллл\\ел\леелл\еU\ллл\лел\Uеллллллл\еллллл\елллп°≥ил 0ъЧМчмНлНННЮUPелллллллл\лл\е\UUUлU\ллеееееллл\ле\ел\елллллллллллллл\ллл\плллл #С?2МчмОННЮНЮНPллллллллUлл\лUUUUе\\\\\\\леллллллеллл\лллллллллллл\Uлллл\ЮНН·≥и 020#мНЛЪННЮЮНЮUллллллллееелUUUUUл\\л\\ееелллллллллллелллллллллл\елеллл\чщщМлл #02плНЧЪОЮЮеллллллл\лелUUUUUел\\л\\\лллллллллллл\ллллллллл\елл\ллл\чщщМ≥л #02МНЧЪОНННPллллллл\\\лUUUUUел\Uееллллллллллллллллллллллллеллл\ллл\Ющщщнэ#2#2пЩОНеллллллее\лUUUUUел\\\\еллллллл\Uеллллллллллллллллллллл\НННН 00ЮPеллллллеее\UUUеелее\\\лллллл\UUUUUUеллллллллл\UUллллл\Pлллллл\\е\UUU\ллллU\лллллллUлллUUе\UUUUUUUUUеллUUелл\НЮелллллеее\лUееллл\\еллллллллллUлл\ел\лллллUUUUUUUUUU\ЮНЮНЮЮеллллле\елUл\лллл\\ллллллллллUлллл\ллеллл\лл\UUеллUлUЮЮНЮ^ллллле\UллUеллллU\лллллллллллUUUллел\лллел\елл\елле\PЮЮеллллллUллллллл\Uллллллллллл\лUUUл\л\лллеле\UUе\лл\\PНННЮЮPллллллUлелллллееелллллллллл\\UUеUлл\лUееллUUе\ллл\\Pелллллеееллле\ллллллллллллллеUUелел\\л\елUUUе\ллл\\PPллллллUееле\UUллллллллллллл\UUUUллеUл\\\лUUUеллл\\Pеллллле\U\еU\ллллллллллллл\лллл\ллUеллUлUUUеллел\UНЮPллллл\леUUееллллллллллллллелллел\\еллееUллл\Uлл\\ЮНЮНЮЮЮелллллл\лле\еллллллллллелл\UUUллеUллл\\лUUUеллле\ЮЮНЮ^ллллллеелллллллллллллл\ллллллллU\ллл\лелллллл\е\ЮЮНеллллллллллллллллллллллUелллл\Uе\ллл\е\лллл\Uее\НННЮЮЮЮелллллллллллллллллллллUл\UUUUелл\ллллUUUUUUUUUл\PллллллллллллллллллллллUеллллллл\ллллеллллллллл\PлллллллллллллллллллллллллллллллеллллелллллллллPлллллллллллллллллллллллллллллллеллллелллллллллНЮPлллллллллллллллллллллллллллллллеллллелллллллллЮНЮНЮЮЮ^лллллллллллллллллллллллллллллллелллл\лллллллллЮЮНЮНеллллллллллллллллллллллллллллл\ллллл\лллллллллЮЮНеллллллллллллллллллллллллллллл\ллллл\лллллллллНННЮЮЮЮеллллллллллллллллллллллллллллл\ллллл\лллллллллPллллллллллллллллллллллллллллл\лллл\елллллллллPллллллллллллллллллллллллллллллUUл\еллллллллллелллллллллллллллллллллллллллллллUелллллллллллНЮеллллллллллллллллллллллллллллл\ллллллллллллллЮНЮНЮЮЮPлллллллллллллллллллллллллллллеллллллллллллл\ЮЮНЮНPлллллллллллллллллллллллллллллеллллллллллллл\ЮЮНPлллллллллллллллллллллллллллл\леелеллллллллл\НННЮЮЮЮPллллллллллллллллллллллллллл\\леелеллллллллл\еллллллллллллллллллллллллллее\\ллUлллллллллеллллллллллллллллллллллллллелллл\\леллллллUеллллллллллллллллллллллллл\лл\UUUлееллллллUUНЮелллллллллллллллллллллллллUллелллU\\ллллл\\UЮНЮНЮЮЮелллллллллллллллллл\ллллллUл\\UUелеUлллллл\ЮЮНЮН^лллллллллллллллллл\ллллл\\л\\UUUл\еелллле\ЮЮН^лллллллллллллллллле\лллл\\леUUUUе\еелллееНННЮЮЮЮ^лллллллллллллллллле\лллл\е\\UUUUе\леллл\лPллллллллллллллллллееллллUееUUUUUU\\ллл\\\PPлллллллллллллллллллеллллU\\UUUUUU\Uлле\\\PPлллллллллллллллллл\еллллелеUUUUUеел\л\UеНЮ^лллллллллллллллллл\\ллллелеUUUUUеел\л\\еЮНЮНЮЮЮелллллллллллллллллUлелллеле\UUUUееллеU\\ЮЮНЮНелллллллллллллллллUлелллел\лUUUUеелUлел\PЮЮНеллллллллллллллллле\л\ллее\лUUUUеелелU\UPНННЮЮЮЮелллллллллллллллллUл\\л\\\\л\UUUлеле\\\UPеллллллллллллллллл\л\\л\\\ле\UUллелеU\\\Pллллллллллллллллл\\\\лUл\лелллллелел\U\Pллллллллллллллллл\\\\лел\еелллллелUелUUНЮPллллллллллллллллл\леUлелее\лллл\\\\л\лUЮНЮНЮЮЮ^лллллллллллллллллUлее\\\ле\ллл\е\\\лее\ЮЮНЮН^ллллллллллллллллл\\ле\\\лелUUUел\\\лUеЮЮН^ллллллллллллллллл\Uл\\л\леелл\лл\ел\ееНННЮЮЮЮ^ллллллллллллллллле\е\лелеее\ллее\елее\Pллллллллллллллллле\\леелее\\ллее\\лUллPлллллллллллллллллее\елUлее\ле\лее\\\ллPлллллллллллллллллелеUлUлееееееUл\\ееелНЮPлллллллллллллллллелллU\лееелееUл\\Uлл\ЮНЮНЮЮЮелллллллллллллллллеллл\ееUеееле\е\\Uлл\ЮЮНЮНелллллллллллллллллелллл\\\\\е\л\U\еелл\ЮЮНелллллллллллллллллеллллеU\е\еееU\\еллл\НННЮЮЮЮелллллллллллллллллеллллеUее\\\\U\U\ллле\елллллллллллллллллеллллее\елU\\UU\\ллле\Pллллллллллллллллллеллллел\Uл\е\U\л\лллелPллллллллллллллллллелллллл\лUUUеU\лллллелНЮ^ллллллллллллллллллH-- title: Epic Rock-Paper-Scissors -- author: Yizz (ELfox) -- desc: Finally, the grand finale of one famous saga has come, better known for its adaptation into the simple game -- license: Meme License -- version: 0.1 -- script: lua PREGEN_TEXT={ "So epic", "Grand final", "Checkmate!", "Season 65 Episode 49", "Hands of Infinity", "Watching now: 1.1m!", "Buy our stuff!", "0wO", "No overworld, only battle", "The __________", "The End", "llPOXJIADHO", "She is a MANIAC!", "Determination", "Nutdealer", "0.70.6", } FRMS={ {x1=0,y1=0,x2=240,y2=136,sqr=16,spr=257}, {x1=24,y1=8,x2=216,y2=96,sqr=8,spr=289, draw=function() map(0,0,30,17,0,0,0) print("sorry i can't come tonight,",49,106,12) print("i'm watching the rock paper",47,114,12) print("scissors season finale",59,122,12) end }, {x1=32,y1=0,x2=208,y2=136,sqr=8,spr=289, postDraw=function() map(0,17,30,17,0,0,0) end }, } function battle() cls() music() if btnp(6) then -- X currentFrm=currentFrm-1 if currentFrm==0 then currentFrm=#FRMS end -- I don't know how to do this in a formula form, sorry sfx(1) end if btnp(7) then -- Y currentFrm=currentFrm%#FRMS+1 sfx(1) end if btnp(6) or btnp(7) or t==0 then obj={} t=0 totalc={total/3,total/3,total/3} frm=FRMS[currentFrm] local pos={} for i=frm.sqr+frm.x1,frm.x2,frm.sqr do for j=frm.sqr+frm.y1,frm.y2,frm.sqr do pos[#pos+1]={i-frm.sqr,j-frm.sqr} end end for i=1,total do local sel=math.random(#pos) obj[i]={ x=pos[sel][1], y=pos[sel][2], sx=math.random(2)==1 and 1 or -1, sy=math.random(2)==1 and 1 or -1, spr=frm.spr+((i-1)%3)*frm.sqr/8, } pos[sel]=pos[#pos] pos[#pos]=nil end end if frm.draw then frm.draw() end for i=1,total do local c=false for j=1,total do if i~=j then local cx=(obj[i].x+frm.sqr/2)-(obj[j].x+frm.sqr/2) local cy=(obj[i].y+frm.sqr/2)-(obj[j].y+frm.sqr/2) if math.abs(cx)>=math.abs(cy) then if cx<=0 and cx>=-frm.sqr then obj[i].sx=-1 c=true end if cx>=0 and cx<=frm.sqr then obj[i].sx=1 c=true end end if math.abs(cx)<=math.abs(cy) then if cy<=0 and cy>=-frm.sqr then obj[i].sy=-1 c=true end if cy>=0 and cy<=frm.sqr then obj[i].sy=1 c=true end end end if c then if (obj[i].spr==frm.spr and obj[j].spr==frm.spr+frm.sqr/8) or (obj[i].spr==frm.spr+frm.sqr/8 and obj[j].spr==frm.spr+2*frm.sqr/8) or (obj[i].spr==frm.spr+2*frm.sqr/8 and obj[j].spr==frm.spr) then local ixi=(obj[i].spr-frm.spr)/(frm.sqr/8)+1 local ixj=(obj[j].spr-frm.spr)/(frm.sqr/8)+1 if totalc[ixi]>1 or t>3600 then obj[i].spr=obj[j].spr totalc[ixi]=totalc[ixi]-1 totalc[ixj]=totalc[ixj]+1 sfx(ixj+2) end end break end end if obj[i].xfrm.x2-frm.sqr then obj[i].sx=-1 end if obj[i].yfrm.y2-frm.sqr then obj[i].sy=-1 end obj[i].x=obj[i].x+obj[i].sx obj[i].y=obj[i].y+obj[i].sy spr(obj[i].spr,obj[i].x,obj[i].y,0,1,0,0,frm.sqr/8,frm.sqr/8) end if frm.postDraw then frm.postDraw() end t=t+1 end function BOOT() selText=PREGEN_TEXT[math.random(#PREGEN_TEXT)] selTextSize=print(selText,-8,-8,14,false,1,true) total=45 t=0 music(1) end function TIC() if btnp(2,30,6) then -- Left if total~=3 then total=total-3 sfx(1) else sfx(2) end end if btnp(3,30,6) then -- Right if total~=90 then total=total+3 sfx(1) else sfx(2) end end if btnp(4) then -- A t=-1 currentFrm=1 poke(0x3FF8,5) sfx(1) TIC = battle end cls() local buf=t%(selTextSize+4)-selTextSize while buf<240 do print(selText,buf,24,14,false,1,true) buf=buf+selTextSize+4 end local buf=t%8-8 if t%5 then titleOffX=math.random(3) titleOffY=math.random(3) end while buf<136 do print(selText,16+ print("EPIC ROCK-PAPER-SCISSORS",6+titleOffX,6+titleOffY,1,true) ,buf,14,false,1,true) buf=buf+8 end print("EPIC ROCK-PAPER-SCISSORS",8,8,2,true) print("Menu:",8,102,12) spr(305,8,109,0,1,0,0,2,1) print("- Set up",28,110,12) print(" obj",28,118,12) spr(307,16,125,0,1) print("- START!",28,126,12) print("Battle:",88,102,12) spr(308,88,109,0,1) print("- Prev FRM",100,110,12) spr(309,88,117,0,1) print("- Next FRM",100,118,12) print("Objects:",24,48,12,false,2) print(total,24,64,12,false,2) t=t+1 end