Kod

on *:connect:{
  if (!$hget(profil)) hmake profil 5
}

on *:JOIN:#:{
  if ($nick == $me) return

  var %nick = $nick
  var %mask = $address(%nick,2)
  var %oldnick = $readini(profil.ini,%mask,nick)
  var %oldmask = $readini(profil.ini,%mask,mask)
  var %quand = $readini(profil.ini,%mask,quand)

  if (%mask == %oldmask) {
    if (%nick != %oldnick) {

      if ($exists($mircdir sounds\open.wav)) {
        splay $mircdir sounds\open.wav
      }

      if (!$window(@İP_Takip)) window -enz @İP_Takip

      aline -hp @İP_Takip - $time - [ $chan ] 04 %nick 01 Nicki'nin aynı IP'de daha önce kullandığı nick: 03 %oldnick 01 ( %quand )

      ; Aynı kanalı tekrar yazmamak için
      var %c = 1, %yazilan
      while (%c <= $comchan(%nick,0)) {
        var %kanal = $comchan(%nick,%c)
        if (!$istok(%yazilan,%kanal,32)) {
          echo @İP_Takip - $time - [ %kanal ] 04 %nick 01 aynı IP'de kullandığı nick: 03 %oldnick
          var %yazilan = %yazilan %kanal
        }
        inc %c
      }
    }
  }

  ; Bilgileri kaydet
  hmake profil 5
  hadd profil nick %nick
  hadd profil mask %mask
  hadd profil quand $time $+ - $+ $date
  hsave -ai profil profil.ini %mask
  hfree profil
}