168 Gear:= GearsList;

   168 Gear:= GearsList;

   169 while Gear <> nil do

   169 while Gear <> nil do

   170     begin

   170     begin

   171         case Gear^.Kind of

   171         case Gear^.Kind of

   172             gtCase:

   172             gtCase:

   174             gtFlame:

   174             gtFlame:

   175                 if (Gear^.State and gsttmpFlag) <> 0 then

   175                 if (Gear^.State and gsttmpFlag) <> 0 then

   176                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);

   176                     AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);

   177 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow 

   177 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow 

   178             gtMine:

   178             gtMine:

   671 

   671 

   672 function HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;

   672 function HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;

   673 var pX, pY, tY: LongInt;

   673 var pX, pY, tY: LongInt;

   674 begin

   674 begin

   675 HHGo:= false;

   675 HHGo:= false;

   676 AltGear^:= Gear^;

   677 AltGear^:= Gear^;

   677 

   678 

   678 GoInfo.Ticks:= 0;

   679 GoInfo.Ticks:= 0;

   679 GoInfo.FallPix:= 0;

   680 GoInfo.FallPix:= 0;

   680 GoInfo.JumpType:= jmpNone;

   681 GoInfo.JumpType:= jmpNone;