44 TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true); |
44 TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true); |
45 TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true) |
45 TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true) |
46 end |
46 end |
47 end; |
47 end; |
48 |
48 |
|
49 const TeamsCount: Longword = 0; |
|
50 |
49 procedure chAddTeam(var s: shortstring); |
51 procedure chAddTeam(var s: shortstring); |
50 const TeamsCount: Longword = 0; |
|
51 begin |
52 begin |
52 if isDeveloperMode then |
53 if isDeveloperMode then |
53 begin |
54 begin |
54 inc(TeamsCount); |
55 inc(TeamsCount); |
|
56 ParseCommand('ammstore 93919294221912103', true); |
55 TryDo(TeamsCount <= 5, 'Too many teams', true); |
57 TryDo(TeamsCount <= 5, 'Too many teams', true); |
56 AddTeam |
58 AddTeam |
57 end; |
59 end; |
58 |
60 |
59 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true |
61 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true |
108 procedure chAddHH(var id: shortstring); |
110 procedure chAddHH(var id: shortstring); |
109 var s: shortstring; |
111 var s: shortstring; |
110 c: LongInt; |
112 c: LongInt; |
111 Gear: PGear; |
113 Gear: PGear; |
112 begin |
114 begin |
113 if (not isDeveloperMode)or(CurrentTeam=nil) then exit; |
115 if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
114 with CurrentTeam^ do |
116 with CurrentTeam^ do |
115 begin |
117 begin |
116 SplitBySpace(id, s); |
118 SplitBySpace(id, s); |
117 val(id, Hedgehogs[HedgehogsNumber].BotLevel, c); |
119 val(id, Hedgehogs[HedgehogsNumber].BotLevel, c); |
118 Gear:= AddGear(0, 0, gtHedgehog, 0, 0, 0, 0); |
120 Gear:= AddGear(0, 0, gtHedgehog, 0, 0, 0, 0); |
119 Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber]; |
121 Gear^.Hedgehog:= @Hedgehogs[HedgehogsNumber]; |
120 val(s, Gear^.Health, c); |
122 val(s, Gear^.Health, c); |
121 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
123 TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true); |
122 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
124 PHedgehog(Gear^.Hedgehog)^.Team:= CurrentTeam; |
123 Hedgehogs[HedgehogsNumber].AmmoStore:= 0; |
125 Hedgehogs[HedgehogsNumber].AmmoStore:= TeamsCount - 1; |
124 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
126 Hedgehogs[HedgehogsNumber].Gear:= Gear; |
125 inc(HedgehogsNumber) |
127 inc(HedgehogsNumber) |
126 end |
128 end |
127 end; |
129 end; |
128 |
130 |