爱尚论坛-脚本代码-如何添加投毒NPC

爱尚论坛-脚本代码-如何添加投毒NPC
QManage
VAR Integer HUMAN 中毒
LOADVAR HUMAN 中毒 ..\QuestDiary\自定义变量\中毒.txt
MOV M18 <$HUMAN(中毒)>





[@中毒提示]
#if
large M18 1
#act
dec M18 1
GuildNoticeMsg 255 249 [危险警报]>>>【<$USERNAME>】你已被人投毒,现在还剩下(<$STR(M18)>)秒毒发身亡,请尽快到土城安全区找　毒物NPC　解毒。 self

[@中毒死亡]
#if
equal M18 1
#act
mov M18 0
KILL 0
Gmexecute TestStatus 4 0
SENDMSG 1 【<$USERNAME>】你的毒素已经蔓延全身，现在已经无药可救，安息吧！ self
break

#if
large M18 0
#act
DEC M18 1



添加NPC
投毒-3

[@main]
我研究了很多年的巫术，感觉要想致人死地，\
只有投毒的方法最简单实用。\
你是否有仇人，或者有你永远打不败的人呢？\
我可以帮你投毒，弄死他，但是你要付给我\
<50>元宝，并且你的PK值会增加<20>。\
你一定要考虑清楚\
<注意：被投毒的人可以到我这里买到解毒药>\
<我想好了，给你元宝，开始投毒/@@InPutString0>\
<我被投毒了，帮我解毒/@buyjiedu>\
<只有被投毒者，才能解毒，价格为50元宝>\

[@CallInPutString0]
#if
SO.ISCASTLEMASTER
#say
对方是沙巴克城主，不允许你投毒
#act
break

#if
checkcastlewar
#say
目前正在攻城，无法投毒
#act
break

#if
SO.CHECKONLINE
CHECKGAMEGOLD = 49
#act
GAMEGOLD - 50
CHANGEPKPOINT + 20
S0.MOV M18 120
S0.Gmexecute TestStatus 4 65535
GuildNoticeMsg 0 219 [系统]<$USERNAME>对<$STR(S0)>投毒成功，<$STR(S0)>要小心了！！！
close
break

#if
SO.CHECKONLINE
CHECKGAMEGOLD > 49
#act
GAMEGOLD - 50
CHANGEPKPOINT + 20
S0.MOV M18 120
S0.Gmexecute TestStatus 4 65535
GuildNoticeMsg 0 219 [系统]<$USERNAME>对<$STR(S0)>投毒成功，<$STR(S0)>要小心了！！！
close
#ELSESAY
被投毒者不在线，或者你的元宝不够<20>\

[@buyjiedu]
#if
CHECKGAMEGOLD = 49
large M18 1
#say
你身上的毒已经解除
#act
GAMEGOLD - 50
mov M18 0
Gmexecute TestStatus 4 0
break

#if
CHECKGAMEGOLD > 49
large M18 1
#say
你身上的毒已经解除
#act
GAMEGOLD - 50
mov M18 0
Gmexecute TestStatus 4 0
#ELSESAY
你没有被投毒，或者你的元宝不够<10>\