实现玩家之间相互加诅咒封号的功能

此脚本是大窗口界面，比较适合在线通缉，不在线是用不了的哦，把下面脚本复制到对应文本就好

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

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