很有趣的一个传奇囚犯监狱系统脚本

畅游

(@@InPutString @@InPutInteger) [@main] #IF ISADMIN #ACT CloseBigDialogBox #SAY <┅┅∽┅┅∽┅┅∽┅┅《囚犯监狱》┅┅∽┅┅∽┅┅∽┅┅/SCOLOR=31>\ <本游戏严禁一切外挂,包括各种加速和脱机挂./SCOLOR=150>\ <举报请到充值网站留言.经证实使用外挂直接关入牢房直/SCOLOR=150>\ <到合区,/SCOLOR=150><才放出监狱./SCOLOR=249> \ \ <尊敬的GM大人。这次想要抓哪个倒霉蛋进监狱呢？/SCOLOR=254>  【<探监/@探监>】\ \ 【<抓人坐牢（输入名字）/@@InPutString54>】      【<释放囚犯（输入名字）/@@InPutString55>】\ #elseSAY <┅┅∽┅┅∽┅┅∽┅┅《囚犯监狱》┅┅∽┅┅∽┅┅∽┅┅/SCOLOR=31>\ <本游戏严禁一切外挂,包括各种加速和脱机挂./SCOLOR=150>\ <举报请到充值网站留言.经证实使用外挂直接关入牢房直/SCOLOR=150>\ <到合区,/SCOLOR=150><才放出监狱./SCOLOR=249> \ \ <看是你的外挂狠,还是我的手段狠!严惩挂B,人人有责!/SCOLOR=150> \ <200图腾值保释出狱,重者开挂直接封号处理,没解释机会!/SCOLOR=150>\ <花50万元宝赎罪（输入要赎罪玩家名字）/@@InPutString56>           <（探监）/@探监>\ [@探监] #IF checklevelex > 59 #ACT mapmove 0127 13 14 #ELSEACT messagebox 请60级以后再来探监！监狱狠恐怖！ [@CallInPutString56] #IF CheckOnline <$STR(S56)> checkGAMEDIAMOND > 499 CheckTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S56)> #ACT GAMEDIAMOND - 500 DelTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S56)> S56.SETRANKLEVELNAME %s\●━━━━●\┃已被保释┃\●━━━━● S56.CALCVAR HUMAN 超速值 = 0 S56.SaveVar HUMAN 超速值 ..\QuestDiary\数据文件\超速计数名单.txt Gmexecute jgcfstf <$STR(S56)> GuildNoticeMsg 255 252 玩家（%S）花费500颗图腾值成功获得保释（<$STR(S56)>），重获自由之身！ GuildNoticeMsg 255 252 玩家（%S）花费500颗图腾值成功获得保释（<$STR(S56)>），重获自由之身！ GuildNoticeMsg 255 252 玩家（%S）花费500颗图腾值成功获得保释（<$STR(S56)>），重获自由之身！ GuildNoticeMsg 255 252 玩家（%S）花费500颗图腾值成功获得保释（<$STR(S56)>），重获自由之身！ MESSAGEBOX 成功解救了正在坐牢的：（<$STR(S56)>） break #ELSEACT MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“不足500颗图腾值”“不在通缉的名单里” [@CallInPutString55] #IF CheckOnline <$STR(S55)> CheckTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S55)> #ACT DelTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S55)> S55.CALCVAR HUMAN 超速值 = 0 S55.SaveVar HUMAN 超速值 ..\QuestDiary\数据文件\超速计数名单.txt S55.SETRANKLEVELNAME %s\●━━━━●\┃已被保释┃\●━━━━● Gmexecute jgcfstf <$STR(S55)> MESSAGEBOX 成功解救了正在坐牢的：（<$STR(S55)>） break #ELSEACT MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“不在通缉的名单里” [@CallInPutString54] #IF CheckOnline <$STR(S54)> #ACT GOTO @坐牢A break #ELSEACT MESSAGEBOX 操作失败：玩家不在线，无法发起坐监功能！ 本帖隐藏的内容[@坐牢A] #IF CheckTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S54)> #ACT MESSAGEBOX 操作失败：此人正在坐监中，您无需重复输入！ break #IF CheckGameGold > 1 #ACT GameGold - 1 AddTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S54)> S54.SETRANKLEVELNAME %s\“我罪孽深重，不得不去坐牢去了”\☆★正在享受牢狱之苦★☆ S54.CHANGENAMECOLOR 253 S54.mapmove 0127 7 11 S54.CALCVAR HUMAN 超速值 = 5 S54.SaveVar HUMAN 超速值 ..\QuestDiary\数据文件\超速计数名单.txt GuildNoticeMsg 255 5 『反挂组』抓获加速犯人（<$STR(S54)>）坐牢去了，真是可怜的孩子！ GuildNoticeMsg 255 5 『反挂组』抓获加速犯人（<$STR(S54)>）坐牢去了，真是可怜的孩子！ SendCenterMsg 255 5 『反挂组』抓获加速犯人（<$STR(S54)>）坐牢去了，真是可怜的孩子！ SendCenterMsg 255 5 『反挂组』抓获加速犯人（<$STR(S54)>）坐牢去了，真是可怜的孩子！ MESSAGEBOX 操作成功，（<$STR(S54)>）坐牢去了！ break #ELSEACT MESSAGEBOX 操作失败，元宝不足1个，无法使用此功能！

万雪晓