OK. My computer might just not be able to handle this (doubt it), or there is some reason it is not workin very fast. Please tell me why.
While Not KeyDown(1)
Color 56,78,112:Rect 1,2,75,12:Rect 1,13,75,12
Color 50,255,100:Text 1,2,"New Game":Text 1,13,"Load Game"
While MouseY()<14 And MouseY()>2
While MouseX()<76 And MouseX()>1
Color 50,170,170:Rect 1,2,75,12
Wend
Wend
Wend
try this:
While Not KeyDown(1)
Cls
Color 56,78,112:Rect 1,2,75,12:Rect 1,13,75,12
Color 50,255,100:Text 1,2,"New Game":Text 1,13,"Load Game"
If MouseY()<14 And MouseY()>2 And MouseX()<76 And MouseX()>1
Color 50,170,170:Rect 1,2,75,12
EndIf
Flip
Wend
Oh yeah, forgot the clear-screen... thanx
Actually, your program was executing really really fast. The flickering you experience occurs when the screen is drawn after you draw your rectangles but before you draw your text. Flip() uses a backbuffer to ensure that the user will only see fully drawn screens. It'll also slow your program down to the maximum frame rate that can be achieved.
P.S. Not clearing the screen wasn't affecting anything in your sample code because you are redrawing every pixel every frame.
well, after i put in the clear screens it did get alot faster than it was...
I'll try other stuff...
-ryan
This also made it a little better:
Function MENU()
Repeat
Cls
Color 56,78,112:Rect 1,2,75,12:Rect 1,13,75,12:Color 50,255,100:Text 1,2,"New Game":Text 1,13,"Load Game"
While MouseY()<14 And MouseY()>2
While MouseX()<76 And MouseX()>1
Color 50,170,170:Rect 1,2,75,12:Flip
If MouseDown(1) Then
NEW_GAME()
EndIf
Wend
Wend
Flip
Forever
End Function