on *:start: /notify on | echo -a 9Notify takip listesi için aktif edildi. 
on *:text:*:*: if $findtok(%takiplist-,$nick,32) { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2 $+ $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- | write takiplog.txt $chr(171) $+ $time $+ $chr(187) Nick: $nick Kanal: $chan Msg: $1- }
dialog takiplist {
  title "Takip nick listesi"
  size -1 -1 133 150
  option dbu
  edit "", 11, 17 44 60 10
  list 3, 17 54 60 69
  button "Ekle", 4, 85 46 32 12
  button "Sil", 5, 85 66 33 12
  box "Takip edilecek nick'i yaziniz..", 9, 2 32 129 115
  button "Tamam", 10, 12 128 111 15, ok
}
menu status,channel,query {
  -
  Takip Listesi: dialog $iif(!$dialog(takiplist),-m takiplist,-v) takiplist
}
alias takiplist { .dialog -m takiplist takiplist } 
on *:dialog:takiplist:init:*:{ 
  if (%takiplist-) .didtok $dname 3 32 $ifmatch 
} 
on *:dialog:takiplist:sclick:*: {
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%takiplist-,%sk,32)) { .set %takiplist- $addtok(%takiplist-,%sk,32) | .notify %sk | .notify on | did -a $dname 3 %sk | did -r $dname 11 } } } 
  if ($did == 5) { if ($did(3).sel > 0) { .set %takiplist- $remtok(%takiplist-,$did(3).seltext,1,32) | .notify -r $did(3).seltext | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } } 
}
on ^*:NOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i şu anda sunucuda. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucuya giriş yapti. }
on ^*:UNOTIFY: { $iif(!$window(@Takip),.window -en @Takip) | .aline @Takip 2Takip listesindeki  $nick  nick'i sunucudan çıkış yaptı. Tarih/Saat $date $+ / $+ $time | write takiplog.txt Takip listesindeki $nick nick'i $date $+ / $+ $time tarihinde sunucudan çıkış yapti. }

on *:Text:*:*: {
  if $nick == TAKIP_NICK { 
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı $+([,$time,]) $+(4,$chan) $+(2,$nick,5) $1-
    write takiplog.txt $+([,$time,]) $chan $nick $1-
  }
}