skilltester NEWEST

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 : int
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 (3000)
%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
    %drawfilloval (800, 700, 150, 150, 3)
    %Font.Draw ("SPACE", 745, 690, font8, white)
    %drawbox (710, 750, 900, 670, 31)
    %drawbox (800, 700, 805, 880, 31)
    drawbox (600, 750, 1000, 670, 31)
    pica := Pic.New (800, 600, 805, 750)
    spritea := Sprite.New (pica)
    drawfillbox (800, 600, 805, 750, 31)
    Sprite.Show (spritea)
    for x2 : 2 .. maxx by 3
        Sprite.SetPosition (spritea, x, 300, false)
        delay (15)
    end for
    %moderatly
elsif ((x >= 400 and y <= 700) and (x < 730 and y > 600)) then
    cls
    %considerably
elsif ((x >= 790 and y <= 700) and (x < 1180 and y > 600)) then
    cls
    %tremendously
elsif ((x >= 1220 and y <= 700) and (x < 1600 and y > 600)) then
    cls
    %help/how to play
elsif ((x >= 600 and y <= 1050) and (x < 900 and y > 980)) then
    cls
end if