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