U medju vremenu sam napisao neki pokusaj skripte za auto slapback
Code:
Xchat::hook_server("PRIVMSG", "autoslap");
sub autoslap {
my ( $linea ) = $_[1][0];
$nick = IRC::get_info(1);
$linea =~ /:(.*)!(.*@.*) .*:(.*)/;
if ($linea =~ /slaps $nick/) {
IRC::command("/me slaps back");
}
return Xchat::EAT_NONE;
}
E sad kad me neko slapuje ovo valjda vrati /me slaps back, ali mi Xchat izbaca prvo [JA] slaps back i tek onda slap koji mene slapuje (treba obratno :)).
BTW, hvala za piton skriptu, ali mi ne radi.. ne znam je li do mene, ali kad me neko slapuje nista se ne desava :)
:(){ :|:& };:
ॐ Peace, Love, Unity, Respect! ॐ
Xchat Perl scripting
