IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - IF'de kaç kişi online ? (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/55366-ifde-kac-kisi-online.html)

IF'de kaç kişi online ?

Kod:

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 

}

Kullanım : /if