Tetris in <30 minutes? - GameCreators Forum

Author

Message

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 23rd May 2012 01:35

Link

I tried to make Tetris in <30 minutes. This is what I have after an hour

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

do
   if blk=1
      inc by
      if by<17
         for y=0 to 2
            for x = 0 to 2
               if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                  blk=0
                  exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            grid(bx+x,by+y) = block(btype,brot,x,y)
         next x
      next y

blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
   endif

rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

sync:wait 100:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

data 1,0,0
   data 1,1,1

data 0,0,1
   data 1,1,1

data 0,1,1
   data 1,1,0

data 1,1,0
   data 0,1,1

data 0,1,0
   data 1,1,1

for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

+ Code Snippet

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

do
   if blk=1
      inc by
      if by<17
         for y=0 to 2
            for x = 0 to 2
               if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                  blk=0
                  exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            grid(bx+x,by+y) = block(btype,brot,x,y)
         next x
      next y

      blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
   endif

   rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

   rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

   sync:wait 100:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

   data 1,0,0
   data 1,1,1

   data 0,0,1
   data 1,1,1

   data 0,1,1
   data 1,1,0

   data 1,1,0
   data 0,1,1

   data 0,1,0
   data 1,1,1

   for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

   rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

Man I code messy when I'm rushing! Kind of disappointed that I haven't even gotten any controls yet but I'm still going with this.

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 23rd May 2012 02:09

Link

Another half an hour and I have something approaching semi-functional

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

levelspeed=5
gamerate=100
iter=0

do
   inc iter,levelspeed+boost

if iter>=gamerate
      iter=0
      inc by
      if by<18
         for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                     blk=0
                     exit
                  endif
               else
                  if block(btype,brot,x,y)>0 then blk=0 : exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      if newrot>oldrot then inc brot : if brot>3 then brot=0

oldlr=newlr
      newlr=rightkey()-leftkey()
      if newlr<>oldlr
         inc bx, newlr
         if bx<0 then bx=0
         if bx>7 then bx=7
      endif

boost= downkey()*20
   endif

rem generate new block
   if blk=0
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            if by+y<=19
               bit = block(btype,brot,x,y)
               if bit>0 then grid(bx+x,by+y) = bit
            endif
         next x
      next y

blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
      iter=0
   endif

rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

sync:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

data 1,0,0
   data 1,1,1

data 0,0,1
   data 1,1,1

data 0,1,1
   data 1,1,0

data 1,1,0
   data 0,1,1

data 0,1,0
   data 1,1,1

for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

+ Code Snippet

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

levelspeed=5
gamerate=100
iter=0

do
   inc iter,levelspeed+boost

   if iter>=gamerate
      iter=0
      inc by
      if by<18
         for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                     blk=0
                     exit
                  endif
               else
                  if block(btype,brot,x,y)>0 then blk=0 : exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      if newrot>oldrot then inc brot : if brot>3 then brot=0

      oldlr=newlr
      newlr=rightkey()-leftkey()
      if newlr<>oldlr
         inc bx, newlr
         if bx<0 then bx=0
         if bx>7 then bx=7
      endif

      boost= downkey()*20
   endif


   rem generate new block
   if blk=0
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            if by+y<=19
               bit = block(btype,brot,x,y)
               if bit>0 then grid(bx+x,by+y) = bit
            endif
         next x
      next y

      blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
      iter=0
   endif

   rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

   rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

   sync:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

   data 1,0,0
   data 1,1,1

   data 0,0,1
   data 1,1,1

   data 0,1,1
   data 1,1,0

   data 1,1,0
   data 0,1,1

   data 0,1,0
   data 1,1,1

   for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

   rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 23rd May 2012 02:31 Edited at: 23rd May 2012 02:34

Link

Two hours and it is coming together, you can move and rotate properly but no line clearing yet, and I realise how important the 4x1 block is, I will have to edit how I store the blocks to fit it in.

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

levelspeed=1
gamerate=100
iter=0

do
   inc iter,levelspeed+boost

if iter>=gamerate
      iter=0
      inc by
      if by<18
         for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                     blk=0
                     exit
                  endif
               else
                  if block(btype,brot,x,y)>0 then blk=0 : exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      rotate=newrot>oldrot
      if rotate then inc brot : if brot>3 then brot=0

oldlr=newlr
      newlr=rightkey()-leftkey()
      move = newlr ! oldlr
      if move
         inc bx, newlr
         if bx<-1 then bx=-1
         if bx>10 then bx=10
      endif

if move or rotate
         rem validate movement/rotation
         for y = 0 to 2
            for x = 0 to 2
               if (block(btype,brot,x,y)>0) and ((grid(bx+x,by+y)>0) or bx+x<0 or bx+x>9)
                  if rotate then dec brot,1 : if brot<0 then brot=3
                  if move then dec bx,newlr
                  exit
               endif
            next x
         next y
      endif

boost= downkey()*20
   endif

rem generate new block
   if blk=0
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            if by+y<=19
               bit = block(btype,brot,x,y)
               if bit>0 then grid(bx+x,by+y) = bit
            endif
         next x
      next y

blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
      iter=0
   endif

rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

print bx;",";by

sync:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

data 1,0,0
   data 1,1,1

data 0,0,1
   data 1,1,1

data 0,1,1
   data 1,1,0

data 1,1,0
   data 0,1,1

data 0,1,0
   data 1,1,1

for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

+ Code Snippet

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem initialize block
blk = 1
btype=nxt
nxt = rnd(3)
bx=5
by=0
brot=0

levelspeed=1
gamerate=100
iter=0

do
   inc iter,levelspeed+boost

   if iter>=gamerate
      iter=0
      inc by
      if by<18
         for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) + (grid(bx+x,by+y+1)>0) >1
                     blk=0
                     exit
                  endif
               else
                  if block(btype,brot,x,y)>0 then blk=0 : exit
               endif
            next x
         next y
      else
         blk=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      rotate=newrot>oldrot
      if rotate then inc brot : if brot>3 then brot=0

      oldlr=newlr
      newlr=rightkey()-leftkey()
      move = newlr ! oldlr
      if move
         inc bx, newlr
         if bx<-1 then bx=-1
         if bx>10 then bx=10
      endif

      if move or rotate
         rem validate movement/rotation
         for y = 0 to 2
            for x = 0 to 2
               if (block(btype,brot,x,y)>0) and ((grid(bx+x,by+y)>0) or bx+x<0 or bx+x>9)
                  if rotate then dec brot,1 : if brot<0 then brot=3
                  if move then dec bx,newlr
                  exit
               endif
            next x
         next y
      endif


      boost= downkey()*20
   endif


   rem generate new block
   if blk=0
      rem copy block to the grid
      for y = 0 to 2
         for x = 0 to 2
            if by+y<=19
               bit = block(btype,brot,x,y)
               if bit>0 then grid(bx+x,by+y) = bit
            endif
         next x
      next y

      blk = 1
      btype=nxt
      nxt = rnd(3)
      bx=5
      by=0
      brot=0
      iter=0
   endif

   rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

   rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

   print bx;",";by

   sync:cls
loop

end

rem ### Subroutines ###
make_blocks:
   dim block(3,3,2,2)

   data 1,0,0
   data 1,1,1

   data 0,0,1
   data 1,1,1

   data 0,1,1
   data 1,1,0

   data 1,1,0
   data 0,1,1

   data 0,1,0
   data 1,1,1

   for a = 0 to 3
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

   rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 23rd May 2012 03:07 Edited at: 23rd May 2012 03:17

Link

Trying to let the player slide the blocks when they are touching is tricky, I feel I am doing it in a stupid way. Oh well I'm tired now so going to stop.
Here's what I produced in 2 1/2 hours.

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
Stopped: 01:00 23/May/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem init game settings
levelspeed=1
gamerate=100
iter=0

rem initialize block
bhit = 0
btype=nxt
nxt = rnd(types)
bx=5
by=0
brot=0

do
   inc iter,levelspeed+boost

if iter>=gamerate
      iter=0

if by<19
         newhit=0

for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) and (grid(bx+x,by+y+1)>0)
                     newhit=1 : goto derp
                  endif
               else
                  if block(btype,brot,x,y)>0 then newhit=1 : goto derp
               endif
            next x
         next y

if newhit=0 then inc by
      else
         newhit=1
      endif

derp:
      inc bhit,newhit
      if newhit=0 and bhit>0 then dec bhit

rem block hit bottom?
      if bhit=2
         rem copy block to the grid
         for y = 0 to 2
            for x = 0 to 2
               if by+y<=19
                  bit = block(btype,brot,x,y)
                  if bit>0 then grid(bx+x,by+y) = bit
               endif
            next x
         next y

bhit=0
         btype=nxt
         nxt = rnd(types)
         bx=5
         by=0
         brot=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      rotate=newrot>oldrot
      if rotate then inc brot : if brot>3 then brot=0

oldlr=newlr
      newlr=rightkey()-leftkey()
      move = newlr ! oldlr
      if move
         inc bx, newlr
         if bx<-1 then bx=-1
         if bx>10 then bx=10
      endif

if move or rotate
         rem validate movement/rotation
         for y = 0 to 2
            for x = 0 to 2
               if block(btype,brot,x,y)>0
                  if bx+x<0 or bx+x>9
                     if rotate then dec brot,1 : if brot<0 then brot=3
                     if move then dec bx,newlr
                     exit
                  else
                     if grid(bx+x,by+y)>0
                        if rotate then dec brot,1 : if brot<0 then brot=3
                        if move then dec bx,newlr
                        exit
                     endif
                  endif
               endif
            next x
         next y
      endif

boost= downkey()*20
   endif

rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

print bx;",";by
   print bhit

sync:cls
loop
end

rem ### Subroutines ###
make_blocks:
   types=5
   dim block(types,3,2,2)

data 1,0,0
   data 1,1,1

data 0,0,1
   data 1,1,1

data 0,1,1
   data 1,1,0

data 1,1,0
   data 0,1,1

data 0,1,0
   data 1,1,1

data 1,1,0
   data 1,1,0

for a = 0 to types
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

+ Code Snippet

remstart
TETRIS... in <30 minutes?
By OBese87
Started 22:30 22/MAY/2012
Stopped: 01:00 23/May/2012
remend

set display mode 1024,768,32
sync on
sync rate 0
randomize timer()

gosub make_images
gosub make_blocks

dim grid(9,19)

rem init game settings
levelspeed=1
gamerate=100
iter=0

rem initialize block
bhit = 0
btype=nxt
nxt = rnd(types)
bx=5
by=0
brot=0

do
   inc iter,levelspeed+boost

   if iter>=gamerate
      iter=0

      if by<19
         newhit=0

         for y=0 to 2
            for x = 0 to 2
               if by+y<19
                  if (block(btype,brot,x,y)>0) and (grid(bx+x,by+y+1)>0)
                     newhit=1 : goto derp
                  endif
               else
                  if block(btype,brot,x,y)>0 then newhit=1 : goto derp
               endif
            next x
         next y

         if newhit=0 then inc by
      else
         newhit=1
      endif

      derp:
      inc bhit,newhit
      if newhit=0 and bhit>0 then dec bhit

      rem block hit bottom?
      if bhit=2
         rem copy block to the grid
         for y = 0 to 2
            for x = 0 to 2
               if by+y<=19
                  bit = block(btype,brot,x,y)
                  if bit>0 then grid(bx+x,by+y) = bit
               endif
            next x
         next y

         bhit=0
         btype=nxt
         nxt = rnd(types)
         bx=5
         by=0
         brot=0
      endif
   else
      rem If the block isn't due to move down let the player move/rotate it
      oldrot=newrot
      newrot=upkey()
      rotate=newrot>oldrot
      if rotate then inc brot : if brot>3 then brot=0

      oldlr=newlr
      newlr=rightkey()-leftkey()
      move = newlr ! oldlr
      if move
         inc bx, newlr
         if bx<-1 then bx=-1
         if bx>10 then bx=10
      endif

      if move or rotate
         rem validate movement/rotation
         for y = 0 to 2
            for x = 0 to 2
               if block(btype,brot,x,y)>0
                  if bx+x<0 or bx+x>9
                     if rotate then dec brot,1 : if brot<0 then brot=3
                     if move then dec bx,newlr
                     exit
                  else
                     if grid(bx+x,by+y)>0
                        if rotate then dec brot,1 : if brot<0 then brot=3
                        if move then dec bx,newlr
                        exit
                     endif
                  endif
               endif
            next x
         next y
      endif

      boost= downkey()*20
   endif

   rem display grid
   for y = 2 to 19
      for x = 0 to 9
         if grid(x,y)>0 then img=1 else img=99
         paste image img,x*20,y*20
      next x
   next y

   rem display current block
   for y = 0 to 2
      for x = 0 to 2
         if by+y>1 and block(btype,brot,x,y)>0
            paste image 1,(bx+x)*20,(by+y)*20
         endif
      next x
   next y

   print bx;",";by
   print bhit

   sync:cls
loop
end

rem ### Subroutines ###
make_blocks:
   types=5
   dim block(types,3,2,2)

   data 1,0,0
   data 1,1,1

   data 0,0,1
   data 1,1,1

   data 0,1,1
   data 1,1,0

   data 1,1,0
   data 0,1,1

   data 0,1,0
   data 1,1,1

   data 1,1,0
   data 1,1,0

   for a = 0 to types
      for b = 0 to 1
         for c = 0 to 2
            read bit
            block(a,3,c,b) = bit
            block(a,2,b,2-c) = bit
            block(a,1,2-c,2-b) = bit
            block(a,0,2-b,c) = bit
         next c
      next b
   next a
return
`//

make_images:
   rem blue box
   ink 65535,0
   box 0,0,20,20
   ink 255,0
   for x = 0 to 20
      box 0,x,x,x
   next x
   get image 1,0,0,20,20

   rem blank
   ink 30,0
   box 0,0,20,20
   ink -2,0
   line 0,20,20,0
   get image 99,0,0,20,20
return

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 23rd May 2012 12:09 Edited at: 23rd May 2012 12:11

Link

I knew someone would get caught out by the 4*1 block.

It's good practice to code something fast. Someone is also bound to use real rotation instead of 90 deg rotation.

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 23rd May 2012 22:19 Edited at: 24th May 2012 00:12

Link

Sounds like a challenge! I never tried programming tetris before. I tried OBese's code - the result looks pretty good. I haven't looked at how he did it. I'm gonna try and jump in the tank blind and see what I can come up with. I think I'll need 30 days instead of 30 minutes - but I'll give 30 mins a shot.

Okay, it's taken me 25 mins just to think up and type the data - not having even gotten to the coding. So far this much has been typed:

remstart
   ==============================================================
   =  Title  : Tetris
   =  Author : Latch
   =  Date   : 05/23/2012
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60

rem =============================================================
rem = MAIN
rem =============================================================
   do

sync
   loop

end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem read in block data
      dim blocks(7,4,16)
      restore _blocks_data
      for x=1 to 7
         for y=1 to 4
            for z=1 to 16
               read blocks(x,y,z)
            next z
         next y
      next x

rem design grid

rem =============================================================
rem = FUNCTIONS
rem =============================================================

rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
   _blocks_data:
   remstart
      Each shape can be contained in a 4x4 grid.  Each shape can
      be rotated at 4 angles.  Store each of these possibilities
      grid aligned as such
         1,2,3,4
         5,6,7,8
         9,10,11,12
         13,14,15,16
   remend

`left z
   data 0,0,0,0, 0,0,0,0, 1,1,0,0, 0,1,1,0
   data 0,0,0,0, 0,0,1,0, 0,1,1,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,0,0, 0,1,1,0
   data 0,0,0,0, 0,0,1,0, 0,1,1,0, 0,1,0,0

`right z
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 1,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 1,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0

`box
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0

`stick
   data 0,0,0,0, 0,0,0,0, 0,0,0,0, 1,1,1,1
   data 1,0,0,0, 1,0,0,0, 1,0,0,0, 1,0,0,0
   data 0,0,0,0, 0,0,0,0, 0,0,0,0, 1,1,1,1
   data 1,0,0,0, 1,0,0,0, 1,0,0,0, 1,0,0,0

`right L
   data 0,0,0,0, 0,0,0,0, 0,0,1,0, 1,1,1,0
   data 0,0,0,0, 1,1,0,0, 0,1,0,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 1,0,0,0
   data 0,0,0,0, 1,0,0,0, 1,0,0,0, 1,1,0,0

`left L
   data 0,0,0,0, 0,0,0,0, 1,0,0,0, 1,1,1,0
   data 0,0,0,0, 0,1,0,0, 0,1,0,0, 1,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 0,0,1,0
   data 0,0,0,0, 1,1,0,0, 1,0,0,0, 1,0,0,0

`T
   data 0,0,0,0, 0,0,0,0, 0,1,0,0, 1,1,1,1
   data 0,0,0,0, 0,1,0,0, 1,1,0,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 0,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0

+ Code Snippet

remstart
   ==============================================================
   =  Title  : Tetris
   =  Author : Latch
   =  Date   : 05/23/2012
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60

rem =============================================================
rem = MAIN
rem =============================================================
   do


      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem read in block data
      dim blocks(7,4,16)
      restore _blocks_data
      for x=1 to 7
         for y=1 to 4
            for z=1 to 16
               read blocks(x,y,z)
            next z
         next y
      next x

      rem design grid


rem =============================================================
rem = FUNCTIONS
rem =============================================================

rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
   _blocks_data:
   remstart
      Each shape can be contained in a 4x4 grid.  Each shape can
      be rotated at 4 angles.  Store each of these possibilities
      grid aligned as such
         1,2,3,4
         5,6,7,8
         9,10,11,12
         13,14,15,16
   remend

   `left z
   data 0,0,0,0, 0,0,0,0, 1,1,0,0, 0,1,1,0
   data 0,0,0,0, 0,0,1,0, 0,1,1,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,0,0, 0,1,1,0
   data 0,0,0,0, 0,0,1,0, 0,1,1,0, 0,1,0,0

   `right z
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 1,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 1,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0

   `box
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0
   data 0,0,0,0, 0,0,0,0, 0,1,1,0, 0,1,1,0

   `stick
   data 0,0,0,0, 0,0,0,0, 0,0,0,0, 1,1,1,1
   data 1,0,0,0, 1,0,0,0, 1,0,0,0, 1,0,0,0
   data 0,0,0,0, 0,0,0,0, 0,0,0,0, 1,1,1,1
   data 1,0,0,0, 1,0,0,0, 1,0,0,0, 1,0,0,0

   `right L
   data 0,0,0,0, 0,0,0,0, 0,0,1,0, 1,1,1,0
   data 0,0,0,0, 1,1,0,0, 0,1,0,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 1,0,0,0
   data 0,0,0,0, 1,0,0,0, 1,0,0,0, 1,1,0,0

   `left L
   data 0,0,0,0, 0,0,0,0, 1,0,0,0, 1,1,1,0
   data 0,0,0,0, 0,1,0,0, 0,1,0,0, 1,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 0,0,1,0
   data 0,0,0,0, 1,1,0,0, 1,0,0,0, 1,0,0,0

   `T
   data 0,0,0,0, 0,0,0,0, 0,1,0,0, 1,1,1,1
   data 0,0,0,0, 0,1,0,0, 1,1,0,0, 0,1,0,0
   data 0,0,0,0, 0,0,0,0, 1,1,1,0, 0,1,0,0
   data 0,0,0,0, 0,1,0,0, 0,1,1,0, 1,0,0,0

I got little more than nothin' after 1.5 hours. I've failed this challenge! It's taking me about 30 minutes just to think through the logic for each new task - like displaying the blocks or updating the positions. Then typing and bug fixing? forget about it!

Enjoy your day.

Back to top

Profile PM

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 24th May 2012 05:23 Edited at: 24th May 2012 05:33

Link

It's unsettling isn't it. lol
I think I might be able to get it done within four hours at best. But I've had time to think about it now which removes part of the challenge. I hope you finish it Latch!

I tried this because of Diggsey http://forum.thegamecreators.com/?m=forum_view&t=119154&b=5&p=0

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Fluffy Rabbit

User Banned

Posted: 25th May 2012 06:11

Link

What I would do is just lie and say it took me 30 minutes, then be honest with everyone a week later when all of the good press died down.

Back to top

Profile

Diggsey

17

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 25th May 2012 19:14

Link

I would like to point out that the 30 minutes was just for the programming part: by the time I started I already knew exactly how I was going to implement everything.

[b]

Back to top

Profile PM Email Website

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 27th May 2012 00:41

Link

@Diggsey - Thank Valhalla for that! Still impressive though. I don't know if I could design and write anything playable in thirty minutes.

WARNING: The above comment may contain sarcasm.

Back to top

Profile PM Email

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 28th May 2012 20:26

Link

Quote: "I hope you finish it Latch!"

Well, it was a fun challenge with trying to do everything (plan, design, layout, code) in 30 minutes - but moving forward would turn into an exercise and I'm not really into coding tetris as an excercise right now.

Enjoy your day.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Tetris in <30 minutes?

Sorry your browser is not supported!

DarkBASIC Discussion / Tetris in &lt;30 minutes?

DarkBASIC Discussion / Tetris in <30 minutes?