İ`m Turk :) code converter turkish language

on *:input:#:{
  if ($1 == +b) { /write karaliste.txt $2 | set %nick $2 | set %rp $address($2,4) | /write karaliste.txt %rp | echo -t @KaraListe 14 $2 Nickli şahıs listeye eklendi. | kick $chan $2 }
  if ($1 == -b) { /write -ds %rp blacklist.txt | /write -ds $2 blacklist.txt | echo -t @KaraListe 14 $2 Nickli şahıs listeden silindi | unset %nick | unset %rp }
  if ($1 == .liste) { 
    var %count = 0
    var %i = 1
    while (%i <= $lines(karaliste.txt)) {
      //echo -t @BLackList : $+ $read(karaliste.txt, %i)       
      inc %i
      inc %count
    }
    if (%count == 0) {
      echo    None.  
    }
  }
}
on @*:JOIN:#:{ 
  if ($read(karaliste.txt,w,$nick)) || ($read(karaliste.txt,w,$address($nick,4))) {
    ban $chan %rp | kick $chan $nick 10 KaraListe: %nick , IP: %rp | unset %t
    else halt {
    }
  }
}

menu @KaraListe {
  Ekranı Temizle:clear
  Ekranı Kapat:window -c @KaraListe
}

on *:start:{ window -en @KaraListe }

Nice work snipp thank you man.
Channel write : +b $nick added karaliste.txt show @KaraListe diyalog.