Sorry your browser is not supported!

Sync on: Sync Rate 30

Disable Escapekey
Hide Mouse 

Set Display Mode 400, 400, 32
Load Music "tugtog\Mana.mp3", 1
Loop Music 1

Load Image "larawan\juan.bmp", 1
Paste Image 1, 0, 0

Gosub i

Do
	If selectedItem <> 0
	 Ink white, white
	 center text screen width()/2, 150, ilan$(0)
	Else
	 ink green, green
	 center text screen width()/2, 150, ilan$(0)
	Endif
	
	If selectedItem <> 1
	 Ink white, white
	 center text screen width()/2, 190, ilan$(1)
	Else
	 ink green, green
	 center text screen width()/2, 190, ilan$(1)
	Endif
	
	If upkey()= 0 and up = 1
	 up = 0
	Endif
	
	If upkey()= 1 and up = 0
	 selectedItem = selectedItem - 1
	 up = 1
	Endif
	
	If downkey()= 0 and down = 1
	 down = 0
	Endif
	
	If downkey()= 1 and down = 0
	 selectedItem = selectedItem + 1
	 down = 1
	Endif
	
	If selectedItem < 0
	   selectedItem = 1
	 Endif
	 
	If selectedItem > 1
	   selectedItem = 0
	 Endif
	 
	 Rem Exit
	 If selectedItem = 1 and returnkey() = 1
	 	End
	 Endif 
	 
	 Rem Game
	 If selectedItem = 0 and returnkey() = 1
	 	Goto pili
	 Endif
	 
	Sync
Loop

i:
	Dim ilan$(2)
	ilan$(0) = "Isahan"
	ilan$(1) = "Maramihan"
	
	selectedItem = 0
	up = 0
	down = 0
	
	green = RGB(0, 255, 0)
	white = RGB(255, 255, 255)
	
Return

pili:

Sync on: Sync Rate 30

Gosub opsyons

Do
	If selectedItem <> 0
	 Ink white, white
	 center text screen width()/2, 160, opsyon$(0)
	Else
	 ink green, green
	 center text screen width()/2, 160, opsyon$(0)
	Endif
	
	If selectedItem <> 1
	 Ink white, white
	 center text screen width()/2, 180, opsyon$(1)
	Else
	 ink green, green
	 center text screen width()/2, 180, opsyon$(1)
	Endif
	
	If selectedItem <> 2
	 Ink white, white
	 center text screen width()/2, 200, opsyon$(2)
	Else
	 ink green, green
	 center text screen width()/2, 200, opsyon$(2)
	Endif
	
	If selectedItem <> 3
	 Ink white, white
	 center text screen width()/2, 220, opsyon$(3)
	Else
	 ink green, green
	 center text screen width()/2, 220, opsyon$(3)
	Endif
	
	If selectedItem <> 4
	 Ink white, white
	 center text screen width()/2, 240, opsyon$(4)
	Else
	 ink green, green
	 center text screen width()/2, 240, opsyon$(4)
	Endif
	
	If selectedItem <> 5
	 Ink white, white
	 center text screen width()/2, 260, opsyon$(5)
	Else
	 ink green, green
	 center text screen width()/2, 260, opsyon$(5)
	Endif
	
	If upkey()= 0 and up = 1
	 up = 0
	Endif
	
	If upkey()= 1 and up = 0
	 selectedItem = selectedItem - 1
	 up = 1
	Endif
	
	If downkey()= 0 and down = 1
	 down = 0
	Endif
	
	If downkey()= 1 and down = 0
	 selectedItem = selectedItem + 1
	 down = 1
	Endif
	
	If selectedItem < 0
	   selectedItem = 5
	 Endif
	 
	If selectedItem > 5
	   selectedItem = 0
	 Endif
	 
	 Rem Exit
	 If selectedItem = 5 and returnkey() = 1
	 	End
	 Endif 
	 
	 Rem Game
	 If selectedItem = 0 and returnkey() = 1
	 	Goto subok2
	 Endif
	 
	Sync
Loop

opsyons:
	Dim opsyon$(5)
	opsyon$(0) = "Bagong Laro"
	opsyon$(1) = "Opsyon"
	opsyon$(2) = "Naka-save"
	opsyon$(3) = "I-save"
	opsyon$(4) = "Ituloy ang Laro"
	opsyon$(5) = "Lumisan"
	
	selectedItem = 0
	up = 0
	down = 0
	
	green = RGB(0, 255, 0)
	white = RGB(255, 255, 255)
	
Return

If Inkey$() ="e"
		Goto submenu
	Endif 

function DoSubMenu()
do
   for i = 0 to array count( opsyon$() )

      if selectedItem = i
         ink forecolour, backcolour
      else
         ink unselected_forecolour, unselected_backcolour
      endif

      if returnkey()
         select selectedItem
            case 0
                DoOtherMenu()
            endcase
            case 5
               end
            endcase
         endselect
      endif  

   next i 

loop

endfunction