#help <onderwerp>
use utf8;

our @commands;

sub help
{
    my ($msg) = @_, my $return;

    if ($msg eq 'commands')
    { return "Ondersteunde commando's zijn: ".join(", ", @commands)."\n"; }
    if ($msg eq 'intro')
    {
        $return  = "Ondersteunde commando's zijn: ".join(", ", @commands)."\n";
        $return .= "Er is ook hulp aanwezig, bv.: help ".$commands[rand($#commands)]."\n";
        $return .= "In kanalen/groepsgesprekken kun je me aanspreken met: Furbie: ".$commands[rand($#commands+1)]."\n";
    }
    elsif (defined &{$msg."_help"})
    { return &{$msg."_help"}(); }
    else
    {
        $return  = "Ondersteunde commando's zijn: ".join(", ", @commands)."\n";
        $return .= "Bv.: help ".$commands[rand($#commands+1)]."\n";
        $return .= "In kanalen/groepsgesprekken kun je me aanspreken met: Furbie: ".$commands[rand($#commands+1)]."\n";
    }
    return $return;
}

sub help_help
{
    return "Raadpleeg de help: help <onderwerp>\nBv.: help ".$commands[rand($#commands)]."\n";
}

1;