mIRC !burç Dialog
mIRC !burç DialogmIRC !burç DialogmIRC !burç DialogmIRC !burç Dialog
mIRC !burç Dialog

Selam değerli mIRC ve mIRC Addon Kullanıcıları. Siz değerli kullanıcılarımıza Özel Olarak Kod’lanan ve Vurgulanan, Türkiyenin Coder’leri Tarafından Hizmetinize Sunulmaktadır, Umarızki İşinize Yarar.. by Supernova ..

on *:sockopen:burç*: {
var %s = sockwrite -n $sockname
%s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1
%s Host: burc.web.tr
%s $crlf
}
on *:sockread:burç*: {
;$iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93))
var %burcyorum
sockread %burcyorum
if </p></div> isin %burcyorum {
$iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93))
write burç.txt $burctr($htmlfree(%burcyorum))
}
}

alias burctr return $replacecs($1-,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&Ouml;,Ö,&Ccedil;,Ç,&Uuml;,Ü,Å,Ş)

On *:text:!burç*:#:{
inc -u5 $+(%,play,+,$nick)
if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | 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 }
if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 }
msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ .
msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$2,124),124)) | msg $nick -
$iif(%yenigün,.timer $+ $ticks 1 6) yorumat $nick $2
}
alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s)),$chr(93))) { msg $1 $read(burç.txt,$calc($readn + 1))) } }

alias burçlarıal {
sockclose burç*
if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
$iif($isfile(burç.txt),.remove burç.txt)
write burç.txt $date
var %burc 1
while %burc <= 12 {
sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s))) burc.web.tr 80
inc %burc
}
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x),%x = $remove(%x,&nbsp;,$chr(9)) | return %x }

 
 
Etiketler :

Yorum yaz