on *:input:*: {
if ($1 == -카타) {
say $1- 05☞ $katakana($2-) 05클립보드에 저장되었습니다.
clipboard $katakana($2-)
halt
}
if ($1 == !카타) {
clipboard $katakana($2-)
halt
}
if ($1 == -히라) {
say $1- 05☞ $hiragana($2-) 05클립보드에 저장되었습니다.
clipboard $hiragana($2-)
halt
}
if ($1 == !히라) {
clipboard $hiragana($2-)
halt
}
}
on *:text:*:#: {
if (!%katagira [ $+ [ $nick ] ]) {
if ($1 == !카타) {
msg $chan 05☞ $katakana($2-)
set %katahira [ $+ [ $nick ] ] 1
timer 1 5 unset %katahira [ $+ [ $nick ] ]
halt
}
if ($1 == !히라) {
msg $chan 05☞ $hiragana($2-)
set %katahira [ $+ [ $nick ] ] 1
timer 1 5 unset %katahira [ $+ [ $nick ] ]
halt
}
}
}
alias katakana {
var %katakana.munjang = $1-
var %katakana.incnum = 1
while (%katakana.incnum <= $len(%katakana.munjang)) {
if ($asc($mid(%katakana.munjang,%katakana.incnum,1)) == 32) {
var %katakana.fin = %katakana.fin $+ \;'
inc %katakana.incnum 1
}
else if ($asc($mid(%katakana.munjang,%katakana.incnum,1)) <= 127) {
var %katakana.fin = %katakana.fin $+ $mid(%katakana.munjang,%katakana.incnum,1)
inc %katakana.incnum 1
}
else if ($asc($mid(%katakana.munjang,%katakana.incnum,1)) > 127) {
var %katakana.get = $mid(%katakana.munjang,%katakana.incnum,3)
if ($mid(%katakana.get,3,1) == ;) || ($mid(%katakana.get,3,1) == ') || ($mid(%katakana.get,3,1) == `) {
var %katakan = $replacex(%katakana.get,에`,ヘ,오`,ヲ,와`,ハ,츈',ヂュン,친',ヂン,츤',ヅン,칭',ヂン,층',ヅン,아;,ァ,이;,ィ,우;,ゥ,에;,ェ,오;,ォ,야;,ャ,유;,ュ,요;,ョ,치',ヂ,츠',ヅ,칫',ヂッ,츳',ヅッ,