hedgewars/CCHandlers.inc
changeset 2635 80d02d3e24ae
parent 2633 9eb131794a6e
child 2642 097e3baa1305
equal deleted inserted replaced
2634:d7531d08caa2 2635:80d02d3e24ae
   136 	Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
   136 	Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);
   137 	SplitBySpace(s, id);
   137 	SplitBySpace(s, id);
   138 	val(s, Gear^.Health);
   138 	val(s, Gear^.Health);
   139 	TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   139 	TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);
   140 	PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;
   140 	PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam;
   141 	CurrentHedgehog^.AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work
   141 	CurrentHedgehog^.AmmoStore:= ClansCount - 1; // FIXME HACK to get ammostores work
   142 	CurrentHedgehog^.Gear:= Gear;
   142 	CurrentHedgehog^.Gear:= Gear;
   143 	CurrentHedgehog^.Name:= id;
   143 	CurrentHedgehog^.Name:= id;
   144 	inc(HedgehogsNumber)
   144 	inc(HedgehogsNumber)
   145 	end
   145 	end
   146 end;
   146 end;