Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- spritea := Sprite.New (pica)
- drawfillbox (800, 700, 805, 880, 31)
- Sprite.Show (spritea)
- for x2 : 2 .. maxx by 3
- Sprite.SetPosition (spritea, x, 200, 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement