44 

    44 

    45 

    45 

    46 implementation

    46 implementation

    47 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,

    47 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,

    48      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,

    48      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,

    50 

    50 

    51 

    51 

    52 procedure DeleteGear(Gear: PGear); forward;

    52 procedure DeleteGear(Gear: PGear); forward;

    53 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward;

    53 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward;

    54 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward;

    54 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward;

   271                 gear^.Radius:= 8;

   271                 gear^.Radius:= 8;

   272                 gear^.Timer:= 125

   272                 gear^.Timer:= 125

   273                 end;

   273                 end;

   274         gtRope: begin

   274         gtRope: begin

   275                 gear^.Radius:= 3;

   275                 gear^.Radius:= 3;

   277                 RopePoints.Count:= 0;

   277                 RopePoints.Count:= 0;

   278                 end;

   278                 end;

   279         gtMine: begin

   279         gtMine: begin

   280                 gear^.Health:= 10;

   280                 gear^.Health:= 10;

   281                 gear^.State:= gear^.State or gstMoving;

   281                 gear^.State:= gear^.State or gstMoving;