Gadacz by Azet ver. 0.1

	taboret2 T2 script
FAQ Szukaj Użytkownicy Grupy Galerie Rejestracja Profil Zaloguj

Forum taboret2 Strona Główna -> Skrypty Irssi

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Azet

Dołączył: 13 Lip 2010
Posty: 5
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Wto 23:16, 13 Lip 2010 Temat postu: Gadacz by Azet ver. 0.1

Skrypt, który odpowiada losowym tekstem z pliku .txt

Kod:

use Irssi;
use Irssi::Irc;
use strict;

my $teksty = Irssi::get_irssi_dir() . "/scripts/teksty.txt";
open(CREATE,">$teksty") and close(CREATE) unless -e $teksty;

sub sig_public {
my ($server, $msg, $nick, $address, $channel) = @_;
$msg =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;

if ($msg =~ m/NICK_BOTA/i) {
open(UCHWYT,"$teksty");
my @tab1 = ;
close(UCHWYT);
my $linia = $tab[int(rand(scalar(@tab1)))];
$server->command("MSG $channel %Ce40f0f%$nick %C0f2ab1%$linia");
}
}

Irssi::signal_add_last('message public', 'sig_public');

Konfiguracja:

Kod:

1. Ustawiamy za NICK_BOTA - nick, na który bot ma odpowiadać
2. Tworzymy plik teksty.txt, piszemy teksty jakimi ma odpowiadać (każdy w oddzielnej linijce)

Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum taboret2 Strona Główna -> Skrypty Irssi	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
deoxBlue v1.0 // Theme created by Sopel stylerbb.net & programosy.pl

Regulamin