100 val(id, CurrentTeam.Color, c); |
100 val(id, CurrentTeam.Color, c); |
101 CurrentTeam.AdjColor:= CurrentTeam.Color; |
101 CurrentTeam.AdjColor:= CurrentTeam.Color; |
102 AdjustColor(CurrentTeam.AdjColor) |
102 AdjustColor(CurrentTeam.AdjColor) |
103 end; |
103 end; |
104 |
104 |
105 procedure chAdd(var id: shortstring); |
105 procedure chAddHH(var id: shortstring); |
106 var s: shortstring; |
106 var s: shortstring; |
107 c: integer; |
107 c: integer; |
108 Gear: PGear; |
108 Gear: PGear; |
109 b: byte; |
|
110 begin |
109 begin |
111 if (not isDeveloperMode)or(CurrentTeam=nil) then exit; |
110 if (not isDeveloperMode)or(CurrentTeam=nil) then exit; |
112 SplitBySpace(id, s); |
111 with CurrentTeam^ do |
113 if (id[1]='h')and(id[2]='h')and(id[3]>='0')and(id[3]<='7') then |
112 begin |
114 begin |
113 SplitBySpace(id, s); |
115 b:= byte(id[3])-48; |
114 val(id, Hedgehogs[HedgehogsNumber].BotLevel, c); |
116 val(s, CurrentTeam.Hedgehogs[b].BotLevel, c); |
115 Gear:= AddGear(0, 0, gtHedgehog, 0); |
117 Gear:= AddGear(0, 0, gtHedgehog, 0); |
116 Gear.Hedgehog:= @Hedgehogs[HedgehogsNumber]; |
118 Gear.Hedgehog:= @CurrentTeam.Hedgehogs[b]; |
117 val(s, Gear.Health, c); |
119 PHedgehog(Gear.Hedgehog).Team:= CurrentTeam; |
118 TryDo(Gear.Health > 0, 'Invalid hedgehog health', true); |
120 CurrentTeam.Hedgehogs[b].AmmoStore:= 0; |
119 PHedgehog(Gear.Hedgehog).Team:= CurrentTeam; |
121 CurrentTeam.Hedgehogs[b].Gear:= Gear |
120 Hedgehogs[HedgehogsNumber].AmmoStore:= 0; |
122 end |
121 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
123 else OutError(errmsgUnknownVariable + ' "' + id + '"', true) |
122 inc(HedgehogsNumber) |
|
123 end |
124 end; |
124 end; |
125 |
125 |
126 procedure chAddAmmoStore(var descr: shortstring); |
126 procedure chAddAmmoStore(var descr: shortstring); |
127 begin |
127 begin |
128 AddAmmoStore(descr) |
128 AddAmmoStore(descr) |