西瓜柚子冰 发表于 2019-9-11 18:36:47

传奇服务端随机捡宝-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
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

石头的故乡 发表于 2019-9-11 22:06:04

不错 支持一个了

孤单的小二比 发表于 2019-9-12 17:00:50

围观 围观 沙发在哪里！！！

zhanduicx 发表于 2019-9-13 20:13:50

学习学习谢谢分享

@Xizi_Jo2Pk3R0 发表于 2019-9-16 00:01:51

看起来好像不错的样子

suiguofang 发表于 2019-10-1 18:11:24

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

emingkwok 发表于 2019-10-5 02:58:12

支持，赞一个

帮帮兔BBT 发表于 2019-10-5 13:48:38

鼎力支持！！

程阿宝 发表于 2019-10-11 20:59:40

呵呵，低调，低调！

未注册用户01 发表于 2019-10-12 20:18:02

我也是坐沙发的
页: [1] 2 3 4 5 6 7
查看完整版本: 传奇服务端随机捡宝-B011活动脚本