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 timec : int := 1000
var line1 : int
var line2 : int
var line3 : int
var line1x : int := maxx
var instructions : int := Pic.FileNew ("instructions.jpg")
var mx, my, mb : int
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
exit
elsif mb = 1 and mx > 150 and my > 30 and mx < 430 and my < 180 then
put " "
Pic.Draw (instructions, 0, -50, picCopy)
up
down
up
end if
end loop
View.Set ("offscreenonly")
loop
cls
timec -= 1
line1x -=maxx div 1000
delay (5)
locate (1, 1)
Font.Draw ("You need " + intstr (click) + " more clicks to win!", 250, 600, font, black)
%put click
drawfillbox (0, 0, line1x, 100, red)
mousewhere (mx, my, mb)
if mb = 1 then
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
end loop
exit when click = 0
end if
exit when click = 0
View.Update
end loop
Pic.Draw (Gameover, 0, -50, picCopy)
put timec
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)
elsif click = 0 and timec > 500 then
Font.Draw ("You are a 1337 Clicker", 290, 400, font, 103)
elsif click = 0 and timec > 450 then
Font.Draw ("You are a Clicker", 290, 400, font, 103)
elsif click = 0 and timec > 350 then
Font.Draw ("You are a Noob", 290, 400, font, 103)
elsif click = 0 and timec < 350 then
Font.Draw ("You are Fear", 290, 400, font, 103)
end if