LEG/Blue引擎脚本-自绘监狱

用户如云

;此脚本提供参考，可自行修改保释的条件，复制到【Mir2m2自绘监狱NPC-Mir2m2Prison.txt】生效

(@@InPutString @@InPutInteger )
[@main]
#IF
ISADMIN
#SAY
<GM输入玩家姓名抓进监狱/@@InPutString71>      <GM输入玩家姓名释放出去/@@InPutString72>\ \

#IF
CHECKLEVELEX > 0
#SAY
出来挂机混元宝，迟早是要还的。。。\ \
支付500万元宝可以将您保释出去！\ \
<我要出去/@Mir2m2监狱我要出去>        <我要保释我朋友出去/@@InPutString73>\

[@Mir2m2监狱我要出去]
#IF
CHECKGAMEGOLD < 5000000
#ACT
messagebox 操你大爷的，挂机会没钱？\　\没钱就给劳资老老实实呆着吧！
#ELSEACT
GAMEGOLD - 5000000
CALCVAR HUMAN 自绘个人超时 = 0
CALCVAR HUMAN 自绘个人错误 = 0
SAVEVAR HUMAN 自绘个人错误 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
SAVEVAR HUMAN 自绘个人超时 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
MAPMOVE 3 330 330
messagebox 保释成功，出去好好做人，别再给劳资添乱！

[@@InPutString73]
#ACT
DELAYGOTO 1 @InPutString73
[@InPutString73]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$STR(S73)>
#IF
EQUAL S10
#ACT
MESSAGEBOX 对不起，请输入名字！
BREAK
#IF
EQUAL S10 <$USERNAME>
#ACT
MESSAGEBOX 对不起，不能输入您自己的名字！
BREAK
#IF
<$STR(S10)>.ONLINELONGMIN ? 0
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在线，请核对输入的名字是否正确！
BREAK

#IF
<$STR(S10)>.ISONMAP <$GLOBAL(自绘监狱地图1)>
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在监狱地图内，不需要保释！
BREAK

#IF
CHECKGAMEGOLD < 5000000
#ACT
messagebox 对不起，需要支付5000000才能保释！
BREAK
#ELSEACT
GAMEGOLD - 5000000
<$STR(S10)>.CALCVAR HUMAN 自绘个人超时 = 0
<$STR(S10)>.CALCVAR HUMAN 自绘个人错误 = 0
<$STR(S10)>.SAVEVAR HUMAN 自绘个人错误 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.SAVEVAR HUMAN 自绘个人超时 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.MAPMOVE 3 330 330
SENDMSG 0 【<$USERNAME>】成功将【<$STR(S10)>】从监狱保释出去！
Messagebox 已将【<$STR(S10)>】保释出去！

[@@InPutString71]
#ACT
DELAYGOTO 1 @InPutString71
[@InPutString71]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$STR(S71)>
#IF
ISADMIN
#elseact
SENDmSG 6 权限不足！
close
BREAK
#IF
EQUAL S10
#ACT
MESSAGEBOX 对不起，请输入名字！
BREAK
#IF
EQUAL S10 <$USERNAME>
#ACT
MESSAGEBOX 对不起，不能输入您自己的名字！
BREAK
#IF
<$STR(S10)>.ONLINELONGMIN ? 0
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在线，请核对输入的名字是否正确！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
<$STR(S10)>.CALCVAR HUMAN 自绘个人超时 = <$GLOBAL(自绘超时次数)>
<$STR(S10)>.CALCVAR HUMAN 自绘个人超时 + <$GLOBAL(自绘超时次数)>
<$STR(S10)>.CALCVAR HUMAN 自绘个人错误 = <$GLOBAL(自绘错误次数)>
<$STR(S10)>.CALCVAR HUMAN 自绘个人错误 + <$GLOBAL(自绘错误次数)>
<$STR(S10)>.SAVEVAR HUMAN 自绘个人错误 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.SAVEVAR HUMAN 自绘个人超时 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.MAPMOVE <$GLOBAL(自绘监狱地图1)>
SENDMSG 0 玩家【<$STR(S10)>】涉嫌使用外挂已被抓进监狱！
Messagebox 已将【<$STR(S10)>】抓进监狱！

[@@InPutString72]
#ACT
DELAYGOTO 1 @InPutString72
[@InPutString72]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$STR(S72)>
#IF
ISADMIN
#elseact
SENDmSG 6 权限不足！
close
BREAK
#IF
EQUAL S10
#ACT
MESSAGEBOX 对不起，请输入名字！
BREAK
#IF
EQUAL S10 <$USERNAME>
#ACT
MESSAGEBOX 对不起，不能输入您自己的名字！
BREAK
#IF
<$STR(S10)>.ONLINELONGMIN ? 0
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在线，请核对输入的名字是否正确！
BREAK

#IF
<$STR(S10)>.ISONMAP <$GLOBAL(自绘监狱地图1)>
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在监狱地图内，不需要释放！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
<$STR(S10)>.CALCVAR HUMAN 自绘个人超时 = 0
<$STR(S10)>.CALCVAR HUMAN 自绘个人错误 = 0
<$STR(S10)>.SAVEVAR HUMAN 自绘个人错误 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.SAVEVAR HUMAN 自绘个人超时 ..\QuestDiary\Mir2m2开区清空文本(脚本QQ.297522007)\Mir2m2自绘个人验证.txt
<$STR(S10)>.MAPMOVE 3 330 330
<$STR(S10)>.SENDMSG 6 你被保释成功，出去好好做人！
Messagebox 已将【<$STR(S10)>】保释出去！

饲养员阿新

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！GM爱好者：www.gmahz.com不走平凡路。

dw3995

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！

上善若水8L8

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

001230

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！

吾言文化印制部

楼主，我太崇拜你了！我想我是一天也不能离开GM爱好者：www.gmahz.com

skick520

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！