161 end; |
161 end; |
162 // These 3 are same as above, only are to make the hedgehog say it on next attack |
162 // These 3 are same as above, only are to make the hedgehog say it on next attack |
163 if (s[1] = '/') and (copy(s, 1, 5) = '/hsa ') then |
163 if (s[1] = '/') and (copy(s, 1, 5) = '/hsa ') then |
164 begin |
164 begin |
165 if CurrentTeam^.ExtDriven then |
165 if CurrentTeam^.ExtDriven then |
166 ParseCommand('/say ' + copy(s, 2, Length(s)-2), true) |
166 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
167 else |
167 else |
168 ParseCommand('/hogsay '#4 + copy(s, 2, Length(s)-2), true); |
168 ParseCommand('/hogsay '#4 + copy(s, 6, Length(s)-5), true); |
169 exit |
169 exit |
170 end; |
170 end; |
171 if (s[1] = '/') and (copy(s, 1, 5) = '/hta ') then |
171 if (s[1] = '/') and (copy(s, 1, 5) = '/hta ') then |
172 begin |
172 begin |
173 if CurrentTeam^.ExtDriven then |
173 if CurrentTeam^.ExtDriven then |
174 ParseCommand('/say ' + copy(s, 2, Length(s)-2), true) |
174 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
175 else |
175 else |
176 ParseCommand('/hogsay '#5 + copy(s, 2, Length(s)-2), true); |
176 ParseCommand('/hogsay '#5 + copy(s, 6, Length(s)-5), true); |
177 exit |
177 exit |
178 end; |
178 end; |
179 if (s[1] = '/') and (copy(s, 1, 5) = '/hya ') then |
179 if (s[1] = '/') and (copy(s, 1, 5) = '/hya ') then |
180 begin |
180 begin |
181 if CurrentTeam^.ExtDriven then |
181 if CurrentTeam^.ExtDriven then |
182 ParseCommand('/say ' + copy(s, 2, Length(s)-2), true) |
182 ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
183 else |
183 else |
184 ParseCommand('/hogsay '#6 + copy(s, 2, Length(s)-2), true); |
184 ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true); |
185 exit |
185 exit |
186 end; |
186 end; |
187 |
187 |
188 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then |
188 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then |
189 begin |
189 begin |