on *:text:!ip*:#Opers: { who $2 | enable #ipcontrol }
#ipcontrol off
raw 352:*: {
  msg  #opers 4Ip Sonuc: 
  msg  #opers 4Nick: $+($chr(91),$6,$chr(93))
  msg  #opers  4Host: $+($chr(91),$4,$chr(93)) 
  disable #ipcontrol
  halt
}
#ipcontrol end

 
on *:input:*: {
  if ($1 == !ip) && !$2 { echo -a Nick Belirtmediniz! | halt }
  elseif ($1 == !Ip) && $2 {
    userip $2 | set -u5 %operip on
  }
}
raw 340:*: {
  if (%operip == on) {
    msg #Opers Ip Sonuç Bilgisi
    msg #Opers Nick: $+([,$gettok($2,1,61),])
    msg #Opers IP: $+([,$gettok($2,2,64),])
  }
}

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias nereden {
  var %:r2 = $r(1,999999999999)
  .sockopen $+(pro,%:r2) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  .sockmark $+(pro,%:r2) $1
}
on *:input:*: {
  if ($1 == !ip) && !$2 { echo -a Nick Belirtmediniz! | halt }
  elseif ($1 == !Ip) && $2 {
    userip $2 | set -u5 %operip on
  }
}
raw 340:*: {
  if (%operip == on) {
    if !$istok(%ipnerden,$gettok($2,1,61),32) { set %ipnerden $addtok(%ipnerden,$gettok($2,1,61),32) }
    if !$istok(%ipnerden,$gettok($2,2,64),32) { set %ipnerden $addtok(%ipnerden,$gettok($2,2,64),32) }
    nereden $gettok($2,2,64)
  }
}
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro
  sockread %:pro
  if (IP Country: isin %:pro) { set %ipnerden $addtok(%ipnerden,$iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)),32) }
  if (IP City: isin %:pro) { 
    set %ipnerden $addtok(%ipnerden,$iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)),32) 
    msg #Opers Ip Sonuç Bilgisi
    msg #Opers Nick: $+([,$token(%ipnerden,1,32),])
    msg #Opers IP: $+([,$token(%ipnerden,2,32),])
    msg #Opers Ülke: $+([,$token(%ipnerden,3,32),])
    msg #Opers Şehir: $+([,$token(%ipnerden,4,32),])
    unset %ipnerden
  }
}