奇私服[@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
ThrowIt传奇新开私服em B011 $S今日新开传奇2私服TR(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