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,에`,ヘ,오`,ヲ,와`,ハ,츈',ヂュン,친',ヂン,츤',ヅン,칭',ヂン,층',ヅン,아;,ァ,이;,ィ,우;,ゥ,에;,ェ,오;,ォ,야;,ャ,유;,ュ,요;,ョ,치',ヂ,츠',ヅ,칫',ヂッ,츳',ヅッ,