New program by Robbie

upthescale · **Posted:** Tue Mar 28, 2006 9:54 pm

u guys hate and have negative comments on everyone else so cmon let me hear it and ill fix it up thanks

code:

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 <= x + 50 and y2 >= y and y2 <= y + 50 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
bounds
end loop
%%%%%New Level
x := 80
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 <= x + 50 and y2 >= y and y2 <= y + 50 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
bounds
end loop
%%%%%New Level
x := 80
y := 400
loop
drawfillbox (x, y, x + 700, y + 50, 7)
delay (30)
drawfillbox (x, y, x + 700, y + 50, 0)
y := y - 7
exit when y < -40
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 700 and y2 >= y and y2 <= y + 50 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
bounds
end loop
%%%%%New Level
x := 80
y := 220
loop
drawfillbox (x, y, x + 300, y + 300, 7)
delay (30)
drawfillbox (x, y, x + 300, y + 300, 0)
y := y - 7
exit when y < -320
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 300 and y2 >= y and y2 <= y + 300 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit

end if
if life <= 0 then
put "You lose!"
delay (900)
break
end if
bounds
end loop
level
%%%%%New Level
put "Life= ", life
x := 80
y := 400
loop
drawfillbox (x, y, x + 700, y + 50, 7)
delay (30)
drawfillbox (x, y, x + 700, y + 50, 0)
y := y - 9
exit when y < -40
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 700 and y2 >= y and y2 <= y + 700 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (900)
break
end if
bounds
end loop
%%%%%New Level
x := 80
y := -500
loop
drawfillbox (x, y, x + 700, y + 344, 7)
delay (30)
drawfillbox (x, y, x + 700, y + 344, 0)
y := y + 9
exit when y > 500
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 700 and y2 >= y and y2 <= y + 344 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
x := 400
y := -10
loop
drawfillbox (x, y, x + 700, y + 440, 7)
delay (30)
drawfillbox (x, y, x + 700, y + 440, 0)
x := x - 9
exit when x < -800
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 700 and y2 >= y and y2 <= y + 440 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
x := 808
y := 420
loop
drawfillbox (x, y, x + 300, y + 300, 7)
delay (30)
drawfillbox (x, y, x + 300, y + 300, 0)
y := y - 7
x := x - 7
exit when y < -320
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 300 and y2 >= y and y2 <= y + 300 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
level
%%%%%New Level
put "Life= ", life
x := 400
y := 10
loop
drawfillbox (x, y, x + 34, y + 233, 7)
delay (30)
drawfillbox (x, y, x + 34, y + 233, 0)
x := x - 16
exit when x < 0
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 34 and y2 >= y and y2 <= y + 233 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
x := 0
y := 10
loop
drawfillbox (x, y, x + 34, y + 233, 7)
delay (30)
drawfillbox (x, y, x + 34, y + 233, 0)
x := x + 16
exit when x > 860
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 34 and y2 >= y and y2 <= y + 233 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
bounds
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
end loop
%%%%%New Level
x := 900
y := 10
loop
drawfillbox (x, y, x + 122, y + 233, 7)
delay (30)
drawfillbox (x, y, x + 122, y + 233, 0)
x := x - 22
exit when x < 0
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 122 and y2 >= y and y2 <= y + 233 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
bounds
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
end loop
%%%%%New Level
x := 100
y := 600
loop
drawfillbox (x, y, x + 400, y + 500, 7)
delay (30)
drawfillbox (x, y, x + 400, y + 500, 0)
y := y - 16
exit when y < -500
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 400 and y2 >= y and y2 <= y + 500 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
level
put "Life= ", life
x := 600
y := 20
loop
drawfillbox (x, y, x + 600, y + 400, 7)
delay (30)
drawfillbox (x, y, x + 600, y + 400, 0)
x := x - 22
exit when x < -580
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 600 and y2 >= y and y2 <= y + 400 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
x := 0
y := 500
loop
drawfillbox (x, y, x + 740, y + 500, 7)
delay (30)
drawfillbox (x, y, x + 740, y + 500, 0)
y := y - 22
exit when y < -500
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 740 and y2 >= y and y2 <= y + 500 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
put "life= ", life
x := 100
y := 500
loop
drawfillbox (x, y, x + 500, y + 300, 7)
delay (30)
drawfillbox (x, y, x + 500, y + 300, 0)
y := y - 26
exit when y < -500
mousewhere (x2, y2, button2)
if x2 >= x and x2 <= x + 740 and y2 >= y and y2 <= y + 300 then
cls
life := life - 1
put "Life= ", life
delay (900)
exit
end if
if life <= 0 then
put "You lose!"
delay (1200)
break
end if
bounds
end loop
%%%%%New Level
put "Congratualtions, you have won!"
end yoo
var number, number2, answer, score : int
var ch : string (1)
var x4, y4, x5, y5, button, chances : int
var answer2 : string
chances := 4
x4 := 0
score := 0
proc yo
put "You lose the whole game!"
delay (2200)
cls
break
end yo
proc hey
loop
mousewhere (x5, y5, button)
%if x2 >= x and x2 <= x + 50 and y2 >= y and y2 <= y + 50 then
if x5 >= x4 and x5 <= x4 + 70 and y5 >= 10 and y5 <= 56 and button = 1 then
put "Good!"
delay (1200)
cls
exit
elsif button = 1 then
chances := chances - 1
put "Wrong! You have ", chances, " left"
delay (900)
if chances = 0 then
yo
end if
end if
end loop
end hey
randomize
randint (number, 1, 10)
randint (number2, 1, 10)
cls
put "What is ", number, " times ", number2
get answer
if answer = number * number2 then
score := score + 1
put "Good! Your score is, ", score
else
score := score - 1
put "wrong! Your score is, ", score
end if
put ""
put "Now ", number, " * ", number2, " was ", number * number2
put ""
delay (2200)
put "What is ", number * number2, " - ", number, ""
get answer
if answer = number * number2 - number then
score := score + 1
put "Good! Your score is, ", score
else
score := score - 1
put "wrong! Your score is, ", score
delay (1200)
end if
put ""
put "Ok, this is getting boring...Let's move on!"
put ""
put "Hit a key to continue"
getch (ch)
cls
put "Your score before was ", score
if score > 1 then
put "That's to easy, let's get hard!"
delay (2200)
cls
else
put "Wow, oh well let's hope you do well in the next session"
delay (3200)
cls
end if
put "The box will move across the grey...then when it gets to the end,"
put "the grey will go black. Your job is to find where the square is"
put "in that black area. You have four chances to click and find it!"
put ""
getch (ch)
cls
for g : 1 .. 210
drawfillbox (x4, 10, x4 + 70, 56, 7)
delay (10)
drawfillbox (x4, 10, x4 + 70, 56, 0)
x4 := x4 + 2
drawfillbox (10, 10, 500, 56, 23)
end for
drawfillbox (10, 10, 500, 56, 7)
randint (x4, 0, 500)
drawfillbox (x4, 10, x4 + 70, 56, 7)
hey
put "Ok, good you got the square with ", chances, " chances left"
delay (3300)
cls
put "Now was that difficult?"
get answer2
cls
if answer2 = "y" or answer2 = "ya" or answer2 = "yes" then
put "Well...Things will get a little more trickier..."
put ""
getch (ch)
cls
else
put "Ok, well stick with me, things will get harder!"
put ""
getch (ch)
cls
end if
put "For this game, just dodge those squares!"
put ""
getch (ch)
cls
yoo

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members