[@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仿盛大sf 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
mapm新开中变传奇sfove 3 333 333
BREAK