yun qq 教学 cj biue yuwen
查看: 33|回复: 5

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

[复制链接]

3059

主题

3098

帖子

5万

积分

管理员

Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100

积分
56776

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

QQ
发表于 2020-10-21 18:54:29 | 显示全部楼层 |阅读模式


77M2引擎中技能特殊设置,传奇一条龙技能失效时间设置方法

77M2引擎中技能特殊设置,传奇一条龙技能失效时间设置方法 ,301传奇论坛77M2引擎中技能特殊设置,传奇一条龙技能失效时间设置方法
  





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

}



传奇一条龙衣服店脚本怎么写?复古传奇开区时添加金币购买衣服教程。

传奇一条龙衣服店脚本怎么写?复古传奇开区时添加金币购买衣服教程。 ,301传奇论坛传奇一条龙衣服店脚本怎么写?复古传奇开区时添加金币购买衣服教程。

回复

使用道具 举报

0

主题

30

帖子

31

积分

新手上路

Rank: 1

积分
31
发表于 2020-10-22 05:51:14 | 显示全部楼层
膜拜神贴,后面的请保持队形~

回复

使用道具 举报

0

主题

24

帖子

25

积分

新手上路

Rank: 1

积分
25
发表于 2020-10-22 08:57:39 | 显示全部楼层
果断MARK,前十有我必火!

回复

使用道具 举报

0

主题

25

帖子

26

积分

新手上路

Rank: 1

积分
26
发表于 2020-10-22 22:24:22 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报

0

主题

26

帖子

27

积分

新手上路

Rank: 1

积分
27
发表于 2020-10-23 15:44:38 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报

0

主题

34

帖子

35

积分

新手上路

Rank: 1

积分
35
发表于 2020-10-23 22:01:40 | 显示全部楼层
果断MARK,前十有我必火!

回复

使用道具 举报