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 tekrar deneyin. | halt }  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık  if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(< ,%burçlar,>) | halt }  if !$istok(%burçlar,$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(< ,%burçlar,>) | halt }  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.net 80 }on *:sockopen:burç: {  var %k sockwrite -n $sockname  %k GET /gunluk_fal.asp?f= $+ %burçid HTTP/1.1  %k Host: fal.turk.net  %k $crlf}on *:sockread:burç: {  var %data  sockread %data  if <div class="font12_g"> isin %data {    sockread %data    echo -a %data    msg %burçnick %data | sockclose burç  }}</div>

Kullanımı: !

Bir cevap yazın

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