Perl -- Kick Script (IRC Bot help)

SpaceshipSpaceship
Watch

RageD

VIP Member
Impact
31
Ok, how can I make my kick script work?

if ($event->nick eq "$owner") {
if ($arg =~ /$kick/i) {
$self->kick("$chan", "somevariable");
chat_log("somevariable kicked from $chan by $nick\n");
}
}

Now what would the variable be to fix that? So I would type !kick Nick & it would kick nick..

oh yeah, variable for $kick =

my $kick = "$opts{cmdprefix}kick";


-Thanks

-RageD
 
0
•••
The views expressed on this page by users and staff are their own, not those of NamePros.
AfternicAfternic
CatchedCatched

We're social

Escrow.com
Spaceship
Rexus Domain
CryptoExchange.com
Domain Recover
CatchDoms
DomainEasy — Live Options
DomDB
  • The sidebar remains visible by scrolling at a speed relative to the page’s height.
Back