>?              -- title: top down view -- author: potato imaginator -- desc: Press Up/Down/Left/Right to Move . Press 'Z' to Reset . Press 'X' to change color -- script: lua function init() a={} for i=0,29 do a[i]={} for j=0,16 do a[i][j]= math.random(0,2) end end end init() vx,vy=0,0 vdx,vdy=0,0 c=0 function draw(val,d,c1,c2) for i=0,14 do for j=0,7 do if a[i+15][j]>=val then rect (120+(8+d)*(i)-(8+d)*vx//1, (8+d)*j-8*d-d/2-(8+d)*vy//1, 8+d,8+d,c1) rectb (120+(8+d)*(i)-(8+d)*vx//1, (8+d)*j-8*d-d/2-(8+d)*vy//1, 8+d,8+d,c2) end if a[14-i][j]>=val then rect (120-(8+d)*(i+1)-(8+d)*vx//1, (8+d)*j-8*d-d/2-(8+d)*vy//1, 8+d,8+d,c1) rectb (120-(8+d)*(i+1)-(8+d)*vx//1, (8+d)*j-8*d-d/2-(8+d)*vy//1, 8+d,8+d,c2) end end if a[i+15][8]>=val then rect (120+(8+d)*i-(8+d)*vx//1, 68-(8+d)/2-(8+d)*vy//1, 8+d,8+d,c1) rectb (120+(8+d)*i-(8+d)*vx//1, 68-(8+d)/2-(8+d)*vy//1, 8+d,8+d,c2) end if a[14-i][8]>=val then rect (120-(8+d)*(i+1)-(8+d)*vx//1, 68-(8+d)/2-(8+d)*vy//1, 8+d,8+d,c1) rectb (120-(8+d)*(i+1)-(8+d)*vx//1, 68-(8+d)/2-(8+d)*vy//1, 8+d,8+d,c2) end for j=9,16 do if a[i+15][j]>=val then rect (120+(8+d)*i-(8+d)*vx//1, 68+(8+d)/2+(8+d)*(j-9) -(8+d)*vy//1, 8+d,8+d,c1) rectb (120+(8+d)*i-(8+d)*vx//1, 68+(8+d)/2+(8+d)*(j-9) -(8+d)*vy//1, 8+d,8+d,c2) end if a[14-i][j]>=val then rect (120-(8+d)*(i+1)-(8+d)*vx//1, 68+(8+d)/2+(8+d)*(j-9) -(8+d)*vy//1, 8+d,8+d,c1) rectb (120-(8+d)*(i+1)-(8+d)*vx//1, 68+(8+d)/2+(8+d)*(j-9) -(8+d)*vy//1, 8+d,8+d,c2) end end end end function draw2(val1,val2,d1,d2,col1,col2) for i=0,1,0.1 do draw(val2,d1+i*(d2-d1),col1,col1) end end function TIC() cls() mx,my=mouse() draw(0,0,0,0) draw2(0,1,0,1,1+c,1+c) draw(1,1,2+c,2+c) draw2(1,2,1,2,3+c,3+c) draw(2,2,4+c,4+c) if btn(0) then vdy=math.max(-1/3,vdy-1/8) elseif btn(1) then vdy=math.min(vdy+1/8,1/3) else vdy=vdy/1.05 end if btn(2) then vdx=math.max(-1/3,vdx-1/8) elseif btn(3) then vdx=math.min(vdx+1/8,1/3) else vdx=vdx/1.05 end vx=vx+vdx vy=vy+vdy if vy<-1 then vy=0 for i=0,29 do local b={} for j=0,16 do b[j]=a[i][j] var=b[16] end for j=0,16 do if j>0 then a[i][j]=b[j-1] elseif j==0 then a[i][0]=var end end end elseif vy>1 then vy=0 for i=0,29 do local b={} for j=0,16 do b[j]=a[i][j] var=b[0] end for j=0,16 do if j<16 then a[i][j]=b[j+1] elseif j==16 then a[i][16]=var end end end end if vx<-1 then vx=0 for j=0,16 do local b={} for i=0,29 do b[i]=a[i][j] var=b[16] end for i=0,29 do if i>0 then a[i][j]=b[i-1] elseif i==0 then a[0][j]=var end end end elseif vx>1 then vx=0 for j=0,16 do local b={} for i=0,29 do b[i]=a[i][j] var=b[0] end for i=0,29 do if i<29 then a[i][j]=b[i+1] elseif i==29 then a[29][j]=var end end end end if btnp(4) then init() end if btnp(5) then c=7-c end end