hi all, i have made a simple space invaders game and a hangman game, plus many fps' all without using tutorials and the like, - i only used some code snippets found as and when/if i got stuck, but anyway here's my prob...
i have started a tetris game but can't figure out how to get a decent start. so i would like to know if anyone out there knows of any good tutorials that i could use?
or, even better, maybe someone could simply look at my code and point me inthe right direction?
`PREPARE THE SCREEN
SET DISPLAY MODE 800,600,32 : SYNC ON
AUTOCAM OFF : POSITION CAMERA 0,0,-500
MAIN_MENU:
`SET-UP MENU
BOX 050,50,150,100 : CENTER TEXT 100,65,"EASY"
BOX 200,50,300,100 : CENTER TEXT 250,65,"NORMAL"
BOX 350,50,450,100 : CENTER TEXT 400,65,"HARD"
BOX 500,50,600,100 : CENTER TEXT 550,65,"HI-SCORES"
BOX 650,50,750,100 : CENTER TEXT 700,65,"CREDITS"
DO
IF MOUSEY()>050 AND MOUSEY()<100
IF MOUSEX()>050 AND MOUSEX()<150 AND MOUSECLICK() THEN DIFFICULTY$="EASY"
IF MOUSEX()>200 AND MOUSEX()<300 AND MOUSECLICK() THEN DIFFICULTY$="NORMAL"
IF MOUSEX()>350 AND MOUSEX()<450 AND MOUSECLICK() THEN DIFFICULTY$="HARD"
IF MOUSEX()>500 AND MOUSEX()<600 AND MOUSECLICK() THEN GOSUB HI_SCORES
IF MOUSEX()>650 AND MOUSEX()<750 AND MOUSECLICK() THEN GOSUB CREDITS
ENDIF
IF DIFFICULTY$<>"" THEN GOTO START
SYNC : LOOP
START:
HIDE MOUSE : CLS
BOX 600,50,790,200 : `SET THE BOX/AREA TO SHOW WHAT THE NEXT OBJECT WILL BE
DIM SHAPE$(5)
SHAPE$(1)="LINE"
SHAPE$(2)="BOX"
SHAPE$(3)="CROSS"
SHAPE$(4)="L"
SHAPE$(5)="r"
FOR NAS=100 TO 120
IF OBJECT EXIST(NAS)=0
IF SHAPE$="LINE" THEN MAKE OBJECT BOX NAS,150,50,0
IF SHAPE$="BOX" THEN MAKE OBJECT BOX NAS,100,100,0
IF SHAPE$="CROSS" AND OBJECT EXIST(NAS+1)=0
MAKE OBJECT BOX NAS,150,50,0 : MAKE OBJECT BOX NAS+1,150,50,0 : XROTATE OBJECT NAS+1,180 : ENDIF
IF SHAPE$="L" AND OBJECT EXIST(NAS+1)=0
MAKE OBJECT BOX NAS,100,50,0 : MAKE OBJECT BOX NAS+1,50,100,0 : ENDIF
IF SHAPE$="r" AND OBJECT EXIST(NAS+1)=0
MAKE OBJECT BOX NAS,100,50,0 : MAKE OBJECT BOX NAS+1,-100,50,0 : ENDIF
ENDIF : NEXT NAS
DO
SYNC:LOOP
HI_SCORES:
CLS : CENTER TEXT 400,280,"NO HI-SCORES YET" : CENTER TEXT 400,300,"PRESS ANY KEY TO RETURN TO THE MAIN MENU"
WAIT KEY : CLS : GOTO MAIN_MENU
RETURN
CREDITS:
CLS: CENTER TEXT 400,280,"THIS GAME WAS MADE BY THE FOLLOWING PEOPLE;"
CENTER TEXT 400,300,"GARY (AKA. SMALLG)" : CENTER TEXT 400,320,"PRESS ANY KEY TO RETURN TO THE MAIN MENU"
WAIT KEY : CLS : GOTO MAIN_MENU
RETURN
oh, btw i do realise some of the shapes are not right yet but i just wanted to make them all different for the time being.
and anyone who adds code etc will get a mention in the credits.
thank u for any help.
life's one big game
