105 var s: shortstring; |
105 var s: shortstring; |
106 Gear: PGear; |
106 Gear: PGear; |
107 begin |
107 begin |
108 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
108 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
109 with CurrentTeam^ do |
109 with CurrentTeam^ do |
110 begin |
110 begin |
111 SplitBySpace(id, s); |
111 SplitBySpace(id, s); |
112 CurrentHedgehog:= @Hedgehogs[HedgehogsNumber]; |
112 CurrentHedgehog:= @Hedgehogs[HedgehogsNumber]; |
113 val(id, CurrentHedgehog^.BotLevel); |
113 val(id, CurrentHedgehog^.BotLevel); |
114 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
114 Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0); |
115 SplitBySpace(s, id); |
115 SplitBySpace(s, id); |
116 val(s, Gear^.Health); |
116 val(s, Gear^.Health); |
117 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
117 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
118 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
118 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
119 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
119 CurrentHedgehog^.AmmoStore:= TeamsCount - 1; // FIXME HACK to get ammostores work |
120 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
120 CurrentHedgehog^.Gear:= Gear; |
121 Hedgehogs[HedgehogsNumber].Name:= id; |
121 CurrentHedgehog^.Name:= id; |
122 inc(HedgehogsNumber) |
122 inc(HedgehogsNumber) |
123 end |
123 end |
|
124 end; |
|
125 |
|
126 procedure chSetHat(var s: shortstring); |
|
127 begin |
|
128 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
|
129 with CurrentTeam^ do |
|
130 if s = '' then |
|
131 CurrentHedgehog^.Hat:= 'NoHat' |
|
132 else |
|
133 CurrentHedgehog^.Hat:= s |
124 end; |
134 end; |
125 |
135 |
126 procedure chSetHHCoords(var x: shortstring); |
136 procedure chSetHHCoords(var x: shortstring); |
127 var y: shortstring; |
137 var y: shortstring; |
128 t: Longint; |
138 t: Longint; |