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

Weapon X

Mon May 02, 2005 6:51 pm


unable to see words and gravity does not work on ball

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


setscreen ("graphics")
setscreen ("offscreenonly")
var option : string
var score1, score2, ballx, ballx2, bally, bally2, xmod, xmod2, ymod, ymod2 : int
var chars : array char of boolean
var chars2 : array char of boolean
var slimex, slimey, slimex2, slimey2, vy, vy2, vy3 : real
var background : int
slimex := 530
slimey := 0
slimex2 := 110
slimey2 := 0
vy := 0
vy2 := 0
vy3 := 0
const jumpVelocity := 5
const speedX := 2  %speed of horizontal movement
const gravity := 0.15
var inAir := false
const jumpVelocity2 := 5
const speedX2 := 2  %speed of horizontal movement
const gravity2 := 0.15
var inAir2 := false
const jumpVelocity3 := 5
const speedX3 := 2  %speed of horizontal movement
const gravity3 := 0.15
var inAir3 := false
ballx := 320
bally := 0
xmod := 1
ymod := 1
xmod2 := 1
ymod2 := 1
score1 := 0
score2 := 0
put "Pick a number: 1, 2, 3, 4."
get background
put "You Picked The Number ", background, ". Excellent Choice!"
if background = 1 then 
background := Pic.FileNew ("slimegamebackground.jpg")
end if
if background = 2 then 
background := Pic.FileNew ("slimegamebackground2.jpg")
end if
if background = 3 then 
background := Pic.FileNew ("slimegamebackground3.jpg")
end if
if background = 4 then 
background := Pic.FileNew ("slimegamebackground4.jpg")
end if
put "Do you want a fast game or a slow game? (Type fast or slow)"
get option
loop
Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) and not inAir then
        vy := jumpVelocity
        inAir := true
    end if
    if inAir then
        slimey += vy
        vy -= gravity
        if slimey