# HANDLES PRIVATE MSG sub irc_msg { my $kernel = $_[KERNEL]; my $nick = (split /!/, $_[ARG0])[0]; my $msg = $_[ARG2]; my $say = process_msg($kernel, $nick, $msg); if ($say) { $kernel->post($bot, 'privmsg', $nick, $say); } } # PROCESSES PRIVATE MSG sub process_msg { my ($kernel,$nick,$arg) = @_; if ($arg =~ /^help/) { do_help($kernel,$nick) } } # PRINTS BOT HELP sub do_help { my ($kernel,$nick) = @_; my @help = ( "This array has many lines..", ); for (@help) { # BOT PAUSES TO COMPLETE THIS LOOP $kernel->post($bot, 'privmsg', $nick, $_); } }