ù¹ø° ¼Ò½º.

/¤¸ {
  var %suc = 0, %dice, %temp, %result, %etc1, %etc2
  set %exp 0
  set %etc1 $calc($1 +0)
  set %etc2 $calc($2 +0)
  set %dice %etc1
  set %result 

  set %numberofOne 0

  while (%dice != 0) {
    set %temp $rand(1,10)
    %result = %result $+ , $+ %temp 

    if (%temp == 1) set %numberofOne $calc(%numberofOne +1)
    if (%temp >= 8) {
      set %suc $calc(%suc +1)
      if (%temp == 10) set %exp $calc(%exp +1)
    } 

    set %dice $calc(%dice -1)
  }
  //say *[ $+ ´ÙÀ̽º $+ $1 $+ °³]* (°á°ú : %result ) 1ÀÇ °³¼ö : %numberofOne , Àç±¼¸² : 5 %exp  , ¼º°ø¼ö : 0,5 %suc 

  set %trans %suc

  if (%etc1 == 1) {
    if (%etc2 != 0) { 
      %result = %temp + $2 
    //say °á°úÄ¡ : %temp + ( $+ $2 $+ ) = 0,5 %result   }
  }
}


/¤¸¤¸ {
  var %dice, %temp, %result, %etc1, %etc2
  var %etc1 %exp
  set %dice %etc1
  set %result 

  if (%exp != 0) {

    set %suc %trans

    %exp = 0

    while (%dice != 0) {
      set %temp $rand(1,10)
      %result = %result $+ , $+ %temp 

      if (%temp >= 8) {
        set %suc $calc(%suc +1)
        if (%temp == 10) set %exp $calc(%exp +1)
      } 

      set %dice $calc(%dice -1)
    }

    //say *[ $+ Àç±¼¸² ´ÙÀ̽º %etc1 °³]* (°á°ú : %result ) Àç±¼¸² :5 %exp , ÃÑ ¼º°ø¼ö : 0,5 %suc 


    set %trans %suc
  } 
  else //say ´Ù½Ã ±¼¸± ¼ö ¾ø½À´Ï´Ù.
}







µÎ¹ø° ¼Ò½º.


/wod {
  var %dice, %temp, %result, %etc1, %etc2
  set %exp 0
  set %etc1 $1
  set %etc2 $2
  set %dice %etc1
  set %result 

  set %numberofOne 0

  %suc = 0


  :loop

  set %temp $rand(1,10)
  %result = %result $+ , $+ %temp 

  if (%temp == 1) set %numberofOne $calc(%numberofOne +1)
  if (%temp >= 8) {
    set %suc $calc(%suc +1)
    if (%temp == 10) set %exp $calc(%exp +1)
  } 

  set %dice $calc(%dice -1)

  if (%dice != 0) goto loop

  //say *[ $+ ´ÙÀ̽º $+ $1 $+ °³]* (°á°ú : %result ) 1ÀÇ °³¼ö : %numberofOne , Àç±¼¸² : 5 %exp  , ¼º°ø¼ö : 0,5 %suc 

  set %trans1 %suc
  set %trans2 %exp

  if (%etc1 == 1) {

    set %etc2 $calc(%etc2 + 0)
    if (%etc2 != 0) { 
      %result = %temp + $2 
    //say °á°úÄ¡ : %temp + ( $+ $2 $+ ) = 0,5 %result   }
  }
}


/woda {
  var %dice, %temp, %result
  set %result 


  if (%exp != 0) {

    set %suc %trans1
    set %dice %trans2

    %exp = 0

    :loop

    set %temp $rand(1,10)
    %result = %result $+ , $+ %temp 

    if (%temp >= 8) {
      set %suc $calc(%suc +1)
      if (%temp == 10) set %exp $calc(%exp +1)
    } 

    set %dice $calc(%dice -1)

    if (%dice != 0) goto loop

    //say *[ $+ Àç±¼¸² ´ÙÀ̽º %trans2 °³]* (°á°ú : %result ) Àç±¼¸² :5 %exp , ÃÑ ¼º°ø¼ö : 0,5 %suc 

    set %trans1 %suc
    set %trans2 %exp

  } 
  else //say ´Ù½Ã ±¼¸± ¼ö ¾ø½À´Ï´Ù.
}