mIRC Burç Remotesi

On *:text:!burç*:#:{
if $sock(burç) { msg $chan Şu anda başka bir burçun yorumu alınıyor lütfen daha sonra deneyin. | halt }
if (!%burçlar) set %burçlar Koç|Boğ|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık


msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . | set %burçnick $nick
set %burçid $findtok(%burçlar,$2,124)
msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,%burçid,124)) | msg $nick -
sockclose burç | sockopen burç fal.turk. 80
}
on *:sockopen:burç: {
var %k sockwrite -n $sockname
%k GET /gunluk_fal.asp?f= $+ %burçid HTTP/1.1
%k : fal.turk.net
%k $crlf
}
on *:sockread:burç: {
var %data
sockread %data
if

isin %data {
sockread %data
echo -a %data
msg %burçnick %data | sockclose burç
}
}

Kullanımı: !burç

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir