skilltester 4 final

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 : 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"
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)
    exit when Mouse.ButtonMoved ("down")
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 + 70, 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..."
                    elsif points > 100 then
                        put "Getting good..."
                    elsif points > 200 then
                        put "Why are you still here?"
                        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..."
                        elsif points > 100 then
                            put "Getting good..."
                        elsif points > 200 then
                            put "Why are you still here?"
                            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 := 572
    targety := 752
    targetx2 := 662
    targety2 := 672
    randint (targetx, 600, 900)
    loop
        flag := false
        flag2 := false
        drawfillbox (900, 400, 700, 620, 7)
        %blue bar
        drawfillbox (targetx, targety, targetx + 40, 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 + 40 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"
                    elsif points > 50 then
                        put "Wow, that is good"
                        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 + 40 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"
                            put "You gained ", " ", points, " ", "points"
                        elsif points > 50 then
                            put "Kool Kat"
                            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 + 20, targety2, 11)
        for x2 : 600 .. 1000 by 1
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (3)
            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 + 20 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"
                    elsif points > 30 then
                        put "Finally, a new challenger"
                        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 1
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (3)
                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 + 40 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"
                        elsif points > 30 then
                            put "You are really 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 + 10, targety2, 11)
        for x2 : 600 .. 1000 by 1
            Sprite.SetPosition (spritea, x2, 640, false)
            delay (2)
            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 + 10 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 >= 3 then
                        put "You actually hit them, you're a God"
                        put " you gained", " ", points, " ", "points"
                    elsif points > 10 then
                        put "Are you from another planet?"
                        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 1
                Sprite.SetPosition (spritea, x3, 640, false)
                delay (2)
                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 + 10 then
                        randint (targetx, 600, 900)
                        points := points + 1
                        color (12)
                        put " ", points ..
                    else
                        cls
                        color (12)
                        locate (50, 60)
                        if points <= 3 then
                            put "Dont worry, no one can do this level", " ", "you gained ", " ", points, " ", "points"
                        elsif points >= 4 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
    color (12)
    put "A red bar moves alone a bigger bar back and fourth."
    put "The blue zone is where you have to try and land the red bar."
    put "Click the mouse anywhere to try and land the red skillchecker bar."
    put "Keep going untill you miss and the points you gained from that round will be shown in the end screen."
end if