on ^&*:text:*:*:{
  var %text = $mid($rawbytes, $calc($pos($rawbytes, $chr(32), 3) + 2))
  if (!$isutf(%text)) {
    echo -mbflirt $iif(#, #, $nick) $+(<, $left($nick(#, $nick, a, r).pnick, 1), $nick, >) $turkish(%text)
    haltdef
  }
}

alias turkish $iif($isid, return, echo -a) $utfdecode($utfencode($1-, 162))

on ^&*:text:*:*:{
  var %text = $mid($rawbytes, $calc($pos($rawbytes, $chr(32), 3) + 2))
  if (!$isutf(%text)) {
    echo -mbflirt $iif(#, #, $nick) $+(<, $left($nick(#, $nick, a, r).pnick, 1), $nick, >) $turkish(%text)
    haltdef
  }
}

alias turkish $iif($isid, return, echo -a) $utfdecode($utfencode($1-, 162))
raw 332:*:echo -ta 7Topic is $+(',$chr(15),$turkish($3-),$chr(3),7,',) | halt 
raw 333:*:echo -ta 7Set by $3 $asctime($4) | halt 
raw 372:*:echo -ts $turkish($2-) | halt
on ^*:notice:*:*:echo 5 -tes $+(-,$nick,-) $turkish($1-) | halt
on ^*:join:#:echo -tc join # * Giriş: $turkish($nick) $+($chr(40),$address,$chr(41)) | halt
on ^*:part:#:echo -tc part # * Part: $turkish($nick) $+($chr(40),$address,$chr(41)) | halt

* Tanıtma  menüsü Ayarlar Menüsünde kitlenmiş durumda: $utfdecode (Satır 9, karakter.txt)

on ^*:join:#:{
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
  %turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
  echo -t $chan < $+ $nick $+ > %turkce
  unset %turkce
  halt
}