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 %/
  if ($regex(%/,State/Region)) set %ipsehir [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
  if ($regex(%/,City:)) set %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]  $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)  
}
on *:sockclose:city*: {
  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
  echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+  [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [  $token($sock($sockname).mark,2,42) ] ]
  unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
}
alias cit {
  var %rand $rand(0,99999)
  sockopen $+(city,%rand) whatismyipaddress.com 80
  sockmark $+(city,%rand) $1
}
raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) |  haltdef }
alias city { 
  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }
  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }
}

alias hashran return $rand(0,999999)
on *:join:#kanal: {
  if ($nick == $me) { halt }
  if ($nickbul($address($nick,2))) { $iif($numtok($nickler($address($nick,2)),32) > 2,echo # $nick &2 5Gizli Ajan:2 $nickler($address($nick,2))) }
  hadd -m seens $hashran $+($date,+,$address($nick,2),+,$nick)
}
on *:open:?: {
  if ($nickbul($address($nick,2))) { echo $nick &2 5Gizli Ajan:2 $nickler($address($nick,2)) }
}
alias query {
  query $1
  if ($nickbul($address($1,2))) {
    echo $1 &2 $1 5Gizli Ajan:2 $nickler($address($1,2))
    echo $1 -
  }
}
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 1)
    inc %s
  }
  return 0
}
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 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
}
on *:start: {
  if ($findfile($mircdir,seens.63,0) >= 1) { kontrols }
}
on *:exit: {
  hsave -o seens seens.63
}