/list Komutu ( Turkce Karakter )

Raw 322:*: {  
  if (ş isin $2) || (ı isin $2) || (ö isin $2) || (ç isin $2) {  
    .write tkanal.txt $+($2,$chr(9)) $+($3,$chr(9)) $+($4,$chr(9)) $+($5-,$chr(9)) 
    .timer2932 1 2 /türkçelerigöster 
  } 
} 

alias türkçelerigöster {  
  if ($window(@@Channel-List2)) { window -c @@Channel-List2 } {  
    window -glk0 @@Channel-List2 -1 -1 800 600 Fixedsys 11  
    iline @@Channel-List2 1 0,0.4Kanal0,0...4Sayı0,0....4Modes0,0..4Topic0,0................  
    titlebar @@Channel-List2 Türkçe Karakter içeren Kanallar Listesi 
    var %s = 2 
    while %s <= $lines(tkanal.txt) {  
      var %k = $read(tkanal.txt,%s)  
      iline @@Channel-List2 %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5-,32) 
      inc %s  
      unset %k  
    }  
    .remove tkanal.txt  
  }  
  halt  
} 

menu @@Channel-List2 {  
  [!] Kanala Gir: {  
    .join $1 
    halt  
  }  
}