#sekilliyazı on
on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,’,^,%,&,/,_,~,`,”])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)
#sekilliyazı off
menu menubar,channel,query {
  .-
  .» Sekilli Yazı Menüsü
  ..Aç:!if $group(#sekilliyazı).status = on { echo -a 0,1 Sekilli Yazı Menüsü Zaten AÇIK 0,1  } | else { /.enable #sekilliyazı | echo -a 0,1 Sekilli Yazı Menüsü Açıldı. 0,1 | set %sekilliyazi on  }
  ..Kapat:!if $group(#sekilliyazı).status = off { echo -a 0,1 Sekilli Yazı Menüsü Zaten KAPALI. 0,1  } | else { /.disable #sekilliyazı | echo -a  0,1 Sekilli Yazı Menüsü Kapatıldı. 0,1  | set %sekilliyazi off  }
}