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