View.Set ("graphics:max,max")
setscreen ("nocursor")
var cars : array 1 .. 7 of int
var cars1 : int := Pic.FileNew ("cars1.bmp")
var frogger : int := Pic.FileNew ("frogger.bmp")
var carsx : array 1 .. 15 of int
var froggerx : int := 500
var froggery : int := 0
var ch : string (1) := " "
var fx : int := 0
var fy : int := 0
var frogspeed : int := 7
for i : 1 .. 7
cars (i) := Pic.FileNew ("cars1.bmp")
carsx (i) := maxx + i * 200
end for
Pic.Draw (frogger, froggerx, froggery, picCopy)
loop
loop
exit when not hasch
getch (ch)
end loop
if ord (ch) = 200 then
fx := 0
fy := frogspeed
elsif ord (ch) = 203 then
fx := -frogspeed
fy := 0
elsif ord (ch) = 208 then
fx := 0
fy := -frogspeed
elsif ord (ch) = 205 then
fx := frogspeed
fy := 0
end if
froggerx += fx
froggery += fy
for i : 1 .. 7
carsx (i) -= 1
Pic.Draw (cars (i), carsx(i), 75, picCopy)
drawfillbox (carsx(i)+65,75,carsx(i)+70,125,white)
if carsx (i) < -350 then
carsx (i) := maxx
end if
end for
delay (10)
Pic.Draw (frogger, froggerx, froggery, picCopy)
fx := 0
fy := 0
ch := " "
end loop