equal
deleted
inserted
replaced
52 begin |
52 begin |
53 if isDeveloperMode then |
53 if isDeveloperMode then |
54 begin |
54 begin |
55 inc(TeamsCount); |
55 inc(TeamsCount); |
56 ParseCommand('ammstore 93919294221912103323', true); |
56 ParseCommand('ammstore 93919294221912103323', true); |
57 TryDo(TeamsCount <= 5, 'Too many teams', true); |
57 TryDo(TeamsCount <= 6, 'Too many teams', true); |
58 AddTeam |
58 AddTeam; |
59 end; |
59 |
60 |
60 |
61 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true |
61 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true; |
|
62 val(s, CurrentTeam^.Color); |
|
63 TryDo(CurrentTeam^.Color <> 0, 'Error: black team color', true); |
|
64 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
|
65 AdjustColor(CurrentTeam^.AdjColor) |
|
66 end |
62 end; |
67 end; |
63 |
68 |
64 procedure chTeamLocal(var s: shortstring); |
69 procedure chTeamLocal(var s: shortstring); |
65 begin |
70 begin |
66 if not isDeveloperMode then exit; |
71 if not isDeveloperMode then exit; |
94 begin |
99 begin |
95 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true); |
100 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true); |
96 if s[1]='"' then Delete(s, 1, 1); |
101 if s[1]='"' then Delete(s, 1, 1); |
97 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
102 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
98 CurrentTeam^.FortName:= s |
103 CurrentTeam^.FortName:= s |
99 end; |
|
100 |
|
101 procedure chColor(var id: shortstring); |
|
102 begin |
|
103 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
|
104 val(id, CurrentTeam^.Color); |
|
105 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
|
106 AdjustColor(CurrentTeam^.AdjColor) |
|
107 end; |
104 end; |
108 |
105 |
109 procedure chAddHH(var id: shortstring); |
106 procedure chAddHH(var id: shortstring); |
110 var s: shortstring; |
107 var s: shortstring; |
111 Gear: PGear; |
108 Gear: PGear; |