on *:START: {
  if (!$hget(nicktakip)) {
    hmake nicktakip 100
    if ($isfile(nicktakip.db)) {
      hload nicktakip nicktakip.db
      echo -a nicktakip.db dosyasından kayıtlar yüklendi.
    }
    else {
      echo -a Yeni hash table oluşturuldu.
    }
  }
}

on *:EXIT: {
  if ($hget(nicktakip)) {
    hsave nicktakip nicktakip.db
    echo -a Kayıtlar nicktakip.db dosyasına kaydedildi.
  }
}

on ^*:NOTICE:*Client connecting*:*:{
  if ($regex($1-,: ([^ ]+) \([^@]+@([^)]+)\))) {
    var %nick = $regml(1)
    who +I %nick
  }
}

RAW 352:*:{
  var %ip = $6
  var %nick = $7
  if ($regex(%ip,(\d+\.\d+\.\d+\.\d+))) {
    %ip = $regml(1)
  }
  if (!$hget(nicktakip,%ip)) {
    hadd nicktakip %ip %nick
    echo -a [NickTakip] %nick (%ip) ilk kez kaydedildi.
  }
  else {
    var %kayitli = $hget(nicktakip,%ip)
    if ($istok(%kayitli,%nick,44) == $false) {
      echo -a 4[UYARI] %ip IP daha önce şu nick/lerle giriş yaptı: %kayitli (şimdi: %nick)
      hadd nicktakip %ip $addtok(%kayitli,%nick,44)
    }
  }
}

alias takipclear {
  if ($hget(nicktakip)) {
    hfree nicktakip
    hmake nicktakip 100
  }
  if ($isfile(nicktakip.db)) {
    .remove nicktakip.db
  }
  echo -a 4[NickTakip] Tüm kayıtlar ve nicktakip.db temizlendi!
}

on *:START: {
  if (!$hget(nicktakip)) {
    hmake nicktakip 100
    if ($isfile(nicktakip.db)) {
      hload nicktakip nicktakip.db
      echo -a nicktakip.db dosyasından kayıtlar yüklendi.
    }
    else {
      echo -a Yeni hash table oluşturuldu.
    }
  }
}

on *:EXIT: {
  if ($hget(nicktakip)) {
    hsave nicktakip nicktakip.db
    echo -a Kayıtlar nicktakip.db dosyasına kaydedildi.
  }
}

on *:snotice:*connecting*:{
  who +I $9
}

RAW 352:*:{
  var %ip = $4
  var %nick = $6
  if (!$hget(nicktakip,%ip)) {
    hadd nicktakip %ip %nick
    echo -a [NickTakip] %nick ( %ip ) ilk kez kaydedildi.
  }
  else {
    var %kayitli = $hget(nicktakip,%ip)
    echo -a 4[UYARI] 3 %ip 1IP Adresi ile 4 %nick 1 nicki daha önce şu nick/lerle giriş yaptı: [ %kayitli ] 
    if (!$istok(%kayitli,%nick,32)) {
      hadd nicktakip %ip $addtok(%kayitli,%nick,32)
    }
  }
}

alias ipsor {
  if ($1 == $null) {
    echo -a Kullanım: /ipsor <ip>
    return
  }

  if ($hget(nicktakip,$1)) {
    echo -a 12[IPSOR] $1 IP'si şu nick/lerle giriş yapmış: $v1
  }
  else {
    echo -a 4[IPSOR] $1 IP'si için kayıt bulunamadı.
  }
}

alias nicksor {
  if ($1 == $null) {
    echo -a Kullanım: /nicksor <nick>
    return
  }
  var %i = 1, %bulundu = 0
  while ($hget(nicktakip,%i).item) {
    var %ip = $v1
    var %nickler = $hget(nicktakip,%i).data
    if ($istok(%nickler,$1,32)) {
      echo -a 12[NICKSOR] $1 nicki şu IP ile bağlanmış: %ip
      inc %bulundu
    }
    inc %i
  }
  if (!%bulundu) {
    echo -a 4[NICKSOR] $1 nicki için kayıt bulunamadı.
  }
}

alias nicksor {
  if ($1 == $null) {
    echo -a Kullanım: /nicksor <nick>
    return
  }
  var %i = 1, %bulundu = 0
  while ($hget(nicktakip,%i).item) {
    var %ip = $v1
    var %nickler = $hget(nicktakip,%i).data
    if ($istok(%nickler,$1,32)) {
      echo -a 12[NICKSOR] $1 nicki şu IP ile bağlanmış: %ip
      ; otomatik ipsor çalıştır
      ipsor %ip
      inc %bulundu
    }
    inc %i
  }
  if (!%bulundu) {
    echo -a 4[NICKSOR] $1 nicki için kayıt bulunamadı.
  }
}