97 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
97 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
98 CurrentTeam^.FortName:= s |
98 CurrentTeam^.FortName:= s |
99 end; |
99 end; |
100 |
100 |
101 procedure chColor(var id: shortstring); |
101 procedure chColor(var id: shortstring); |
102 var c: LongInt; |
|
103 begin |
102 begin |
104 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
103 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
105 val(id, CurrentTeam^.Color, c); |
104 val(id, CurrentTeam^.Color); |
106 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
105 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
107 AdjustColor(CurrentTeam^.AdjColor) |
106 AdjustColor(CurrentTeam^.AdjColor) |
108 end; |
107 end; |
109 |
108 |
110 procedure chAddHH(var id: shortstring); |
109 procedure chAddHH(var id: shortstring); |
111 var s: shortstring; |
110 var s: shortstring; |
112 c: LongInt; |
|
113 Gear: PGear; |
111 Gear: PGear; |
114 begin |
112 begin |
115 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
113 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
116 with CurrentTeam^ do |
114 with CurrentTeam^ do |
117 begin |
115 begin |
118 SplitBySpace(id, s); |
116 SplitBySpace(id, s); |
119 val(id, Hedgehogs[HedgehogsNumber].BotLevel, c); |
117 val(id, Hedgehogs[HedgehogsNumber].BotLevel); |
120 Gear:= AddGear(0, 0, gtHedgehog, 0, 0, 0, 0); |
118 Gear:= AddGear(0, 0, gtHedgehog, 0, 0, 0, 0); |
121 Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber]; |
119 Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber]; |
122 val(s, Gear^.Health, c); |
120 val(s, Gear^.Health); |
123 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
121 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
124 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
122 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
125 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
123 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
126 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
124 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
127 inc(HedgehogsNumber) |
125 inc(HedgehogsNumber) |