HTML-Kodu

; ---------- Pencereyi aç ----------
alias TakipPencere {
  if (!$window(@Nick-Takip)) window -ae @Nick-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 @Nick-Takip 4[TAKİP MODU AÇILDI] Süre: %cSj sn.
  }
  else {
    .disable #Takip
    unset %cSj
    echo @Nick-Takip 14[TAKİP MODU KAPANDI]
  }
}

#Takip on
on ^*:QUIT:{
  if (!$hget(Takip)) hmake Takip 1000
  ; Nicki tekrar eklemeden önce kontrol et
  if (!$istok($hget(Takip,$address($nick,2)),$nick,32)) {
    hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) 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
  ; Sadece yeni nick geldiğinde raporla
  if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
    if ($v1 != $nick) {
      TakipPencere
      ; Listeyi temiz ve alt alta göstermek için
      var %nicklist = $hget(Takip,$address($nick,2))
      var %formatted = $replace(%nicklist, , $crlf)
      echo @Nick-Takip 4Takip Raporu:12 $nick 5(%cSj sn içinde kullandığı nickler:)
      echo @Nick-Takip 14 %formatted
      set -u $v1 $nick
    }
  }
  if ($gettok($hget(Takip,$address($nick,2)).data,0,43) > 3) {
    ban -k $chan $nick 2 Nick Change
  }
}

; ---------- Hotlink Ayarları ----------
menu @Nick-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,@Nick-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ı
}