시하야, 그 목마름의 환상

/ㅈ {
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 ) 성공수 : %suc , 재굴림 : %exp , 1의 개수 : %numberofOne

set %trans %suc

if (%etc1 == 1) {
if (%etc2 != 0) {
%result = %temp + $2
//say 결과치 : %temp + ( $+ $2 $+ ) = %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 ) 총 성공수 : %suc , 재굴림 : %exp

set %trans %suc
}
else //say 다시 굴릴 수 없습니다.
}

/ㅈ {
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 ) 성공수 : %suc , 재굴림 : %exp , 1의 개수 : %numberofOne

set %trans1 %suc
set %trans2 %exp

if (%etc1 == 1) {

set %etc2 $calc(%etc2 + 0)
if (%etc2 != 0) {
%result = %temp + $2
//say 결과치 : %temp + ( $+ $2 $+ ) = %result }
}
}


/ㅈㅈ {
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 ) 총 성공수 : %suc , 재굴림 : %exp

set %trans1 %suc
set %trans2 %exp

}
else //say 다시 굴릴 수 없습니다.
}