alias if {
  $iif(!$window(ircforumlari),window -Cak0d +L @ircforumlari -1 -1 800 200,clear @ircforumlari)
  echo @ircforumlari Lütfen Bekleyin Liste Alınıyor... | sockopen ircforumlari 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:ircforumlari:{
  sockwrite -n $sockname GET /index.php? HTTP/1.1
  sockwrite -n $sockname Host: ircforumlari.net $+ $crlf $+ $crlf
}
on *:sockread:ircforumlari:{
  if ($sockerr) {
    echo 4 -st Hata. | halt 
  }    
  else {
    sockread %temptext 
    if ($regex(%temptext,/(An Forumumuzda)/g)) { echo @ircforumlari $+($chr(3),12)) $htmlfree(%temptext) | set %read açık  }
    if (%read == açık) && ($regex(%temptext,/</font></a>$/(a href="member.php.*s=|rel="nofollow"><font color="))) { set %ircforumlari $addtok(%ircforumlari,$+($htmlfree(%temptext),$chr(44)),32) }
    if ($regex(%temptext,/(Sitemizi bugün ziyaret)/g)) { unset %read | echo @ircforumlari $+($chr(3),12)) Forumda Online Kullanıcılar: $+($chr(3),4)) %ircforumlari | unset %ircforumlari }
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) 
  return %x 
}