0 Members and 5 Guests are viewing this topic.
:ClrHome:ClrDraw:Text(0,0,"TITLE:Text(10,0,"1:Play:Text(20,0,"2:About:Text(30,0,"3:Help:Text(40,0,"4:Quit:Repeat getKey->Z:If Z = 26:Disp "BY DAVIDEnd:If Z=18:Disp "Help"sub(PAU):End:If Z=35:Disp "Quit Program Codesub(PAU):End:If Z=34// CODE FOR THE GAMEsub(PAU):EndLbl PAURepeat getkey->AEndReturn
:.(GAMENAME):Lbl 1:ClrHome:ClrDraw:Text(0,0,"TITLE:Text(10,0,"1:Play:Text(20,0,"2:About:Text(30,0,"3:Help:Text(40,0,"4:Quit:Repeat getKey->Z:End:If Z = 26:ClrHome:Disp "BY DAVID:Repeat getKey:End:Goto 1:End:If Z=18:ClrHome:Disp "Help":Repeat getKey:End:Goto 1:End:If Z=35:ClrHome:Disp "Quit Program Code:Repeat getKey:End:Goto 1:End:If Z=34// CODE FOR THE GAME:End
...:Disp "1":Disp "2"
0->ARepeat getKey->AEnd
Repeat getKeyEnd
Quote from: Aichi on November 07, 2010, 01:45:26 pmas it was said here already two times.I don't see where it was said
as it was said here already two times.
Code: [Select]:.(GAMENAME):Lbl 1:ClrHome:ClrDraw:Text(0,0,"TITLE:Text(10,0,"1:Play:Text(20,0,"2:About:Text(30,0,"3:Help:Text(40,0,"4:Quit:Repeat getKey->Z:End:If Z = 26:ClrHome:Disp "BY DAVID:Repeat getKey:End:Goto 1:End:If Z=18:ClrHome:Disp "Help":Repeat getKey:End:Goto 1:End:If Z=35:ClrHome:Disp "Quit Program Code:Repeat getKey:End:Goto 1:End:If Z=34// CODE FOR THE GAME:End
Quote from: aeTIos on November 07, 2010, 01:54:10 pmCode: [Select]:.(GAMENAME):Lbl 1:ClrHome:ClrDraw:Text(0,0,"TITLE:Text(10,0,"1:Play:Text(20,0,"2:About:Text(30,0,"3:Help:Text(40,0,"4:Quit:Repeat getKey->Z:End:If Z = 26:ClrHome:Disp "BY DAVID:Repeat getKey:End:Goto 1:End:If Z=18:ClrHome:Disp "Help":Repeat getKey:End:Goto 1:End:If Z=35:ClrHome:Disp "Quit Program Code:Repeat getKey:End:Goto 1:End:If Z=34// CODE FOR THE GAME:EndGives me no errors, but the menu opens white and then when I press any key, the screen appears for a mili second and disappears again
Quote from: ScoutDavid on November 07, 2010, 02:15:55 pmQuote from: aeTIos on November 07, 2010, 01:54:10 pmCode: [Select]:.(GAMENAME):Lbl 1:ClrHome:ClrDraw:Text(0,0,"TITLE:Text(10,0,"1:Play:Text(20,0,"2:About:Text(30,0,"3:Help:Text(40,0,"4:Quit:Repeat getKey->Z:End:If Z = 26:ClrHome:Disp "BY DAVID:Repeat getKey:End:Goto 1:End:If Z=18:ClrHome:Disp "Help":Repeat getKey:End:Goto 1:End:If Z=35:ClrHome:Disp "Quit Program Code:Repeat getKey:End:Goto 1:End:If Z=34// CODE FOR THE GAME:EndGives me no errors, but the menu opens white and then when I press any key, the screen appears for a mili second and disappears again Put the End (this one after the Repeat start) into the last line. Edit: After the repeat getkey->z
Hmmm thats strange, is this your full code or do you have more that is part of a larger program?
Quote from: DJ Omnimaga on November 07, 2010, 01:52:14 pmQuote from: Aichi on November 07, 2010, 01:45:26 pmas it was said here already two times.I don't see where it was said There are some mentions on page 1, for example from you.Also, sorry if this part of my post was impolite. <.<Edit @ aeTIos:Hm, I think it has to be Repeat->Variable, else the previous keypress would not be ignored.Edit²:I mean Repeat getkey->Variable of course.
You have a Fix 5 somewhere in there don't you?