Sorry your browser is not supported!

print "Hello"
print "Welcome to Circle Insanity"
input "Select Circles Amount";circles



score=0

Set text opaque

for n=1 to circles



x#=mousex()
y#=mousey()

number#=n

if even_or_odd(number#) = 0
cls
cx=rnd(400)
cy=rnd(400)
ink rgb(255,0,0),1
circle cx,cy,30
ink rgb(0,255,0),1
circle cx,cy,30

con1=cx+30
con2=cx-30
con3=cy+30
con4=cy-30

endif



if x#<con1 and x#>con2 and y#<con3 and y#>con4 and mouseclick()=1
	score=score+1
   wait key
endif




next n


gosub stop


stop:
cls
print "Your score is ";
print score
print "The total possible for a computer was ";
print n-1
print "The total humanly possible was about ";
human#=n/100
print human#


print "Thanks for playing"

wait key
end
return

function even_or_odd(num#)
   result=0
   test=int(num#/2)
   if abs(test) < abs(num#/2) then result=1
   zcv=rnd(10)
	if zcv=0 or zcv=1 or zcv=2 or zcv=3 or zcv=4 or zcv=5 or zcv=6 or zvb=7 or zcv=8
   result=1
	endif
endfunction result

Print "Hello"
Print "Welcome to Circle Insanity"
Print
input "Enter Circles Amount ";circles
input "Enter Timer Value (Seconds) ";Seconds

score=0: True=1: False=0
Randomize Timer()

For N=1 to circles
  CLS
  Cx=Rnd(400): Cy=Rnd(400)
  Ink Rgb(Rnd(155)+100,Rnd(155)+100,Rnd(155)+100),0
  Circle Cx,Cy,30
  T=Timer()
  HitCircle=False
  Repeat
    Mx=mousex(): My=mousey(): Mc=MouseClick()
    If Mx>Cx-30 and Mx<Cx+30 and My>Cy-30 and My<Cy+30 and Mc=1
      Inc score
      HitCircle=True
      Repeat
      Until MouseClick()=0
    Endif
  Until (Timer()-T)/1000 >= Seconds Or HitCircle=True
Next N

cls
Print "Your score was ";score
Print "The total possible for a computer was ";
Print n-1
Print "The total humanly possible was about ";
human#=n/100
Print human#
Print "Thanks for playing"
wait key
End