%File "planeCl.tu"
unit
class PlaneCl
export SetPosition, TurnRight, TurnLeft, Move
var angle := 90
var x, y : int
var key : string (1)
Draw.FillOval (100, 104, 18, 5, black) %tail
Draw.FillBox (94, 100, 106, 150, black) %body
Draw.FillOval (100, 150, 6, 10, black) %nose
Draw.FillOval (100, 135, 50, 8, black) %wing
Draw.FillBox (77, 139, 80, 150, black) %left gun
Draw.FillBox (120, 139, 123, 150, black) %right gun
var picID := Pic.New (50, 50, 150, 170)

proc SetPosition (newX, newY : int)
x := newX
y := newY
end SetPosition

proc TurnRight (turnAngle : int)
angle -= turnAngle
angle := angle mod 360
end TurnRight

proc TurnLeft (turnAngle : int)
angle += turnAngle
angle := angle mod 360
end TurnLeft

proc Move (x, y : int)
cls
Pic.Draw (picID, x, y, picMerge)
end Move

end PlaneCl

import PlaneCl in "planecl.tu"
View.Set ("graphics:600;400,nocursor,offscreenonly")
var x, y : int := 1
var button : int
var yb : int := 400
var fireclr, q : int
var guny : int
var key : string (1)
var plane : ^PlaneCl
new plane

plane -> SetPosition (100, 100)
Draw.FillOval (400, 40, 2, 15, brightred)
Draw.FillBox (398, 10, 402, 40, black)
Draw.Line (397, 25, 391, 10, 2)
Draw.Line (391, 10, 398, 10, 2)
Draw.Line (403, 25, 409, 10, 2)
Draw.Line (409, 10, 402, 10, 2)
var picID := Pic.New (390, 2, 409, 55)
process gunfire
guny := y + 50
for fire : x .. maxx
q := Rand.Int (1, 2)
if q = 1 then
fireclr := 43
elsif q = 2 then
fireclr := yellow
end if
Draw.FillOval (x - 25, guny, 2, 2, fireclr)
Draw.FillOval (x + 22, guny, 2, 2, fireclr)
guny += 3
end for
end gunfire
process rocketfire
guny := y + 50
for fire : x .. maxx
Pic.Draw (picID, x-10, guny, picCopy)
delay (100)
guny += 3
end for
end rocketfire
loop
Mouse.Where (x, y, button)
plane -> Move (x - 50, y - 60)
if button = 1 then
fork rocketfire
end if
View.Update
end loop