Skilltester NEWEST VERSION WORKING

View.Set ("graphics: 1700,1200")
colorback (7)
cls
var font1, font2, font3, font4, font5, font6, font7, font8 : int
var x, y, bnum, updown, spritea, pica, points : int
var targetx, targety, targetx2, targety2 : int
var motion : string
var insult1, insult2, insult3, insult4, compliment1, compliment2, compliment3, compliment4 : string
var flag, flag2 : boolean
points := 0
insult1 := "You know this is the easiest difficulty right?"
insult2 := "My Grandma could probably do better"
insult3 := "How are you going to sleep at night with that score?"
insult4 := "You have slower reaction time than a sloth"
compliment1 := "Wow thats pretty good"
compliment2 := "Scanning for cheats..."
compliment3 := "You are a God of the skill tester"
compliment4 := "Immmmmpressssive"
font1 := Font.New ("Magneto:50:bold")
font2 := Font.New ("Magneto:50:bold")
font3 := Font.New ("Showcard gothic:20:bold")
font4 := Font.New ("Showcard gothic:20:bold")
font5 := Font.New ("Showcard gothic:20:bold")
font6 := Font.New ("Showcard gothic:20:bold")
font7 := Font.New ("Showcard gothic:20:bold")
font8 := Font.New ("Showcard gothic:30:bold")
assert font1 > 0
Font.Draw ("WELCOME TO THE SKILL TESTER", 100, 1000, font1, green)
% Font.Free (font1)
drawfilloval (800, 700, 150, 150, 12)
drawfilloval (800, 700, 115, 115, 31)
drawfilloval (800, 700, 90, 90, 12)
drawfilloval (800, 700, 65, 65, 31)
drawfilloval (800, 700, 25, 25, 12)
drawfillbox (755, 700, 600, 695, 7)
drawfillbox (797, 750, 801, 900, 7)
drawfillbox (1000, 700, 845, 695, 7)
drawfillbox (797, 650, 801, 500, 7)
delay (1000)
%loop
Font.Draw ("CLICK TO START", 450, 400, font2, yellow)
%Font.Draw ("CLICK TO START", 450, 400, font2, red)
%end loop
%blink
%loop
%drawfillbox (470, 390, 1220, 500, black)
%end loop
buttonwait ("down", x, y, bnum, updown)
cls
drawfillbox (50, 700, 340, 600, 187)
drawfillbox (400, 700, 730, 600, 14)
drawfillbox (790, 700, 1180, 600, 48)
drawfillbox (1220, 700, 1600, 600, 5)
drawfillbox (600, 1050, 900, 980, 50)
Font.Draw ("How to play", 650, 1000, font7, purple)
Font.Draw ("Slightly Difficult", 50, 650, font3, brown)
Font.Draw ("Moderatly Difficult", 400, 650, font4, red)
Font.Draw ("Considerably Difficult", 800, 650, font5, purple)
Font.Draw ("Tremendously Difficult", 1220, 650, font6, green)
buttonwait ("down", x, y, bnum, updown)
%slightly
if ((x >= 50 and y <= 700) and (x < 340 and y > 600)) then
    cls
    drawbox (600, 750, 1000, 670, 12)
    %skillchecker bar
    drawfillbox (800, 500, 805, 610, 12)
    pica := Pic.New (800, 500, 805, 610)
    spritea := Sprite.New (pica)
    Sprite.Show (spritea)
    targetx := 652
    targety := 752
    targetx2 := 752
    targety2 := 672
    randint (targetx, 600, 900)
    loop
        flag := false
        flag2 := false
        drawfillbox (900, 400, 700, 620, 7)
        %blue bar
        drawfillbox (targetx, targety, targetx + 100, targety2, 11)
        for x2 : 600 .. 1000 by 2
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (15)
            if Mouse.ButtonMoved ("down") then
                buttonwait ("down", x, y, bnum, updown)
                drawfillbox (600, 760, 1000, 670, 7)
                drawbox (600, 750, 1000, 670, 12)
                if x2 >= targetx and x2 <= targetx + 100 then
                    randint (targetx, 600, 900)
                    points := points + 1
                    color (12)
                    put points
                else
                    cls
                    color (12)
                    locate (50, 60)
                    if points <= 50 then
                        put insult1, " ", "you gained", " ", points, " ", "points"
                    elsif points > 50 then
                        put "Thats a fine score but still pretty bad for this difficulty..."
                        color (12)
                        locate (50, 70)
                        put " you gained", " ", points, " ", "points"
                    end if
                    flag2 := true
                    exit
                end if
                flag := true
                exit
            end if
        end for
        if flag = false and flag2 = false then
            for decreasing x3 : 1000 .. 600 by 2
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (15)
                if Mouse.ButtonMoved ("down") then
                    buttonwait ("down", x, y, bnum, updown)
                    drawfillbox (600, 760, 1000, 670, 7)
                    drawbox (600, 750, 1000, 670, 12)
                    if x3 >= targetx and x3 <= targetx + 100 then
                        randint (targetx, 600, 900)
                        points := points + 1
                        color (12)
                        put points
                    else
                        cls
                        color (12)
                        locate (50, 60)
                        if points <= 50 then
                            put insult2, " ", "you gained ", " ", points, " ", "points"
                        elsif points > 50 then
                            put "I mean, you still shouldn't feel good about yourself on this difficulty..."
                            color (12)
                            locate (50, 70)
                            put "You gained ", " ", points, " ", "points"
                        end if
                        flag2 := true
                        exit
                    end if
                    exit
                end if
            end for
        end if
        if flag2 = true then
            exit
        end if
    end loop


    %moderatly
elsif ((x >= 400 and y <= 700) and (x < 730 and y > 600)) then
    cls
    drawbox (600, 750, 1000, 670, 12)
    %skillchecker bar
    drawfillbox (800, 500, 805, 610, 12)
    pica := Pic.New (800, 500, 805, 610)
    spritea := Sprite.New (pica)
    Sprite.Show (spritea)
    targetx := 652
    targety := 752
    targetx2 := 752
    targety2 := 672
    randint (targetx, 600, 900)
    loop
        flag := false
        flag2 := false
        drawfillbox (900, 400, 700, 620, 7)
        %blue bar
        drawfillbox (targetx, targety, targetx + 100, targety2, 11)
        for x2 : 600 .. 1000 by 2
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (10)
            if Mouse.ButtonMoved ("down") then
                buttonwait ("down", x, y, bnum, updown)
                drawfillbox (600, 760, 1000, 670, 7)
                drawbox (600, 750, 1000, 670, 12)
                if x2 >= targetx and x2 <= targetx + 100 then
                    randint (targetx, 600, 900)
                    points := points + 1
                    color (12)
                    put points
                else
                    cls
                    color (12)
                    locate (50, 60)
                    if points <= 20 then
                        put insult3, " ", "you gained ", " ", points, " ", "points"
                    elsif points > 20 then
                        put "That score is pretty ok"
                        put " you gained", " ", points, " ", "points"
                    end if
                    flag2 := true
                    exit
                end if
                flag := true
                exit
            end if
        end for
        if flag = false and flag2 = false then
            for decreasing x3 : 1000 .. 600 by 2
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (10)
                if Mouse.ButtonMoved ("down") then
                    buttonwait ("down", x, y, bnum, updown)
                    drawfillbox (600, 760, 1000, 670, 7)
                    drawbox (600, 750, 1000, 670, 12)
                    if x3 >= targetx and x3 <= targetx + 100 then
                        randint (targetx, 600, 900)
                        points := points + 1
                        color (12)
                        put points
                    else
                        cls
                        color (12)
                        locate (50, 60)
                        if points <= 20 then
                            put insult4, " ", "you gained ", " ", points, " ", "points"
                        elsif points > 20 then
                            put "Meh, try a harder difficulty"
                            put "You gained ", " ", points, " ", "points"
                        end if
                        flag2 := true
                        exit
                    end if
                    exit
                end if
            end for
        end if
        if flag2 = true then
            exit
        end if
    end loop


    %considerably
elsif ((x >= 790 and y <= 700) and (x < 1180 and y > 600)) then
    cls
    drawbox (600, 750, 1000, 670, 12)
    %skillchecker bar
    drawfillbox (800, 500, 805, 610, 12)
    pica := Pic.New (800, 500, 805, 610)
    spritea := Sprite.New (pica)
    Sprite.Show (spritea)
    targetx := 652
    targety := 752
    targetx2 := 752
    targety2 := 672
    randint (targetx, 600, 900)
    loop
        flag := false
        flag2 := false
        drawfillbox (900, 400, 700, 620, 7)
        %blue bar
        drawfillbox (targetx, targety, targetx + 100, targety2, 11)
        for x2 : 600 .. 1000 by 2
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (5)
            if Mouse.ButtonMoved ("down") then
                buttonwait ("down", x, y, bnum, updown)
                drawfillbox (600, 760, 1000, 670, 7)
                drawbox (600, 750, 1000, 670, 12)
                if x2 >= targetx and x2 <= targetx + 100 then
                    randint (targetx, 600, 900)
                    points := points + 1
                    color (12)
                    put points
                else
                    cls
                    color (12)
                    locate (50, 60)
                    if points <= 10 then
                        put "Well, don't go beyond your skill level next time", " ", "you gained ", " ", points, " ", "points"
                    elsif points > 10 then
                        put "Simply, Amazing"
                        put " you gained", " ", points, " ", "points"
                    end if
                    flag2 := true
                    exit
                end if
                flag := true
                exit
            end if
        end for
        if flag = false and flag2 = false then
            for decreasing x3 : 1000 .. 600 by 2
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (5)
                if Mouse.ButtonMoved ("down") then
                    buttonwait ("down", x, y, bnum, updown)
                    drawfillbox (600, 760, 1000, 670, 7)
                    drawbox (600, 750, 1000, 670, 12)
                    if x3 >= targetx and x3 <= targetx + 100 then
                        randint (targetx, 600, 900)
                        points := points + 1
                        color (12)
                        put points
                    else
                        cls
                        color (12)
                        locate (50, 60)
                        if points <= 10 then
                            put "Recommend not doing this skill level again", " ", "you gained ", " ", points, " ", "points"
                        elsif points > 10 then
                            put "You are pretty good at this!"
                            put "You gained ", " ", points, " ", "points"
                        end if
                        flag2 := true
                        exit
                    end if
                    exit
                end if
            end for
        end if
        if flag2 = true then
            exit
        end if
    end loop

    %tremendously
elsif ((x >= 1220 and y <= 700) and (x < 1600 and y > 600)) then
    cls
    drawbox (600, 750, 1000, 670, 12)
    %skillchecker bar
    drawfillbox (800, 500, 805, 610, 12)
    pica := Pic.New (800, 500, 805, 610)
    spritea := Sprite.New (pica)
    Sprite.Show (spritea)
    targetx := 652
    targety := 752
    targetx2 := 752
    targety2 := 672
    randint (targetx, 600, 900)
    loop
        flag := false
        flag2 := false
        drawfillbox (900, 400, 700, 620, 7)
        %blue bar
        drawfillbox (targetx, targety, targetx + 100, targety2, 11)
        for x2 : 600 .. 1000 by 2
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (1)
            if Mouse.ButtonMoved ("down") then
                buttonwait ("down", x, y, bnum, updown)
                drawfillbox (600, 760, 1000, 670, 7)
                drawbox (600, 750, 1000, 670, 12)
                if x2 >= targetx and x2 <= targetx + 100 then
                    randint (targetx, 600, 900)
                    points := points + 1
                    color (12)
                    put points
                else
                    cls
                    color (12)
                    locate (50, 60)
                    if points <= 2 then
                        put "At least you tried right (recommend not trying again)", " ", "you gained ", " ", points, " ", "points"
                    elsif points > 2 then
                        put "You actually hit them, you're a God"
                        put " you gained", " ", points, " ", "points"
                    end if
                    flag2 := true
                    exit
                end if
                flag := true
                exit
            end if
        end for
        if flag = false and flag2 = false then
            for decreasing x3 : 1000 .. 600 by 2
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (1)
                if Mouse.ButtonMoved ("down") then
                    buttonwait ("down", x, y, bnum, updown)
                    drawfillbox (600, 760, 1000, 670, 7)
                    drawbox (600, 750, 1000, 670, 12)
                    if x3 >= targetx and x3 <= targetx + 100 then
                        randint (targetx, 600, 900)
                        points := points + 1
                        color (12)
                        put points
                    else
                        cls
                        color (12)
                        locate (50, 60)
                        if points <= 2 then
                            put "Dont worry, no one can do this level", " ", "you gained ", " ", points, " ", "points"
                        elsif points > 2 then
                            put "Are you the next ascendant??? Holy shit"
                            put "You gained ", " ", points, " ", "points"
                        end if
                        flag2 := true
                        exit
                    end if
                    exit
                end if
            end for
        end if
        if flag2 = true then
            exit
        end if
    end loop

    %help/how to play
elsif ((x >= 600 and y <= 1050) and (x < 900 and y > 980)) then
    cls
end if