News:

PlayBASIC2DLL V0.99 Revision I Commercial Edition released! - Convert PlayBASIC programs to super fast Machine Code. 

Main Menu

My Tetris Game

Started by ATLUS, April 15, 2012, 08:51:49 AM

Previous topic - Next topic

ATLUS

Hi all.

This is my third game - Tetris. Have Fun.


http://file.kirovnet.ru/d/616815/Tetris-1.00.rar

source code you can find here:
http://www.underwaredesign.com/forums/index.php?topic=3832.msg25346#new

monkeybot

Nice one.well executed.

Don't knowif its just me but i found the controls a little over sensitive,sometime the blocks were doing 180 degrees on one short press,which makes it rather tricky.

ATLUS

Thank you, monkeybot

I will try fix control sensitive in next version.

buggage

This seems to be really well made. Nice one :)

Are pieces generated randomly, or by a defined pattern? There seems to be a distinct lack of 5x1 (1x5) line type pieces.

ATLUS

Thank you, buggage

My favorite tetris on NES called "Tetris Tengen", in this Tetris have one line 4x1, i do same  ;)

I used array setup for each figure. Like this

if flagnew=true
n=2
select nexta

case 1 // I--
block(0,0)=1
block(0,1)=1
block(0,2)=1

block(1,0)=1
block(1,1)=0
block(1,2)=0

block(2,0)=0
block(2,1)=0
block(2,2)=0

case 2 // --L
block(0,0)=1
block(0,1)=1
block(0,2)=1

block(1,0)=0
block(1,1)=0
block(1,2)=1

block(2,0)=0
block(2,1)=0
block(2,2)=0

case 3 // =_
block(0,0)=1
block(0,1)=1
block(0,2)=0

block(1,0)=0
block(1,1)=1
block(1,2)=1

block(2,0)=0
block(2,1)=0
block(2,2)=0

case 4// _=
block(0,0)=0
block(0,1)=1
block(0,2)=1

block(1,0)=1
block(1,1)=1
block(1,2)=0

block(2,0)=0
block(2,1)=0
block(2,2)=0

case 5 //T
block(0,0)=1
block(0,1)=1
block(0,2)=1

block(1,0)=0
block(1,1)=1
block(1,2)=0

block(2,0)=0
block(2,1)=0
block(2,2)=0
case 6
block(0,0)=1
block(0,1)=1
block(0,2)=0

block(1,0)=1
block(1,1)=1
block(1,2)=0

block(2,0)=0
block(2,1)=0
block(2,2)=0
case 7
n=3
block(0,0)=0
block(0,1)=0
block(0,2)=0
block(0,3)=0

block(1,0)=1
block(1,1)=1
block(1,2)=1
block(1,3)=1

block(2,0)=0
block(2,1)=0
block(2,2)=0
block(2,3)=0

block(3,0)=0
block(3,1)=0
block(3,2)=0
block(3,3)=0
endselect

flagnew=false
endif



buggage

Of course I meant 4x1 and 1x4! Stoopid brain! :P

I meant that they don't come up very often in-game.

ATLUS

I think this because line the same figure like all. could make a counter on each figure, but this game will be so easy. ^__^

buggage

I recall that there was an algorithm (in the real game) to reduce its (1x4) frequency to prevent the game being too easy, but it still came up fairly often (initially at least).

Anyway, it's still very good :)

BlinkOk

very well done atlus. i agree with the sensitive controls thing but that is a very minor crit. excellent game

ATLUS

Thank You, BlinkOk

buggage, chance to get a line of 4x1, it does often =)

ATLUS

My Tetris game in Facebook, Thank You Kevin!

kevin

 No worries,  it's good to see somebody pumping out some games.  What would be useful though,  is if you're going to post different threads, the cross reference your posts as much as you can.   So the link the game threads to the source code threads and vice versa.  Even link, them all to each other.   It also wouldn't hurt to have a little more information about the program also.       

servogod85

I just played it, very nice job :) . It's a classic game that never tires

ATLUS

servogod85, Thank You!

micky4fun

Hi All

good game and nicely coded , well done ATLUS

mick