hedgewars/CCHandlers.inc
changeset 498 9c8b385dc9a1
parent 495 62c1c2b4414c
child 520 e83dfb7ffead
equal deleted inserted replaced
497:adf1aee202c6 498:9c8b385dc9a1
   113 if (not isDeveloperMode) or (CurrentTeam = nil) then exit;
   113 if (not isDeveloperMode) or (CurrentTeam = nil) then exit;
   114 with CurrentTeam^ do
   114 with CurrentTeam^ do
   115      begin
   115      begin
   116      SplitBySpace(id, s);
   116      SplitBySpace(id, s);
   117      val(id, Hedgehogs[HedgehogsNumber].BotLevel);
   117      val(id, Hedgehogs[HedgehogsNumber].BotLevel);
   118      Gear:= AddGear(0, 0, gtHedgehog, 0, 0, 0, 0);
   118      Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
   119      Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber];
   119      Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber];
   120      val(s, Gear^.Health);
   120      val(s, Gear^.Health);
   121      TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   121      TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   122      PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;
   122      PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;
   123      Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1;
   123      Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1;