2 var i, t: LongInt;

     2 var i, t: LongInt;

     3     amt: TAmmoType;

     3     amt: TAmmoType;

     4     sign, hx, hy, cx, cy, tx, ty, sx, sy, m: LongInt;  // hedgehog, crosshair, temp, sprite, direction

     4     sign, hx, hy, cx, cy, tx, ty, sx, sy, m: LongInt;  // hedgehog, crosshair, temp, sprite, direction

     5     dx, dy, ax, ay, aAngle, dAngle, hAngle, lx, ly: real;  // laser, change

     5     dx, dy, ax, ay, aAngle, dAngle, hAngle, lx, ly: real;  // laser, change

     6     defaultPos, HatVisible: boolean;

     6     defaultPos, HatVisible: boolean;

     8     HH: PHedgehog;

     7     HH: PHedgehog;

     9     CurWeapon: PAmmo;

     8     CurWeapon: PAmmo;

    10 begin

     9 begin

    11 HH:= PHedgehog(Gear^.Hedgehog);

    10 HH:= PHedgehog(Gear^.Hedgehog);

    12 if HH^.Unplaced then exit;

    11 if HH^.Unplaced then exit;