(@upgradeitems)
[@main]
#IF
ISADMIN
#SAY
===========================================================\
<GM׼ʿ̨/AUTOCOLOR=253,249,245,70,250,191,168,251>\
ʸʽΪ[X]% XΪ0-100Ȼ,\

<ҿɼ/@>\
<ʿƺ̨/@Ƽ>\
===========================================================\

<װ/@upgradeitems> <ײϲ鿴/@鿴>\\

#ELSEACT
GOTO @

[@]
ͷǿ˺䡻ǿ\
ǿħӡǿ\
ǿӽҡָǿӵ\
ָǿӽʧǿֹҡ\
ǿħ˺١ѥǿֹʧ\
Ůǿħ˺١ǿ˺١\
ǿ˺ӡѫǿ\
<ÿνǿħ10㼰Ӧ2%!ʧܽǿ۳Ӧ>\ 
===========================================================\
<ʼװ/@upgradeitems>    <ײϲ鿴/@鿴>\

[@CHANGEITEMS]
#IF
#SAY
ͷǿ˺䡻ǿ\
ǿħӡǿ\
ǿӽҡָǿӵ\
ָǿӽʧǿֹҡ\
ǿħ˺١ѥǿֹʧ\
Ůǿħ˺١ǿ˺١\
ǿ˺ӡѫǿ\
<ÿνǿħ10㼰Ӧ2%!ʧܽǿ۳Ӧ>\ 
<ʼװ/@ݳʼ>\
[@ݳʼ]
#IF
CHECKBAGITEMSTARSLEVEL < 50
#ACT
MOV <$STR(NǸ)> 0
GOTO @װ
#ELSESAY
װѾﵽ50,!

[@װ]
#IF
CHECKPUTITEMTYPE 11
#ACT
MOV <$STR(N)> 2
GOTO @
break

#IF
CHECKPUTITEMTYPE 10
#ACT
MOV <$STR(N)> 2
GOTO @
break

#IF
CHECKPUTITEMTYPE 7
#ACT
MOV <$STR(N)> 1
GOTO @
break
#IF
CHECKPUTITEMTYPE 15
#ACT
MOV <$STR(N)> 4
GOTO @
break
#IF
CHECKPUTITEMTYPE 25
#ACT
MOV <$STR(N)> 3
GOTO @
break

#IF
CHECKPUTITEMTYPE 5
#ACT
MOV <$STR(N)>  5
GOTO @
break

#IF
CHECKPUTITEMTYPE 30
#ACT
MOV <$STR(N)> 2
GOTO @
break

#IF
CHECKPUTITEMTYPE 20
#ACT
MOV <$STR(N)> 3
GOTO @
break

#IF
CHECKPUTITEMTYPE 26
#ACT
MOV <$STR(N)> 4
GOTO @
break


#IF
CHECKPUTITEMTYPE 22
#ACT
MOV <$STR(N)> 5
GOTO @
break

#IF
CHECKPUTITEMTYPE 23
#ACT
MOV <$STR(N)> 11
GOTO @
break
#IF
CHECKPUTITEMTYPE 24
#ACT
MOV <$STR(N)> 12
GOTO @
break

#IF
CHECKPUTITEMTYPE 62
#ACT
MOV <$STR(N)> 13
GOTO @
break

#IF
CHECKPUTITEMTYPE 64
#ACT
MOV <$STR(N)> 14
GOTO @
break


[@]
#IF
CHECKBAGITEMSTARSLEVEL = <$STR(NǸ)>
#ACT
MOV <$STR(NװǼ)> <$STR(NǸ)>
GOTO @ϳʼ
#ELSEACT
INC <$STR(NǸ)> 1
GOTO @
[@ϳʼ]
#IF
LARGE <$STR(NװǼ)> 9
SMALL <$STR(NװǼ)> 20
#ACT
MOV <$STR(S)> <$STR(A101)>
GOTO @ȷ
BREAK
#IF
LARGE <$STR(NװǼ)> 19
SMALL <$STR(NװǼ)> 30
#ACT
MOV <$STR(S)> <$STR(A102)>
GOTO @ȷ
BREAK
#IF
LARGE <$STR(NװǼ)> 29
SMALL <$STR(NװǼ)> 40
#ACT
MOV <$STR(S)> <$STR(A103)>
GOTO @ȷ
BREAK
#IF
LARGE <$STR(NװǼ)> 39
SMALL <$STR(NװǼ)> 50
#ACT
MOV <$STR(S)> <$STR(A104)>
GOTO @ȷ
BREAK
#IF
SMALL <$STR(NװǼ)> 10
#ACT
MOV <$STR(S)> <$STR(A100)>
GOTO @ȷ
BREAK
[@ȷ]
װǰǼ:<$STR(NװǼ)>\
װײ:<$STR(S)>\
<ȷĲ뱸>\
<ʼ/@>

[@]
#IF
CHECKITEM <$STR(S)> 1
#ACT
GOTO @ʼɹ
#ELSESAY
ϲ޷ף\




[@ʼɹ]
#IF
#ACT
MOVR <$STR(Nɹ)> 99
MOV <$STR(Nϵͳ趨)> <$STR(G200)>
GOTO @ɹж

[@ɹж]
#IF
SMALL <$STR(Nɹ)> <$STR(Nϵͳ趨)>
#ACT
INC <$STR(NǸ)> 10
MOV <$STR(S)> ɹ
GOTO @
#ELSEACT
MOV <$STR(S)> ʧ
GOTO @ʼ
[@ʼ]
#ACT
MOVR <$STR(NǼ)> 99
MOV <$STR(NϵͳǼ)> <$STR(G201)>
GOTO @ж

[@ж]
#IF
SMALL <$STR(NǼ)> <$STR(NϵͳǼ)>
#ACT
#ACT
DEC <$STR(NǸ)> 10
MOV <$STR(S)> 
GOTO @
#ELSEACT
GOTO @
MOV <$STR(S)> ʧ
[@]
#IF
LARGE <$STR(NǸ)> 0
#ACT
TAKE <$STR(S)> 0
MOV <$STR(NԵ)> <$STR(NǸ)>
MOV <$STR(NװǼ)> <$STR(NǸ)>
MUL <$STR(NԵ)> 10
CHANGEITEMNEWADDVALUE <$STR(N)> = <$STR(NԵ)>
GOTO @ʼ
[@ʼ]
#ACT
CHANGEBAGITEMSTARSLEVEL = 0
GOTO @

[@]
#IF
LARGE <$STR(NǸ)> 0
#ACT
CHANGEBAGITEMSTARSLEVEL + 5
DEC <$STR(NǸ)> 1
GOTO @
#ELSEACT
GOTO @MAIN


[@Ƽ]
ƽ׳ɹ.</@main>\
<óǳɹ/@@InPutIntegerɹ> [<$STR(G200)>%]\
<óǽǼ/@@InPutIntegerǼ> [<$STR(G201)>%]\
<1---10ǳ><:/@@InPutStringǲ1>[<$STR(A100)>]\
<11--20ǳ><:/@@InPutStringǲ2>[<$STR(A101)>]\
<21--30ǳ><:/@@InPutStringǲ3>[<$STR(A102)>]\
<31--40ǳ><:/@@InPutStringǲ4>[<$STR(A103)>]\
<41--50ǳ><:/@@InPutStringǲ5>[<$STR(A104)>]\
<ע:ֻʧܲŻᴥǼ>\

[@InPutIntegerɹ]
#ACT
MOV G200 N0
sendmsg 6 óɹΪ[<$STR(G200)>]%
GOTO @Ƽ
break
[@InPutIntegerǼ]
#ACT
MOV G201 N0
sendmsg 6 ýǼΪ[<$STR(G201)>]%
GOTO @Ƽ
break
[@InPutStringǲ1]
#ACT
MOV A100 S0
sendmsg 6 1-10ǲΪ[<$STR(A100)>]
GOTO @Ƽ
break

[@InPutStringǲ2]
#ACT
MOV A101 S0
sendmsg 6 11-20ǲΪ[<$STR(A101)>]
GOTO @Ƽ
break

[@InPutStringǲ3]
#ACT
MOV A102 S0
sendmsg 6 21-30ǲΪ[<$STR(A102)>]
GOTO @Ƽ
break
[@InPutStringǲ4]
#ACT
MOV A103 S0
sendmsg 6 31-40ǲΪ[<$STR(A103)>]
GOTO @Ƽ
break

[@InPutStringǲ5]
#ACT
MOV A104 S0
sendmsg 6 41-50ǲΪ[<$STR(A105)>]
GOTO @Ƽ
break

[@鿴]
Ϊ:\
1--10(<$STR(A100)>)\
11-20(<$STR(A101)>)\
21-30(<$STR(A102)>)\
31-40(<$STR(A103)>)\
41-50(<$STR(A104)>)\





