Sorry your browser is not supported!

`---------------------
Bob$ = "BOB"         `-
Start$ = "Start"     `-
Credits$ = "Credits" `-
Leave$ = "Exit"      `-
`---------------------
cls rgb(255,255,255)
Ink rgb(25,0,0),0
text x1,x2,Bob$
x1 = 300
y1 = 250
x2 = textwidth(Bob$)
y2 = textheight(Bob$)
do
if mousex()>x1 and mousex()<x1+x2
If mousey()>y1-y2 and mousey()<y1+Y2
LOOP
ENDIF
text 300,450,Start$
text 100,450,Credits$
text 450,450, Leave$
wait 40
`----------------------------------------
`========================================
`----------------------------------------
Wait key

`---------------------
Bob$ = "BOB"         `-
Start$ = "Start"     `-
Credits$ = "Credits" `-
Leave$ = "Exit"      `-
`---------------------

x1 = 300
y1 = 250
x2 = x1+text width(Bob$)
y2 = y1+text height(Bob$)

do
 
 ` Clear the screen
 cls rgb(255,255,255)
 
 ` Show the button with a box
 Ink rgb(25,0,0),0
 box x1,y1,x2,y2
 ink rgb(0,255,0),0
 text x1,y1,Bob$
 
 ` Check if the mouse is within the box
 if mousex()=>x1 and mousex()<=x2 and mousey()=>y1 and mousey()<=y2
  ` Show that its in the box
  text 0,0,"Mouse is on the button!"
  ` Check for a mouse click
  if mouseclick()
   ` Show that the button has been hit
   text 0,50,"Button was clicked!"
   ` Leave the DO/LOOP
   exit
  endif
 endif

loop

text 300,450,Start$
text 100,450,Credits$
text 450,450, Leave$
wait 40
`----------------------------------------
`========================================
`----------------------------------------
Wait key

do

 if mouseclick()

  ` Check for Start Button
  if mousex()>...
   ` Do this
  endif

  ` Check for Credits Button
  if mousex()>... 
   ` Do this
  endif

  ` Check for Quit Button
  if mousex()>...
   ` Do this
  endif

 endif

loop

Rem Project: Menu
Rem Created: Thursday, August 11, 2011

Rem ***** Main Source File *****
Start:
set text size 35
cls rgb(255,255,255) : Ink rgb(0,0,0),0
text 50,0,"Game" : wait 40
``
`
`
` 700 lines of intro (not important)
`
`
`
Buttons:
`---------------------
Bob$ = "BOB"         `-
Start$ = "Start"     `-
Credits$ = "Credits" `-
Leave$ = "Exit"   
ReturnToButtons$  = "Return To Menu" `-
`---------------------
x1 = 300
y1 = 250
x2 = x1+text width(Bob$)
y2 = y1+text height(Bob$)
do
cls rgb(255,255,255)
Ink rgb(255,255,255),0
box x1,y1,x2,y2
Ink rgb(0,0,0),0
text x1, y1,Bob$
if mousex()=>x1 and mousex()<=x1+x2 and mousey()=>y1-y2 and mousey()<=y1+Y2
Ink rgb(255,0,0),0
if mouseclick()
Goto Start
exit
ENDIF
ENDIF

`------------------------------------------------------------------
x5 = 100
y5 = 450
x6 = x6+text width(credits$)
y6 = y6+text height(credits$)

Ink rgb(255,255,255),0
box x5,y5,x6,y6
Ink rgb(0,0,0),0
text x5, y5,Credits$
if mousex()=>x5 and mousex()<=x5+x6 and mousey()=>y5-y6 and mousey()<=y5+Y6
Ink rgb(255,0,0),0
if mouseclick()
Goto Credits
wait 400
exit
ENDIF
ENDIF

x3 = 300
y3 = 450
x4 = x3+text width(Start$)
y4 = y3+text height(Start$)

Ink rgb(255,255,255),0
box x3,y3,x4,y4
Ink rgb(0,0,0),0
text x3, y3,Start$
if mousex()=>x3 and mousex()<=x3+x4 and mousey()=>y3-y4 and mousey()<=y3+Y4
Ink rgb(255,0,0),0
if mouseclick()
wait 400
Goto Game
exit
ENDIF
ENDIF

x9 = 450
y9 = 450
x10 = x9+text width(leave$)
y10 = y9+text height(leave$)

Ink rgb(255,255,255),0
box x9,y9,x10,y10
Ink rgb(0,0,0),0
text x9, y9,leave$
if mousex()=>x9 and mousex()<=x9+x10 and mousey()=>y9-y10 and mousey()<=y9+Y10
Ink rgb(255,0,0),0
if mouseclick()
end
ENDIF
ENDIF
LOOP

Credits:
Do
cls rgb(0,0,0)
Ink rgb(255,255,255),0
text 200,150,"Games by Ricky"
Text 20,450,"Version 1.000"
x7 = 300
y7 = 450
x8 = x7+text width(ReturnToButtons$)
y8 = y7+text height(ReturnToButtons$)

Ink rgb(0,0,0),0
box x7,y7,x8,y8
Ink rgb(255,255,255),0
text x7, y7,ReturnToButtons$
if mousex()=>x7 and mousex()<=x7+x8 and mousey()=>y7-y8 and mousey()<=y7+Y8
Ink rgb(255,0,0),0
if mouseclick()
wait 400
Goto Buttons
exit
ENDIF
ENDIF

LOOP



Game:

cls rgb(255,255,255)
do

print "Test"

 
LOOP

`---------------------
Bob$ = "BOB"         `-
Start$ = "Start"     `-
Credits$ = "Credits" `-
Leave$ = "Exit"   
ReturnToButtons$  = "Return To Menu" `-
`---------------------
x1 = 300
y1 = 250
x2 = x1+text width(Bob$)
y2 = y1+text height(Bob$)
do
 cls rgb(255,255,255)

 ` Change to red color
 Ink rgb(255,0,0),0
 
 ` Show the box that you were checking (red area)
 box x1,y1-y2,x1+x2,y1+y2
 
 ` This is your button check
 if mousex()=>x1 and mousex()<=x1+x2 and mousey()=>y1-y2 and mousey()<=y1+Y2
 ENDIF

 ` Change color to green
 ink rgb(0,255,0),0
  
 ` Show what the box should look like (green area)
 box x1,y1,x2,y2
 
 ` This is what the button check should look like
 if mousex()=>x1 and mousey()=>y1 and mousex()<=x2 and mousey()<=y2
 endif
 
 ` Show the button name
 Ink rgb(0,0,0),0
 text x1, y1,Bob$
  
loop