您当前的位置：首页 > 传奇技术

传奇服务端随机捡宝-B011活动脚本

本文出处：网游动力作者：本站发布时间：2014-12-04阅读次数：

[@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

热门文章