Sorry your browser is not supported!

set window on
set window position (desktop width() - 640)/2, (desktop height() - 480)/2 `center window

rem generate 128x32 buttons for menu
`blue button
cls rgb (128,128,0)
get image 1, 0,0,128,32,1
cls rgb (255,255,0)
get image 11,0,0,128,32,1

`green button
cls rgb(0,128,0)
get image 2, 0,0,128,32,1
cls rgb(0,255,0)
get image 12,0,0,128,32,1

`red button
cls rgb(128,0,0)
get image 3, 0,0,128,32,1
cls rgb(255,0,0)
get image 13,0,0,128,32,1

cls rgb(0,0,0)

do


mx = mousex() : my = mousey() `capture mouse coords ONCE for use this loop

   for x = 1 to 3
      if mx => 0 and mx < 128 and my => (x*32) and my < (x*32)+ 32
         paste image x+10, 0, x*32,1
      else
         paste image x, 0, x*32,1
      endif
   next x


loop

`Some stuff the might need setting up that should change
sync on
sync rate 60
set window off
hide mouse
randomize timer()

`Set some variables that won't be changed during the player interaction with the program
sw = screen width()
sh = screen height()

`This is the maximum score required by the player to win the game
`by placing it here it becomes hard coded into the game and can not be changed
`once the game has been compiled into an exe
max_score = 100


`this is the start of intro screen loop and waits until the player press the space key
repeat

	center text sw/2, sh/2-15, "Instructions: press the up key to score points."
	center text sw/2, sh/2+15, "Score " + str$(max_score) + " points to win"
	center text sw/2, sh/2+60, "PRESS SPACE TO START"

	`refresh the screen
	sync

until spacekey() = 1
`end of intro screen loop



`clear the screen if you need to
cls



`this is the start of the main program loop
do

	`these are starting variables for the game that needs to be reset each time the game is played
	`this variable stores the player's current score so is set to zero at the start of each game
	score = 0
	

	`this is the main game loop
	`the program will exit this loop when the player's current score is equal to or greather the maximum score possible
	repeat

		`because this is a text program the screen needs to be cleaned with each game loop
		cls
	
		`controls
		if upkey() = 1
			`increase the score by 1
			inc score, 1
		endif
	
		`print the current score to the screen
		text 1,1, "Current score : " + str$(score)

		`refresh the screen
		sync
	
	until score => max_score
	`end of the main game loop
	
	
	`this is the "play again" screen loop and gives the player the option to start again
	`by pressing 
	repeat

		center text sw/2, sh/2-10, "!!! YOU WIN !!!"
		center text sw/2, sh/2, "Press p to play again and q to quit"
		
		`if the player press q then the program will end
		if keystate(16) = 1
			end			:`exit the program
		endif

		`refresh the screen
		sync	

	until keystate(25) = 1
	`end of the "play again" loop screen


loop
`this is the end of the main loop