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

gilbamy

Mon May 15, 2006 11:49 am


bouncing pictures with two

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

alright well i need my two pictures to bounce around on the screen and they don't work one comes then goes then the second picture appears in its place i need help here is my code %Amy Gilbank
%May 10 2006
%bounce2.t
%a progrsm that allows pictures to bounce around
var winMain : int := Window.Open ("graphics:800;600")
var pic1, pic1w, pic1h, pic1x, pic1y, speed1x, speed1y,backg : int
var pic2,pic2w,pic2h,pic2x,pic2y,speed2x,speed2y:int
pic1 := Pic.FileNew ("screwU.jpg")
pic1w := Pic.Width (pic1)
pic1h := Pic.Height (pic1)
pic1x := 100
pic1y := 200
pic2:=Pic.FileNew("1104710-movie-resized200.jpg")
pic2w:=Pic.Width(pic2)
pic2h:=Pic.Height(pic2)
pic2x:=200
pic2y:=150
speed1x := 90
speed1y := 80
speed2x:=700
speed2y:=450
loop
    backg := Pic.New (pic1x,pic1y, pic1x + pic1w,pic1y - pic1h)
             Pic.Draw (pic1, pic1x, pic1y,picCopy)
            delay (500)
    Pic.Draw ( backg,pic1x, pic1y, picCopy)
    backg:=Pic.New(pic2x,pic2y,pic2x+pic2w,pic2y-pic2h)
     Pic.Draw(pic2,pic2x,pic2y,picCopy)
     delay (200)
    Pic.Draw(pic2x,pic2y,backg,picCopy)
        if pic1y >= 400 - pic1h or pic1y = 700 - pic1w or pic1x =550-pic2h or pic2y=600-pic2w or pic2x