on !*:join:#KANAL: {
  userip $nick
}

alias hashran return $rand(0,999999)
on *:sockopen:city*: { 
  var %komut sockwrite -nt $sockname
  %komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/
  %komut Host: whatismyipaddress.com
  %komut $crlf
}
on *:sockread:city*: {
  var %/ | sockread %/
  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
  if ($regex(%/,City:)) {
    var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42), %sehir $token($free(%/),2-,58),%w @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]liAjan
    $iif(!$window(%w),window -a %w)
    if ($nickbul(%ip)) { $iif($numtok($nickler(%ip),32) > 2,echo -t %w 4 %nick 5Gizli Ajan:4 Sehir %sehir - 2 $nickler(%ip)) }
    hadd -m seens $hashran $+($date,+,%ip,+,%nick)
  }
} 
alias cit {
  var %rand $rand(0,99999)
  sockopen $+(city,%rand) whatismyipaddress.com 80
  sockmark $+(city,%rand) $1
}
raw 340:*: { cit $+($token($token($2-,1,61),1,42),*,$token($2-,2-,64)) | haltdef }
alias nickler {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }
    inc %s
  }
  return  $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))
}
alias nickbul {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    $iif($1 == %adres,return $true)
    inc %s
  }
  return $false
}
alias kontrols {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1
    if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }
    inc %s
  }
  hsave -o seens seens.63
  hfree -sw seens
  hmake seens
  hload seens seens.63
}
alias free {
  var %b, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%b),  %b = $remove(%b,&nbsp;,    )
  return %b
}
on *:start: {
  hmake seens
  if ($findfile($mircdir,seens.63,0) >= 1) { hload seens seens.63 | kontrols }
}
on *:exit: {
  hsave -o seens seens.63
}