sub on_public{
my ($targets,$message)=@_[ARG1,ARG2];
my $botnick = $irc->nick_name;
+
+ if ($message =~ /(?:$botnick[:,])?\s*!?help\s*(.*)/) {
+ $irc->yield("Try !presence username interval [truncate]");
+ $irc->yield("For example, !presence mgv '2 days'");
+ $irc->yield("or !presence mgv '1 year' 4");
+ return;
+ }
+
return unless $message =~ /(?:$botnick[:,])?\s*!?presence\s*(.*)/;
my ($nick, $time, $truncate) = shellwords $1;