684 Gear:= GearsList;

   684 Gear:= GearsList;

   685 while Gear <> nil do

   685 while Gear <> nil do

   686     begin

   686     begin

   687     x:= hwRound(Gear^.X) + WorldDx;

   687     x:= hwRound(Gear^.X) + WorldDx;

   688     y:= hwRound(Gear^.Y) + WorldDy;

   688     y:= hwRound(Gear^.Y) + WorldDy;

   689     RenderGearTimer(Gear, x, y);

   690     RenderGearTimer(Gear, x, y);

   690     if Gear^.Kind = gtHedgehog then

   691     if Gear^.Kind = gtHedgehog then

   691         RenderHHGuiExtras(Gear, x, y);

   692         RenderHHGuiExtras(Gear, x, y);

   692     Gear:= Gear^.NextGear

   693     Gear:= Gear^.NextGear

   693     end;

   694     end;

  1077 

  1078 

  1078     case crate of

  1079     case crate of

  1079         HealthCrate:

  1080         HealthCrate:

  1080             begin

  1081             begin

  1081             gear^.Pos := posCaseHealth;

  1082             gear^.Pos := posCaseHealth;

  1082             // health crate is smaller than the other crates

  1084             // health crate is smaller than the other crates

  1083             gear^.Radius := cCaseHealthRadius;

  1085             gear^.Radius := cCaseHealthRadius;

  1084             gear^.Health := content;

  1086             gear^.Health := content;

  1085             if(FinishedTurnsTotal > -1) then

  1087             if(FinishedTurnsTotal > -1) then

  1086                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1088                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1123 

  1125 

  1124     case crate of

  1126     case crate of

  1125         HealthCrate:

  1127         HealthCrate:

  1126             begin

  1128             begin

  1127             gear^.Pos := gear^.Pos + posCaseHealth;

  1129             gear^.Pos := gear^.Pos + posCaseHealth;

  1128             // health crate is smaller than the other crates

  1131             // health crate is smaller than the other crates

  1129             gear^.Radius := cCaseHealthRadius;

  1132             gear^.Radius := cCaseHealthRadius;

  1130             if(FinishedTurnsTotal > -1) then

  1133             if(FinishedTurnsTotal > -1) then

  1131                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1134                 AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo);

  1132             end;

  1135             end;