完全具有社会主义特色的诅咒巫婆脚本

@@InPutString @@InPutInteger )
[@main]
在游戏中是否有你的敌人，你很讨厌他，恨不得千刀万剐?
如果能叫游戏中的所有人见到他就杀一次，是不是能解你心头之恨?
这里就是让你出气解恨的。<输入玩家名字，全服的人都会去追杀他/@@InPutString101>
诅咒玩家需要元宝数量：<5000个/@a>---解除诅咒需要元宝数量:<4000个/@a>
<不幸被诅咒将获得5000点的诅咒值.身背“倒霉蛋”特殊变色封号！/SCOLOR=249>
<杀死被诅咒的倒霉蛋将有双倍几率爆取他身上的装备！/SCOLOR=251>
<通缉仇人/@@InPutString101>　　<解除通缉/@解除>　　<元宝数量/SCOLOR=249>:<$GAMEGOLD>个　<罪恶点数/SCOLOR=249>:<$PKPOINT>

[@解除]
#IF
CHECKNAMELIST ..QuestDiary数据文件被通缉的.txt
CHECKGAMEGOLD ? 4000
#ACT
GAMEGOLD - 4000
CHANGEPKPOINT - 50000
delnamelist ..QuestDiary数据文件被通缉的.txt
GMEXECUTE TestStatus 4 0
GuildNoticeMsg 9 72 ぐ【诅咒】:倒霉蛋“『<$USERNAME>』”终于解除了自己身上的诅咒.从此可以重新做人了!
#CALL [\服务等级封号.txt] @等级封号
#ELSEACT
MessageBox [错误信息]:穷人？还是根本没有被诅咒？？

[@CALLInPutString101]
#IF
S0.CHECKOFFLINE
#ACT
GOTO @main
MessageBox [错误信息]:当前人物处于离线挂机状态！
break
#IF
S0.CHECKONLINE
CHECKGAMEGOLD ? 5000
#ACT
GAMEGOLD - 5000
GMEXECUTE 开始提问 @通辑犯
ADDTEXTLIST .QuestDiary数据文件被通缉的.txt <$STR(S0)>
S0.SETRANKLEVELNAME %s╔┄╗★★★倒霉蛋★★★╚┄╝
S0.GMEXECUTE TestStatus 4 720000
S0.CHANGEPKPOINT + 50000
SENDMSG 6 恭喜:你获得了５００００诅咒值.你的死亡将会双倍掉落身上装备!祝你好运!! SELF
GuildNoticeMsg 58 6 ぐ【诅咒】:『<$USERNAME>』花费5000元宝诅咒了[<$STR(S0)>]，使其变成了全球公认的“倒霉蛋”!
GuildNoticeMsg 6 5 ぐ【诅咒】:『<$USERNAME>』说：凡是杀死→[<$STR(S0)>]←将会有双倍机率暴出他身上的宝物!
#ELSEACT
MessageBox [错误信息]:元宝不足或者对方不在线！
close