HERO引擎中用元宝诅咒别的玩家红名与解除诅咒的脚本

说明：用元宝诅咒别的玩家红名与解除诅咒的脚本，前提是对方要在线才可使用，然后把下面内容复制到NPC里。

(@@InPutString)
[@main]
诅咒说明:听说红名暴装备贼爽赶紧诅咒吧!!! \
<1:>A花1000元宝输入B的名字B会增加1万点PK值.B会立刻红名\
<2:>B也可通过消费1000元宝解除A对自己的红名诅咒\
<3:>玩家输入名字<@诅咒>可以诅咒别人或者解除诅咒\
<施加诅咒/@@InPutString1> <输入别人的名字施加红名诅咒>\ \
<解除诅咒/@@InPutString2> <输入自己的名字解除红名诅咒>\ \
<封闭对话/@EXIT>\

[@InPutString1]
#IF
CHECKGAMEGOLD > 999
CHECKONLINE <$STR(S1)>
#ACT
GAMEGOLD - 1000
GMEXECUTE PK2 <$STR(S1)> 10000
K2修改成自己脚本里的加PK值的命令
SENDMSG 1 <$USERNAME>通过诅咒系统给<$STR(S1)>施加红名诅咒成功!
SENDMSG 1 <$USERNAME>通过诅咒系统给<$STR(S1)>施加红名诅咒成功!
SENDMSG 1 <$USERNAME>通过诅咒系统给<$STR(S1)>施加红名诅咒成功!
SENDMSG 1 红名<$STR(S1)>目前所在位置:%m的(%x：%y)大家赶紧去3DGM基地她!
SENDMSG 1 红名<$STR(S1)>目前所在位置:%m的(%x：%y)大家赶紧去3DGM基地她!
SENDMSG 1 红名<$STR(S1)>目前所在位置:%m的(%x：%y)大家赶紧去3DGM基地她!
break


[@InPutString2]
#IF
CHECKONLINE <$STR(S2)>
checkpkpoint 50
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
CHANGEPKPOINT = 0
SENDMSG 1 <$USERNAME>成功解除了别人对他施加的红名诅咒!
SENDMSG 1 <$USERNAME>成功解除了别人对他施加的红名诅咒!

break
#ELSEACT
MessageBox 解除诅咒原因\1:身上没有1000个元宝来支付该项服务用度.\
CLOSE

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

谢谢楼主，共同发展