论坛 › 『传奇世界架设』 › 添加独特的传世宝典功能教程揭秘

antyvfl 发表于 2022-10-9 00:30:29

添加独特的传世宝典功能教程揭秘

[@mainleft]

{
　　欢迎进入传奇世界全仿盛大03复古金币版。\

}
[@mainright]
{
#IF
CheckLevelEx > 22
#SAY
　　从现在开始，每一位勇士都可以通过传世宝典进行答题\
。每天有一次免费答题的机会，\
打开智慧大门，运用智慧之力获得高额的经验奖励。\
\
　　<是的，我想答一轮/@mainrightfree>\
　　<关闭/@exit>\
#ELSESAY
　　{Color=green <$USERNAME>}，欢迎你进入传奇世界！\
　　在传世大陆上，你目前还只是一个新手。你可以通过双\
击“传世宝典”来了解传世大陆的各个信息，还可以找<Color=green 新手>\
<Color=green 向导>接取新手任务。\
　　“传世宝典”中的<Color=green 新手锦囊>记载了很多你需要了解的知\
识。当你每掌握一个知识，就能获得一些对你当前级别来说\
迫切需要的装备。<Color=green 现在你需要打开锦囊吗？>\
\
　　<请帮我打开锦囊吧/@mainrightdakaiNew>\
\
　　<关闭/@exit>\

[@mainrightfree]
#ACT
mov D4 0
mov D5 0

#IF
checknamelist ..\QuestDiary\游戏数据\传世宝典.txt
#SAY
　　你已经通过传世宝典进行过免费答题。不过，在每天的\
19：00到20：00的时候，落霞的王城官员那还有另外的知识\
问答，如果连续答对3道题目，同样可获得额外的奖励。\
\
　　<离开/@exit>\
#ELSESAY
　　你必须连续答对三道题目，你才能获得相应的经验值奖\
励。如果中间有任何一题答错，必须重新回答才能领奖。\
\
\
　　<开始吧，我准备好了/@mainrightstartanswer>\


[@mainrightstartanswer]
#ACT
movr P0 4
movr P1 4
movr P2 4
#SAY
<$QUESTION(44/394)>

#IF
equal P0 0
#SAY
　　{<$ANSWERTEXT(1)>/@ans&1}\
#IF
equal P1 0
#SAY
　　{<$ANSWERTEXT(2)>/@ans&2}\
#IF
equal P2 0
#SAY
　　{<$ANSWERTEXT(3)>/@ans&3}\
#IF
equal P0 1
#SAY
　　{<$ANSWERTEXT(1)>/@ans&1}\
#IF
equal P1 1
#SAY
　　{<$ANSWERTEXT(2)>/@ans&2}\
#IF
equal P2 1
#SAY
　　{<$ANSWERTEXT(3)>/@ans&3}\
#IF
equal P0 2
#SAY
　　{<$ANSWERTEXT(1)>/@ans&1}\
#IF
equal P1 2
#SAY
　　{<$ANSWERTEXT(2)>/@ans&2}\
#IF
equal P2 2
#SAY
　　{<$ANSWERTEXT(3)>/@ans&3}\
#IF
equal P0 3
#SAY
　　{<$ANSWERTEXT(1)>/@ans&1}\
#IF
equal P1 3
#SAY
　　{<$ANSWERTEXT(2)>/@ans&2}\
#IF
equal P2 3
#SAY
　　{<$ANSWERTEXT(3)>/@ans&3}\
#IF
equal P0 4
#SAY
　　{<$ANSWERTEXT(1)>/@ans&1}\
#IF
equal P1 4
#SAY
　　{<$ANSWERTEXT(2)>/@ans&2}\
#IF
equal P2 4
#SAY
　　{<$ANSWERTEXT(3)>/@ans&3}\

[@mainrightdakaiNew]
#IF
CHECKVAR HUMAN 新手答题 \ $LEVEL
#ACT
break
#SAY
　　恭喜你，勇士！你在新手锦囊中已经掌握了这个等级\
的知识，作为奖励，这些东西我就送给你了。但你要知\
道，未来的修行之路还很漫长，你还需要承受更多的磨\
练才行，加油吧！！\
\
　　<返回/@mainright>　　　　<关闭/@exit>\

#IF
random 1
#ACT
MOV P0 2
MULT P0 $LEVEL
dec P0 1
MOV P1 1

#IF
random 1
#SAY
<$QUESTION($STR(P0)/$STR(P0))>
　　{<$ANSWERTEXT(1)>/@ans&1}\
　　{<$ANSWERTEXT(2)>/@ans&2}\
　　{<$ANSWERTEXT(3)>/@ans&3}\
　　{<$ANSWERTEXT(4)>/@ans&4}\

[@ans] TRUE
#IF
EQUAL $ANSWER $SCRIPTPARAM(1)
#ACT
goto @mainright正确
#ELSEACT
goto @mainright错误

[@mainright错误]
#IF
CheckLevelEx > 22
#ACT
mov D4 0
#SAY
　　很遗憾，你没有连续答对3道题。不要气馁哦，从头再\
试试吧！\
\
\
　　<呵呵,我要再试一次/@mainrightstartanswer>\
　　<离开/@exit>
#ELSESAY
　　太遗憾了！看来你还需要再磨练一下。去补充一下知\
识吧，希望下次能够看到你能力有所提高！ \
\
　　<返回/@mainright>　　　<关闭/@exit>

[@mainright正确]
#IF
CheckLevelEx > 22
large D4 1
#ACT
addnamelist ..\QuestDiary\游戏数据\传世宝典.txt
goto @给予经验
break
#SAY
　　你的智慧超出了我的想象!恭喜你顺利通过这次考验!你\
已经获得经验。\
\
\
　　<谢谢/@exit>

#IF
CheckLevelEx > 22
#ACT
inc D4 1
break
#SAY
　　不错,这题答得很正确！那么继续答下一题吧。\
\
\
　　<好,请告诉我下一题/@mainrightstartanswer>\
　　<离开/@exit>

#IF
large P1 1
#ACT
goto @mainright领取奖励
break

#IF
random 1
#ACT
INC P0 1
INC P1 1
#SAY
　　 你回答的非常正确，请再接再厉！\
<$QUESTION($STR(P0)/$STR(P0)>
　　{<$ANSWERTEXT(1)>/@ans&1}\
　　{<$ANSWERTEXT(2)>/@ans&2}\
　　{<$ANSWERTEXT(3)>/@ans&3}\
　　{<$ANSWERTEXT(4)>/@ans&4}\

[@mainright领取奖励]
#IF
random 1
#ACT
CALCVAR HUMAN 新手答题 = $LEVEL
#SAY
　　恭喜你，勇士！你在新手锦囊中已经掌握了这个等级 \
的知识，作为奖励，这些东西我就送给你了。但你要知\
道，未来的修行之路还很漫长，你还需要承受更多的磨\
练才行，加油吧！！\
\
　　<返回/@mainright>　　　<关闭/@exit>

#IF
CheckLevelEx = 1
#ACT
CHANGEEXP + 50
break

#IF
CheckLevelEx = 2
#ACT
CHANGEEXP + 100
give 金创药（小）包 1
SENDMSG 5 恭喜您获得了金创药（小）包.
break

#IF
CheckLevelEx = 3
#ACT
CHANGEEXP + 100
give 金创药（中）包 1
SENDMSG 5 恭喜您获得了金创药（中）包.
break

#IF
CheckLevelEx = 4
#ACT
CHANGEEXP + 100
give 乌木剑 1
SENDMSG 5 恭喜您获得了一把乌木剑.
break

#IF
CheckLevelEx = 5
#ACT
CHANGEEXP + 100
give 金创药（中）包 1
SENDMSG 5 恭喜您获得了金创药（中）包.
break

#IF
CheckLevelEx = 6
#ACT
CHANGEEXP + 100
give 纯银项链 1
SENDMSG 5 恭喜您获得了纯银项链.
break

#IF
CheckLevelEx = 7
checkjob warrior
#ACT
give 铜戒指 1
SENDMSG 5 恭喜您获得了铜戒指.
break

#IF
CheckLevelEx = 7
checkjob wizard
#ACT
give 八角戒指 1
SENDMSG 5 恭喜您获得了八角戒指.
break

#IF
CheckLevelEx = 7
checkjob taoist
#ACT
give 水晶戒指 1
SENDMSG 5 恭喜您获得了水晶戒指.
break

#IF
CheckLevelEx = 8
#ACT
give 金币 2000
give 精钢手镯 1
SENDMSG 5 恭喜您获得了精钢手镯.
break

#IF
CheckLevelEx = 9
checkjob taoist
#ACT
give 精神战法 1
SENDMSG 5 您获得了精神战法.
break

#IF
CheckLevelEx = 9
#ACT
give 大护腕 1
SENDMSG 5 恭喜您获得了大护腕.
break

#IF
CheckLevelEx = 10
#ACT
give 金币 2500
give 金创药（中）包 1
SENDMSG 5 恭喜您获得了金创药（中）包.
break

#IF
CheckLevelEx = 11
gender man
#ACT
give 轻盔(男) 1
SENDMSG 5 您获得了轻盔(男).
break

#IF
CheckLevelEx = 11
#ACT
give 轻盔(女) 1
SENDMSG 5 您获得了轻盔(女).
break

#IF
CheckLevelEx = 12
checkjob wizard
#ACT
give 抗拒火环 1
SENDMSG 5 您获得了抗拒火环.
break

#IF
CheckLevelEx = 12
#ACT
give 金币 3000
give 敏捷手链 1
SENDMSG 5 您获得了敏捷手链.
break

#IF
CheckLevelEx = 13
checkjob warrior
#ACT
give 黑水晶项链 1
SENDMSG 5 您获得了黑水晶项链.
break

#IF
CheckLevelEx = 13
checkjob wizard
#ACT
give 黑檀木项链 1
SENDMSG 5 您获得了黑檀木项链.
break

#IF
CheckLevelEx = 13
checkjob taoist
#ACT
give 黄水晶项链 1
SENDMSG 5 您获得了黄水晶项链.
break

#IF
CheckLevelEx = 14
#ACT
give 金币 3500

#IF
CheckLevelEx = 14
checkjob warrior
#ACT
give 魔力头盔 1
SENDMSG 5 您获得了魔力头盔.
break

#IF
CheckLevelEx = 14
checkjob wizard
#ACT
give 白金项链 1
SENDMSG 5 您获得了白金项链.
break

#IF
CheckLevelEx = 14
checkjob taoist
#ACT
give 施毒术 1
SENDMSG 5 您获得了施毒术.
break

#IF
CheckLevelEx = 15
checkjob warrior
#ACT
give 八荒刀 1
SENDMSG 5 您获得了八荒刀.
break

#IF
CheckLevelEx = 15
checkjob wizard
#ACT
give 海魂叉 1
SENDMSG 5 您获得了海魂叉.
break

#IF
CheckLevelEx = 15
checkjob taoist
#ACT
give 半月刀 1
SENDMSG 5 您获得了半月刀.
break

#IF
CheckLevelEx = 16
gender man
#ACT
give 金币 4000
give 中盔(男) 1
SENDMSG 5 您获得了中盔(男).
break

#IF
CheckLevelEx = 16
#ACT
give 金币 4000
give 中盔(女) 1
SENDMSG 5 您获得了中盔(女).
break

#IF
CheckLevelEx = 17
checkjob warrior
#ACT
give 恶魔项链 1
SENDMSG 5 您获得了恶魔项链.
break

#IF
CheckLevelEx = 17
checkjob wizard
#ACT
give 雷电术 1
SENDMSG 5 您获得了雷电术.
break

#IF
CheckLevelEx = 17
checkjob taoist
#ACT
give 凤凰项链 1
SENDMSG 5 您获得了凤凰项链.
break

#IF
CheckLevelEx = 18
checkjob taoist
#ACT
give 金币 5000
give 灵魂道符 1
SENDMSG 5 您获得了灵魂道符.
break

#IF
CheckLevelEx = 18
#ACT
give 金币 5000
give 坚固手套 1
SENDMSG 5 您获得了坚固手套.
break

#IF
CheckLevelEx = 19
checkjob warrior
#ACT
give 护身真气 1
SENDMSG 5 您获得了护身真气.
break

#IF
CheckLevelEx = 19
checkjob wizard
#ACT
give 瞬间移动 1
SENDMSG 5 您获得了瞬间移动.
break

#IF
CheckLevelEx = 19
checkjob taoist
#ACT
give 骷髅召唤术 1
SENDMSG 5 您获得了骷髅召唤术.
break

#IF
CheckLevelEx = 20
#ACT
give 金币 8000

#IF
CheckLevelEx = 20
checkjob warrior
#ACT
give 斩马 1
SENDMSG 5 您获得了斩马.
break

#IF
CheckLevelEx = 20
checkjob wizard
#ACT
give 偃月刀 1
SENDMSG 5 您获得了偃月刀.
break

#IF
CheckLevelEx = 20
checkjob taoist
#ACT
give 降魔剑 1
SENDMSG 5 您获得了降魔剑.
break

#IF
CheckLevelEx = 21
checkjob warrior
#ACT
give 死神戒指 1
SENDMSG 5 您获得了死神戒指.
break

#IF
CheckLevelEx = 21
checkjob wizard
#ACT
give 魔眼戒指 1
SENDMSG 5 您获得了魔眼戒指.
break

#IF
CheckLevelEx = 21
checkjob taoist
#ACT
give 集体隐身术 1
SENDMSG 5 您获得了集体隐身术.
break

#IF
CheckLevelEx = 22
#ACT
give 金币 10000

#IF
CheckLevelEx = 22
checkjob warrior
gender man
#ACT
give 重盔(男) 1
SENDMSG 5 您获得了重盔(男).
break

#IF
CheckLevelEx = 22
checkjob warrior
#ACT
give 重盔(女) 1
SENDMSG 5 您获得了重盔(女).
break

#IF
CheckLevelEx = 22
checkjob wizard
gender man
#ACT
give 魔袍(男) 1
SENDMSG 5 您获得了魔袍(男).
break

#IF
CheckLevelEx = 22
checkjob wizard
#ACT
give 魔袍(女) 1
SENDMSG 5 您获得了魔袍(女).
break

#IF
CheckLevelEx = 22
checkjob taoist
gender man
#ACT
give 灵魂战甲(男) 1
SENDMSG 5 您获得了灵魂战甲(男).
break

#IF
CheckLevelEx = 22
checkjob taoist
#ACT
give 灵魂战甲(女) 1
SENDMSG 5 您获得了灵魂战甲(女).
break

[@给予经验]
#IF
random 8
#ACT
CHANGEEXP + 500000
break

#IF
random 4
#ACT
CHANGEEXP + 300000
break

#IF
random 2
#ACT
CHANGEEXP + 200000
break

#IF
random 1
#ACT
CHANGEEXP + 100000
break
}

chen1381861 发表于 2022-10-9 03:48:56

真是被感动的痛哭流涕……

lk5158130 发表于 2022-10-13 00:55:48

真是难得给力的帖子啊。

imrandom 发表于 2022-10-14 14:27:31

无回帖，不论坛，这才是人道。

jixiaoyao2010 发表于 2022-10-20 07:30:12

楼主加油，我们都看好你哦。

njjguo919 发表于 2022-10-23 16:24:25

真是被感动的痛哭流涕……

wjx003006 发表于 2022-10-24 04:32:37

看到这帖子真是高兴！

brader 发表于 2022-10-26 13:30:39

我只是路过打酱油的。

herenchang 发表于 2022-10-26 21:56:58

无回帖，不论坛，这才是人道。

noncode 发表于 2022-10-28 01:01:02

真是被感动的痛哭流涕……

查看完整版本: 添加独特的传世宝典功能教程揭秘