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

@@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