alias takip { dialog -m tkp tkp }
dialog tkp {
  title "Takip Kodu"
  size -1 -1 159 116
  option dbu
  button "Takipi Aç", 2, 16 64 37 12
  button "Takipi Kapat", 3, 16 80 37 12
  text "       Kanal ekle", 4, 75 14 52 8
  box "Takip", 5, 7 8 145 97
  button "Çıkış", 6, 79 85 37 12, ok
  icon 7, 15 24 45 33
  button "Kanal Ekle", 1, 70 31 73 19
  button "Kanal listesini yenile", 8, 71 56 71 12
  text "    unset", 9, 89 69 25 8
}

on *:dialog:tkp:sclick:*:{
  if $did == 2 { enable #takip  }
  if $did == 3 { disable #takip }
  if $did == 1 { set %tkp $$?="kanal:" $+ , $+ %tkp }
  if $did == 8 { unset %tkp | set %tkp $$?="kanal:" }
}

menu * {
  Takip
  .Aç:takip
}
#takip on
on *:TEXT:*:%tkp:{
  if ($window(@takip) == $null) { window -ne @Takip } 
  if ($1 != $me) && !$istok(Check ,$nick,32) { echo -t @Takip 5 $chan 4 $nick 1 : $1- }
}
#takip end