| immortaL | 05 Haziran 2016 14:52 |
!diziler <[şuan|bugün]>
Kod:
alias dizi { set %dgf $iif($1,$1-,echo -a) | sockclose dizi | sockopen dizi diziler.com 80
%dgf 7•14 TV'de bugünkü diziler... | %dgf 14 $+ $str(×,20)
}
on *:sockread:dizi:{ var %a | sockread %a
if $regex(%a,schedule-slide current") {
sockmark dizi sc
}
if $sock(dizi).mark && $regex(%a,schedule-list-) {
if $regex(%a,ch-time") { %dgf 7•14 $drs(%cdizi) - $drs($nohtml(%a)) | unset %cdizi }
else { set %cdizi $nohtml(%a) }
}
}
alias drs return $replace($1-,Ç,Ç,Ä°,İ,Å?,Ş,Ãœ,Ü,ı,ı,ÅŸ,ş,Ç,Ç,ç,ç,ÄŸ,ğ,ÅŸ,ş,ü,ü,ı,ı,ö,ö,Ö,Ö,Ä,Ğ,Å,Ş)
on *:text:!diziler*:#:{
if $1 == !diziler {
if $2 == bugün { if !$sock(dizi) { dizi msg # } | else { msg # Biraz bekleyiniz. } }
elseif $2 == şuan { if !$sock(diziler) { diziler msg # } | else { msg # Biraz bekleyiniz. } }
elseif !$2 { if !$sock(diziler) { diziler msg # } | if !$sock(dizi) { .timerdizi 1 1 dizi msg # } }
else { msg # Hatalı kullanım! Doğru kullanım: "!diziler <[şuan|bugün]>" }
}
}
on *:sockopen:dizi*: var %s sockwrite -tn $sockname | %s GET / HTTP/1.1 | %s host: www.diziler.com | %s $crlf
alias diziler { set %dgf $iif($1,$1-,echo -a) | sockclose diziler | sockopen diziler diziler.com 80
%dgf 7•14 TV'de şuan yayınlanan diziler... | %dgf 14 $+ $str(×,20)
}
on *:sockread:diziler:{ var %a | sockread %a | if tv-now"> isin %a { var %a $replace(%a,/li>,½) | tokenize $asc(½) %a | drf $* } }
alias drf {
var %x $drs($remove($nohtml($1-), ))
%dgf 7•14 $gettok(%x,1,$asc(-)) - $+ $gettok(%x,2,$asc(-)) | if (!%x) %dgf 7•14Şu anda yayınlanan dizi yok.
}
alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)
Botun eklendiği mIRC'te /dizi komutuyla o gün yayınlanacak dizileri, /diziler komutuyla o anda yayınlanan dizileri görebilirsiniz.
Kanalda !diziler komutuyla hem o an yayınlanan dizileri hemde o gün yayınlanacak dizileri, !diziler şuan komutuyla o an yayınlanan dizileri, !diziler bugün komutuyla o gün yayınlanacak dizileri görebilirsiniz, bu komutlar botun eklendiği mIRC'te çalışmaz.
Kodu remoteye (alt+r) boş bir sayfaya ekleyiniz.
Özele yansıtmasıiçin Kod:
alias dizi { set %dgf $iif($1,$1-,echo -a) | sockclose dizi | sockopen dizi diziler.com 80
%dgf 7•14 TV'de bugünkü diziler... | %dgf 14 $+ $str(×,20)
}
on *:sockread:dizi:{ var %a | sockread %a
if $regex(%a,schedule-slide current") {
sockmark dizi sc
}
if $sock(dizi).mark && $regex(%a,schedule-list-) {
if $regex(%a,ch-time") { %dgf 7•14 $drs(%cdizi) - $drs($nohtml(%a)) | unset %cdizi }
else { set %cdizi $nohtml(%a) }
}
}
alias drs return $replace($1-,Ç,Ç,Ä°,İ,Å?,Ş,Ãœ,Ü,ı,ı,ÅŸ,ş,Ç,Ç,ç,ç,ÄŸ,ğ,ÅŸ,ş,ü,ü,ı,ı,ö,ö,Ö,Ö,Ä,Ğ,Å,Ş)
on *:text:!diziler*:#:{
if $1 == !diziler {
if $2 == bugün { if !$sock(dizi) { dizi msg $nick } | else { msg # Biraz bekleyiniz. } }
elseif $2 == şuan { if !$sock(diziler) { diziler msg $nick } | else { msg # Biraz bekleyiniz. } }
elseif !$2 { if !$sock(diziler) { diziler msg $nick } | if !$sock(dizi) { .timerdizi 1 1 dizi msg $nick } }
else { msg # Hatalı kullanım! Doğru kullanım: "!diziler <[şuan|bugün]>" }
}
}
on *:sockopen:dizi*: var %s sockwrite -tn $sockname | %s GET / HTTP/1.1 | %s host: www.diziler.com | %s $crlf
alias diziler { set %dgf $iif($1,$1-,echo -a) | sockclose diziler | sockopen diziler diziler.com 80
%dgf 7•14 TV'de şuan yayınlanan diziler... | %dgf 14 $+ $str(×,20)
}
on *:sockread:diziler:{ var %a | sockread %a | if tv-now"> isin %a { var %a $replace(%a,/li>,½) | tokenize $asc(½) %a | drf $* } }
alias drf {
var %x $drs($remove($nohtml($1-), ))
%dgf 7•14 $gettok(%x,1,$asc(-)) - $+ $gettok(%x,2,$asc(-)) | if (!%x) %dgf 7•14Şu anda yayınlanan dizi yok.
}
alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)
|
