Sorry your browser is not supported!

Rem Created: Sunday, July 11, 2010

Rem ***** Main Source File *****

Set Display Mode 800,600,32
Sync On: Sync Rate 60
Load Image "File/Screen1.png",1
Paste Image 1,0,0
Load Music "File/Menu.mp3",1
loop music 1
Set Text Opaque

Do

  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  rem if MouseClick() Then Print MouseX();
  rem if MouseClick() Then Print MouseY();
  If Mc=1 Then Gosub CheckRegion

  Sync
Loop
End



 
CheckRegion:
  Rem First Button
  If Mx > 35 and My > 73 And Mx < 374 And My < 201
    play()
    stop music 1
            Center Text 400,580,"Choose Your Character!"
   menu=0

  Endif
  Rem Second Button
  If Mx > 34 and My > 271 And Mx < 338 And My < 354
    Rem Add here, whatever code you want to be executed when you click button 2

  Endif
  Rem Third Button
  If Mx > 41 and My > 427 And Mx < 232 And My < 502
    Rem Add here, whatever code you want to be executed when you click button 5
    
    End
  Endif
Return

function play()
Load Image "File/Screen2.png",1
Paste Image 1,0,0
Load Music "File/Character.mp3",2
loop music 2


CheckRegion2:
  Rem Third Button
  If Mx > 41 and My > 427 And Mx < 232 And My < 502
    Rem Add here, whatever code you want to be executed when you click button 5
    
    End
  Endif


endfunction

DO

   IF State=0 then Gosub S0_MainMenu
   IF State=1 then Gosub S1_CharacterMenu
   REM Etc Etc Etc

   SYNC
LOOP

END

S0_MainMenu
   REM The code for the main menu goes here!!!
RETURN

S1_CharacterMenu
   REM The code for the character menu goes here!!!
RETURN

IF the mouse is within the boundaries of the button and has clicked
   Change State to the Character menu
   Stop playing main menu music
   Start Playing character menu music
   Do any other Character menu setup stuff
ENDIF which isn't really pseudocode but still important

If the mouse clicks, gosub CheckRegion

...

CheckRegion:
If the mouse is within the first button area
   Do first button stuff
ENDIF
If the mouse is within the second button area
   Do second button stuff
endif
If the mouse is within the third button area
   Do the third button stuff
ENDIF

If mouse is in button 1 area AND stage=1
ENDIF
If mouse is in button 2 area AND stage=2
endif
etc etc

S1_MainMenu:
   REM Display the menu itself
   IF The mouse is in the button area and clicks
      increase the state variable
   endif
RETURN

S2_CharMenu:
   REM Display menu stuff
   If the mouse is in the button area and clicks
      do whatever
   ENDIF
RETURN

SYNC ON

`make array
DIM mouse(2)

REPEAT
   CLS
   `make variable for testing
   mouse(1)=MOUSEX() : mouse(2)=MOUSEY() : mouse(0)=MOUSECLICK()
   mx = MOUSEX() : my = MOUSEY()

   `display
   check()
SYNC
UNTIL SCANCODE()<>0
END

rem FUNCTION
FUNCTION check()
   PRINT "mouse(1) = ";mouse(1)
   PRINT "mouse(2) = ";mouse(2)
   PRINT "mx = ";mx
   PRINT "my = ";my
ENDFUNCTION