`,uPPHe6oqAP]000www"""333DDDUUUfffwww SωˊΛ2Tv2Tv!eͫy$Z|f%r/PG7````A1!21!#2"1!#"2" PUUUVU\eUuUU\Uu|U\wu|wPwo 3333#"""#2#3#32####3#223#"""33333333"""23##232222#3232#2"""23333 \\\\U|wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww~w~wwwwwwwwwwww\\\\U|U\U\U\U\U\U\U\U\UU\U\UUUUUUUU^U^^U~wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\\\\\\\\wwwwwwwwwwwwwwww f`f``f`fffff}wwwwwwwww}wwwwwww}}}w}}wU|\\|\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww}\\\\U\UU\UUUUUUUUUUUU|\\|}}\\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwUUUUUUU~^^~wwwwwwwwwwwwwwww ffff```fffffffff```````UUU\U\UUUUUU\UUUUUUUUU\UUU\\\\ř````````wwwwwwwwwwwwUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU||||̪ffffffff```````ffffA1!21!#2"1!#"2" PUUUVU\eUuUU\Uu|U\wu|wPwo f`f````f`fPPUPPPUUPPwPWPUffffffffffffffffff`fffff`ffff`fffffffffffffffff`f`f`f`fffffffffffffffffffffffff``f`fff``ff`fff```````ff`f`f`fffff`ff`ff`ff`ff`ffffffffffffffffffffffffffffffff`f`fff`ffffff`fffffffffffffffffff`f``ff`ffffffffffffffffffffffff`fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff`fffffffff`ff`fff```ffffffff`ffffffffff``f`ffffffffffff```f`ff`ffff`f`ff`f``````fffffffffffff``fff````f``ff`f````ff#PPPPPPPPPPPPPAL +.mh@MNOHpqqqqqqqr01aaaaaaaaaaaaaaaaaaaaaaaaaaaa )*ijMNOHICBCaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa *iFICBCBCBCaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*iFBCBCBCBC !"#$%&'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*iFBCBCBCBC01234567aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*iFBCBCBCBC@ABCDEFGaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*iFBCBCBCBCPQRSTUVWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*iFBCBCBCBC`abcdefgaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa%*iV[CBCBCBCpqrstuvwaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa&*iUYZ[CBCBCaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa&*iUYYYZ[CBCaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'*iTXYYYYZ[Caaaaaaaaaaaaaaaaaaaaaaaaaaaaaa(*ik^_XYYYYZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa &*iUJK^_XYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ,-noGJK^_XYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "$$$$$$$$$$$$$$QJK^_aaaaaaaaaaaaaaaaaaaaaaaaaaaaaay{{{{{{yy{{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}|||||||||||||||||||||||||||||| vn;    P  P0 0 00345667889:::;;;<<<===>>>??@@l0H0001000<=>?>??????????????? @@@@@HJKLMMNNNOOOOOOOOOOOOOOOOX Xii y yeef f f g g g g h h h i i i j j j j k k k l l m m m m m n EGH IIJKLMOOOOOOOOOOOOOOOOOOOOOe                         `` @@@@@PPP@PPPPPPPPPPPPPPPPP@@@@`       @       @@ @# D # D # #  # D # D # # D%D%D%D%D%D%D%D%                    D(%(D(%(D(%(D(%(D(%(D(%(D(%(D(%(DDDDDDDDDDDDDDDDGg gg g g ggg@@  @@@@  @@ @@@@ @ @@@@ @ @ @@@  @@ @ @ @ @ @ @ @ @@@@@  @@@@ @@       0        g1` 001014aa8Te]?wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww}wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww }wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww}wwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwww}wwwwww wwwww}w~wwwwwwwww}wwwww www}w~wwwww}}wwww wwwwww www}www }www~~~w}wwww }www~~~w}wwwww wwwwwwww wwwwwwww wwww~~~~wwww wwww~~~~wwww wwwwwwww wwwwwwww wwww~~~~wwww wwww~~~~wwww wwwwwwww wwwwwwww wwww~~~~wwww wwww~~~~wwww wwwwwwww wwwwwwww wwww~~~~wwww wwww~~~~wwww PUU wwwwUVU\wwww eUu wwwwUU\wwww Uu| wwww~~~~U\wwwww u|w wwww~~~~Pwwww  wwwwww o }www}www www~~~www \www~~~\ \wwU\ PUU  Uww\U\\\UVU\A1!Uww\U\\\ eUu 2 U}ww\UU\\UU\1!#\UU}wwU\\ Uu| 2" \Uww~~|U\\U\w1!#"U|wwU\ u|w 2" \U\\ww~~\U\PwPUUU\|\wU\U\U\ PUU PUU UVU\ UUUw\U\U\U\\\UVU\UVU\eUuUUUw\U\U\U\\\ eUueUu UU\ UUU}w\UU\U\U\\UU\ǙUU\Uu|\UUUU}wU\U\U\\ Uu|Uu| U\w \UUUw~|U\U\U\\U\wU\wu|wUUU|wU\U\U\ u|wu|w Pw \UUU\\w~\U\U\U\Pw PwPUUUUU\|\U\U\U\U\U\   UVU\ \UUUUU\U\U\U\U\U\eUu\UUUUU\U\U\U\U\U oߩo UU\ U\UUUU}\UU\U\U\U\\U홙Uu|UUUUUU}U\U\U\U\U ޙ U\w UUUUU|U\U\U\U\Uݙu|wUUUUU|U\U\U\U\ ݉ Pw UUUU\\\U\U\U\U\ UUUU\|\U\U\U\U\UUUU PUU PUU UUU\UUUUU\U\U\U\U\U\UU^UVU\UVU\UU\UUUUU\U\U\U\U\UU^ eUu oA1!eUu UU\UUUU\UU\U\U\U\\U^UUU\2UU\UUUUUUUU\U\U\U\U Uu| 1!#Uu| UUUUU|U\U\U\U\U~U\w2"U\w~UUUUU|U\U\U\U\ u|w 1!#"u|w ^UUUU\U\U\U\U\Pw 2"Pw^~UUUU\|U\U\U\UUUU  PUUPUU UUU\UUUUU\U\U\U\UU^\\\UVU\UVU\UU\UUUUU\U\U\UU^\\\ A1! eUueUu UU\UUUU\U\U\\U^U\U\2UU\UU\Ǚ\UUUUUUU\U\U\U\ 1!# Uu|Uu| \UUUUU\U\U\U~|\2"U\wU\w|~UUUUU\U\U\ 1!#" u|wu|w \\\^UUUU\U\U\\2"PwPw \|\^~UUUU\UUUUU\U\  PUU U\U\UUU\UUU\U\UU^\U\U\UVU\U\U\UU\UUU\UU^\U\U\ o A1!eUuo U\U\UU\UU\\U^U\UU\U\2UU\U\U\UUUUU\UU\U\ 1!#Uu| U\U\UUU\U~|U\U\2"U\wU\U\|~UUU\U\U\ 1!#"u|w U\U\\\^UU\\U\U\ 2"Pw U\U\\|\^~UUUUU\U\U\U\U\U\UUUUU^\U\U\U\U\U\U\UUU^\U\U\U\U\U\U\U^U\UU\U\U\U\U\U\UUU\U\U\U\U\U\~|U\U\U\U\U\U\|~U\U\U\U\U\U\\\^\U\U\U\U\U\U\\|\^~S-- title: TIColumns -- author: Steve Emfore -- desc: A game based off of SEGA's Columns -- site: . -- license: MIT License (change this to your license of choice) -- version: 0.1 -- script: lua cls() x= 120 xmax=136 xmin=96 y=1 blk1 = 256 blk2 = 257 blk3 = 258 blk4 = 259 rnd1 = 0 rnd2 = 0 rnd3 = 0 tmp1 = 0 clmx = 0 lne = 13 cmn = 0 clr = 0 top = 2 dbug = 0 dbtxt="debug!" dbtxt2="" dbtxt3="" dbtxt4="" menu=0 ln=8 a1=1 a2=1 a3=64 a4=64 function BOOT() menu=1 anim=1 t=0 end function TIC() map(60,1,0,0,0,0) if(anim==1)then cls() spr(a1,a2,0,14,1,0,0,a3,a3) if(a1<272)then a1=a1*1.05 end if(a1>=272)then a1=272 print("Steve Emfore",88,64) t=t+1 if(t==2)then sfx(17,60,100,1,5,10) end if(t==200)then anim=0 sfx(17,4,100,1,5,10) cls() end end if(a2~=11*8)then a2=a2+1 end if(a3~=8)then a3=a3-1 end return end if(menu==1)then print("Press Z to start TIColumns!",0,ln) print("Press X for Debug mode",0,ln*2) if(btnp(4))then menu=0 music(0) end if(btnp(5))then dbug=1 print("Debug mode on!",0,ln*3) sfx(4,4,100,1,5,10) end return end cls() calcY = math.floor(y/8+0.5) calcX = math.floor(x/8+0.5) map(0,0,64,64,0,0) map(7,0,16,64,7*8,0) dbtxt3=calcX..","..calcY dbtxt4=mget(x/8-1,(y/8)+3) clmn(x,y) if (y~=120-16) then y=y+0.2 end if (dbug == 1) then dx = 21*8 dy = 16 map(51,1,9,5,dx,dy-8) print(dbtxt, dx+2,dy+2,15,false,1,true) print(dbtxt2,dx+2,dy+10,15,false,1,true) print(dbtxt3,dx+2,dy+18,15,false,1,true) print(dbtxt4,dx+2,dy+24,15,false,1,true) end if (btnp(2)) then if (xxmax)then x=xmax end if (mget((x/8)+1,(y/8+3))==7)then x=x+8 end end if (btn(1)) then y=y+2 end if (btnp(4)) then tmp1 = rnd1 rnd1 = rnd2 rnd2 = rnd3 rnd3 = tmp1 end -- bottom detection if (mget(x/8,(y/8)+3)~= 7) then bgbake() y=0 x=120 clmx=0 end spr(80,120,0) clmchk() clmchk() clmchk() clmchk() end function clmchk() xloc = 11+cmn yloc = top+lne clr = mget(xloc,yloc) dbtxt="checking:"..xloc..","..yloc..","..clr if(dbug==1)then spr(96,(xloc)*8,(yloc)*8) end if (clr ~= 7) then if (mget(xloc,yloc)==0) then mset(xloc,yloc,7) end if (mget(xloc-1,yloc)==clr) then if (mget(xloc+1,yloc)==clr) then dbtxt2 = "H" mset(xloc,yloc,7) mset(xloc-1,yloc,7) mset(xloc+1,yloc,7) cmn=0 lne=13 end end if (mget(xloc,yloc-1)==clr) then if (mget(xloc,yloc-2)==clr) then dbtxt2 = "v" mset(xloc,yloc,7) mset(xloc,yloc-1,7) mset(xloc,yloc-2,7) lne=13 end end if (mget(xloc+1,yloc+1)==clr) then if (mget(xloc-1,yloc-1)==clr) then dbtxt2 = "daig \\" mset(xloc,yloc,7) mset(xloc+1,yloc+1,7) mset(xloc-1,yloc-1,7) lne=13 end end if (mget(xloc+1,yloc-1)==clr) then if (mget(xloc-1,yloc+1)==clr)then dbtxt2 = "diag /" mset(xloc,yloc,7) mset(xloc+1,yloc-1,7) mset(xloc-1,yloc+1,7) lne=13 end end if (mget(xloc,yloc+1)==7)then mset(xloc,yloc,7) mset(xloc,yloc+1,clr) dbtxt3="fall" lne=13 cmn=0 end end cmn=cmn+1 if (cmn==8)then cmn=0 lne=lne-1 if (lne==1)then lne=13 end end clr = 0 end function bkgn() blck = math.random(256,259) return blck end function bgbake() mset(x/8,y/8,rnd1+1) mset(x/8,y/8+1,rnd2+1) mset(x/8,y/8+2,rnd3+1) end function clmn() if (clmx==0) then rnd1 = bkgn() rnd2 = bkgn() rnd3 = bkgn() clmx=1 end spr(rnd1,x,y) spr(rnd2,x,y+8) spr(rnd3,x,y+16) end