传奇科举考试脚本
传奇科举考试脚本[@科举考试]
{
#IF
checklevelex > 64
#act
BREAK
#SAY
该活动暂时只对低于65级的玩家开放!
#IF
checklevelex > 29
#act
#SAY
欢迎参加首届科举考试,大侠有胆量挑战一下吗?\ \
参加科举,不仅能获得大量丰厚经验,还能获得"状元"等封号!\ \
<开始,我要挑战您!/@我要挑战您>\
<我要领取考试奖励/@领取考试奖励>\
\
\
\
支持:haobbk.<c/SCOLOR=254>om\
;<给我讲讲规则吧/@讲规则>\
#ELSESAY
参加科举考试需要等级30级以上！
[@我要挑战您]
#if
dayofweek sun
#act
goto @检测周7科考
break
#if
dayofweek mon
#act
goto @检测周1科考
break
#if
dayofweek tue
#act
goto @检测周2科考
break
#if
dayofweek wed
#act
goto @检测周3科考
break
#if
dayofweek thu
#act
goto @检测周4科考
break
#if
dayofweek fri
#act
goto @检测周5科考
break
#if
dayofweek sat
#act
goto @检测周6科考
break
[@检测周7科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周1科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周2科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周3科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周4科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周5科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
[@检测周6科考]
#IF
check 0
#act
reset 7
set 1
;收费科考次数初始化
CALCVAR HUMAN KKCS = 0
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
goto @进行免费科考
#ELSEact
goto @进行收费科考
;-----------------------------------------------------------------------------------------------
[@进行免费科考]
#IF
check 1
#act
#SAY
\
您还没有领取上一轮的考试奖励!\ \
请领到奖励后才可以开始下一轮科举考试!\ \
<领取上一轮考试奖励/@领取考试奖励>\
#ACT
break
#if
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS < 10
;检测是否属于第一轮免费考试
CHECKVAR HUMAN KKCS = 0
#ACT
CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\数据文件\科举考试\经验倍数Save.txt
goto @院试随机抽题
break
;-----------------------------------------------------------------------------------------------
[@进行收费科考]
#IF
check 1
#act
#SAY
\
您还没有领取上一轮的考试奖励!\ \
请领到奖励后才可以开始下一轮科举考试!\ \
<领取上一轮考试奖励/@领取考试奖励>\
#ACT
break
#if
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS > 0
CHECKVAR HUMAN YSTS < 10
#ACT
goto @院试随机抽题
break
#if
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS = 10
#ACT
goto @检测院试成绩
break
#IF
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS = 0
;科考次数
CHECKVAR HUMAN KKCS = 0
#ACT
goto @院试随机抽题
break
#IF
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS = 0
;科考次数
CHECKVAR HUMAN KKCS > 0
#ACT
goto @进行收费科考A
[@进行收费科考A]
#IF
;科考次数
CHECKVAR HUMAN KKCS > 0
#SAY
您已经免费进行过今天的科举考试了! \
如果你想继续考试,请使用科举考试入场令牌!\
<青铜入场令牌/SCOLOR=198>:根据考试成绩,获得100%经验量!\
<白银入场令牌/SCOLOR=158>:根据考试成绩,获得200%经验量!\
<黄金入场令牌/SCOLOR=151>:根据考试成绩,获得600%经验量!\
<使用青铜入场令牌,进行考试/@青铜补考><考试令牌打怪有机率掉落/SCOLOR=239>\
<使用白银入场令牌,进行考试/@白银补考><考试令牌打怪有机率掉落/SCOLOR=239>\
<使用黄金入场令牌,进行考试/@黄金补考><考试令牌打怪有机率掉落/SCOLOR=239>\
<我再考虑一下/@EXIT>\
#ACT
break
[@青铜补考]
#IF
checkitem 青铜入场令牌 1
#SAY
您做好准备了吗,马上开始新的一轮考试了!\\
<准备好了,开始考试/@青铜补考A>
#ELSESAY
噢,您没有青铜入场令牌啊?\
哎,这次上面抓得很严啊,不是我不帮您\
等明天再来考试吧\
[@青铜补考A]
#IF
checkitem 青铜入场令牌 1
#ACT
TAKE 青铜入场令牌 1
CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\数据文件\科举考试\经验倍数Save.txt
goto @院试随机抽题
#ELSESAY
穷鬼,还要骗我,当我老眼昏花啊!\
还想补考?门都没有!滚!\
;------------------------------------------------------------------------------------
[@白银补考]
#IF
checkitem 白银入场令牌 1
#SAY
您做好准备了吗,马上开始新的一轮考试了!\\
<准备好了,开始考试/@白银补考A>
#ELSESAY
噢,您没有白银入场令牌啊?\
哎,这次上面抓得很严啊,不是我不帮您\
等明天再来考试吧\
[@白银补考A]
#IF
checkitem 白银入场令牌 1
#ACT
TAKE 白银入场令牌 1
CALCVAR HUMAN EXPBS = 2
SAVEVAR HUMAN EXPBS ..\QuestDiary\数据文件\科举考试\经验倍数Save.txt
goto @院试随机抽题
#ELSESAY
穷鬼,还要骗我,当我老眼昏花啊!\
还想补考?门都没有!滚!\
;------------------------------------------------------------------------------------
[@黄金补考]
#IF
checkitem 黄金入场令牌 1
#SAY
您做好准备了吗,马上开始新的一轮考试了!\\
<准备好了,开始考试/@黄金补考A>
#ELSESAY
噢,您没有黄金入场令牌啊?\
哎,这次上面抓得很严啊,不是我不帮您\
等明天再来考试吧\
[@黄金补考A]
#IF
checkitem 黄金入场令牌 1
#ACT
TAKE 黄金入场令牌 1
CALCVAR HUMAN EXPBS = 6
SAVEVAR HUMAN EXPBS ..\QuestDiary\数据文件\科举考试\经验倍数Save.txt
goto @院试随机抽题
#ELSESAY
穷鬼,还要骗我,当我老眼昏花啊!\
还想补考?门都没有!滚!\
;------------------------------------------------------------------------------------------------
[@院试随机抽题]
#if
;检测院试已经标题标题题目数量
CHECKVAR HUMAN YSTS < 10
#ACT
set 0
MOV D3 0
MOV D3 20
CALCVAR HUMAN YSTS + 1
SAVEVAR HUMAN YSTS ..\QuestDiary\数据文件\科举考试\院试题数Save.txt
GetRandomText .\QuestDiary\科举考试\院试题库.txt S15
DelayCall 1000 @院试1分钟计时
#SAY
院试第<$HUMAN(YSTS)>道标题标题题目: 倒计时：<$STR(D3)>\ \
<$STR(S15)>\
#ELSEACT
goto @检测院试成绩
[@院试1分钟计时]
#IF
CHECK 1
#ACT
BREAK
#IF
LARGE D3 0
#ACT
DEC D3 1
DelayCall 1000 @院试1分钟计时
#SAY
院试第<$HUMAN(YSTS)>道标题标题题目: 倒计时：<$STR(D3)>\ \
<$STR(S15)>\
#ELSEact
#ELSESAY
\
院试第<$HUMAN(YSTS)>道标题标题题目,<超时失败>!\ \
下一道试题要速度一点哦!\
做好准备了吗?马上要开始下一道试题考试\ \
<开始下一道试题考试/@院试随机抽题>
[@检测院试成绩]
#IF
#ACT
MOV D0 0
MUL D0 <$HUMAN(YSZQ)> 10
goto @检测院试成绩A
[@检测院试成绩A]
#IF
LARGE D0 50
#ACT
set 1
#SAY
本轮科举考试的院试部分结束!\
院试10试题,您一共答对了:<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%\
果然才高八斗,聪颖过人!\ \
<我要领取考试奖励/@领取考试奖励>\
#ELSEACT
set 1
#ELSESAY
本轮科举考试的院试部分结束!\
院试10试题,您一共答对了:<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%\
不错,下次努力,争取更好的成绩!\ \
<我要领取考试奖励/@领取考试奖励>\
;-----------------------------------------------------------------------------------------------------
[@领取考试奖励]
#IF
CHECK 1
#ACT
goto @领取考试奖励A
#ELSEact
#ELSESAY
您已经领取过奖励或是您的考试还没有结束!
[@领取考试奖励A]
#IF
CHECKLEVELEX > 55
#ACT
;经验系数,表示一题能获得100W经验.
MOV D13 0
MOV D13 4000000
;SendMsg 5 检测D13:<$STR(D13)>
GOTO @领取考试奖励B
BREAK
#IF
CHECKLEVELEX > 50
#ACT
MOV D13 0
MOV D13 3000000
;SendMsg 5 检测D13:<$STR(D13)>
GOTO @领取考试奖励B
BREAK
#IF
CHECKLEVELEX > 45
#ACT
MOV D13 0
MOV D13 2500000
;SendMsg 5 检测D13:<$STR(D13)>
GOTO @领取考试奖励B
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV D13 0
MOV D13 1500000
;SendMsg 5 检测D13:<$STR(D13)>
GOTO @领取考试奖励B
BREAK
[@领取考试奖励B]
#IF
CHECKLEVELEX > 0
#ACT
;SendMsg 5 检测D13:<$STR(D13)>
MOV D0 0
MOV D4 0
MOV D5 0
MOV D6 0
MOV D7 0
MUL D0 <$HUMAN(YSZQ)> 10
MUL D4 <$STR(D13)> <$HUMAN(YSZQ)>
MUL D4 <$STR(D4)> <$HUMAN(EXPBS)>
MOV D6 <$HUMAN(YSZQ)>
;SendMsg 5 检测D4:<$STR(D4)>
#IF
#ACT
DelayCall 100 @领取考试奖励D
[@领取考试奖励D]
#IF
#act
#SAY
科举考试成绩:\
院试10试题,您一共答对了:<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%\
你的经验倍数为:<$HUMAN(EXPBS)>倍\
根据院试成绩,以及人物等级\
您在本轮科举考试总共获得:<$STR(D4)>点经验\
同时您在本轮考试中获得:<$STR(D6)>点才气 \
<我现在就领取/@我现在就领取>
[@我现在就领取]
#IF
#ACT
SET 0
CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\数据文件\科举考试\经验倍数Save.txt
CALCVAR HUMAN KKCS + 1
SAVEVAR HUMAN KKCS ..\QuestDiary\数据文件\科举考试\科考次数Save.txt
CALCVAR HUMAN YSTS = 0
SAVEVAR HUMAN YSTS ..\QuestDiary\数据文件\科举考试\院试题数Save.txt
CALCVAR HUMAN YSZQ = 0
SAVEVAR HUMAN YSZQ ..\QuestDiary\数据文件\科举考试\院试正确Save.txt
CHANGEEXP + <$STR(D4)>
;科考积分------------
;SendMsg 5 检测科考才气值:<$STR(D6)>
INC HUMAN KKJF <$STR(D6)>
SAVEVAR HUMAN KKJF ..\QuestDiary\数据文件\科举考试\科考积分Save.txt
SendMsg 5 当前才气值:<$HUMAN(KKJF)>
GuildNoticeMsg 255 219 [经验]:[<$USERNAME>]在科举考试中获得<$STR(D4)>经验!
MOV D1 0
MOV D2 0
MOV D3 0
MOV D4 0
MOV D5 0
MOV D6 0
MOV D7 0
#CALL [\科举考试\科考积分.txt] @科考积分
;---------------------------------------------------------------------------------------
;---------------------------------------------------------------------------------------
[@正确]
#if
;检测院试已经标题标题题目数量
;CHECKVAR HUMAN YSTS < 9
#ACT
set 1
CALCVAR HUMAN YSZQ + 1
SAVEVAR HUMAN YSZQ ..\QuestDiary\数据文件\科举考试\院试正确Save.txt
#SAY
\
院试第<$HUMAN(YSTS)>道标题标题题目,<回答正确/@>!\ \
做好准备了吗?马上要开始下一道试题考试\ \
<开始下一道试题考试/@院试随机抽题>
[@错误A]
#IF
#ACT
goto @错误
[@错误B]
#IF
#ACT
goto @错误
[@错误C]
#IF
#ACT
goto @错误
[@错误]
#IF
#ACT
set 1
#SAY
\
院试第<$HUMAN(YSTS)>道标题标题题目,<回答错误>!\ \
下一道试题看仔细点哦!\
做好准备了吗?马上要开始下一道试题考试\ \
<开始下一道试题考试/@院试随机抽题>
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
[@讲规则]
#IF
#ACT
#SAY
科举考试分为院试、乡试、会试、殿试四个部分，目前科举考试\
开放院试。通过每 轮科考的考生可获得“生员、 秀才、举人、\
贡士、进士、探花、榜眼、状元”称号。\
科考奖励：大量的经验奖励是您无法想象的!\
考试部分\
一、院试 \
院试部分一共十道试题。 <下一页/@讲规则1>\
[@讲规则1]
#IF
#ACT
#SAY
每题答题时间为２０秒，如果时间内没有提交答案，则\
视该题为错误．\
二、乡试(目前未开放) \
如果院试答对６道以上，可以进行乡试，否则考试结束！\
乡试部分共２０道试题，每题答题时间为２０秒．\
乡试答完后，一轮考试结束，系统根据考试成绩给出奖励！\
每答对一题，获得１点才气值．科举学位根据才气值评定！\
科举考试中，能获得大量的经验奖励，院试考题经验为乡试\
考题经验的二倍． <上一页/@讲规则>\
} sddddddddddddddddddddddddddddddddddd 这东西我收了！谢谢楼主！ 新手上路不用愁，碰到传奇架设问题可以来这搜索。 比较全的传奇教程分享网站，站长辛苦了。 这东西我收了！ 感谢站长分享传奇教程，让我学习到很多知识。 很多架设问题在这里可以找到，真是太好啦。 感谢楼主提供这么好的论坛！ 这东西我收了！
页:
[1]
2