after i've made the menu and i go to the "New game" label
my screen is completely black and my player dont move
this is the code
Rem Project: Contest Shooter
Rem Created: Wednesday, March 10, 2010
Rem ***** Main Source File *****
//****************************************************************************\\
// Variabili Camera 0 ovvero del pg
X#= camera position x(0)
Y#= camera position y(0)
Z#= camera position Z(0)
angX= camera angle x(0)
angY= camera angle y(0)
angz= camera angle z(0)
//============================================================================\\
//Pre progetto
set dir "C:"
sync on : sync rate 66
disable escapekey
set text font "FaceYourFears"
set text size 36
gosub mnuvars
do
if selecteditem <> 0
ink white,white
center text screen width()/2,200,mnuitem(0)
else
ink red,red
center text screen width()/2,200,mnuitem(0)
endif
if selecteditem <> 1
ink white,white
center text screen width()/2,230,mnuitem(1)
else
ink red,red
center text screen width()/2,230,mnuitem(1)
endif
if selecteditem <> 2
ink white,white
center text screen width()/2,260,mnuitem(2)
else
ink red,red
center text screen width()/2,260,mnuitem(2)
endif
if selecteditem <> 3
ink white,white
center text screen width()/2,290,mnuitem(3)
else
ink red,red
center text screen width()/2,290,mnuitem(3)
endif
if selecteditem <> 4
ink white,white
center text screen width()/2,320,mnuitem(4)
else
ink red,red
center text screen width()/2,320,mnuitem(4)
endif
if upkey() = 0 and up = 1
up = 0
endif
if upkey() = 1 and up = 0
selecteditem = selecteditem - 1
up = 1
endif
if downkey() = 0 and down = 1
down = 0
endif
if downkey() = 1 and down = 0
selecteditem = selecteditem + 1
down = 1
endif
if selecteditem < 0
selecteditem = 4
endif
if selecteditem > 4
selecteditem = 0
endif
// per uscire dal gioco
if selecteditem = 4 and returnkey() = 1
end
endif
if selecteditem = 0 and returnkey() = 1
goto Maingame
endif
sync
loop
mnuvars:
dim mnuitem(5) as string
mnuitem(0) ="Nuova Partita"
mnuitem(1) ="Salva Partita"
mnuitem(2) ="Carica Partita"
mnuitem(3) ="Opzioni"
mnuitem(4) ="Esci"
selcteditem = 0
up = 0
down = 0
red = rgb(255,0,0)
white = rgb(255,255,255)
return
// il gioco
Maingame:
cls
set text size 18
sync on : sync rate 66
do
gosub Player
sync
loop
Player:
//**********************sguardo*player*************************************************\\
rotate camera angX+(mousemovey()/2.0),angY+(mousemovex()/2.0),0
if angX>60 then xrotate camera 0,60
if angX<-45 then xrotate camera 0,-45
//************movimenti*****************************************************************\\
if inkey$()="w"
move camera 0,1
endif
if inkey$()="s"
move camera 0,-1
endif
if inkey$()="a"
move camera left 0,1
endif
if inkey$()="d"
move camera right 0,1
endif
text 0,10,"X>"+str$(X#)
text 0,15,"Y>"+str$(Y#)
text 0,20,"Z>"+str$(Z#)
return
