[Gm版本库]传奇脚本系列-通缉大师

GM版本库

;
(@@InPutString @@InPutInteger)
[@main]
#IF
#ACT
CloseBigDialogBox
#SAY
<包龙星包大人在此，谁敢放肆..../SCOLOR=250>\
<只要证据确凿，您就可以发起坐监和通缉功能/SCOLOR=250>\
<坐监说明：/SCOLOR=249>\
输入玩家姓名，对方就会被抓到监狱里，没保释前无法自由活动\
使用费<2000/SCOLOR=254>元宝，保释费用<2500/SCOLOR=254>元宝          <发起坐监功能/@发起坐监功能>\
<通缉说明：/SCOLOR=249>\
输入玩家姓名，对方全服通缉，上线无限红名\
使用费用<1000/SCOLOR=254>元宝，解除费<1500/SCOLOR=254>元宝，杀死通缉犯可以获得<800/SCOLOR=254>元宝\
　　　　　　　　　　　　　　　　　　　　　<发起通缉功能/@发起通缉功能>\

[@发起通缉功能]
如果你没有能力干掉你痛恨之人，怎么办？\
如果你拥有一定的元宝，你可以发起党中央国际通缉令\
这样其他的玩家就会为了得到<赏金/SCOLOR=250>帮你追杀被通缉的人\ \
<通缉仇人[url=]/@@InPutString41[/url]>        <解除通缉[url=]/@@InPutString42[/url]>                 <通缉需知/@通缉需知>\ \
<手动抓获[url=]/@@InPutString43[/url]>“<被通缉的罪犯/SCOLOR=249>”   <说明/@说明>\ \
　                                          【<返回[url=]/@Main[/url]>】【<关闭[url=]/@eXIT[/url]>】
[@CallInPutString41]
#IF
CheckOnline <$STR(S41)>
CheckTextList .\QuestDiary\通缉文本\通缉名单.txt <$STR(S41)>
#ACT
MESSAGEBOX 此人正在被通缉中，您无需重复通缉！！
break
#IF
CheckGAMEGOLD > 999
CheckOnline <$STR(S41)>
#ACT
GAMEGOLD - 1000
AddTextList .\QuestDiary\通缉文本\通缉名单.txt <$STR(S41)>
S41.SETRANKLEVELNAME %s\“我是通缉犯，杀我可以获得800元宝奖励”\☆★不杀白不杀★☆
S41.CHANGENAMECOLOR 249
GuildNoticeMsg 255 5 玩家（%S）悬赏800元宝通缉（<$STR(S41)>），赏金猎人们速度行动起来吧！
SendCenterMsg 255 5 【玩家（%S）悬赏800元宝通缉（<$STR(S41)>），赏金猎人们速度行动起来吧】 1
MESSAGEBOX 成功通缉了（<$STR(S41)>），等着他被干掉的好消息吧！
break
#ELSEACT
MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“元宝不足1000个”
[@CallInPutString42]
#IF
CheckOnline <$STR(S42)>
CheckGAMEGOLD > 1499
CheckTextList .\QuestDiary\通缉文本\通缉名单.txt <$STR(S42)>
#ACT
DEC G74 1
GAMEGOLD - 1500
DelTextList .\QuestDiary\通缉文本\通缉名单.txt <$STR(S42)>
S42.SETRANKLEVELNAME %s\●━━━━●\┃重获新生┃\●━━━━●
GuildNoticeMsg 255 252 通缉名单中的（<$STR(S42)>）成功解除通缉，重获自由之身！
MESSAGEBOX 成功解除了（<$STR(S42)>）的通缉令！
break
#ELSEACT
MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“元宝不足1500个”“不在通缉的名单里”
[@CallInPutString43]
#IF
CheckOnline <$STR(S43)>
#ACT
GOTO @XXXSSSA
break
#ELSEACT
MESSAGEBOX 对方不在线，无法抓获！
break
[@XXXSSSA]
#IF
CheckTextList .\QuestDiary\通缉文本\通缉名单.txt <$STR(S43)>
#ACT
GOTO @XXXSSSAA
break
#ELSEACT
MESSAGEBOX 对方没有被通缉，无法抓获！
break
[@XXXSSSAA]
#IF
S43.ISONMAP YXSD
#ACT
MESSAGEBOX 对方正在参加杀神大赛，无法抓捕！
break
#IF
S43.ISONMAP GA2
#ACT
MESSAGEBOX 对方正在参加斗鸡大赛，无法抓捕！
break
#IF
S43.CheckHumInRange 3 330 330 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 0 289 618 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 0 650 631 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 0 334 266 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 2 503 483 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 4 240 200 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 5 141 337 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
S43.CheckHumInRange 11 178 326 10
#ACT
MESSAGEBOX 对方在安全区呢！无法抓捕！
break
#IF
CheckGAMEGOLD > 99
#ACT
GAMEGOLD - 100
MAPMOVE 3 356 336
S43.MAPMOVE 3 361 336
S43.GuildNoticeMsg 249 0 你是通缉犯，被其他玩家花费元宝抓获啦！ SELF
GuildNoticeMsg 255 5 玩家（%S）花费100元宝把通缉犯（<$STR(S43)>）抓到了土城药店啦！
break
#ELSEACT
MESSAGEBOX 操作失败，元宝不足100个或者通缉犯不在线，请重试！

[@通缉需知]
#IF
#ACT
MESSAGEBOX 通缉对手需要消耗元宝1000个，解除通缉需要元宝1500\　\杀死被通缉的人可以获得800个元宝的奖励\　\通缉之前请确定需要通缉的玩家是否在线？
[@说明]
#IF
#ACT
MESSAGEBOX 输入需要抓获的人物的名称既可，被抓获的玩家会在药店出现\　\每抓获一次收取元宝100个，抓获坐牢的玩家无效\　\抓获之前请确定被通缉的玩家是否在线？

[@发起坐监功能]
<规则说明：/SCOLOR=249>被抓获的玩家无法在牢房外面活动\
　　　　　就算他有机会传送到外面去，不到<10秒/SCOLOR=250>就会被<重新关押/SCOLOR=250>\
　　　　　<坐牢的玩家不要紧张，攻城前会被系统自动释放/SCOLOR=242>\ \
<想自由活动，可以在牢房内的牢狱管理处花费元宝保释自己/SCOLOR=254>\ \
<输入可恨之人的名称[url=]/@@InPutString51[/url]>          <保释坐牢的朋友[url=]/@@InPutString52>\[/url] \
　                                          【<返回[url=]/@Main[/url]>】【<关闭[url=]/@eXIT[/url]>】

[@CallInPutString52]
#IF
CheckOnline <$STR(S52)>
CheckGAMEGOLD > 2499
CheckTextList .\QuestDiary\通缉文本\坐监名单.txt <$STR(S52)>
#ACT
GAMEGOLD - 2500
DelTextList .\QuestDiary\通缉文本\坐监名单.txt <$STR(S52)>
S52.SETRANKLEVELNAME %s\●━━━━●\┃已被保释┃\●━━━━●
GuildNoticeMsg 255 252 玩家（%S）成功获得保释（<$STR(S52)>），重获自由之身！
MESSAGEBOX 成功解救了正在坐牢的：（<$STR(S52)>）
break
#ELSEACT
MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“元宝不足2500个”“不在通缉的名单里”
[@CallInPutString51]
#IF
CheckOnline <$STR(S51)>
#ACT
GOTO @坐牢A
break
#ELSEACT
MESSAGEBOX 操作失败：玩家不在线，无法发起坐监功能！
[@坐牢A]
#IF
S51.ISONMAP YXSD
#ACT
MESSAGEBOX 对方正在参加杀神大赛，无法抓捕！
break
#IF
S51.ISONMAP GA2
#ACT
MESSAGEBOX 对方正在参加斗鸡大赛，无法抓捕！
break
#IF
CheckTextList .\QuestDiary\通缉文本\坐监名单.txt <$STR(S51)>
#ACT
MESSAGEBOX 操作失败：此人正在坐监中，您无需重复输入！
break
#IF
CheckGAMEGOLD > 1999
#ACT
GAMEGOLD - 2000
AddTextList .\QuestDiary\通缉文本\坐监名单.txt <$STR(S51)>
S51.SETRANKLEVELNAME %s\“我罪孽深重，不得不去坐牢去了”\☆★正在享受牢狱之苦★☆
S51.CHANGENAMECOLOR 253
GuildNoticeMsg 255 5 玩家（%S）花费2000元宝让（<$STR(S51)>）坐牢去了，真是可怜的孩子！
SendCenterMsg 255 5 【玩家（%S）花费2000元宝让（<$STR(S51)>）坐牢去了，真是可怜的孩子】 1
MESSAGEBOX 操作成功，（<$STR(S51)>）坐牢去了！
break
#ELSEACT
MESSAGEBOX 操作失败，元宝不足2000个，无法使用此功能！