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ı.
  }
}