leg/blue引擎脚本-答题验证监狱

[@Mir2m2答题验证监狱]
{
#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
SAVEVAR HUMAN 答题验证错误 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt
DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt [<$USERNAME>]
DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt 答题验证错误=0
CALCVAR HUMAN 答题验证超时 = 0
SAVEVAR HUMAN 答题验证超时 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt
DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt [<$USERNAME>]
DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt 答题验证超时=0
MAPMOVE 3 330 330
messagebox 保释成功，出去好好做人，别再给劳资添乱！

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

#IF
<$STR(S10)>.ISONMAP $(答题验证监狱)
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在监狱地图内，不需要保释！
MOV S10
BREAK

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

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

#IF
CHECKLEVELEX > 0
#ACT
<$STR(S10)>.CALCVAR HUMAN 答题验证错误 = $(答题验证错误)
<$STR(S10)>.CALCVAR HUMAN 答题验证错误 + 1
<$STR(S10)>.SAVEVAR HUMAN 答题验证错误 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt
<$STR(S10)>.MAPMOVE $(答题验证监狱)
SENDMSG 0 玩家【<$STR(S10)>】涉嫌使用外挂已被抓进监狱！
Messagebox 已将【<$STR(S10)>】抓进监狱！
MOV S10

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

#IF
<$STR(S10)>.ISONMAP $(答题验证监狱)
#ELSEACT
MESSAGEBOX 对不起，【<$STR(S10)>】不在监狱地图内，不需要释放！
MOV S10
BREAK

#IF
CHECKLEVELEX > 0
#ACT
<$STR(S10)>.CALCVAR HUMAN 答题验证错误 = 0
<$STR(S10)>.SAVEVAR HUMAN 答题验证错误 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt
<$STR(S10)>.DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt [<$USERNAME>]
<$STR(S10)>.DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证错误.txt 答题验证错误=0
<$STR(S10)>.CALCVAR HUMAN 答题验证超时 = 0
<$STR(S10)>.SAVEVAR HUMAN 答题验证超时 ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt
<$STR(S10)>.DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt [<$USERNAME>]
<$STR(S10)>.DELLINELIST ..\QuestDiary\Mir2m2开区清空文本(技术QQ.537036801)\Mir2m2答题验证超时.txt 答题验证超时=0
<$STR(S10)>.MAPMOVE 3 330 330
<$STR(S10)>.SENDMSG 6 你被保释成功，出去好好做人！
Messagebox 已将【<$STR(S10)>】保释出去！
MOV S10


[@Mir2m2答题验证常量加载]
#CALL [\Mir2m2答题验证配置(技术QQ.537036801)\Mir2m2答题验证常量.INI] @Mir2m2答题验证常量
}