hedgewars/uChat.pas
changeset 10304 7e40820b7ed6
parent 10303 f726e36c3e24
child 10308 7350be35b335
--- a/hedgewars/uChat.pas	Sat Jun 14 07:12:22 2014 +0200
+++ b/hedgewars/uChat.pas	Sat Jun 14 15:49:44 2014 +0200
@@ -288,7 +288,7 @@
 if (s[1] = '/') then
     begin
     // These 3 are same as above, only are to make the hedgehog say it on next attack
-    if (copy(s, 1, 5) = '/hsa ') then
+    if (copy(s, 2, 4) = 'hsa ') then
         begin
         if CurrentTeam^.ExtDriven then
             ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
@@ -297,7 +297,7 @@
         exit
         end;
 
-    if (copy(s, 1, 5) = '/hta ') then
+    if (copy(s, 2, 4) = 'hta ') then
         begin
         if CurrentTeam^.ExtDriven then
             ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
@@ -306,7 +306,7 @@
         exit
         end;
 
-    if (copy(s, 1, 5) = '/hya ') then
+    if (copy(s, 2, 4) = 'hya ') then
         begin
         if CurrentTeam^.ExtDriven then
             ParseCommand('/say ' + copy(s, 6, Length(s)-5), true)
@@ -315,18 +315,27 @@
         exit
         end;
 
-    if (copy(s, 1, 6) = '/team ') and (length(s) > 6) then
+    if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
         begin
         ParseCommand(s, true);
         exit
         end;
 
-    if (copy(s, 1, 4) = '/me ') then
+    if (copy(s, 2, 3) = 'me ') then
         begin
         ParseCommand('/say ' + s, true);
         exit
         end;
 
+    // debugging commands
+    if (copy(s, 2, 7) = 'debugvl') then
+        begin
+        cViewLimitsDebug:= (not cViewLimitsDebug);
+        UpdateViewLimits();
+        exit
+        end;
+    end;
+
     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
         begin
         for i:= Low(TWave) to High(TWave) do
@@ -343,7 +352,6 @@
                 exit
                 end;
         end
-    end
     else
         ParseCommand('/say ' + s, true);
 end;