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

久久网游

(@@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 操作失败：玩家不在线，无法发起坐监功能！

游客，如果您要查看本帖隐藏内容请回复

畅游

为什么不早让我发现这个论坛啊，让那些传奇一条龙黑死我了，开个新区都收我几百块！呜呜。;