equal
deleted
inserted
replaced
72 |
72 |
73 Color:= Color or $FF000000; |
73 Color:= Color or $FF000000; |
74 |
74 |
75 AddTeam(Color); |
75 AddTeam(Color); |
76 CurrentTeam^.TeamName:= ts; |
76 CurrentTeam^.TeamName:= ts; |
77 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true |
77 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true; |
|
78 |
|
79 CurrentTeam^.voicepack:= AskForVoicepack('Default') |
78 end |
80 end |
79 end; |
81 end; |
80 |
82 |
81 procedure chTeamLocal(var s: shortstring); |
83 procedure chTeamLocal(var s: shortstring); |
82 begin |
84 begin |
97 begin |
99 begin |
98 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
100 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
99 if s[1]='"' then Delete(s, 1, 1); |
101 if s[1]='"' then Delete(s, 1, 1); |
100 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); |
101 CurrentTeam^.FortName:= s |
103 CurrentTeam^.FortName:= s |
|
104 end; |
|
105 |
|
106 procedure chVoicepack(var s: shortstring); |
|
107 begin |
|
108 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true); |
|
109 if s[1]='"' then Delete(s, 1, 1); |
|
110 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
111 CurrentTeam^.voicepack:= AskForVoicepack(s) |
102 end; |
112 end; |
103 |
113 |
104 procedure chAddHH(var id: shortstring); |
114 procedure chAddHH(var id: shortstring); |
105 var s: shortstring; |
115 var s: shortstring; |
106 Gear: PGear; |
116 Gear: PGear; |