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

alias takip {
  if ($1 == +) {
    if (!$hget(Takip)) { hmake Takip 1000 }
    .enable #Takip
    set %cSj $iif($2,$2,300)
    echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
  }
  else {
    .disable #Takip
    if ($hget(Takip)) { hfree Takip }
    unset %cSj
    echo -ta 14Takip Modu DevreDışı !
  }
}

#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) {
      echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 %onceki
    }
    if ($gettok(%onceki,0,32) > 3) {
      ban -k $chan $nick 2 Nick Change
    }
  }
}
#Takip end

; ---------- Pencereyi aç ----------
alias TakipPencere {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip)) window -ae @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip
}
 
; ---------- Takip Modu ----------
on 1:connect:{
  .IAL On
  if (!$hget(Takip)) hmake Takip 1000
  takip + 300
}
 
alias takip {
  if ($1 == +) {
    .enable #Takip
    if (!$hget(Takip)) hmake Takip 1000
    set %cSj $iif($2,$2,300)
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4[TAKİP MODU AÇILDI] Süre: %cSj sn.
  }
  else {
    .disable #Takip
    unset %cSj
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 14[TAKİP MODU KAPANDI]
  }
}
 
#Takip on
on ^*:QUIT:{
  if (!$hget(Takip)) hmake Takip 1000
  hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip,$address($nick,2)),$hget(Takip,$address($nick,2)) $+ $nick,$nick))
}
 
on !^*:JOIN:#:{
  if (!$hget(Takip)) hmake Takip 1000
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    TakipPencere
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip 4Takip Raporu:12 $nick 5(%cSj sn içinde kullandığı nickler:) 14 $hget(Takip,$address($nick,2))
  }
  if ($gettok($hget(Takip,$address($nick,2)).data,0,43) > 3) {
    ban -k $chan $nick 2 Nick Change
  }
}
 
; ---------- Hotlink Ayarları ----------
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  dclick:*:{
    if ($1 != $null) {
      echo -a 4[İŞLEM] $1 için komut seçin:
      echo -a Sağ tık → Komut Menüsü
    }
  }
}
 
menu nicklist,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Takip {
  ----- Takip İşlemleri -----
  Kill: /kill $$1 Flood/Takip Koruması
  Shun: /shun $$1 30s Flood/Takip
  Gzline: /gzline $$1 1h Flood/Takip
  Ban: /ban -k # $$1 2 Takip Koruması
}
 

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! }
  }
}