腾飞论坛 发表于 2012-11-11 09:07:45

元宝诅咒别的玩家红名与解除诅咒的脚本

前提是对方要在线才可使用，然后把下面内容复制到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)大家赶紧去传奇论坛她!
SENDMSG 1 红名<$STR(S1)>目前所在位置:%m的(%x：%y)大家赶紧去传奇论坛她!
SENDMSG 1 红名<$STR(S1)>目前所在位置:%m的(%x：%y)大家赶紧去传奇论坛她!
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



浮伤年华 发表于 2014-5-1 16:54:48

求加金币！

我本善良 发表于 2014-5-1 17:07:39

信楼主，考试不一条龙科！

王小爽 发表于 2014-5-1 17:13:42

东方不败还是灭绝师太啊？

杀毒 发表于 2014-5-1 16:58:46

一口气看完了，我要下去回味回味了！

浮伤年华 发表于 2014-5-1 17:05:23

白富美？高富帅？

自定义 发表于 2014-6-4 11:32:26

楼主主机很热情啊！

我爱龙 发表于 2014-6-4 11:44:09

东方不败还是灭绝师太啊？

七月的叛徒 发表于 2014-6-4 11:30:14

楼上的能详细介绍一下么？

夏天 发表于 2014-6-4 11:31:36

楼主英明！
页: [1] 2
查看完整版本: 元宝诅咒别的玩家红名与解除诅咒的脚本