on 1:CONNECT: {
  .IAL On
  takip + 300
}

alias TakipPanel {
  if (!$window(@Takip)) { window -e @Takip 600 300 600 300 }
}

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    TakipPanel
    echo @Takip 4[Takip]14 Takip Modu Açıldı! ($+(%cSj,sn.))
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    if ($window(@Takip)) { echo @Takip 14[Takip] Takip Modu Kapatıldı! }
  }
}

#Takip on

on ^*:QUIT: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (!$istok(%onceki,$nick,32)) {
      hadd -u%cSj Takip %addr $iif(%onceki,%onceki $+ $chr(32) $+ $nick,$nick)
    }
  }
}

on !^*:JOIN:#: {
  if ($hget(Takip)) {
    var %addr = $address($nick,2)
    var %onceki = $hget(Takip,%addr)
    if (%onceki && %onceki != $nick) {
      TakipPanel
      echo @Takip 4[Takip]12 Nick: [ $nick ] 5IP:14 [ %addr ] 5Önceki:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end

on *:HOTLINK:*:@Takip:{
  if ($left($1,1) == "[" && $right($1,1) == "]") {
    return 1
  }
}

on *:HOTLINK:*:@Takip:{
  var %hedef = $remove($1,[,])

  ; CTRL+Tık + KILL
  if ($mouse.key & 4) {
    .kill %hedef Takip Sisteminden
    echo @Takip 4[CTRL+TIK] KILL uygulandı: %hedef
    halt
  }

  ; Çift tık + GZLINE
  if ($dblclick) {
    .gzline %hedef 1d Takip Sisteminden
    echo @Takip 4[DOUBLE-CLICK] GZLINE uygulandı: %hedef
    halt
  }

  ; Normal sağ tık menüsü
  menu %hedef {
    GZLINE %hedef: { .gzline %hedef 1d Takip! }
    GLINE %hedef:  { .gline %hedef 1d Takip! }
    SHUN %hedef:   { .shun %hedef 1h Takip! }
    KILL %hedef:   { .kill %hedef Takip! }
  }
}