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)

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><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)