alias htmlfree { 
  if ($len($1-) <= 900) { 
    var %x, %i = $regsub($replace($1,ı,ı),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x 
  } 
} 
alias konser {
  unset %serdar406
  sockclose ks 
  sockopen ks 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  $iif($window(@Konserler),window -c @Konserler)
  echo -a 2** 4Liste alınırken lütfen bekleyiniz7(10 sn)2 **
  window -hCdk0 +let @Konserler 0 0 530 310 Verdana 11
  .timerwin 1 10 window -wa @Konserler
}
alias -l swr sockwrite -n ks $1-
on *:sockopen:ks: {
  if ($sockerr) { if ($window(@konserler)) window -c @konserler | .timerwin off | echo -a Siteye bağlanamıyorum.Sorun var galiba...!  }
  else { 
    swr GET / HTTP/1.1
    swr Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
swr $crlf
  }
}
on *:sockread:ks: {
  var %s
  sockread %s
  if (*Konser Listesi* iswm %s) set %SeRDaR406 !ok
  if (%serdar406) {
    if (width="8%">&nbsp; isin %s) set %nerede ok
    elseif (%nerede) { echo @Konserler 03 $htmlfree(%s) | unset %nerede }
    if (<strong>Sanat&ccedil isin %s) set %sanatci ok
    elseif (%sanatci) { echo @Konserler Sanatçı:12 $htmlfree(%s) | unset %sanatci }
    if (<strong>Yer isin %s) set %yer ok
    elseif (%yer) { echo @Konserler Yer: $htmlfree(%s) | unset %yer }
    if (<strong>Tarih isin %s) set %tarih ok
    elseif (%tarih) { echo @Konserler Tarih: $htmlfree(%s) | unset %tarih }
    if (<strong>Fiyat isin %s) set %fiyat ok
    elseif (%fiyat) { echo @Konserler Fiyat: $htmlfree(%s) | unset %fiyat }
    if (<td width="87%"> isin %s) set %kontarih ok
    elseif (%kontarih) { echo @Konserler 6 $htmlfree(%s) | echo 7 @Konserler _______________________________________________________________________ | unset %kontarih }
  }
}