;;QQ:67762207
[@JiahuoPK]
{
#IF
checkcmd CHECKUSERJF 50
#SAY
是不是被人欺负或者遭受到了非人待遇呢?\
你想嫁祸给你的仇人?让他整天红名?你真的想这样做吗?\
我可以帮你实现这样的愿望.不过你得找到{FCOLOR/1}嫁祸卡{FCOLOR/12}才行.\
\
<给嫁祸卡/@geiPKx>\
<离 开/@exit>\
#ELSEACT
goto  @noka1


[@geiPKx]
#IF
checkcmd CHECKUSERJF 50
checkitem 嫁祸卡 1
#SAY
恩，不错就是这个卡片.\
请先确定他不在线，如果他在线，我的魔法就不灵了...\
\
<已经确定他不在线/@queding>\
<离 开/@exit>\
#ELSEACT
goto  @noka

[@queding]
#IF
checkcmd CHECKUSERJF 50
checkitem 嫁祸卡 1
#SAY
好的，现在输入你想要嫁祸的仇人名字.\
\
<输入仇人名称/@@shuru_PK>\

[@@shuru_PK]
#act
   mov  A0  %INPUTSTR
#IF
EQUAL A0 %USERNAME
#ACT
SYSMSG "对不起,不能输入自己的名字"
BREAK
#IF
EQUAL A0 ""
#ACT
SYSMSG "不能输入空信息"
BREAK
#elseact
#IF
checkcmd CHECKUSERJF 50
checkitem 嫁祸卡 1
#ACT
   mov  S1  8
#ACT
goto @CHARACTERx

[@CHARACTERx]
#IF
equal  S1 8
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A0
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_PKPOINT"  [@Point_PKPOINTPK+]

[@Point_PKPOINTPK+()]
#IF
#ACT
   mov       A3   %ARG(1)   
   mov       D3   %ARG(2)   ;;PK值

#SAY
请再确认一下，你真的要嫁祸给 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 这个人？\
{FCOLOR/11}请再确定一下，他是否不在线，只有不在线，我的魔法才有效.{FCOLOR/12}\
我会给他加上{FCOLOR/1}500点{FCOLOR/12}的红名值.\
\
<确认名字/@PK_+++>\

[@PK_+++]
#IF
checkcmd CHECKUSERJF 50
checkitem 嫁祸卡 1
equal  S1 8
#ACT
actcmd SETUSERJF - 50  
take 嫁祸卡 1
lineMsg [Grobal] "天灵灵，地灵灵，大陆上某位英雄被小人暗算了..."

   FormatStr "FLD_CHARACTER='%s'" %A0
   mov   A8      %A9
   inc   D3  500
   FormatStr "FLD_PKPOINT='%s'" %D3
   UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
   mov S1 0

#SAY
游戏人物 {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} 目前的红名值是 {FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/12} 点.\
{FCOLOR/11}做这这样的事情，真是罪过啊。。无语了。。\
<结 束/@exit>
#ELSEACT
goto  @作弊

;;-----------------------------------------------------------------

[@作弊]
#SAY
{FCOLOR/1}小心了。。下次再这样，直接删除人物.\
<离 开/@exit>\

[@noka]
#SAY
{FCOLOR/10}你没有嫁祸卡，我不能施展魔法...\
<离 开/@exit>\

[@noka1]
#SAY
{FCOLOR/10}有50点积分加一张嫁祸卡我就能帮你实现嫁祸别人的愿望.\
没钱最好走远点....\
<离 开/@exit>\

}
;;QQ:67762207