new skiltester

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)
Font.Draw ("CLICK TO START", 450, 400, font2, yellow)
%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)
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)
    pica := Pic.New (800, 700, 805, 880)
    spritea := Sprite.New (pica)
    drawfillbox (800, 700, 805, 880, 31)
    Sprite.Show (spritea)
    for x2 : 2 .. maxx by 3
        Sprite.SetPosition (spritea, x, 700, false)
        delay (15)
    end for

elsif ((x >= 400 and y <= 700) and (x < 730 and y > 600)) then
    cls
elsif ((x >= 790 and y <= 700) and (x < 1180 and y > 600)) then
    cls
elsif ((x >= 1220 and y <= 700) and (x < 1600 and y > 600)) then
    cls
elsif ((x >= 600 and y <= 1050) and (x < 900 and y > 980)) then
    cls
end if