Hi my program won't run when I hit compile. It doesn't say that there is a syntax error either. It just doesn't load up.
This is the complete code so far:
[/code]
GoSub SetUp
GoSub MainMenu
//*****MainMenu*****
MainMenu:
Do
CLS
Print MouseX()
Print MouseY()
Center Text Screen Width()/2,50,"Main Menu"
Center Text Screen Width()/2,150,"Start!"
Center Text Screen Width()/2,200,"Options!"
Center Text Screen Width()/2,250,"Quit!"
Center Text Screen Width()/2,400,"Created by Jeremy Lyda"
If MouseX()>=295 And MouseY()>=151 And MouseX()<=342 And MouseY()<=160 And Mouseclick()=1 And MouseCheck=0 Then GoSub MainLoop
If MouseX()>=295 And MouseY()>=151 And MouseX()<=342 And MouseY()<=160 Then Center Text Screen Width()/2,165,"Start the game"
If MouseX()>=287 And MouseY()>=201 And MouseX()<=350 And MouseY()<=212 And MouseClick()=1 And MouseCheck=0 Then GoSub Options
If MouseX()>=287 And MouseY()>=201 And MouseX()<=350 And MouseY()<=212 Then Center Text Screen Width()/2,215,"Change difficulty,Name,and view high scores"
If MouseX()>=299 And MouseY()>=251 And MouseX()<=338 And MouseY()<=261 And MouseClick()=1 And MouseCheck()=0 Then End
If MouseX()>=299 And MouseY()>=251 And MouseX()<=338 And MouseY()<=261 Then Center Text Screen Width()/2,265,"Exits the game"
Loop
//******************
//*****MainLoop*****
MainLoop:
Do
Loop
//******************
//*****Subroutines*****
SetUp:
If MouseCheck=0 and MouseClick()=1 Then MouseCheck=1
If MouseCheck=1 Then MouseClick()=0
If MouseClick()=1 And MouseCheck=0 Then MouseClick()=1
If MouseClick()=0 Then MouseCheck=0
Return
Options:
CLS
Center Text Screen Width()/2,50,"Options!"
Wait Key
Return
//*********************
It works until I put in these two If statements:
If MouseX()>=299 And MouseY()>=251 And MouseX()<=338 And MouseY()<=261 And MouseClick()=1 And MouseCheck()=0 Then End
If MouseX()>=299 And MouseY()>=251 And MouseX()<=338 And MouseY()<=261 Then Center Text Screen Width()/2,265,"Exits the game"[code]
I'm not sure what's wrong.