Sorry your browser is not supported!

randomize timer()
moving = rnd(4)+1

topeasy:
rem variables that are used in the loop
score = 0
time = 0
spritex = 175
spritey = 80


stagnant = rnd(4)+1

do
sprite 28, 117, 436, 28

if moving = 1 then sprite 23, spritex, spritey, 23
if moving = 2 then sprite 24, spritex, spritey, 24
if moving = 3 then sprite 25, spritex, spritey, 25
if moving = 4 then sprite 26, spritex, spritey, 26
if moving = 5 then sprite 27, spritex, spritey, 27


if stagnant = 1 then sprite 23, 391, 84, 23
if stagnant = 2 then sprite 24, 391, 84, 24
if stagnant = 3 then sprite 25, 391, 84, 25
if stagnant = 4 then sprite 26, 391, 84, 26
if stagnant = 5 then sprite 27, 391, 84, 27

spritey = spritey + 1

if leftkey() = 1  then spritex = spritex - 10
if rightkey() = 1 then spritex = spritex + 10
if downkey() = 1 then spritey = spritey + 5

if spritex >= 315 then spritex = 315
if spritex <= 115 then spritex = 115
if spritey >= 400 then spritey = 400

if sprite exist(23) = 1
   if sprite hit(23,28) > 0
       moving = stagnant
      goto topeasy
   endif
endif

if sprite exist(24) = 1
   if sprite hit(24,28) > 0
       moving = stagnant
       goto topeasy
   endif
endif

if sprite exist(25) = 1
   if sprite hit(25,28) > 0
      moving = stagnant
      goto topeasy
   endif
endif

if sprite exist(26) = 1
   if sprite hit(26,28) > 0
       moving = stagnant
      goto topeasy
   endif
endif

if sprite exist(27) = 1
   if sprite hit(27,28) > 0
       moving = stagnant
      goto topeasy
   endif
endif

sync
loop

`setup
hide mouse
sync on : sync rate 30

screenX=200 : screenY=50
size=20

`Make 10x18 grid
DIM grid(9,17)

`Define Colours
DIM colour(7)
black=0 : red=1 : orange=2 : yellow=3 : green=4 : cyan=5 : blue=6 : magenta=7
colour(black)=0
colour(red)=rgb(255,0,0)
colour(orange)=rgb(255,128,0)
colour(yellow)=rgb(255,255,0)
colour(green)=rgb(0,255,0)
colour(cyan)=rgb(0,255,255)
colour(blue)=rgb(0,0,255)
colour(magenta)=rgb(255,0,255)

`Make array for storing tetromino blocks
DIM tetromino(4,1)
x=0 : y=1
colour=0 : active=1

DO
   if tetromino(0,active)=0
      tetromino(0,active)=1
      tetromino(0,colour)=rnd(6)+1
      tetromino(1,x)=5 : tetromino(1,y)=0
      tetromino(2,x)=5+1 : tetromino(2,y)=0
      tetromino(3,x)=5 : tetromino(3,y)=0+1
      tetromino(4,x)=5+1 : tetromino(4,y)=0+1
   else
      `get input
      r=rightkey() : l=leftkey()

      `check for horizontal space
      move=0

      for block = 1 to 4
         newX = tetromino(block,x)+r-l
         tY= tetromino(block,y)

         if newX>=0 and newX<=9
            if grid(newX,tY)= 0 then inc move,1
         endif
      next block

      `if horizontal space, move tetromino
      if move=4
         for block = 1 to 4
            tetromino(block,x) = tetromino(block,x)+r-l
         next block
      endif

      `check for space below tetromino
      drop=0

      for block = 1 to 4
         checkx=tetromino(block,x)
         checky=tetromino(block,y)+1

         if checky<=17
            if grid(checkx,checky)= 0 then inc drop,1
         endif
      next block

      `If space below, drop tetromino
      if drop=4
         for block = 1 to 4
            tetromino(block,y)=tetromino(block,y)+1
         next block
      else
         for block = 1 to 4
            grid(tetromino(block,x),tetromino(block,y))=tetromino(0,colour)
         next block

         tetromino(0,active)=0
      endif
   endif

   `** Display **
   for gy=0 to 17
      for gx=0 to 9
         ink colour(grid(gx,gy)),0
         box screenX+(gx*size),screenY+(gy*size),screenX+(gx*size)+size,screenY+(gy*size)+size
      next gx
   next gy

   for block = 1 to 4
      ink colour(tetromino(0,colour)),0
      box screenX+(tetromino(block,x)*size),screenY+(tetromino(block,y)*size),screenX+(tetromino(block,x)*size)+size-1,screenY+(tetromino(block,y)*size)+size
   next block

   `border
   ink rgb(255,255,255),0
   line screenX-1,screenY,screenX-1,screenY+(size*18)
   line screenX+1+(size*10),screenY,screenX+1+(size*10),screenY+(size*18)
   line screenX-1,screenY+(size*18),screenX+1+(size*10),screenY+(size*18)

   sync
LOOP

size=5

for y = 0 to 9
 for x = 0 to 9
   box 100+(x*size),100+(y*size),100+(x*size)+size,100+(y*size)+size
 next x
next y

size=5

for y = 0 to 9
 for x = 0 to 9
   box 100+(x*size)+2,100+(y*size)+2,100+(x*size)+size,100+(y*size)+size
 next x
next y

size=5

for space = 0 to 2 step 2
cls

for y = 0 to 9
 for x = 0 to 9
   r=255*65536
   g=int(255/9.0)*x*256
   b=(255/9.0)*y

   ink r+g+b,0
   box 100+(x*size)+space,100+(y*size)+space,100+(x*size)+size,100+(y*size)+size
 next x
next y

wait 1000
next space