equal
deleted
inserted
replaced
129 visibleCount:= cnt; |
129 visibleCount:= cnt; |
130 end; |
130 end; |
131 |
131 |
132 procedure AcceptChatString(s: shortstring); |
132 procedure AcceptChatString(s: shortstring); |
133 var i: TWave; |
133 var i: TWave; |
|
134 |
134 begin |
135 begin |
135 // "Make hedgehog say something" |
136 // "Make hedgehog say something" |
136 if (s[1] = '"') and (s[Length(s)] = '"') then |
137 if (s[1] = '"') and (s[Length(s)] = '"') then |
137 begin |
138 begin |
138 if CurrentTeam^.ExtDriven then |
139 if CurrentTeam^.ExtDriven then |
183 else |
184 else |
184 ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true); |
185 ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true); |
185 exit |
186 exit |
186 end; |
187 end; |
187 |
188 |
|
189 if copy(s, 1, 4) = '/ts ' then |
|
190 begin |
|
191 AddFileLog('attempting teamsay: '+s); |
|
192 ParseCommand('/teamsay ' + char(LocalClan) + copy(s, 5, Length(s)-4), true); |
|
193 exit |
|
194 end; |
188 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then |
195 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then |
189 begin |
196 begin |
190 if CurrentTeam^.ExtDriven then exit; |
197 if CurrentTeam^.ExtDriven then exit; |
191 |
198 |
192 for i:= Low(TWave) to High(TWave) do |
199 for i:= Low(TWave) to High(TWave) do |