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