[@dye]
#ACT
mov D1 ""
mov D2 ""
mov D3 ""
#if
checklevel 40
#say
___{FCOLOR/10}Hello! Welcome to the cloths dying integral system. At present you have {FCOLOR/10}<$HLPOINT> Integral{FCOLOR/12}\\
{FCOLOR/12}Please do not remove the item of clothing, you wish to dye, from your body or the process will not work. {FCOLOR/12}\\
{FCOLOR/12}<[ Continue the Dying Process ]/@开始使用染色>{FCOLOR/12}\
{FCOLOR/12}<[ Return to main ]/@main>{FCOLOR/12}\ \
#ELSESAY
___{FCOLOR/10}Ah <$USERNAME>. This function requires you have level 40{FCOLOR/10}\\
{FCOLOR/12}If you have not achieved level 40 you cannot proceed any further.{FCOLOR/12}\\
{FCOLOR/12}<[ Return to main ]/@main>{FCOLOR/12}\\
{FCOLOR/12}<[ Exit ]/@exit>{FCOLOR/12}\\
[@开始使用染色]
#IF
#SAY
{FCOLOR/14}RGB{FCOLOR/12} are the three values that will determine the dye colour.\
{FCOLOR/14}Please input a number between 0-255 into the categories below. :{FCOLOR/12}\\
Input R Value {FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12} <R Value (0-255)/@@R数值>\
Input G value {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12} <G Value (0-255)/@@G数值>\
Input B Value {FCOLOR/11}<$OUTPUT(D3)>{FCOLOR/12} <B Value (0-255)/@@B数值>\\
{FCOLOR/14}If all values stay at 0, the colour output will be black.{FCOLOR/12}\
<[ Begin the process ]/@输入搞定>\\
<[
Return/@main ]>\\
[@@R数值]
#ACT
mov D0 %INPUTSTR
#IF
elarge D0 256
#SAY
Please inputs the value between 0-255!
#act
break
#IF
small D0 0
#SAY
Please inputs the value between 0-255!
#act
break
#IF
#act
mov D1 %D0
SysMsg "The R value is <$OUTPUT(D1)>, If Complete, please Dye."
goto @染色
break
[@@G数值]
#ACT
mov D0 %INPUTSTR
#IF
elarge D0 256
#SAY
Please inputs the value between 0-255!
#act
break
#IF
small D0 0
#SAY
Please inputs the value between 0-255!
#act
break
#IF
#act
mov D2 %D0
SysMsg "The G Vlaue is <$OUTPUT(D2)>, If Complete, please Dye."
goto @染色
break
[@@B数值]
#ACT
mov D0 %INPUTSTR
#IF
elarge D0 256
#SAY
Please inputs the value between 0-255!
#act
break
#IF
small D0 0
#SAY
Please inputs the value between 0-255!
#act
break
#IF
#act
mov D3 %D0
SysMsg "The B Value is <$OUTPUT(D3)>, If Complete, please Dye."
goto @染色
break
[@输入搞定]
#act
Delaygoto [local] 5 @进行染染
#say
_{FCOLOR/10}Please Wait - the system is processing the data...{FCOLOR/12}\
[@进行染染]
#IF
#ACT
wearcolor %D3 %D1 %D2
#say
_{FCOLOR/10}Your cloths were dyed successfully!{FCOLOR/12}\\
_Thank you for using my service, and hope to see you in the near future.\
_<
Return/@main>
#ELSESAY
gain the sufficient rank of level 40!\
<
Exit/@exit>