View.Set ("graphics:max,max")
var background : int := Pic.FileNew ("talibanbackground.jpg")
var splash : int := Pic.FileNew ("ClixorSplash.jpg")
var Gameover : int := Pic.FileNew ("GameOver.jpg")
var click : int := 100
var font : int := Font.New ("sans serif:26:bold")
proc up
loop
mousewhere (mx, my, mb)
exit when mb = 0
end loop
end up
proc down
loop
mousewhere (mx, my, mb)
exit when mb = 1
end loop
end down
loop
Pic.Draw (splash, 0, -50, picCopy)
mousewhere (mx, my, mb)
if mb = 1 and mx > 150 and my > 230 and mx < 250 and my < 280 then
cls
up
end if
end loop
click -= 1
loop
mousewhere (mx, my, mb)
cls
Font.Draw ("You need " + intstr (click) + " more clicks to win!", 250, 600, font, black)
line1x -=maxx div 1000
timec -= 1
drawfillbox (0, 0, line1x, 100, red)
View.Update
exit when mb = 0
exit when click = 0
if click = 0 and timec > 600 then
Font.Draw ("You are a Clixor God", 290, 400, font, 103)
elsif click = 0 and timec > 550 then
Font.Draw ("You are a Click Master", 290, 400, font, 103)
end if