Tekil Mesaj gösterimi
Alt 28 Ocak 2015, 12:27   #3
Toprak
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 323
WEB Sitesi: https://www.teklan.com.tr/
IRC Sunucusu: irc.teklan.com.tr
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 211
Standart Cevap: !diziler <[şuan|bugün]>

KimLikSiz Nickli Üyeden Alıntı Mesajı göster
!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)





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı