-----------------------------------

theman

Thu Jan 29, 2004 8:49 pm


New bees newbee program!

-----------------------------------

This is a program that i made for school. It's sort of a contest. Lets see how many of you can answer the questions!! (most are pretty easy though) PS. I YOU GET SOME BITS, PLEASE!?!:
 

%declaration section
import GUI
%getch
var key : string (1)

%name
var name : string
%buttons
var exitp, draw1, draw2, draw3, draw4, draw5, draw6, mainmenu, main : int := 0

%answer to question(userInput)
var input6 : int
var input7, input8, input9, input10 : int

%percentage
var score10, score9, score8, score7, score6, score5, score4, score3, score1, score2, total : int

%Writing
var font1, font2, font3, font4, font5 : int

font1 := Font.New ("Juice ITC:30")
assert font1 > 0
font2 := Font.New ("Juice ITC:100")
assert font2 > 0
font3 := Font.New ("Matura MT Script Capitals:58")
assert font3 > 0
font4 := Font.New ("Matura MT Script Capitals:16")
assert font4 > 0
font5 := Font.New ("Matisse ITC:30")
assert font5 > 0

%background
var star, star1 : int := 200
var num := 50

Draw.FillBox (0, 0, maxx, maxy, 7)
locate (13, 25)
colorback (7)
%This is the stars in the background
for x : 1 .. 200
    randint (star, 1, 640)
    randint (star1, 1, 400)
    for f : 1 .. 20
        drawdot (star, star1, 0)
        delay (1)
        drawdot (star, star1, 0)
    end for
end for

%Border
for x : 0 .. 640
    drawbox (0, 1, 0 + x, 1, 0)
    drawbox (4, 5, 0 + x, 5, 0)
    drawbox (8, 9, 0 + x, 9, 0)
    drawbox (12, 13, 0 + x, 13, 0)
    drawbox (16, 17, 0 + x, 17, 0)
    drawbox (20, 21, 0 + x, 21, 0)
    drawbox (0, 398, 0 + x, 398, 0)
    drawbox (4, 394, 0 + x, 394, 0)
    drawbox (8, 390, 0 + x, 390, 0)
    drawbox (12, 386, 0 + x, 386, 0)
    drawbox (16, 382, 0 + x, 382, 0)
    drawbox (20, 378, 0 + x, 378, 0)

    drawbox (0, 1, 0, 0 + x, 0)
    drawbox (4, 5, 4, 0 + x, 0)
    drawbox (8, 9, 8, 0 + x, 0)
    drawbox (12, 13, 12, 0 + x, 0)
    drawbox (16, 17, 16, 0 + x, 0)
    drawbox (20, 21, 20, 0 + x, 0)
    drawbox (620, 398, 620, 398 - x, 0)
    drawbox (624, 394, 624, 398 - x, 0)
    drawbox (628, 390, 628, 398 - x, 0)
    drawbox (632, 386, 632, 398 - x, 0)
    drawbox (636, 382, 636, 398 - x, 0)
    drawbox (640, 378, 640, 398 - x, 0)
    delay (8)
end for

%progess bar
for x : 0 .. 500
    Font.Draw ("Math", 80, 260, font2, 0)
    delay (10)
    Font.Draw ("Contest", 300, 180, font2, 0)

    drawbox (70 + x, 125, 70, 113, 0)
    delay (1)
    locate (18, 40)
    color (103)
    put x div 5, "%" ..
    locate (17, 10)
    put "Loading..." ..
end for
play ("22>dcbbbaaabcbbbbbaaabcbbbaaab