Gom引擎非常不错的(抓人坐牢和释放囚犯)脚本实例

Gom引擎非常不错的(抓人坐牢和释放囚犯)脚本实例
(@@InPutString @@InPutInteger)
[@main]
#IF
ISADMIN
#ACT
CloseBigDialogBox
#SAY
<┅┅∽┅┅∽┅┅∽┅┅《囚犯监狱》┅┅∽┅┅∽┅┅∽┅┅/SCOLOR=31>\
<为了本游戏公平公正，严禁一切外挂,包括各种加速和脱机挂./SCOLOR=150>\
<技术将24小时不定时在线检查.经证实使用外挂直接关入牢房直/SCOLOR=150>\
<到合区,/SCOLOR=150><才放出监狱./SCOLOR=249>\ \
<尊敬的GM大人。这次想要抓哪个倒霉蛋进监狱呢？/SCOLOR=254>  【<探监/@探监>】\ \
【<抓人坐牢（输入名字）/@@InPutString54>】      【<释放囚犯（输入名字）/@@InPutString55>】\
#elseSAY
<┅┅∽┅┅∽┅┅∽┅┅《囚犯监狱》┅┅∽┅┅∽┅┅∽┅┅/SCOLOR=31>\
<为了本游戏公平公正，严禁一切变态外挂,包括各种脱机挂./SCOLOR=150>\
<技术将24小时不定时在线检查.经证实使用外挂直接关入牢房直/SCOLOR=150>\\
<我们抓外挂不是为的挣元宝只为公平游戏,超速值5次后要50W元宝就可保释！/SCOLOR=150> \
<坚决打击变态外挂!给玩家一个绿色的环境!/SCOLOR=150> \
<花50万元宝保释出狱,重者开挂直接封号处理,没解释机会!/SCOLOR=150>\
<花50万元宝赎罪（输入要赎罪玩家名字）/@@InPutString56>           <（探监）/@探监>\

[@探监]
#IF
checklevelex > 10
#ACT
mapmove 0127 13 14
#ELSEACT
messagebox 请10级以后再来探监！监狱狠恐怖！
[@CallInPutString56]
#IF
CheckOnline <$STR(S56)>
CheckGameGold > 499999
CheckTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S56)>
#ACT
GameGold - 500000
DelTextList .\QuestDiary\数据文件\坐监名单.txt <$STR(S56)>
S56.SETRANKLEVELNAME %s\●━━━━●\┃已被保释┃\●━━━━●
S56.CALCVAR HUMAN 超速值 = 0
S56.SaveVar HUMAN 超速值 ..\QuestDiary\数据文件\超速计数名单.txt
Gmexecute 传唤 <$STR(S56)>
GuildNoticeMsg 255 252 玩家（%S）花费50W元宝成功获得保释（<$STR(S56)>），重获自由之身！
GuildNoticeMsg 255 252 玩家（%S）花费50W元宝成功获得保释（<$STR(S56)>），重获自由之身！
GuildNoticeMsg 255 252 玩家（%S）花费50W元宝成功获得保释（<$STR(S56)>），重获自由之身！
GuildNoticeMsg 255 252 玩家（%S）花费50W元宝成功获得保释（<$STR(S56)>），重获自由之身！
MESSAGEBOX 成功解救了正在坐牢的：（<$STR(S56)>）
break
#ELSEACT
MESSAGEBOX 操作失败，可能的原因如下：\　\“玩家不在线”“元宝不足50W个”“不在通缉的名单里”

[@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 传唤 <$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个，无法使用此功能！