Sorry your browser is not supported!

` Set text to overwrite background color
set text opaque

` Set timer
tim=timer()

` Instructions
text 0,0,"Use the UP ARROW to increase cursor number."
text 0,20,"Use the DOWN ARROW to decrease cursor number."

do
 
 ` Show current cursor number
 text 0,60,"Current Mouse Cursor: "+str$(Mou)
  
 ` Check the timer (to slow down cursor changes)
 if timer()>tim+200
 
  ` Check up arrow  (max cursor # is 8)
  if keystate(200) and Mou<8
   ` Increase the cursor number
   inc Mou
   ` Change the cursor number
   change mouse Mou
  endif
  
  ` Check down arrow (minimum cursor # is 0)
  if keystate(208) and Mou>0
   ` Decrease the cursor number
   dec Mou
   ` Change the cursor number
   change mouse Mou
  endif
 
  ` Reset timer
  tim=timer()
 endif

loop

if mousex() > 220 and mousex() < 406 and mousey() > 235 and mousey() < 314 then MouCur=1 else MouseCur=0

mx=mouseX()
my=mouseY()

if mx > 220 and mx < 406 and my > 235 and my < 314 
	MouseCur=1 
else 
	MouseCur=0
endif

rem in test button
if mousex() => 40 and mousex() <= 190 and mousey() => 110 and mousey() <= 155 then MouCur=1
rem out test button 
if mousex() >= 191 or mousex() <= 39 or mousey() >= 156 or mousey() <= 109 and MouCur=1 then MouCur=0
	
rem in story button
if mousex() => 445 and mousex() <= 595 and mousey() => 110 and mousey() <= 155 then MouCur=2
rem out story button
if mousex() <= 444 or mousex() >= 596 or mousey() <= 109 or mousey() => 156 and MouCur=2 then MouCur=0 
	
rem in game button(locked)
if mousex() => 215 and mousex() <= 420 and mousey() => 245 and mousey() <= 337 and Lock=1 then MouCur=3
rem out game button(locked)
if mousex() <= 214 or mousex() >= 421 or mousey() <= 244 or mousey() => 338 and MouCur=3 then MouCur=0 
    
rem in game button(un-locked)
if mousex() => 215 and mousex() <= 420 and mousey() => 245 and mousey() <= 337 and Lock=0 then MouCur=4
rem out game button(locked)
if mousex() <= 214 or mousex() >= 421 or mousey() <= 244 or mousey() => 338 and MouCur=4 then MouCur=0 
    

` Overwrite text with background color
set text opaque

` Change color to grey
ink rgb(100,100,100),0

` Show the imaginary boxes
box 40,110,190,155
box 445,110,595,155
box 215,245,420,337

` Change color back to bright white
ink rgb(255,255,255),0

do

 text 0,0,"Current Mouse Cursor = "+str$(MouCur)
 text 0,20,"Lock = "+str$(Lock)

 ` Set the mouse cursor as zero
 MouCur=0

 rem in test button
 if mousex() => 40 and mousey() => 110 and mousex() <= 190 and mousey() <= 155 then MouCur=1
	
 rem in story button
 if mousex() => 445 and mousey() => 110 and mousex() <= 595 and mousey() <= 155 then MouCur=2
	
 rem in game button 
 if mousex() => 215 and mousey() => 245 and mousex() <= 420 and mousey() <= 337
  ` Check if it's not locked (if is isn't locked change MouCur to 4 otherwise change MouCur to 3)
  if Lock=0 then MouCur=4 else MouCur=3
 endif
 
 ` Check if the mouse cursor has changed
 if OldMouse<>MouCur
  ` Change the cursor number
  change mouse MouCur
  ` Set the old mouse cursor to the current one
  OldMouse=MouCur
 endif

loop

` Check if the mouse cursor has changed
 if OldMouse<>MouCur
  ` Change the cursor number
  change mouse MouCur

 ` Set the mouse cursor as zero
 MouCur=0

 rem in test button
 if mousex() => 40 and mousey() => 110 and mousex() <= 190 and mousey() <= 155 then MouCur=1
        
 rem in story button
 if mousex() => 445 and mousey() => 110 and mousex() <= 595 and mousey() <= 155 then MouCur=2
        
 rem in game button 
 if mousex() => 215 and mousey() => 245 and mousex() <= 420 and mousey() <= 337
  ` Check if it's not locked (if is isn't locked change MouCur to 4 otherwise change MouCur to 3)
  if Lock=0 then MouCur=4 else MouCur=3
 endif

rem in game button 
 if mousex() => 215 and mousey() => 245 and mousex() <= 420 and mousey() <= 337
  ` Check if it's not locked (if is isn't locked change MouCur to 4 otherwise change MouCur to 3)
  if Lock=0 then MouCur=4 else MouCur=3
 endif

REM SCREEN DISPLAY
if lvl = 1	
	change mouse 0
	show mouse
	do
		cls rgb(150,200,0)
		Load bitmap "images/lvl1win.bmp"
		text 0,0,"mouse position x:"+str$(mousex())
		text 0,10,"mouse position y:"+str$(mousey())
		text 0,20,"mouse position z:"+str$(mousez())
		` Grab the old mouse cursor
 		OldMouse=MouCur
 
 		` Set the mouse cursor as zero
 		MouCur=0

 		rem in main menu button
 		if mousex() => 13 and mousey() => 412 and mousex() <= 206 and mousey() <= 468 then MouCur=6
        
 		rem in quit button
 		if mousex() => 427 and mousey() => 412 and mousex() <= 621 and mousey() <= 468 then MouCur=7
        
 		rem in level 2 button 
 		if mousex() => 166 and mousey() => 255 and mousex() <= 455 and mousey() <= 374 then MouCur=3
  
 		` Check if the mouse cursor has changed
 		if OldMouse<>MouCur
  		` Change the cursor number
  			change mouse MouCur
 		endif
 	        rem if MouCur=7
 	        if MouCur=7 and mouseclick()=1
    	             play sound 10 : wait 1500
    	             cls : end 
 	        ENDIF
	        rem if MouCur=6
	        if MouCur=6 and mouseclick()=1 
   		   wait 150 : gosub BeginSection
                ENDIF
	        rem if MouCur=3
	        if MouCur=3 and mouseclick()=1
   		    wait 150 : gosub OptionSection
  	        ENDIF
		
                sync
      loop
else
	cls rgb(255,255,255)
	Load bitmap "images/Trophy1.bmp"
	play sound 12
	ink rgb(0,0,255),rgb(0,0,255)
	center text 430,260,"You won the Tournament!"
	center text 430,280,"Congradulations!"
	center text 550,435,"Cheat Code: 'Air Jorden'"
	center text 550,455,"This is only one of many!"
	center text 430,300,"YOUR SCORE: "+str$(MyScore)
	center text 430,240,"PLAY AGAIN [Y/N]?"
	center text 430,320,"Or Press 'm' to go to the main menu."
	REM *** END SECTION LOOP
	do
    	if scancode()=0 then exit
	loop
	do
	REM CONTROL INPUT
   		if Inkey$()="y"
      		play sound 8
      		gosub OptionsSection
  		endif

   		if Inkey$()="n"
      		play sound 10 : wait 1500
      		cls : end
   		endif

   		if Inkey$()="m"
      		play sound 10
      		gosub BeginSection
		ENDIF
   	REM REFRESH SCREEN
   		sync
	loop
ENDIF

if MouCur=6 and mouseclick()=1 
   		wait 150 : gosub BeginSection
        ENDIF

if MouCur=6 and mouseclick()=1 then
   		wait 150 : gosub BeginSection 

rem if MouCur=6