玩传奇论坛

 找回密码
立即注册

扫一扫,访问移动社区

论坛喇叭+ 发布

01-25 10:01
系统通知全站压缩包解压密码:www.wanmirbbs.com
01-25 10:01
01-25 10:01
查看: 4107|回复: 9
打印 上一主题 下一主题

鲜花赠送脚本

[复制链接]
跳转到指定楼层
楼主
发表于 2018-2-25 22:06:44 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

马上注册,以游结友!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x


1、新建一个鲜花捐献-3.txt,加入以下脚本:

[@main]
#if
#act
mov s5
mov n5 0
mov s$赠送名字
mov s$赠送数量
mov n$费用 200
mov s$魅力第一 <$STR(A80)>
mov s$魅力第二 <$STR(A81)>
mov s$魅力第三 <$STR(A82)>
mov s$魅力值一 <$STR(G80)>朵玫瑰
mov s$魅力值二 <$STR(G81)>朵玫瑰
mov s$魅力值三 <$STR(G82)>朵玫瑰
#if
#say
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=155>\
<鲜花说明:/SCOLOR=95><玩家.赠送鲜花需要200元宝一朵/SCOLOR=147>\
<玩家注意:/SCOLOR=95><请在合区之前把你手上的鲜花用完.合区后鲜花数量归零/SCOLOR=147>\
<注意事项:/SCOLOR=95><你只要有520朵鲜花.就可以兑换(终极鲜花)一个/SCOLOR=147>\
<你目前有: /SCOLOR=224> <$HUMAN(XH)> <朵鲜花/SCOLOR=224> \ \
<赠送鲜花√/@赠送>     <用520朵鲜花兑换/@兑换2>     <兑换神秘装备/@1314>\
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=155>\

[@1314]
#if
CHECKLEVELEX > 54
#act
goto @111222
#elsesay
\  \  \你的级别不够55级,所以不可以查看!!快抓紧时间冲级吧!!
[@111222]
<------------------------------------------------------------/SCOLOR=13>\
<√究极玫瑰:/AUTOCOLOR=250> <2个终极鲜花+2W泡点值.可兑换.究极玫瑰./AUTOCOLOR=151> \
<√究极玫瑰:/AUTOCOLOR=250> <佩带.究极玫瑰.可触发.防麻痹属性./AUTOCOLOR=242>  \
<√神龙护体:/AUTOCOLOR=250> <需要开天1个 镇天1个 玄天1个+6W泡点值/AUTOCOLOR=151>  \
<√神龙护体:/AUTOCOLOR=250> <佩带.神龙护体.可触发.双防15-15/AUTOCOLOR=242> \ \
<兑换究极玫瑰/@兑换3>     <兑换神龙护体/@兑换4>\
<------------------------------------------------------------/SCOLOR=13>\

[@赠送]
#if
#act
SetStringBlank <$STR(s$赠送名字)> 17 1
SetStringBlank <$STR(s$赠送数量)> 17 1
#say
<尊敬的游戏玩家,您好/SCOLOR=151> <〖请输入以下收花人信息〗/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<1、/FCOLOR=70>当前接收鲜花的玩家名字:{<$STR(s$赠送名字)>/FCOLOR=151}     <√输入名字/@@InPutString5>\
<2、/FCOLOR=250>当前赠送对方的鲜花数量:{<$STR(S$赠送数量)>/FCOLOR=253}     <√输入数量/@@InPutInteger5>\
<3、/FCOLOR=254>当前你需要结算的费用为:{<$STR(n$费用)>元宝/FCOLOR=229}  \
<你目前有: /SCOLOR=224> <$HUMAN(XH)> <朵鲜花/SCOLOR=224>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
<√确定赠送/@确定赠送>               <√返回首页/@main>               <关闭对话×/@exit>\

[@InPutString5]
#if
EQUAL S5
#act
MOV S5
MESSAGEBOX \提示:接受鲜花的人物名不能为空!
BREAK

#if
#act
mov s$赠送名字 <$STR(S5)>
goto @赠送

[@InPutInteger5]
#IF
SMALL N5 10
#ACT
MOV N5 0
MESSAGEBOX \提示:请输入10以上的数字
BREAK

#IF
LARGE N5 1000
#ACT
MOV N5 0
MESSAGEBOX \提示:请输入1000以下的数字
BREAK

#if
#act
mov s$赠送数量 <$STR(n5)>朵玫瑰
mul n$费用 N5 200
goto @赠送

[@确定赠送]
#if
EQUAL S5
#act
MESSAGEBOX \提示:你未输入接受鲜花的人物名!
BREAK
#if
SMALL N5 1
#act
MESSAGEBOX \提示:你未输入赠送鲜花的数量!
BREAK

#if
s5.CheckOnline
#elseact
MESSAGEBOX \提示:你输入的赠送玩家不在线!
BREAK
#if
equal s5 <$USERNAME>
#act
MESSAGEBOX \提示:不能给自己赠送鲜花!
BREAK

#if
s5.CheckOnline
CHECKGAMEGOLD > <$STR(n$费用)>
#act
GAMEGOLD - <$STR(n$费用)>
mov I5 <$STR(n5)>
mov A85 <$USERNAME>
s5.CALCVAR HUMAN XH + <$STR(I5)>
s5.SAVEVAR HUMAN XH ..\QuestDiary\数据文件\XH.txt
MESSAGEBOX \提示:成功赠送<$STR(n5)>朵玫瑰给玩家<$STR(s5)>!
s5.SENDMSG 6 提示:<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花!
s5.SENDMSG 6 提示:<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花!
s5.SENDMSG 6 提示:<$STR(A85)>赠送给你<$STR(I5)>朵玫瑰花!
s5.SENDMOVEMSG 0 251 0 250 2 提示:[<$USERNAME>]获得了[<$STR(A85)>]赠送的[<$STR(I5)>朵]鲜花!大家鼓掌!!!
BREAK

#ELSEACT
MESSAGEBOX \提示:你没有<$STR(n$费用)>元宝来支付本次赠送费用
BREAK

[@兑换2]
#IF
CHECKVAR HUMAN XH > 519
#ACT
CALCVAR HUMAN XH - 520
SAVEVAR HUMAN XH ..\QuestDiary\数据文件\XH.txt
give 终极鲜花 1
SENDMSG 6  恭喜您成功兑换520朵鲜花,获得终极鲜花一个!!
#ELSEACT
MESSAGEBOX 对不起!你没有520朵鲜花?
BREAK

[@兑换3]
#if
checkitem 终极鲜花 2
CHECKGAMEGIRD > 19999
#ACT
take 终极鲜花 2
give 究极玫瑰 1
GAMEGIRD - 20000
SENDMSG 1 〖提示〗恭喜玩家「{%s|227:0:1}」成功兑换究极玫瑰一个触发隐藏属 性防麻痹!!
SENDMSG 6  恭喜您成功兑换究极玫瑰一个触发隐藏属 性防麻痹!!
#ELSEACT
MESSAGEBOX 哥,你没有20000点泡点值。或者缺少终极鲜花2个

[@兑换4]
#if
checkitem 开天 1
checkitem 镇天 1
checkitem 玄天 1
CHECKGAMEGIRD > 59999
#ACT
take 开天 1
take 镇天 1
take 玄天 1
give 神龙护体 1
GAMEGIRD - 60000
SENDMSG 1 〖提示〗恭喜玩家「{%s|227:0:1}」成功兑换神龙护体一个触发双防20-20!!
SENDMSG 6  恭喜您成功兑换究极玫瑰一个触发隐藏属 性防麻痹!!
#ELSEACT
MESSAGEBOX 哥,你没有60000点泡点值。或者缺少开天1个镇天1个玄天1个
法律声明:
1. 本站所有资源和素材来源于网络收集,如有侵权内容请联系站长删除处理!
2. 本站大部分下载资源收集于网络,版权归原作者所有,如有侵权请联系删除。
3. 本站提供的素材、源码、等等其他资源,都不包含技术服务支持!
4. 若因线路和服务器问题非本站所能控制范围的故障导致暂停服务期间造成的一切不便与损失,论坛不负任何责任。
5. 注册会员通过任何手段和方法针对论坛进行破坏,我们有权对其行为作出处理。并保留进一步追究其责任的权利。
收藏收藏1 分享分享 分享淘帖 支持支持 反对反对
沙发
发表于 2018-4-6 15:28:54 | 只看该作者
回的人少,我来小顶一下!
板凳
发表于 2018-7-29 15:36:27 | 只看该作者
撒打算打算大多数
地板
发表于 2019-2-7 10:46:27 | 只看该作者
珍惜生命,果断回帖。
5#
发表于 2019-2-21 10:02:19 | 只看该作者
很干净的论坛,不错!
6#
发表于 2019-2-24 10:28:25 | 只看该作者
确实是难得好帖啊,顶先!
7#
发表于 2019-2-25 10:34:39 | 只看该作者
支持,赞一个
8#
发表于 2019-2-25 10:40:42 | 只看该作者
为保住菊花,这个一定得回复!
懒得打字嘛,点击右侧快捷回复 【乱回复纯数字纯字母将禁言】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

必备工具

地图查看分析转换三合一

目前地图转换 单纯的OB真彩地图转换编...号想必很多人都会, 也有很多工具

南宫地图编辑器v5.0

使用方法,放置传奇客户端DATA文件夹...

Tiles转换工具,支持支持255

支持255地图转换工具!

关于本站

玩传奇论坛 - 专业提供游戏素材、游戏工具、传奇单机、传奇服务端,致力于打造最精品的版本素材分享平台!

Archiver|小黑屋|玩传奇吉ICP备18002996号-1) |网站地图 

GMT+8, 2024-12-23 08:38 , Processed in 0.039588 second(s), 38 queries , Gzip On. 

 Powered by Discuz! X3.2

 © 2001-2013 Comsenz Inc.

返回顶部