Alias -l giris54on { .enable #girimis54 | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Ip Göster  00,03 ACILDI   | halt }
Alias -l giris54off { .disable #girimis54 | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Ip Göster  00,14 KAPALI   | halt }

menu channel,status,menubar,query {
  -
  $iif(O isin $usermode,• Oper)
  .$iif($group(#girimis54) == on,$style(1) Ip Göster2 (Açık),Ip Göster (Kapalı)): if $group(#girimis54) == on giris54off | else giris54on
  .-
}

#girimis54 on

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(6661,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(MaxiMus G-Bot,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(ident ident1 ident2,%_ident,32) { return }
    ;- Muaf IP ekleme
    elseif $istok(ip ip1 ip2,%_ip,32 ) { return }
    .who +I $9
  }
}
raw 352:*:{
  .sockopen $+(nerdenpro,%:rand) ipinfo.io 80 
  .sockmark $+(nerdenpro,%:rand) $+($4,¿,$6)
}
on *:sockopen:nerdenpro*:{ 
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname Accept-Language: en-US
  sockwrite -n $sockname Content-Type: application/json; charset=utf-8
  sockwrite -n $sockname $crlf 
}
on *:sockread:nerdenpro*:{ 
  var %:nerdenpro | sockread %:nerdenpro | tokenize 32 %:nerdenpro
  if region isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) }
  if city isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) }
  if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_dzlt($_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),"))) }
  if "org isin %:nerdenpro { 
    var %:isp $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) 
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)  $hget(%:n,City)
    $iif(!$window(@Giris),window -e @Giris)
    .echo @Giris $timestamp 0,1[Giriş Bilgi]  0,4Nick:  0,1 %:n   0,4IP:  0,1 %ip   0,4Ulke:  0,1  %ülke  0,4Şehir:  0,1 %sehir  0,4 ISP:  0,1 %:isp
    .hfree -w %:n | sockclose $sockname
  } 
} 
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
;alias _dzlt return $replace($1-,TR,TURKIYE,US,A.B.D,DE,ALMANYA,AZ,AZERBAYCAN,BE,BELÇİKA,BG,BULGARİSTAN,)
alias _dzlt return $replace($1-,TR,TURKIYE,DE,ALMANYA,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)
#girimis54 end