equal
deleted
inserted
replaced
50 var Color: Longword; |
50 var Color: Longword; |
51 ts: shortstring; |
51 ts: shortstring; |
52 begin |
52 begin |
53 if isDeveloperMode then |
53 if isDeveloperMode then |
54 begin |
54 begin |
55 ParseCommand('ammstore 93919294221912103323', true); |
|
56 SplitBySpace(s, ts); |
55 SplitBySpace(s, ts); |
57 val(s, Color); |
56 val(s, Color); |
58 TryDo(Color <> 0, 'Error: black team color', true); |
57 TryDo(Color <> 0, 'Error: black team color', true); |
59 |
58 |
60 AddTeam(Color); |
59 AddTeam(Color); |
99 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
98 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
100 SplitBySpace(s, id); |
99 SplitBySpace(s, id); |
101 val(s, Gear^.Health); |
100 val(s, Gear^.Health); |
102 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
101 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
103 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
102 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
104 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
103 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
105 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
104 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
106 Hedgehogs[HedgehogsNumber].Name:= id; |
105 Hedgehogs[HedgehogsNumber].Name:= id; |
107 inc(HedgehogsNumber) |
106 inc(HedgehogsNumber) |
108 end |
107 end |
109 end; |
108 end; |