72     skipFlag: boolean;

    72     skipFlag: boolean;

    73     PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress

    73     PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress

    74     StepSoundTimer: LongInt;

    74     StepSoundTimer: LongInt;

    75     StepSoundChannel: LongInt;

    75     StepSoundChannel: LongInt;

    76     

    76     

    79 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;

    79 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;

    80 procedure ProcessGears;

    80 procedure ProcessGears;

    81 procedure ResetUtilities;

    81 procedure ResetUtilities;

    82 procedure ApplyDamage(Gear: PGear; Damage: Longword);

    82 procedure ApplyDamage(Gear: PGear; Damage: Longword);

    83 procedure SetAllToActive;

    83 procedure SetAllToActive;

  2252         end;

  2252         end;

  2253     gear:= gear^.NextGear

  2253     gear:= gear^.NextGear

  2254     end

  2254     end

  2255 end;

  2255 end;

  2256 

  2256 

  2258 begin

  2258 begin

  2259     CurAmmoGear:= nil;

  2259     CurAmmoGear:= nil;

  2260     GearsList:= nil;

  2260     GearsList:= nil;

  2261     KilledHHs:= 0;

  2261     KilledHHs:= 0;

  2262     SuddenDeathDmg:= false;

  2262     SuddenDeathDmg:= false;

  2266     

  2266     

  2267     AllInactive:= false;

  2267     AllInactive:= false;

  2268     PrvInactive:= false;

  2268     PrvInactive:= false;

  2269 end;

  2269 end;

  2270 

  2270 

  2272 begin

  2272 begin

  2273     FreeGearsList();

  2273     FreeGearsList();

  2274 end;

  2274 end;

  2275 

  2275 

  2276 end.

  2276 end.