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

upthescale

Tue Mar 28, 2006 9:50 pm


Program by Robbie

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

obviously u guys have negative comments about everyone's submissions, so go ahead and tell me mine so i can work on it thanks



var x, y, x2, y2, button2, life : int
life := 3
%Procedures
proc bounds
    if x2 < 0 then
        put "You left the area!"
        delay (1000)
        break
    end if
    if x2 > 800 then
        put "You left the area!"
        delay (1000)
        break
    end if
    if y2 < 0 then
        put "You left the area!"
        delay (1000)
        break
    end if
    if y2 > 452 then
        put "You left the area!"
        delay (1000)
        break
    end if
end bounds
%Procedures
put "Life= ", life
%Procedures
proc level
    put "Level Up!"
    delay (900)
    cls
end level
%Procedures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%The Game
%%%%%New Level
proc yoo
    x := 300
    y := 400
    loop
        drawfillbox (x, y, x + 50, y + 50, 7)
        delay (30)
        drawfillbox (x, y, x + 50, y + 50, 0)
        y := y - 7
        exit when y < -40
        mousewhere (x2, y2, button2)
        if x2 >= x and x2 = y and y2 = x and x2 = y and y2 = x and x2 = y and y2 = x and x2 = y and y2