View.Set ("graphics:300;400,position:center;center,nobuttonbar")
View.Set ("offscreenonly")
var Bowling_Ball : int := Pic.FileNew ("C:\\Program Files\\Mikes\\bowling_ball.bmp")
Pic.SetTransparentColor (Bowling_Ball, white)
Pic.Draw (Bowling_Ball, 27, 370, picMerge)
var Man : int
Man := Pic.FileNew ("C:\\Program Files\\Mikes\\man_in_blue.bmp")
var Man_With_Blood:int
Man_With_Blood := Pic.FileNew ("C:\\Program Files\\Mikes\\man_in_blue_with_blood.bmp")
var Man_Dead:int
Man_Dead := Pic.FileNew ("C:\\Program Files\\Mikes\\man_dead.bmp")
for decreasing y : 400 .. 83 by 5
cls
Pic.Draw (Bowling_Ball, 27, y, picMerge)
Pic.Draw (Man, 0, 0, picMerge)
View.Update
Time.Delay (15)
end for
var x : int := 27
var y : int := 80
for : 1..13
cls
Pic.Draw (Man_With_Blood, 0, 0, picMerge)
Pic.Draw (Bowling_Ball, x, y, picMerge)
View.Update
Time.Delay (15)
x := x - 5
y := y + 2
end for |