%Amy Gilbank
%May 18 2006
%bounceball.t
%a progrsm that allows picture to bounce around
var winMain : int := Window.Open ("graphics:800;600")
var pic1, pic1w, pic1h, pic1x, pic1y, x, y, speedx, speedy,backg : int
pic1 := Pic.FileNew ("ball.bmp")
pic1w := Pic.Width (pic1)
pic1h := Pic.Height (pic1)
pic1x := 100
pic1y := 200
speedx := 90
speedy := 80
loop
    backg := Pic.New (pic1x,pic1y, pic1x + pic1w,pic1y - pic1h)
        Pic.Draw (pic1, pic1x, pic1y,picCopy)
     delay (500)
        Pic.Draw ( backg,pic1x, pic1y, picCopy)
                                      if pic1y >= 400 - pic1h or pic1y <= 0 then
        speedy := -speedy
    end if
    if pic1x >= 700 - pic1w or pic1x <= 0 then
        speedx := -speedx
    end if
    pic1y := pic1y + speedy
    pic1x := pic1x + speedx
     end loop

var ballx, bally, vx, vy, gravity : real
ballx := 100 %Ball x-value
bally := 100 %Ball y-value
vx := 5 %Velocity X-value -- speed the ball's x-values moves at
vy := 10 %Velocity Y-value -- speed the ball's y-value moves at
gravity := .25 %Amount the y-speed get's reduced by
View.Set ("offscreenonly")
loop
    cls
    drawline (0, 100, maxx, 100, black) %Floor
    drawfilloval (round (ballx), round (bally), 10, 10, green) %Ball
    ballx += vx %Moving x-value
    bally += vy %Moving y-value
    vy -= gravity %applying gravity
    if vy = -10 then %If it's reached it's maximum
        vy := 10 - gravity %Reset it
    end if
    if ballx + 15 >= maxx or ballx - 15 <= 0 then %Hitting the walls
        vx *= -1 %Change direction of x-value
    end if
    View.Update
    delay (25)
    exit when hasch
end loop