Sorry your browser is not supported!

show mouse
do
set cursor 100,100
print "Points:" ;points
a = rnd(600)
b = rnd(600)
points = 1
text a,b,"Click me"

if mousex()=a and mousey()=b then points = points+1
sleep 10000
cls


loop

Click_me:
a = rnd(screen width())
b = rnd(screen height())
c#=10000

do
cls
set cursor 100,100
print "Points:" ;points
text a,b,"Click me"
if mousex() > a and mousey() > b and mousex() < a+65 and mousey() < b+10 and mouseclick()=1 then inc points : goto Click_me:
dec c#
if c#=0 then goto Click_me
print c#
sync
loop

Set Display Mode 640,480,16
Sync On
CLS 0
Word$="Click Me"
TL = Text Width(Word$)+8
SecsToShow = 5
Lives = 5
Randomize Timer()
T = Timer()
Set Text Opaque
Gosub MoveWord: Rem Initially place the word

Do
  Gosub TimerProc
  Ink RGB(0,255,0),0
  Center Text 320,0,"Points: " +Str$(points)+"          Lives: " +Str$(Lives)+"          Showing Word For " +Str$(SecsToShow)+" Seconds."
  If Mouseclick()=1
    If MouseX()>X And MouseY()>Y And MouseX()<X+TL And MouseY()<Y+16
      Inc Points
      Scored# = Points/10.0
      If Scored# = Int(Scored#) and SecsToShow > 1
        Dec SecsToShow: Rem Every 10 points display word for shorter time
      Endif
      Gosub MoveWord
    Else
      Ink RGB(255,0,0),0
      Center Text 320,240,"You Missed The Word - You Lose A Life!"
      Sleep 3000
      Dec Lives
      If Lives = 0 Then Gosub OutOfLives
      Gosub MoveWord
    Endif
    Repeat
    Until MouseClick()=0
  Endif
  Sync
loop

TimerProc:
  Elapsed = (Timer()-T)/1000
  If Elapsed = SecsToShow
    Ink RGB(255,0,0),0
    Center Text 320,240,"You Were Too Slow - You Lose A Life!"
    Sleep 3000
    Dec Lives
    If Lives = 0 Then Gosub OutOfLives
    Gosub MoveWord
  Endif
Return

MoveWord:
  CLS
  X = Rnd(Screen Width()-TL-8)+4
  Y = Rnd(Screen Height()-40)+20
  Ink RGB(255,255,255),0: Box X,Y,X+TL,Y+17
  Ink 0,0: Box X+1,Y+1,X+TL-1,Y+16
  Ink RGB(255,255,0),0: Text X+4,Y+1,Word$
  Elapsed = 0
  T = Timer()
Return

OutOfLives:
  CLS
  Print "No More Lives!"
  Print
  Print " Your Score Was ";Str$(Points);" Points"
  End
Return

Program Start

Gosub Setup
Gosub MainMenu

Rem * Main Loop *
Do
  Rem Go round this loop playing the game Eg:
  Gosub PlayerInput
  Gosub EnemyMove
  Gosub PlayerMove
  If OutOfLives
    If Score Big Enough Then Gosub HiScores
    Gosub MainMenu
  Endif
Loop
End

Rem *** All Procedures Here... ***

Setup:
  Rem Set up constant vars, screen mode, create/load images, sounds etc
Return

InitVars:
  Rem Set up all variables here to start/restart the game
Return

MainMenu:
  Rem Show Main Menu Screen
  Repeat
    If Player Selects Quit Then End
  Until User Selects Play
  Gosub InitVars: Rem Set up variables required to start/restart the game 
Return

Hiscores:
  Rem Show Hiscore Screen
  Repeat
  Until User Selects Exit
Return

PlayerInput:
  Rem Get all keyboard and mouse input
Return

EnemyMove:
  Rem Move all computer controlled characters
Return

PlayerMove:
  Rem Move player character
Return

Rem *** All Functions Here... ***