on *:sockopen:yayin:{
  sockwrite -n $sockname GET /tvprogramlari.php HTTP/1.1
  sockwrite -n $sockname Host: yayinakisi.com $+ $crlf $+ $crlf
}
on *:sockread:yayin:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu... | .timertv off | window -c @TV | halt
  }
  else {   
    var %difi 
    sockread %difi 
    if (*table width='450' border='0' name=* iswm %difi) { aline 12 @TV $replace($remove($deltok(%difi,1-3,61),>),$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) }
    if (*td width='50'>*</td* iswm %difi) && (2009 !isin %difi) { aline 6 @TV $replace($remove($htmlfree(%difi),$chr(9)),$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) }
    if (*td width='70'>*</td* iswm %difi) { aline 3 @TV $htmlfree(%difi) }
    if (*alt=*title=*class=*</td> iswm %difi) && (*<h1><strong> <a href=*</a></strong></h1></td* !iswm %difi) { echo -h @TV $replace($htmlfree(%difi),$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) | aline 4 @TV ______________________________________________________________________ }
  }
}
alias tvyayin {
  echo -a 12** 4Liste alınıyor...
  sockopen yayin 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  $iif($window(@TV),window -c @TV)
  window -hdk0C +lt @TV 0 0 490 375 Verdana 11
  .titlebar @TV yayın akışından seçmeler...
  .timertv 1 4 window -wa @TV 
  .timeryayin 1 5 sockclose yayin
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}