|
|
[@NPC验证触发]
{
#if
CHECKLEVELEX > 0
#act
#CALL [\超强地图题库防脱机\【常量设置】.INI] @常量设置
GOTO @TKYZJZSJ
[@XSFTJJM]
#act
CLOSEMERCHANTBIGDLG
CloseBigDialogBox
#CALL [\超强地图题库防脱机\【常量设置】.INI] @常量设置
#SAY
\
<超时和错误达到上限时T下线> <已超时:/SCOLOR=6><$HUMAN(TKFTJ-已超时次数)>/TKFTJ-$超时最大次数 <已错误:/SCOLOR=6><$HUMAN(TKFTJ-已错误次数)>/TKFTJ-$错误最大次数 <已刷新:/@刷新><$HUMAN(TKFTJ-已刷新次数)>/TKFTJ-$刷新最大次数\
\
<问题：/SCOLOR=46><$HUMAN(TKFTJ-题目读取)>\
\
<请选择正确的答案,如没有正确答案请选择最近的！/SCOLOR=253>\
\
<答案：/SCOLOR=46>A.<$HUMAN(TKFTJ-显示A)> B.<$HUMAN(TKFTJ-显示B)> C.<$HUMAN(TKFTJ-显示C)> D.<$HUMAN(TKFTJ-显示D)>\
[@TKYZJZSJ]
#if
CHECKLEVELEX > 0
#act
GetStringPos ..\..\..\..\超强地图题库防脱机\题库.txt [题库数]
CALCVAR HUMAN TKFTJ-题库数总量 = <$STR(N0)>
CALCVAR HUMAN TKFTJ-题库数总量 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库数总量)> S90
DEC S90 题库数总量=
CALCVAR HUMAN TKFTJ-题库数总量 = <$STR(S90)>
CALCVAR HUMAN TKFTJ-题库数总量 + 1
#if
CHECKVAR HUMAN TKFTJ-保存题库编号 > 0
CHECKVAR HUMAN TKFTJ-保存题库编号 < <$HUMAN(TKFTJ-题库数总量)>
#ACT
CALCVAR HUMAN TKFTJ-题库号选取 = <$HUMAN(TKFTJ-保存题库编号)>
#ELSEACT
CALCVAR HUMAN TKFTJ-题库数总量 - 1
MOVR P87 <$HUMAN(TKFTJ-题库数总量)>
INC P87 1
CALCVAR HUMAN TKFTJ-题库号选取 = <$STR(P87)>
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN TKFTJ-保存题库编号 = <$HUMAN(TKFTJ-题库号选取)>
SAVEVAR HUMAN TKFTJ-保存题库编号 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
GetStringPos ..\..\..\..\超强地图题库防脱机\题库.txt [<$HUMAN(TKFTJ-题库号选取)>]
CALCVAR HUMAN TKFTJ-题库位置 = <$STR(N0)>
CALCVAR HUMAN TKFTJ-题库位置 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库位置)> S90
DEC S90 题目=
CALCVAR HUMAN TKFTJ-题目读取 = <$STR(S90)>
CALCVAR HUMAN TKFTJ-题库位置 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库位置)> S90
DEC S90 正确选择=
CALCVAR HUMAN TKFTJ-显示A = <$STR(S90)>
CALCVAR HUMAN TKFTJ-正确答案 = <$STR(S90)>
CALCVAR HUMAN TKFTJ-题库位置 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库位置)> S90
DEC S90 错误选择1=
CALCVAR HUMAN TKFTJ-显示B = <$STR(S90)>
CALCVAR HUMAN TKFTJ-题库位置 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库位置)> S90
DEC S90 错误选择2=
CALCVAR HUMAN TKFTJ-显示C = <$STR(S90)>
CALCVAR HUMAN TKFTJ-题库位置 + 1
GetListString ..\..\..\..\超强地图题库防脱机\题库.txt <$HUMAN(TKFTJ-题库位置)> S90
DEC S90 错误选择3=
CALCVAR HUMAN TKFTJ-显示D = <$STR(S90)>
#if
CHECKLEVELEX > 0
#act
CREATEFILE ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt
ClearNameList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt
AddTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$HUMAN(TKFTJ-显示A)>
AddTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$HUMAN(TKFTJ-显示B)>
AddTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$HUMAN(TKFTJ-显示C)>
AddTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$HUMAN(TKFTJ-显示D)>
GetRandomText ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt S90
DelTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$STR(S90)>
CALCVAR HUMAN TKFTJ-显示A = <$STR(S90)>
CALCVAR HUMAN TKFTJ-记录显示A = <$HUMAN(TKFTJ-显示A)>
MOV S90 <
INC S90 <$HUMAN(TKFTJ-显示A)>
INC S90 /@选择A>
CALCVAR HUMAN TKFTJ-显示A = <$STR(S90)>
GetRandomText ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt S90
DelTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$STR(S90)>
CALCVAR HUMAN TKFTJ-显示B = <$STR(S90)>
CALCVAR HUMAN TKFTJ-记录显示B = <$HUMAN(TKFTJ-显示B)>
MOV S90 <
INC S90 <$HUMAN(TKFTJ-显示B)>
INC S90 /@选择B>
CALCVAR HUMAN TKFTJ-显示B = <$STR(S90)>
GetRandomText ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt S90
DelTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$STR(S90)>
CALCVAR HUMAN TKFTJ-显示C = <$STR(S90)>
CALCVAR HUMAN TKFTJ-记录显示C = <$HUMAN(TKFTJ-显示C)>
MOV S90 <
INC S90 <$HUMAN(TKFTJ-显示C)>
INC S90 /@选择C>
CALCVAR HUMAN TKFTJ-显示C = <$STR(S90)>
GetRandomText ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt S90
DelTextList ..\QuestDiary\超强地图题库防脱机\临时数据(开区清空里面文件)\<$USERNAME>.txt <$STR(S90)>
CALCVAR HUMAN TKFTJ-显示D = <$STR(S90)>
CALCVAR HUMAN TKFTJ-记录显示D = <$HUMAN(TKFTJ-显示D)>
MOV S90 <
INC S90 <$HUMAN(TKFTJ-显示D)>
INC S90 /@选择D>
CALCVAR HUMAN TKFTJ-显示D = <$STR(S90)>
GOTO @XSFTJJM
[@选择A]
#if
CompareText <$HUMAN(TKFTJ-记录显示A)> <$HUMAN(TKFTJ-正确答案)>
#act
MOV N$是否已选择正确 1
GOTO @HDZQ
#ELSEACT
GOTO @HDCW
[@选择B]
#if
CompareText <$HUMAN(TKFTJ-记录显示B)> <$HUMAN(TKFTJ-正确答案)>
#act
MOV N$是否已选择正确 1
GOTO @HDZQ
#ELSEACT
GOTO @HDCW
[@选择C]
#if
CompareText <$HUMAN(TKFTJ-记录显示C)> <$HUMAN(TKFTJ-正确答案)>
#act
MOV N$是否已选择正确 1
GOTO @HDZQ
#ELSEACT
GOTO @HDCW
[@选择D]
#if
CompareText <$HUMAN(TKFTJ-记录显示D)> <$HUMAN(TKFTJ-正确答案)>
#act
MOV N$是否已选择正确 1
GOTO @HDZQ
#ELSEACT
GOTO @HDCW
[@刷新]
#if
CHECKVAR HUMAN TKFTJ-已刷新次数 < TKFTJ-$刷新最大次数
#ACT
CALCVAR HUMAN TKFTJ-保存题库编号 = 0
CALCVAR HUMAN TKFTJ-已刷新次数 + 1
SAVEVAR HUMAN TKFTJ-已刷新次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
GOTO @TKYZJZSJ
#ELSEACT
messagebox 刷新失败！刷新次数已达到上限！
[@HDZQ]
#IF
CompareText TKFTJ-$超时清空检测 0
#ACT
CALCVAR HUMAN TKFTJ-已超时次数 = 0
SAVEVAR HUMAN TKFTJ-已超时次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
#IF
CompareText TKFTJ-$错误清空检测 0
#ACT
CALCVAR HUMAN TKFTJ-已错误次数 = 0
SAVEVAR HUMAN TKFTJ-已错误次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
#IF
CompareText TKFTJ-$刷新清空检测 0
#ACT
CALCVAR HUMAN TKFTJ-已刷新次数 = 0
SAVEVAR HUMAN TKFTJ-已刷新次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
#if
EQUAL N$是否已选择正确 1
#act
MOV N$是否已选择正确 0
ChangeModeEx 1 1
ChangeModeEx 2 1
ChangeModeEx 10 1
CALCVAR HUMAN TKFTJ-保存题库编号 = 0
SAVEVAR HUMAN TKFTJ-保存题库编号 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
CALCVAR HUMAN TKFTJ-是否在验证 = 0
SAVEVAR HUMAN TKFTJ-是否在验证 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
messagebox 验证正确,你可以正常游戏了！
Close
[@HDCW]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN TKFTJ-已错误次数 + 1
SAVEVAR HUMAN TKFTJ-已错误次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
#if
CHECKVAR HUMAN TKFTJ-已错误次数 < TKFTJ-$错误最大次数
#ACT
GOTO @NPC验证触发
messagebox 验证错误.请重新选择！
#ELSEACT
CALCVAR HUMAN TKFTJ-已错误次数 - 1
SAVEVAR HUMAN TKFTJ-已错误次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
CALCVAR HUMAN TKFTJ-已T下线次数 + 1
SAVEVAR HUMAN TKFTJ-已T下线次数 ..\QuestDiary\超强地图题库防脱机\题库验证数据.txt
KICK
SetOffTimer TKFTJ-$定时器编号
messagebox 验证错误.当前错误次数已达到最大值,你已被T下线！
}
|
上一篇：传奇一条龙开区时添加攻击对方触发“清包”脚本(打掉对方的回城石)下一篇：传奇私服一条龙开区时如何设置每日首充进入地图的脚本讲解
|
发表于 2021-1-2 16:25:37
发表于 2021-1-5 08:43:56
