equal
deleted
inserted
replaced
114 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
114 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
115 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
115 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
116 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
116 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
117 inc(HedgehogsNumber) |
117 inc(HedgehogsNumber) |
118 end |
118 end |
|
119 end; |
|
120 |
|
121 procedure chSetHHCoords(var x: shortstring); |
|
122 var y: shortstring; |
|
123 t: Longint; |
|
124 begin |
|
125 if (not isDeveloperMode) or (CurrentHedgehog = nil) or (CurrentHedgehog^.Gear = nil) then exit; |
|
126 SplitBySpace(x, y); |
|
127 val(x, t); |
|
128 CurrentHedgehog^.Gear^.X:= int2hwFloat(t); |
|
129 val(y, t); |
|
130 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t) |
119 end; |
131 end; |
120 |
132 |
121 procedure chAddAmmoStore(var descr: shortstring); |
133 procedure chAddAmmoStore(var descr: shortstring); |
122 begin |
134 begin |
123 AddAmmoStore(descr) |
135 AddAmmoStore(descr) |