hedgewars/uChat.pas
changeset 13457 b587cdb03bac
parent 13077 c213645ff848
child 13458 32032120435c
equal deleted inserted replaced
13456:7a0a56c52fd2 13457:b587cdb03bac
   510         exit
   510         exit
   511         end;
   511         end;
   512 
   512 
   513     // debugging commands
   513     // debugging commands
   514     if (copy(s, 2, 7) = 'debugvl') then
   514     if (copy(s, 2, 7) = 'debugvl') then
       
   515         // This command intentionally not documented in /help
   515         begin
   516         begin
   516         cViewLimitsDebug:= (not cViewLimitsDebug);
   517         cViewLimitsDebug:= (not cViewLimitsDebug);
   517         UpdateViewLimits();
   518         UpdateViewLimits();
   518         exit
   519         exit
   519         end;
   520         end;
   534                 AddFileLog('[Lua] chat input string parsing disabled');
   535                 AddFileLog('[Lua] chat input string parsing disabled');
   535                 AddChatString(#3 + 'Lua parsing: OFF');
   536                 AddChatString(#3 + 'Lua parsing: OFF');
   536                 end;
   537                 end;
   537             UpdateInputLinePrefix();
   538             UpdateInputLinePrefix();
   538             end;
   539             end;
       
   540         exit
       
   541         end;
       
   542 
       
   543     // Help commands
       
   544     if (copy(s, 2, 11) = 'help taunts') then
       
   545         begin
       
   546         AddChatString(#3 + trcmd[sidCmdHeaderTaunts]);
       
   547         AddChatString(#3 + trcmd[sidCmdSpeech]);
       
   548         AddChatString(#3 + trcmd[sidCmdThink]);
       
   549         AddChatString(#3 + trcmd[sidCmdYell]);
       
   550         AddChatString(#3 + trcmd[sidCmdSpeechNumberHint]);
       
   551         AddChatString(#3 + trcmd[sidCmdHsa]);
       
   552         AddChatString(#3 + trcmd[sidCmdHta]);
       
   553         AddChatString(#3 + trcmd[sidCmdHya]);
       
   554         AddChatString(#3 + trcmd[sidCmdHurrah]);
       
   555         AddChatString(#3 + trcmd[sidCmdIlovelotsoflemonade]);
       
   556         AddChatString(#3 + trcmd[sidCmdJuggle]);
       
   557         AddChatString(#3 + trcmd[sidCmdRollup]);
       
   558         AddChatString(#3 + trcmd[sidCmdShrug]);
       
   559         AddChatString(#3 + trcmd[sidCmdWave]);
       
   560         exit
       
   561         end;
       
   562 
       
   563     if (copy(s, 2, 4) = 'help') then
       
   564         begin
       
   565         AddChatString(#3 + trcmd[sidCmdHeaderBasic]);
       
   566         if gameType = gmtNet then
       
   567             AddChatString(#3 + trcmd[sidCmdPauseNet])
       
   568         else
       
   569             AddChatString(#3 + trcmd[sidCmdPause]);
       
   570         AddChatString(#3 + trcmd[sidCmdFullscreen]);
       
   571         AddChatString(#3 + trcmd[sidCmdQuit]);
       
   572         if gameType <> gmtNet then
       
   573             AddChatString(#3 + trcmd[sidLua]);
       
   574         // history and help commands needs to be close to the end because they are always visible
       
   575         // with a short chat history length.
       
   576         AddChatString(#3 + trcmd[sidCmdTeam]);
       
   577         AddChatString(#3 + trcmd[sidCmdMe]);
       
   578         AddChatString(#3 + trcmd[sidCmdTogglechat]);
       
   579         AddChatString(#3 + trcmd[sidCmdHistory]);
       
   580         AddChatString(#3 + trcmd[sidCmdHelp]);
       
   581         AddChatString(#3 + trcmd[sidCmdHelpTaunts]);
   539         exit
   582         exit
   540         end;
   583         end;
   541 
   584 
   542     // hedghog animations/taunts and engine commands
   585     // hedghog animations/taunts and engine commands
   543     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
   586     if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then