Script para X-chat

Publicado por Fábio Berbert de Paula 13/01/2003

[ Hits: 7.435 ]

Homepage: https://fabio.automatizando.dev

Download irc_vivaolinux.pl




Simples script para xchat. Bom para servir de exemplo para quem deseja criar seus próprios scripts p/ IRC.

  



Esconder código-fonte

#!/usr/bin/perl
# irc_vivaolinux.pl
# Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
#
# Simples script para xchat. Bom para servir de exemplo para quem
# deseja criar seus próprios scripts p/ IRC.

use strict;

my $msg = shift;

# definir os comandos existentes
my @comandos = (
   "rir",
   "hora",
   "sep",
   "sair",
   "listar",
   "hack"
);

# registrar os comandos
foreach (@comandos) {
   IRC::add_command_handler("$_","$_\_cmd");
}

# procedimentos - uma sub-rotina para cada comando ...
sub rir_cmd {
   my $msg = shift(@_);
   IRC::command("%B%C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA ");
   return 1;
}

sub hora_cmd {
   my $hora = `/bin/date +%H:%M`; chop($hora);
   IRC::command("Agora são $hora hs");
}

sub sep_cmd {
   my $msg = shift(@_);
        my @lista = split(//,$msg);
        my $temp = "";
        foreach my $x (0..$#lista) {
                $temp = $temp . " " . $lista[$x];
        }
        IRC::command("$temp");         
   return 1;
}

sub sair_cmd {
   IRC::command("/quit www.vivaolinux.com.br - Porque nós amamos a liberdade!");
   return 1;
}

sub hack_cmd {
   my $msg = shift(@_);
   $msg = lc($msg);
   $msg =~ s/meio/œ/g;
   my @tudo = split(//,$msg);
   my $cont = 0;
   my $result = "";
   foreach my $x (@tudo) {
      if ($cont % 2 == 0) {
         $x = uc($x);
      }
   $result .= $x;
   $cont++;
   }
   IRC::command("$result");
   return 1;
}

Scripts recomendados

Pagerank Checker

Obtendo o IP público (Internet) usando o Perl

processar Lynx.pl

Gerir VirtualHosts do Apache

Tweetin - Poste tweets pelo terminal


  

Comentários
[1] Comentário enviado por NewWave em 23/12/2012 - 01:25h

E onde eu adiciono o arquivo, amigo? Como usar o script? Tem documentação?

[2] Comentário enviado por fabio em 23/12/2012 - 07:29h


[1] Comentário enviado por NewWave em 23/12/2012 - 01:25h:

E onde eu adiciono o arquivo, amigo? Como usar o script? Tem documentação?


Menu Xchat > Load plugin or script

Daí é só digitar um dos comandos do script:

/hack [texto]
/hora
/sep [texto]
/rir
/sair

[3] Comentário enviado por pier em 10/05/2013 - 11:00h

seria bem interessante vc postar algo tipow /k kickar /kb banir dentre outras coisas comandos gerais para OP e IRCOp se vc puder atender esse pedido agradecemos. muito. mas o script está de parabens.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts