|
setscreen ("graphics:vga") % Main variablesre being delcared. var roman : int var score : int score := 0 var d : int var correct : boolean loop roman := Font.New ("times new roman:15") var x, y, btn, a1, a2, aa, expn : int % Intro screen appears. Font.Draw ("THE Incredible MATH GAME by Will Johnson", 200, 320, roman, brightblue) delay (3000) cls % Boxes are being drawn and labeled. drawfillbox (100, 100, 200, 200, brightred) Font.Draw ("Adding", 115, 150, roman, brightblue) drawfillbox (320, 250, 420, 350, brightred) Font.Draw ("Subtracting", 323, 300, roman, blue) drawfillbox (100, 250, 200, 350, green) Font.Draw ("Multiplying", 103, 300, roman, black) drawfillbox (320, 100, 420, 200, green) Font.Draw ("Dividing", 335, 150, roman, black) Font.Free (roman) correct := false %The user can click which box they want too. loop randint (a1, 1, 50) randint (a2, 1, 50) mousewhere (x, y, btn) %Adding section starts. if x >= 100 and x <= 200 and y >= 100 and y <= 200 and btn = 1 then cls put "Lets start adding..." delay (1000) cls % Instructions are being displayed. put "~If your answer is incorrect it will ask you the same question again." put skip put "~If you answer incorrectly 3 times it will move onto the next question." put skip delay (3000) cls put "This noise means correct" delay (1000) Music.Sound (840, 1000) put "This noise means wrong" delay (1000) Music.Sound (200, 1000) delay (1000) cls for f : 1 ..
Approximate Word count = 862
Approximate Pages = 3.4
(250 words per page double spaced)
|
|
