hedgewars/HHHandlers.inc
changeset 1072 6bc4389344c7
parent 1066 1f1b3686a2b0
child 1088 9702e17146e6
equal deleted inserted replaced
1071:cbd170f54a3c 1072:6bc4389344c7
   235 Gear^.Message:= gm_Destroy;
   235 Gear^.Message:= gm_Destroy;
   236 case Gear^.Pos of
   236 case Gear^.Pos of
   237        posCaseAmmo: begin
   237        posCaseAmmo: begin
   238                     a:= TAmmoType(Gear^.State);
   238                     a:= TAmmoType(Gear^.State);
   239                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   239                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   240                     if not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven
   240                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven
   241                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)) then
   241                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))
       
   242                     or (GameType = gmtDemo)  then
   242                        begin
   243                        begin
   243                        s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')';
   244                        s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')';
   244                        AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   245                        AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   245                        end
   246                        end
   246                     end;
   247                     end;