传奇服务端随机捡宝-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
MOVRM1139
GetRandomText.\QuestDiary\随机拣宝\坐标列表X.txtS1<$STR(M1)>
GetRandomText.\QuestDiary\随机拣宝\坐标列表Y.txtS2<$STR(M1)>
ClearItemMapB011<$STR(S1)><$STR(S2)>1*
MOVS0<$GLOBAL(
INCS0拣宝物品
INCS0<$STR(M1)>
INCS0)>
ThrowItemB011<$STR(S1)><$STR(S2)>1<$STR(S0)>1
MAPMOVEB011<$STR(S1)><$STR(S2)>
GetRandomText.\QuestDiary\随机拣宝\物品列表.txtS0
ThrowItemB011<$STR(S1)><$STR(S2)>1<$STR(S0)>1|60000
MOVS1拣宝物品
INCS1<$STR(M1)>
CALCVARGLOBAL<$STR(S1)>=<$STR(S0)>
BREAK
[@返回盟重]
#IF
#ACT
mapmove3333333
BREAK