Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix attack bubbles
authorunc0rr
Sun, 24 May 2009 15:02:37 +0000
changeset 2112 1e1726fb6a90
parent 2111 9be70514954c
child 2113 89d0fa6734af
Fix attack bubbles
hedgewars/uChat.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uChat.pas	Sun May 24 15:01:10 2009 +0000
+++ b/hedgewars/uChat.pas	Sun May 24 15:02:37 2009 +0000
@@ -163,25 +163,25 @@
 if (s[1] = '/') and (copy(s, 1, 5) = '/hsa ') then
     begin
     if CurrentTeam^.ExtDriven then
-        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
+        ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
     else
-        ParseCommand('/hogsay '#4 + copy(s, 2, Length(s)-2), true);
+        ParseCommand('/hogsay '#4 + copy(s, 6, Length(s)-5), true);
     exit
     end;
 if (s[1] = '/') and (copy(s, 1, 5) = '/hta ') then
     begin
     if CurrentTeam^.ExtDriven then
-        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
+        ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
     else
-        ParseCommand('/hogsay '#5 + copy(s, 2, Length(s)-2), true);
+        ParseCommand('/hogsay '#5 + copy(s, 6, Length(s)-5), true);
     exit
     end;
 if (s[1] = '/') and (copy(s, 1, 5) = '/hya ') then
     begin
     if CurrentTeam^.ExtDriven then
-        ParseCommand('/say ' + copy(s, 2, Length(s)-2), true)
+        ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
     else
-        ParseCommand('/hogsay '#6 + copy(s, 2, Length(s)-2), true);
+        ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true);
     exit
     end;
hedgewars