sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

If fantasy HELP is used, only display fantasy commands, if private HELP is used, only display private commands.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-04 14:34:51 -07:00
1 parent 3e83a47e12
commit 34c0e63971
2 files changed
+12 -1
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Core/IRC.pm
+10 -1
View File
@@ -255,7 +255,16 @@ sub cmd_help
# No command specified. List commands.
my $cmdlist = '';
foreach (sort keys %API::Std::CMDS) {
$cmdlist .= ", \002".uc($_)."\002";
if (defined $data{chan}) {
if ($API::Std::CMDS{$_}{lvl} == 0 or $API::Std::CMDS{$_}{lvl} == 2) {
$cmdlist .= ", \002".uc($_)."\002";
}
}
else {
if ($API::Std::CMDS{$_}{lvl} == 1 or $API::Std::CMDS{$_}{lvl} == 2) {
$cmdlist .= ", \002".uc($_)."\002";
}
}
}
$cmdlist = substr($cmdlist, 2);