; ============================= Dice Script V 1.41 =============================
; ◎ 제 작 자 : Silence ◎ E-Mail : kerist@dreamwiz.com

alias f12 {
  if ($dialog(주사위) == $null) { dialog -md 주사위 주사위 }
  else { echo -a 오류: 주사위 관리 프로그램이  이미 열려 있습니다. }
}

dialog 주사위 {
  title  "O.R.P.G - Dice Script v 1.41"
  size   207 155 260 50
  text   " Dice Script v 1.41 ",4,80 5 230 18
  button "?",9,227 1 20 20
  button "Start",3,12 22 63 23
  button "Stop",2,100 22 63 23
  button "종료",1,185 22 63 23, ok
}

on 1:dialog:주사위:sclick:*: {
  if ($did == 9) {
    echo -a 1┌▽──────────────────────┐
    echo -a 1│ 14스크립 주사위 사용법은  "start"를 누르고  
    echo -a 1│2(주사위의 갯수)d(면체수) 14를 입력하시면 됩니다.
    echo -a 1│   7 ※ 반드시 숫자로 입력하시기 바랍니다.
    echo -a 1│  14 http://aif.new21.net
    echo -a 1└──────────────────────△┘
  }
  if ($did == 3) { set %dice O N | echo -a 1Dice Script - 『4 %dice $+ !! 1』 }
  if ($did == 2) { set %dice OFF | echo -a 1Dice Script - 『4 %dice $+ !! 1』 }
}

alias /dm { .away $?="Enter The Your Master Name :" |  if ( $! != $null ) { set %master $! | .say 1D.M Name - 『2 %master $+ !! 1』 } }
alias /dc {
  .away $?="Enter The None Text Color :" |  if ( $! != $null ) { set %dc1  $+ $! | .say 1None Color - 『2 %dc1 Here $+ !! 1』 }
  .away $?="Enter The Nick Text Color :" |  if ( $! != $null ) { set %dc2  $+ $! | .say 1Nick Color - 『2 %dc2 Here $+ !! 1』 }
  .away $?="Enter The Dice1 Text Color :" |  if ( $! != $null ) { set %dc3  $+ $! | .say 1Dice1 Color - 『2 %dc3 Here $+ !! 1』 }
  .away $?="Enter The Dice2 Text Color :" |  if ( $! != $null ) { set %dc4  $+ $! | .say 1Dice1 Color - 『2 %dc4 Here $+ !! 1』 }
  set %dc input
}
alias /dcc { unset %dc | unset %dc1 | unset %dc2 | unset %dc3 | unset %dc4 | echo 5 Dice Color - 『 None Type 』 }

on *:text:주사위?:#: msg $chan 1Dice Script V 1.41 - 『4 %dice $+ !! 1』
on *:text:마스터?:#: msg $chan 1D.M - 『2 %master $+ !! 1』
on *:input:주사위?:#: echo -a 1Dice Script V 1.41 - 『4 %dice $+ !! 1』

on *:text:*d*:#: {

  if ( %dc != input ) { var %dc1 14,0 | var %dc2 1,0 | var %dc3 1,0 | var %dc4 4,0 | }

  var %갯수 $gettok($1,1,100)
  if ( $gettok($1,2,100) = $null ) { var %면체 6 }
  else { var %면체 $gettok($1,2,100) }
  var %수정치값 $calc( $2 * 1 )
  if ( %수정치값 > 0 ) { var %수정치 %수정치값 | var %수정치부호 +  }
  elseif ( %수정치값 < 0 ) { var %수정치 $calc( $2 * -1 ) | var %수정치부호 -  }

  var %i 1

  if ( %dice == O N) && ( $nick != %master ) {
    if ( 110 >= $gettok($1,1,100) ) {
      while (%i <= %갯수) {

        var %임시 $rand(1,[ %면체 ])
        if (!%출력) var %출력 %임시
        else set %출력 %출력 %임시
        var %합 $calc(%합 + %임시)
        if ( %곱하기 == yes ) { var %합2 $calc( %합 * %수정치 ) }
        elseif ( %곱하기 != yes ) { var %합2 $calc( %합 + %수정치값 ) }
        if (%i == %갯수) {
          if ($gettok($1,1,100) = 1) && ( $2 == $null )  msg $chan %dc2 $+ $nick %dc1 $+ 님의 %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 %합 %dc1 $+ 입니다. 』
          elseif ($gettok($1,1,100) = 1) && ( $2 != $null )  msg $chan %dc2 $+ $nick %dc1 $+ 님의 %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 %합 %수정치부호 %수정치 = %합2 %dc1 $+ 입니다. 』
          elseif ( $2 != $null )  msg $chan %dc2 $+ $nick %dc1 $+ 님의 %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 $replace(%출력,$chr(32),$chr(32) + $chr(32)) %수정치부호 %수정치 =4 %합2 %dc1 $+ 입니다. 』
          else  msg $chan %dc2 $+ $nick %dc1 $+ 님의 %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 $replace(%출력,$chr(32),$chr(32) + $chr(32)) =4 %합 %dc1 $+ 입니다. 』
          unset %출력 %합
        }
        inc %i
      }
    }
  }

  elseif ( %dice == O N) && ( $nick == %master ) {
    if ( 110 >= $gettok($1,1,100) ) {
      while (%i <= %갯수) {

        var %임시 $rand(1,[ %면체 ])
        if (!%출력) var %출력 %임시
        else set %출력 %출력 %임시
        var %합 $calc(%합 + %임시)
        if ( %곱하기 == yes ) { var %합2 $calc( %합 * %수정치 ) }
        elseif ( %곱하기 != yes ) { var %합2 $calc( %합 + %수정치값 ) }
        if (%i == %갯수) {
          if ($gettok($1,1,100) = 1) && ( $2 == $null ) .notice %master %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 %합 %dc1 $+ 입니다. 』
          elseif ($gettok($1,1,100) = 1) && ( $2 != $null ) .notice %master %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 %합 %수정치부호 %수정치 = %합2 %dc1 $+ 입니다. 』
          elseif ( $2 != $null ) .notice %master %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 $replace(%출력,$chr(32),$chr(32) + $chr(32)) %수정치부호 %수정치 =4 %합2 %dc1 $+ 입니다. 』
          else .notice %master %dc3 $1 %dc1 $+ 주사위는 - 『 %dc4 $replace(%출력,$chr(32),$chr(32) + $chr(32)) =4 %합 %dc1 $+ 입니다. 』
          unset %출력 %합
        }
        inc %i
      }
    }
  }

}

; ============================= Dice End =============================