SeRDaR406
30-10-2006, 23:18
/*
=========================
Günlük Burç Yorumcusu PLuS
BY SeRDaR406
Özel teşekkür: SCouNDReL
Tek yapmanız gereken aşağıdaki
kodları botunuza eklemek...
==========================
*/
Açıklama:
Kanalda;
!burc burcadı yazıldığında nickin özeline,yazılan burcun o günkü yorumu gönderilecektir.
Burç isimlerinde türkçe karakter kullanılmayacaktır.(Oğlak yerine oglak,Balık yerine balik vs...)
Kullanım örneği:
!burc aslan
!burc kova
vs.....
Zipli olarak indirmek için tıklayın! ([Sadece Kayıtlı Üyeler linkleri görebilir...])
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) [Sadece Kayıtlı Üyeler linkleri görebilir...] 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) [Sadece Kayıtlı Üyeler linkleri görebilir...]
%s Host: [Sadece Kayıtlı Üyeler linkleri görebilir...]
%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($html free(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}
=========================
Günlük Burç Yorumcusu PLuS
BY SeRDaR406
Özel teşekkür: SCouNDReL
Tek yapmanız gereken aşağıdaki
kodları botunuza eklemek...
==========================
*/
Açıklama:
Kanalda;
!burc burcadı yazıldığında nickin özeline,yazılan burcun o günkü yorumu gönderilecektir.
Burç isimlerinde türkçe karakter kullanılmayacaktır.(Oğlak yerine oglak,Balık yerine balik vs...)
Kullanım örneği:
!burc aslan
!burc kova
vs.....
Zipli olarak indirmek için tıklayın! ([Sadece Kayıtlı Üyeler linkleri görebilir...])
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) [Sadece Kayıtlı Üyeler linkleri görebilir...] 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) [Sadece Kayıtlı Üyeler linkleri görebilir...]
%s Host: [Sadece Kayıtlı Üyeler linkleri görebilir...]
%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($html free(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}
