22pk版本 发表于 2015-7-21 21:24:21

科举考试-活动脚本

[@科举考试]
{
#IF
checklevelex > 119
#ACT
messagebox 该活动暂时只对低于120级的玩家开放!
BREAK

#IF
checklevelex > 59
#act
BREAK
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>\
　 　　 <李梦阳/SCOLOR=146><：今日科举次数:/SCOLOR=213> {<$HUMAN(KKCS)>/SCOLOR=253}<∕50/SCOLOR=253> \
　\
　 <你是否才华横溢贯古通今，却感叹无处施展？/SCOLOR=213>\
　 <你是否博学多才学富五车，却至今无人赏识？/SCOLOR=213>\
　 <参加科举考试，一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　 　 　　　　   <Img:4339:0:1:10/@参加考试>   <Img:4339:0:-1:10/@科举奖励>   <Img:4339:0:1:10/@科举规则> <Img:0:0:0:0>\
　 　   　　　　   <参加考试/SCOLOR=116>　 　 <领取奖励/SCOLOR=116>       <科举规则/SCOLOR=116>\

#ELSEACT
messagebox 玩家等级达到60级开放该功能!
BREAK

[@关闭按钮中断]
#IF
CHECKLEVELEX > 0
#ACT
CLEARDELAYGOTO
CLOSE
BREAK

[@参加考试]
#IF
check 1
#ACT
break
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：十年寒窗无人问，一举成名天下知！/SCOLOR=213>\
　\
　 您还没有领取上一轮的考试奖励!\
　 请领到奖励后才可以开始下一轮科举考试!\
　\
　\
　 　   　　　　                   <Img:4339:0:64:-6/@科举奖励> <领取奖励/SCOLOR=116>\


#if
;检测院试已经题目数量
CHECKVAR HUMAN YSTS > 0
CHECKVAR HUMAN YSTS < 10
#ACT
goto @院试随机抽题
break
#if
;检测院试已经题目数量
CHECKVAR HUMAN YSTS > 9
#ACT
goto @检测院试成绩
break

#IF
CHECKVAR HUMAN KKCS < 1
CHECK 0
#ACT
CALCVAR HUMAN KKCS + 1
SAVEVAR HUMAN KKCS ..\QuestDiary\变量数据\科举考试\科考次数Save.txt
GOTO @院试随机抽题
BREAK
#IF
CHECKVAR HUMAN KKCS < 5
CHECK 1
#ACT
CALCVAR HUMAN KKCS + 1
SAVEVAR HUMAN KKCS ..\QuestDiary\变量数据\科举考试\科考次数Save.txt
GOTO @院试随机抽题
BREAK
#ELSEACT
GOTO @进行收费科考
BREAK
;-----------------------------------------------------------------------------------------------
[@进行收费科考]
#IF
CHECK 0
#ACT
BREAK
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　　<书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　　<李梦阳/SCOLOR=146>< 黄金会员,每天5次免费科举考试！/SCOLOR=116>\
　 \
　 <免费科考试次数用完,你若想再次考试,需要缴纳一定的重考费用! /SCOLOR=249>\
　 <普通考场30元宝,获取正常经验奖励!/SCOLOR=87>\
　 <黄金考场200元宝,获取/SCOLOR=87><8倍经验/SCOLOR=249><奖励!/SCOLOR=87>\
　 　 　　　　   <Img:4339:0:1:10/@普通考场>   <Img:4339:0:-1:10/@黄金考场>   <Img:4339:0:1:10/@MAIN> <Img:0:0:0:0>\
　 　   　　　　   <普通考场/SCOLOR=116>　 　 <黄金考场/SCOLOR=116>      <返回/SCOLOR=116>\

#ELSESAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146>< 5次免费科考试次数用完！/SCOLOR=116>\
　\
　 <你若想再次考试,需要缴纳一定的重考费用! /SCOLOR=249>\
　 <普通考场30元宝,获取正常经验奖励!/SCOLOR=87>\
　 <黄金考场200元宝,获取/SCOLOR=87><8倍经验/SCOLOR=249><奖励!/SCOLOR=87>\
　 　　　　   <Img:4339:0:1:10/@普通考场>   <Img:4339:0:-1:10/@黄金考场>   <Img:4339:0:1:10/@MAIN> <Img:0:0:0:0>\
　   　　　　   <普通考场/SCOLOR=116>　 　 <黄金考场/SCOLOR=116>      <返回/SCOLOR=116>\


[@普通考场]
#IF
CHECKVAR HUMAN KKCS > 49
#ACT
SENDMSG 5 今日试剑经验石次数已经达20000次.无法再获得经验奖励!
BREAK

#IF
CHECKGAMEGOLD > 29
#ACT
GAMEGOLD - 30
CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\变量数据\科举考试\经验倍数Save.txt
CALCVAR HUMAN KKCS + 1
SAVEVAR HUMAN KKCS ..\QuestDiary\变量数据\科举考试\科考次数Save.txt
goto @院试随机抽题
#ELSESAY
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　\
　\
　 30元宝都没的人，还想骗我！当我老眼昏花？\
　 想重考？门都没有！以为你爹是李刚呀！\
　 　\
　 　   　　　　                   <Img:4339:0:58:-6/@MAIN> <返回/SCOLOR=116>\
;------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------
[@黄金考场]
#IF
CHECKVAR HUMAN KKCS > 49
#ACT
SENDMSG 5 今日试剑经验石次数已经达20000次.无法再获得经验奖励!
BREAK

#IF
CHECKGAMEGOLD > 199
#ACT
GAMEGOLD - 200
CALCVAR HUMAN EXPBS = 8
SAVEVAR HUMAN EXPBS ..\QuestDiary\变量数据\科举考试\经验倍数Save.txt
CALCVAR HUMAN KKCS + 1
SAVEVAR HUMAN KKCS ..\QuestDiary\变量数据\科举考试\科考次数Save.txt
goto @院试随机抽题
#ELSESAY
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　 　\
　 　\
　 既然你连100元宝的费用都交不起，请卷铺盖走人吧！\
　 黄金考场，不是菜市场！能进这的都是非富即贵之人！\
　\
　 　   　　　　                   <Img:4339:0:58:-6/@MAIN> <返回/SCOLOR=116>\

;------------------------------------------------------------------------------------------------
[@院试随机抽题]
#IF
;检测院试已经题目数量
CHECKVAR HUMAN EXPBS = 0
#ACT
CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\变量数据\科举考试\经验倍数Save.txt
#if
;检测院试已经题目数量
CHECKVAR HUMAN YSTS < 10
#ACT
MOV D3 0
MOV D3 20
CALCVAR HUMAN YSTS + 1
SAVEVAR HUMAN YSTS ..\QuestDiary\变量数据\科举考试\院试题数Save.txt
MOVR M15 1 755
GetRandomText .\QuestDiary\科举考试\百科知识题库.txt S13 <$STR(M15)>
GetRandomText .\QuestDiary\科举考试\百科知识选项.txt S14 <$STR(M15)>
MOV S15 <$STR(S13)>
INC S15 　\
INC S15 <$STR(S14)>
DelayCall 1000 @院试1分钟计时
#SAY
　                           \
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-101:-12>   <Img:3960:0:-155:136><Img:4050:0:-518:34>\
　 　   <李梦阳：/SCOLOR=146><当前进行第/SCOLOR=146><$HUMAN(YSTS)><题，答对/SCOLOR=146><$HUMAN(YSZQ)><题．/SCOLOR=146>\
　 <$STR(S15)>\

　 \

#ELSEACT
goto @检测院试成绩
BREAK

#if
;1/10机率喊话求助
Random 60
#ACT
DEC S13 <
DEC S13 /SCOLOR=213>\
DEC S13 /SCOLOR=213>
GuildNoticeMsg 0 151 (!)%s:<$STR(S13)> MAP
BREAK
#if
;1/10机率喊话求助
Random 60
#ACT
DEC S13 <
DEC S13 /SCOLOR=213>\
DEC S13 /SCOLOR=213>
GuildNoticeMsg 0 255 %s:<$STR(S13)> MAP
BREAK


[@院试1分钟计时]
#IF
LARGE D3 0
#ACT
MOV M11 3980
DEC M11 <$STR(D3)>
MOV S11 <Img:
INC S11 <$STR(M11)>
INC S11 :0:-155:136>
DEC D3 1
DelayCall 1000 @院试1分钟计时
#SAY
　                           \
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-101:-12>   <$STR(S11)><Img:4050:0:-518:34>\
　 　   <李梦阳：/SCOLOR=146><当前进行第/SCOLOR=146><$HUMAN(YSTS)><题，答对/SCOLOR=146><$HUMAN(YSZQ)><题．/SCOLOR=146>\
　 <$STR(S15)>\

　 \

#ELSEact

#ELSESAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　\
　 院试第<$HUMAN(YSTS)>道题目,<回答超时/SCOLOR=22>!\
　 下一道试题要速度一点哦!\
　 做好准备了吗?马上要开始下一道试题考试\
　 　\
　 　   　　　　                   <Img:4339:0:64:-6/@院试随机抽题> <继续考试/SCOLOR=116>\


[@检测院试成绩]
#IF
#ACT
MOV D0 0
MUL D0 <$HUMAN(YSZQ)> 10
goto @检测院试成绩A

[@检测院试成绩A]
#IF
CHECKLEVELEX > 0
#ACT
;M11,表示一题能获得(等级^4次方/30)的经验.
MOV M11 0
MUL M11 <$LEVEL> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
DIV M11 <$STR(M11)> 30
;D4,答题总经验=每次经验*答对题数*倍数系数
MUL D4 <$STR(M11)> <$HUMAN(YSZQ)>
MUL D4 <$STR(D4)> <$HUMAN(EXPBS)>

#IF
LARGE D0 50
#ACT
SET 1
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　 　\
　 本轮科举考试的院试部分结束!\
　 院试10试题,您一共答对了:<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%,获得:{<$STR(D4)>/SCOLOR=250}<点经验/SCOLOR=250>\
　 果然才高八斗,聪颖过人!\ \
　 　   　　　　                   <Img:4339:0:64:-6/@科举奖励> <领取奖励/SCOLOR=116>\
#ELSEACT
SET 1
#ELSESAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　 　\
　 本轮科举考试的院试部分结束!\
　 院试10试题,您一共答对了:<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%,获得:{<$STR(D4)>/SCOLOR=250}<点经验/SCOLOR=250>\
　 勉勉强强,下次努力,争取更好的成绩!\
　 　\
　 　   　　　　                   <Img:4339:0:64:-6/@科举奖励> <领取奖励/SCOLOR=116>\
;---------------------------------------------------------------------------------------

[@选择A]
#IF
#ACT
MOV S16 选择A
goto @判断对错
[@选择B]
#IF
#ACT
MOV S16 选择B
goto @判断对错
[@选择C]
#IF
#ACT
MOV S16 选择C
goto @判断对错
[@选择D]
#IF
#ACT
MOV S16 选择D
goto @判断对错
BREAK

[@判断对错]
#IF
checklevelex > 0
#ACT
CLEARDELAYGOTO
GetRandomText .\QuestDiary\科举考试\百科知识答案.txt S11 <$STR(M15)>
#IF
EQUAL S11 <$STR(S16)>
#ACT
GOTO @答题正确
BREAK
#ELSEACT
GOTO @答题错误
BREAK

[@答题正确]
#if
;检测院试已经题目数量
;CHECKVAR HUMAN YSTS < 9
#ACT
CALCVAR HUMAN YSZQ + 1
SAVEVAR HUMAN YSZQ ..\QuestDiary\变量数据\科举考试\院试正确Save.txt

#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：回答正确！/SCOLOR=213>\
　 　\
　 　　　<当前进行第/SCOLOR=146><$HUMAN(YSTS)><题，答对/SCOLOR=146><$HUMAN(YSZQ)><题．/SCOLOR=146>\
　 　　　<做好准备了吗?点击继续开始下一道试题考试！/SCOLOR=151>
　\
　\
　\
　 　   　　　　                   <Img:4339:0:64:-6/@院试随机抽题> <继续考试/SCOLOR=116>\


[@答题错误]
#IF
#ACT
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：回答错误！/SCOLOR=249>\
　 　\
　 　　　<当前进行第/SCOLOR=146><$HUMAN(YSTS)><题，答对/SCOLOR=146><$HUMAN(YSZQ)><题．/SCOLOR=146>\
　 　　　<做好准备了吗?点击继续开始下一道试题考试！/SCOLOR=151>
　\
　\
　\
　 　   　　　　                   <Img:4339:0:64:-6/@院试随机抽题> <继续考试/SCOLOR=116>\
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------
[@科举奖励]
#IF
CHECK 1
#ACT
goto @领取考试奖励A
#ELSEact

#ELSESAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：一展满腹经纶，独领群雄英姿！/SCOLOR=213>\
　 　\
　 　\
　 　　　<您已经领取过奖励或是您的考试还没有结束!/SCOLOR=249>
　 　\
　 　\
　 　\
　   　　　　                   <Img:4339:0:56:-5/@MAIN> <返 回/SCOLOR=116>\

[@领取考试奖励A]
#IF
CHECKLEVELEX > 0
#ACT
;M11,表示一题能获得(等级^4次方/30)的经验.
MOV M11 0
MUL M11 <$LEVEL> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
DIV M11 <$STR(M11)> 30
;D4,答题总经验=每次经验*答对题数*倍数系数
MUL D4 <$STR(M11)> <$HUMAN(YSZQ)>
MUL D4 <$STR(D4)> <$HUMAN(EXPBS)>

#IF
CHECKLEVELEX > 0
#ACT
;D0,正确率
MUL D0 <$HUMAN(YSZQ)> 10
MUL D6 <$HUMAN(YSZQ)> <$HUMAN(EXPBS)>
;SendMsg 5 检测D4:<$STR(D4)>
#IF
#ACT
DelayCall 100 @领取考试奖励D

[@领取考试奖励D]
#IF
CHECK 1
#ACT
MUL D5 <$STR(D4)> 6
DIV D5 <$STR(D5)> 5
#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：科举考试成绩如下/SCOLOR=213>\
　 　\
　 院试10试题,答对<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%．经验倍率系数:<$HUMAN(EXPBS)>倍\
　 根据院试成绩,以及人物等级\
　 您在本轮科举考试总共获得:{<$STR(D4)>/SCOLOR=250}<点经验/SCOLOR=250>\
　 会员经验<加成20%/SCOLOR=146>,实得经验:{<$STR(D5)>/SCOLOR=250}<点经验/SCOLOR=250>\
　 　   　　　　                   <Img:4339:0:64:-6/@我现在就领取> <确认领取/SCOLOR=116>\
#ELSESAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：科举考试成绩如下/SCOLOR=213>\
　 　\
　 院试10试题,答对<$HUMAN(YSZQ)>道,正确率:<$STR(D0)>%．经验倍率系数:<$HUMAN(EXPBS)>倍\
　 根据院试成绩,以及人物等级\
　 您在本轮科举考试总共获得:{<$STR(D4)>/SCOLOR=250}<点经验/SCOLOR=250>\
　 ;您在本轮考试中获得:<$STR(D6)>点才气\
　 　   　　　　                   <Img:4339:0:64:-6/@我现在就领取> <确认领取/SCOLOR=116>\
[@我现在就领取]
#IF
CHECK 1
CHECK 0
#ACT
SET 0
MOV M11 0
MUL M11 <$LEVEL> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
DIV M11 <$STR(M11)> 30
MUL D4 <$STR(M11)> <$HUMAN(YSZQ)>
MUL D4 <$STR(D4)> <$HUMAN(EXPBS)>
CHANGEEXP + <$STR(D4)>

CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\变量数据\科举考试\经验倍数Save.txt
CALCVAR HUMAN YSTS = 0
SAVEVAR HUMAN YSTS ..\QuestDiary\变量数据\科举考试\院试题数Save.txt
CALCVAR HUMAN YSZQ = 0
SAVEVAR HUMAN YSZQ ..\QuestDiary\变量数据\科举考试\院试正确Save.txt
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
CLOSE
BREAK
#IF
CHECK 1
CHECK 1
#ACT
SET 0
MOV M11 0
MUL M11 <$LEVEL> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
MUL M11 <$STR(M11)> <$LEVEL>
DIV M11 <$STR(M11)> 30
MUL D4 <$STR(M11)> <$HUMAN(YSZQ)>
MUL D4 <$STR(D4)> <$HUMAN(EXPBS)>
MUL D5 <$STR(D4)> 6
DIV D5 <$STR(D5)> 5
CHANGEEXP + <$STR(D5)>

CALCVAR HUMAN EXPBS = 1
SAVEVAR HUMAN EXPBS ..\QuestDiary\变量数据\科举考试\经验倍数Save.txt
CALCVAR HUMAN YSTS = 0
SAVEVAR HUMAN YSTS ..\QuestDiary\变量数据\科举考试\院试题数Save.txt
CALCVAR HUMAN YSZQ = 0
SAVEVAR HUMAN YSZQ ..\QuestDiary\变量数据\科举考试\院试正确Save.txt
GuildNoticeMsg 255 219 [黄金会员][<$USERNAME>]在科举考试中享受20%加成,获得<$STR(D5)>经验!
SendCenterMsg 224 202 [黄金会员][<$USERNAME>]在科举考试中享受20%加成,获得<$STR(D5)>经验!
MOV D1 0
MOV D2 0
MOV D3 0
MOV D4 0
MOV D5 0
MOV D6 0
MOV D7 0
CLOSE
BREAK
;---------------------------------------------------------------------------------------
;------------------------------------------------------------------------------
[@科举规则]
#IF
#ACT

#SAY
　                           <Img:4054:0:188:-20/@关闭按钮中断> <Img:0:0:0:0>\
　 　　 <书部侍郎/SCOLOR=168><Img:4002:0:-95:-6>   \
　 　　 <李梦阳/SCOLOR=146><：目前科举考试开放院试/SCOLOR=213>\
　 　\
　 <科考奖励：大量的经验及特殊奖励。/SCOLOR=213>\
　 <考试题数：院试部分一共十道试题。/SCOLOR=213>\
　 <答题时间：20秒，愈时提交答案，则视该题为错误。/SCOLOR=213>\
　 　\
　 　   　　　　                   <Img:4339:0:56:-6/@MAIN> <返 回/SCOLOR=116>\

}

中等收入陷阱 发表于 2015-7-21 21:25:53

哦...............

白雪公主 发表于 2015-7-22 11:43:20

真是有你的！

致美丽的你 发表于 2015-7-24 05:58:25

顶一个先

抗日之兵魂传说 发表于 2015-7-25 07:55:33

哈哈,这么多的人都回了,我敢不回吗?赶快回一个,很好的,我喜欢

亮剑 发表于 2015-8-1 13:03:21

世上没有绝望的处境，只有对处境绝望的人。

的局面也 发表于 2015-8-3 17:43:37

晕。。。。怎么没早看到呢。。。。。。。。。

超脑特工 发表于 2015-8-5 21:17:44

先看看怎么样！

摩登家庭 发表于 2015-8-7 09:37:34

我刚来~~~嘿嘿~~

赶集网 发表于 2015-8-8 23:44:42

偶像！你才是我的偶像！周星驰算什么？你比他幽默！周润发算什么？你比他有气质！周杰伦算什么？你比他有才华！
页: [1] 2 3 4 5 6 7 8 9
查看完整版本: 科举考试-活动脚本