;;;QQ:67762207
[@密银宝箱]
{
#if
#SAY
宝箱将分为密银宝箱和精金宝箱\
开启密银宝箱将需要 冰城魔石\\

<[开启密银宝箱]/@开启密银宝箱>\

[@开启密银宝箱]
#IF
checkitem 密银宝箱 1
checkitem 冰城魔石 1
#ACT
take 冰城魔石 1
take 密银宝箱 1
loadvalue D0 "ParamControl\密银宝箱物品列表.ini" [总数] [数量]
movr D1 %D0
inc D1 1
mov 物品1 %D1
movr D1 %D0
inc D1 1
mov 物品2 %D1
movr D1 %D0
inc D1 1
mov 物品3 %D1
movr D1 %D0
inc D1 1
mov 物品4 %D1
movr D1 %D0
inc D1 1
mov 物品5 %D1
movr D1 %D0
inc D1 1
mov 物品6 %D1
movr D1 %D0
inc D1 1
mov 物品7 %D1
movr D1 %D0
inc D1 1
mov 物品8 %D1
movr D1 %D0
inc D1 1
mov 物品9 %D1
formatstr "%s物品" %物品1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字1 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量1 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位1 %A1
formatstr "%s物品" %物品2
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字2 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量2 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位2 %A1
formatstr "%s物品" %物品3
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字3 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量3 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位3 %A1
formatstr "%s物品" %物品4
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字4 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量4 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位4 %A1
formatstr "%s物品" %物品5
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字5 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量5 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位5 %A1
formatstr "%s物品" %物品6
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字6 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量6 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位6 %A1
formatstr "%s物品" %物品7
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字7 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量7 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位7 %A1
formatstr "%s物品" %物品8
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字8 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量8 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位8 %A1
formatstr "%s物品" %物品9
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [名字]
mov 名字9 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [数量]
mov 数量9 %A1
loadvalue A1 "ParamControl\密银宝箱物品列表.ini" [%A9] [单位]
mov 单位9 %A1


#SAY
宝箱开启的刹那,穿出浓郁的富贵之气.\
1：<$OUTPUT(名字1)> <$OUTPUT(数量1)><$OUTPUT(单位1)> 几率10%\
2：<$OUTPUT(名字2)> <$OUTPUT(数量2)><$OUTPUT(单位2)> 几率10%\
3：<$OUTPUT(名字3)> <$OUTPUT(数量3)><$OUTPUT(单位3)> 几率10%\
4：<$OUTPUT(名字4)> <$OUTPUT(数量4)><$OUTPUT(单位4)> 几率10%\
5：<$OUTPUT(名字5)> <$OUTPUT(数量5)><$OUTPUT(单位5)> 几率10%\
6：<$OUTPUT(名字6)> <$OUTPUT(数量6)><$OUTPUT(单位6)> 几率10%\
7：<$OUTPUT(名字7)> <$OUTPUT(数量7)><$OUTPUT(单位7)> 几率10%\
8：<$OUTPUT(名字8)> <$OUTPUT(数量8)><$OUTPUT(单位8)> 几率10%\
9：<$OUTPUT(名字9)> <$OUTPUT(数量9)><$OUTPUT(单位9)> 几率10%\
10：经验石 1个 几率10%\
{FCOLOR/1}注意请勿关闭对话框，否则将无法获得任何宝物{FCOLOR/12}\\
<[我要开启宝箱取出宝物]/@开启密银宝箱_2>\
#ELSESAY
你好象没有那么多东西.\\
<关闭/@exit>

[@开启密银宝箱_2]
#IF
#ACT
movr D4 10
inc D4 1
#SAY
宝箱已开启......\\

#IF
EQUAL D4 1
#ACT
give %名字1 %数量1
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字1)> <$OUTPUT(数量1)><$OUTPUT(单位1)>"
break

#IF
EQUAL D4 2
#ACT
give %名字2 %数量2
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字2)> <$OUTPUT(数量2)><$OUTPUT(单位2)> "
break


#IF
EQUAL D4 3
#ACT
give %名字3 %数量3
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字3)> <$OUTPUT(数量3)><$OUTPUT(单位3)> "
break


#IF
EQUAL D4 4
#ACT
give %名字4 %数量4

linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字4)> <$OUTPUT(数量4)><$OUTPUT(单位4)> "
break


#IF
EQUAL D4 5
#ACT
give  %名字5 %数量5
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字5)> <$OUTPUT(数量5)><$OUTPUT(单位5)> "
break



#IF
EQUAL D4 6
#ACT
give  %名字6 %数量6
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字6)> <$OUTPUT(数量6)><$OUTPUT(单位6)> "
break


#IF
EQUAL D4 7
#ACT
give  %名字7 %数量7
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字7)> <$OUTPUT(数量7)><$OUTPUT(单位7)> "
break


#IF
EQUAL D4 8
#ACT
give  %名字8 %数量8
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字8)> <$OUTPUT(数量8)><$OUTPUT(单位8)> "
break


#IF
EQUAL D4 9
#ACT
give  %名字9 %数量9
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得<$OUTPUT(名字9)> <$OUTPUT(数量9)><$OUTPUT(单位9)> "
break


#IF
EQUAL D4 10
#ACT
give 经验石 1
linemsg [grobal] "<$USERNAME>开启了密银宝箱:获得经验石1个"
break

}
;;;QQ:67762207