Gm版本库

 找回密码
 立即注册

QQ登录

只需一步,快速开始

传奇开区时设置NPC验证触发,传奇一条龙设置会验证地图代码教程,传奇私服脚本,Gm版本库

查看: 84|回复: 2

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

[复制链接]

3660

主题

7万

帖子

57万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
570342

传奇开区时设置NPC验证触发,传奇一条龙设置会验证地图代码教程 - Gm版本库 - 1.png
[@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下线!
}





上一篇:传奇一条龙开区时添加攻击对方触发“清包”脚本(打掉对方的回城石)
下一篇:传奇私服一条龙开区时如何设置每日首充进入地图的脚本讲解
回复
百度谷歌雅虎搜狗 360奇虎 搜搜有道

使用道具 举报

0

主题

612

帖子

599

积分

注册会员

积分
599
发表于 2021-1-5 08:43:56 | 显示全部楼层
报告!别开枪,我就是路过来看看的。。。

回复 支持 反对

使用道具 举报

0

主题

521

帖子

498

积分

注册会员

积分
498
发表于 2021-1-10 11:08:49 | 显示全部楼层
路过的帮顶

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版/Gm版本库 ( 沪ICP备15031021号-4 )|网站地图

GMT+8, 2021-8-3 22:42

Powered by 免费传奇版本库 X3.4

©本站所有资源均来至网络,仅供学习交流,严禁用于商业用途,请于24小时内删除!