[@MAIN]
#IF
#SAY
Img:194:0:-20:-8\
\
\
\
百分百拣宝:还等什么!终极装备/SCOLOR=57等你拣...\
\
温馨提示:/SCOLOR=57已全面更新!不会出现掉单现象,请放心拣宝!/SCOLOR=254\
\
拣宝需要传奇总裁5000元宝,是否启动?/SCOL185合击OR=250\
Img:195:0:33:-25/@启动拣宝 Img:19龙腾世界sf6:0:33:-25/@返回盟重\
[@启动拣宝]
#IF
CHECKGAMEGOLD 5000
#ACT
MESSAGEBOX [提示]：你最少要【5000】元宝才可传奇2客户端以飞去捡。
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
标签：新开但职业传奇
