Günlük Burç Yorumlayıcısı ;)

[QizemLi]

/*
Kullanımı:

Kanalda;

!burc burcadı yazan kişinin

özeline, yazılan burcun o günkü

yorumunu gönderir.

Örnek: !burc oglak
*/

Bunları Remote'ye Kopyalıyoruz...

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } 
alias isn { if ($2 isin $1) return $true } 
on *:text:*:#: { 
if ($1 == !burc) { 
if (!$2) msg $nick Burcun adını girmediniz! 
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz! 
else { 
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik 
if ($istok(%burclar,$2,32)) { 
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin... 
set %burcid $findtok(%burclar,$2,32) 
sockclose $+(burc*,$nick) 
sockopen $+(burc*,$nick) www.muneccim.com 80 
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid) 
} 
else msg $nick Burç adı hatalı! Tekrar deneyiniz..! 
} 
} 
} 
on *:sockopen:burc*: { 
var %s = sockwrite -n $sockname 
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1 
%s Host: www.muneccim.com 
%s $crlf 
} 
on *:sockread:burc*: { 
sockread %data 
if (face="Arial Narrow"> isin %data) { 
msg $remove($sock($sockname),burc*)  $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu: 
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32) 
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32) 
unset %burcid %data 
} 
}