传奇服务端随机捡宝-B011活动脚本

[@MAIN]

#IF
#SAY
<Img:194:0:-20:-8>\
　\
　\
　\
　 　 　百分百拣宝:还等什么!<终极装备/SCOLOR=57>等你拣...\
　\
　<温馨提示:/SCOLOR=57><已全面更新!不会出现掉单现象,请放心拣宝!/SCOLOR=254>\
　 \
　<拣宝需要5000元宝,是否启动?/SCOLOR=250>\
　　　　　　　　　　    <Img:195:0:33:-25/@启动拣宝> <Img:196:0:33:-25/@返回盟重>\


[@启动拣宝]
#IF
CHECKGAMEGOLD < 5000
#ACT
MESSAGEBOX [提示]：你最少要【5000】元宝才可以飞去捡。
BREAK
#ELSEACT
GAMEGOLD - 5000
MOVR M1 1 39
GetRandomText .\QuestDiary\随机拣宝\坐标列表X.txt S1 <$STR(M1)>
GetRandomText .\QuestDiary\随机拣宝\坐标列表Y.txt S2 <$STR(M1)>
ClearItemMap B011 <$STR(S1)> <$STR(S2)> 1 *
MOV S0 <$GLOBAL(
INC S0 拣宝物品
INC S0 <$STR(M1)>
INC S0 )>
ThrowItem B011 <$STR(S1)> <$STR(S2)> 1 <$STR(S0)> 1
MAPMOVE B011 <$STR(S1)> <$STR(S2)>
GetRandomText .\QuestDiary\随机拣宝\物品列表.txt S0
ThrowItem B011 <$STR(S1)> <$STR(S2)> 1 <$STR(S0)> 1|60000
MOV S1 拣宝物品
INC S1 <$STR(M1)>
CALCVAR GLOBAL <$STR(S1)> = <$STR(S0)>
BREAK

[@返回盟重]
#IF
#ACT
mapmove 3 333 333
BREAK

真是被感动的痛哭流涕……

真是难得给力的帖子啊。

看到这帖子真是高兴！

激动人心，无法言表！

强烈支持楼主ing……

楼主加油，我们都看好你哦。

淡定，淡定，淡定……

真是被感动的痛哭流涕……

强烈支持楼主ing……