免费列表
搜索
网络广告 风险自担
趣游论坛»论坛 › 综合交流发布区 › 传奇开区一条龙 › 传奇开区时设置NPC验证触发，传奇一条龙设置会验证地图 ...
12345678910... 11下一页
返回列表 发新帖

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

  [复制链接]
趣游论坛 发表于 2019-10-8 10:34:51 | 显示全部楼层 |阅读模式
6153108
　【内容摘要】：<超时和错误达到上限时T下线> <已超时:/SCOLOR=6><$HUMAN(TKFTJ-已超时次数)>/TKFTJ-$超时最大次数 <已错误:/SCOLOR=6><$HUMAN(TKFTJ-已错误次数)>/TKFTJ-$错误最大次数 <已刷新:/@刷新><$HUMAN(TKFTJ-已刷新次数)>/TKFTJ-$刷新最大次数\
20191006161142.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下线！
}
回复

使用道具 举报

卜卦 发表于 2019-10-8 10:34:52 | 显示全部楼层 沙发
同志们抢沙发啦，大力支持趣游论坛
回复 支持 反对

使用道具 举报

武帝 发表于 2019-10-8 10:36:09 | 显示全部楼层 板凳
我也想找个传奇一条龙帮开区，不知道要准备多少资金？
回复 支持 反对

使用道具 举报

奇点 发表于 2019-10-8 10:59:27 | 显示全部楼层 地板
不知道现在上人的效果怎么样，好久没有开传奇了。
回复 支持 反对

使用道具 举报

习惯以后 发表于 2019-10-8 11:04:12 | 显示全部楼层 5#
我也想找个传奇一条龙帮开区，不知道要准备多少资金？
回复 支持 反对

使用道具 举报

公益传奇 发表于 2019-10-8 11:44:04 | 显示全部楼层 6#
我也想找个传奇一条龙帮开区，不知道要准备多少资金？
回复 支持 反对

使用道具 举报

园林艺术 发表于 2019-10-8 12:01:02 | 显示全部楼层 7#
不知道现在上人的效果怎么样，好久没有开传奇了。
回复 支持 反对

使用道具 举报

城市的夜晚 发表于 2019-10-8 12:57:00 | 显示全部楼层 8#
定做一个版本大概多少钱。
回复 支持 反对

使用道具 举报

小老虎 发表于 2019-10-8 13:28:41 | 显示全部楼层 9#
广告你想上哪个就上哪个站吗？
回复 支持 反对

使用道具 举报

奈何桥 发表于 2019-10-8 13:51:57 | 显示全部楼层 10#
开传奇主要还是要有玩家资源，找一条龙开不一定好。
回复 支持 反对

使用道具 举报

趣游论坛管理员

关注0

粉丝2

帖子13199

发布主题
图片广告
传奇服务端
一周下载排行最近7x24小时热帖
下一页 »
12345678910... 11下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|关于我们|会员加入|网站介绍|( 湘ICP备2021013222号-1 )|网站地图

GMT+8, 2024-12-24 03:23 , Processed in 0.198994 second(s), 38 queries . 传奇版本库GM部落交流论坛