[SenatoR-SuVaRi]

öncelikle selam güzel ifler dilerim bir konu hakkında yardımınıza ihtiyac duymaktayım ülke sehir ısp mirc koduna eski nickleride göstersin diye bir eklenti yaptım ilk basta calıştı ama girişleri cift verince
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1  2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1  2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker böyle bende düzeltek istedima ama sanırım başaramadım yardımcı olabilirmisniz

kod bu

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#giriste on
on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  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 ^*!:nick: {
  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}

raw 352:*: {
  if %tkp. [ $+ [ $6 ] ] {
    if   $5 == services.neselichat.net { return }
    var %ip = $4
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    ; update the seen time
    writeini -n giris.txt %ip seentime $date
    msg #moos 1,7 ( Bağlanan ) - 2 $6 1 - IP Adresi - 2 $4 - 1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks) 
    halt
  }
}
raw 315:*: {
  if %tkp. [ $+ [ $2 ] ] {
    unset %tkp. [ $+ [ $2 ] ]
    halt
  } 
} 

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #ilker ( GiRiS ) ==  2 Nick: 4 %:n == 2 IP: 5 %ip == 2- Ulke: 11 %ülke == 2 - Sehir: 7 %sehir == 2- ISP: 4 %:isp   1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks)  
    .hfree -sw %:n
    sockclose $sockname
  }

  #giriste end
  menu menubar {
    +> IP GIRIS
    ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
    ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
    ..Durum < $replace($group(#giriste).status, off, Kapal1, on, Aç1k) >:.
  }  
  
menu nicklist   {
  NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}