GG Status By Azet

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

GG Status By Azet

Forum taboret2 Strona Główna -> Skrypty Irssi

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

nforce17
Administrator

Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów

Pomógł: 4 razy
Ostrzeżeń: 0/5

Wysłany: Wto 23:26, 13 Lip 2010 Temat postu: GG Status By Azet

Skrypt:

Kod:

use Irssi;
use strict;
use LWP::Simple;

sub msg_public {

my ($server, $msg, $nick, $address, $channel) = @_;

if ($msg =~ /^!gg (\d+)$/i) {
my $send = $1;

my $req = get("http://status.gadu-gadu.pl/users/status.asp?id=$send&styl=6");

   if ($req) {
   $req =~ s/unavailable/%Ce40f0f%niedostępny/;
   $req =~ s/available/%C008100%dostępny/;
   $req =~ s/busy/%Cc86c00%zaraz wracam/;
   $server->command("msg $channel %C8800ab%użytkownik %C006699%$send %C8800ab%ma status $req");
   } else { $server->command("msg $channel %C8800ab%nie ma takiego numeru"); }

}
}

Irssi::signal_add('message public', 'msg_public');

Komendy:

Kod:

!gg + nr. gg - pokazuje status danego numeru gadu-gadu

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