ForumTEK.Net - IRC Forumu

ForumTEK.Net - IRC Forumu (http://www.forumtek.net/index.php)
-   Hazır Kodlar (http://www.forumtek.net/forumdisplay.php?f=51)
-   -   !diziler <[şuan|bugün]> (http://www.forumtek.net/showthread.php?t=362)

Toprak 27 Ocak 2015 23:02

!diziler <[şuan|bugün]>
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
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><li>,½) | tokenize $asc(½) %a | drf $* } }

alias drf {
  var %x $drs($remove($nohtml($1-),&nbsp;))
  %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.

KimLikSiz 28 Ocak 2015 10:58

Cevap: !diziler <[şuan|bugün]>
 
!diziler yazınca Ozele yansıtması daha iyi olurdu kanalda çok yer kaplıyor

Toprak 28 Ocak 2015 12:27

Cevap: !diziler <[şuan|bugün]>
 
Alıntı:

KimLikSiz Nickli Üyeden Alıntı (Mesaj 781)
!diziler yazınca Ozele yansıtması daha iyi olurdu kanalda çok yer kaplıyor

Buyur;

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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | %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><li>,½) | tokenize $asc(½) %a | drf $* } }
 alias drf {
  var %x $drs($remove($nohtml($1-),&nbsp;))
  %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)


KimLikSiz 29 Ocak 2015 00:12

Cevap: !diziler <[şuan|bugün]>
 
eline saglık kardeşim.


All times are GMT +3. The time now is 09:49.

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.