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