传奇开区时设置NPC验证触发，传奇一条龙设置会验证地图代码教程

GM版本库

[@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下线！
}

领跑网络

报告！别开枪，我就是路过来看看的。。。

土豆

路过的帮顶