on *:START: {
   ; Bu kısma IP ya da Host Adını ve Port yazın. Eğer Host adı yazacaksanız [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 şeklinde yazın.
   _setcfg host [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
 
   ; IRC Adresini ve Portunu yazın
   _setcfg ircserver irc.site.com 6667
 
   .timer.start 0 1 connectirc
}
alias _setcfg hadd -m config $1 $2-
alias _cfg return $hget(config, $1)
alias sw {
  if (!@window(SOCK)) window -e @SOCK
  aline @SOCK $1 - $2-
  sockwrite -nt $1 $2-
}
alias connectirc if (!$sock(updatebot)) sockopen updatebot $_cfg(ircserver)
alias trim return $regsubex($1-, /^\s+|\s+$/g, $null)
alias escape_unnumber return $regsubex($1-, /([^0-9]*)/g, $null)
alias build_query {
  var %data = usernumbers= $+ $escape_unnumber($trim($_cfg(usernumbers)))
  sw %sock POST /import.php?do=SDaskDSfsdoaasdjhds HTTP/1.1
  sw %sock Host: $gettok($_cfg(host), 1, 32)
  sw %sock Content-type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw %sock Content-Length: $len(%data)
  sw %sock Connection: close
  sw %sock %data
}
on *:SOCKOPEN:updatebot: {
  var %bot = updatebot_ $+ $r(100, 9999)
  sw $sockname NICK %bot
  sw $sockname USER SiteBot "" " $+ $iif($host, $host, $ip) $+ " : $+ Kullanıcı Sayısı Güncelleyici Bot
}
on *:SOCKREAD:updatebot: {
  var %b
  sockread %b
  tokenize 32 %b
  if (!@window(IRCDEBUG)) {
    window -e @IRCDEBUG
  }
  aline @IRCDEBUG DEGUG - %b
  if ($1 == PING) sw $sockname PONG $2
  if ($2 == 002) .timer.sockwrite 0 60 sw lusers
  if ($regex($1-, /^:updatebot_([0-9]{3,4})\sMODE\supdatebot_([0-9]{3,4})\s:\+i.*$/i)) sw $sockname join #2,00
  if ($2 == 265) {
    if ($regex(local, $4-, /^:([^:]*):\s(\d*)\s([^:]*):\s(\d*)/)) {
      var %local = $regml(local, 2)
      var %max_local = $regml(local, 4)
      ; Burada Hangisini Yollamak istiyorsan Onu göndert :P %local dersen Local Users Gider
      _setcfg usernumbers %local
      $update_site
    }
  }
}
alias update_site sockopen sender_ $+ $r(1, 368561654) $_cfg(host)
on *:SOCKOPEN:sender_*: build_query
on *:SOCKREAD:sender_*: {
  var %b
  sockread %b
  if (!@window(DEBUG)) {
    window -e @DEBUG
  }
  tokenize 32 %b
  aline @DEBUG DEBUG - %b
}