[综合游戏代码] 神兵积分换取提取脚本,锻造黄金陨铁

[复制链接]
发表于 2019-4-10 19:19:26 | 显示全部楼层 |阅读模式
[@MAIN]
#if
#act
MOV S1
MOV S2
MOV S2 HUMAN 神兵积分
MOV S1 <
INC S1 S2
INC S1 /FColor=58>
OPENMERCHANTDLG 19|130|1|542|274|0|0|0|1|393|25
#SAY
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 玛法勇士!你有多余的高级神兵吗?只要你能给我这些武器我将\
 送你大量神兵积分.怒斩 龙牙=5点神兵积分,逍遥扇,霸者之刃\
 =20点神兵积分。屠龙 嗜魂法杖=30点神兵积分,天之屠龙 天之\
 嗜魂法杖 天之逍遥扇=50点神兵积分.如果你拥有1000点积分可以\
 去卧龙后院找我师弟(卧龙老庄主)换取黄金武器一把!\
 <我想上交武器换取积分/@我想上交武器换取积分><(请保管好贵重物品,如回收一律自负)/FColor=58>\
 <我想提取神兵积分/@我想提取神兵积分>\
 <300灵符锻造黄金陨铁/@@InPutInteger2|Title=请输入锻造的黄金陨铁数量(1-99)>你当前的神兵积分数量是∶<$STR(S1)>\ \ \



[@InPutInteger2]
#IF
LARGE N2 0
SMALL N2 100
#act
MOV N3 0
MUL N3 N2 300
#ELSEACT
MESSAGEBOX 你输入的数量有误,请重新输入1-99之间是数量
GOTO @MAIN
BREAK

#if
CHECKGAMEGIRD > <$STR(N3)>
#act
GIVE 黄金陨铁 <$STR(N2)>
GAMEGIRD - <$STR(N3)>
SENDMSG 7 恭喜:你成功使用<$STR(N3)>个灵符锻造了;<$STR(N2)>颗黄金陨铁!
SENDMSG 0 <$USERNAME>使用<$STR(N3)>个灵符锻造了;<$STR(N2)>颗黄金陨铁!
GOTO @MAIN
#ELSEACT
MESSAGEBOX 对不起,您没有足够的灵符来兑换黄金陨铁!
GOTO @MAIN

[@我想上交武器换取积分]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 <(请保管好贵重物品,如回收一律自负)/FColor=58>\
 你确定要回收背包可回收武器吗???\
 怒斩 龙牙=5点神兵积分,天之怒斩 天之龙牙=8点神兵积分,\
 逍遥扇,霸者之刃=20点神兵积分,屠龙 嗜魂法杖=30点神兵积分,\
 天之屠龙 天之嗜魂法杖 天之逍遥扇=50点神兵积分!\ \


 <请帮我回收换取神兵积分吧/@请帮我回收换取神兵积分吧>    <算了!我不回收了/@EXIT>\\






[@请帮我回收换取神兵积分吧]
#IF
CheckBagItems \QuestDiary\装备回收\怒斩龙牙.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 5
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:5点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\天之怒斩龙牙.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 8
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:8点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\逍遥霸者.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 20
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:20点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\屠龙嗜魂.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 30
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:30点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\天之武1器.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 50
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:50点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

BREAK
#ELSEACT
SENDMSG 6 已完成可回收的武器,你当前神兵积分为;<$HUMAN(神兵积分)>!


[@我想提取神兵积分]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 你要提取多少积分呢?\

 <10点神兵积分/@10点神兵积分>\
 <100点神兵积分/@100点神兵积分>\


[@100点神兵积分]
#IF
CHECKVAR HUMAN 神兵积分 > 99
#act
CALCVAR HUMAN 神兵积分 - 100
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
give 100点神兵积分
DELAYGOTO 1 @我想提取神兵积分
SENDMSG 6 恭喜你提取:100点神兵积分
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
 你没有足够的神兵积分可提取!
#ELSEACT
break

[@10点神兵积分]
#IF
CHECKVAR HUMAN 神兵积分 > 9
#act
CALCVAR HUMAN 神兵积分 - 10
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充值积分\神兵积分Save.txt
give 10点神兵积分
DELAYGOTO 1 @我想提取神兵积分
SENDMSG 6 恭喜你提取:10点神兵积分
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
 你没有足够的神兵积分可提取!
#ELSEACT
break





上一篇:52级前后土城自动安全泡点脚本,每秒经验加成
下一篇:龙人书页合成技能秘籍脚本,回收护体神盾
爱上论坛,GM基地,传奇基地,传奇SF,传奇素材网,传奇脚本网,传奇一条龙,服务器租用,版本定制!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|传奇GM论坛 ( 湘ICP备16009886号-2 )|网站地图

Powered by Discuz! X3.4© 2001-2013 Comsenz Inc.

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系(2364142471)

今天是: | 本站已经安全运行: //这个地方可以改颜色

9pk | 9ss | 99j | 88a | haosf | zhaosf | laomir | qusf | 2hq | 6xq

热血传奇 | 英雄合击 | 贪玩蓝月 | 手机版传奇 | 网页版传奇 | 单职业传奇 | 传奇服务端 | 传奇广告代理 | 传奇广告价格表

传奇引擎 | 传奇版本 | 传奇脚本 | 传奇工具 | 传奇加速器 | 传奇登陆器 | 传奇教程 | 传奇论坛 | 传奇广告发布 | 传奇版本下载站

复古传奇 | 金币传奇 | 打金传奇 | 轻变传奇 | 微变传奇 | 中变传奇 | 超变传奇 | 变态传奇 | 合击传奇 | 连击传奇 | 迷失传奇 | 单职业传奇 | 开区模板

51LA统计
快速回复 返回顶部 返回列表