传奇服务端随机捡宝-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