论坛 › 传奇脚本 › 传奇APPLE引擎碧灵宗掌门是怎么实现的

逍遥MIR 发表于 2024-6-16 02:10:24

传奇APPLE引擎碧灵宗掌门是怎么实现的

(@@InputInteger)

[@main]
#if
#say
{<$SELFNAME>=FCO=243}：\
好好修炼..本门讲究入心入道\
{10=y}
{5=x}{f.3,i.2199=img}    <{领取每日双倍经验=FCO=103}/@双倍经验>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{师门任务=FCO=103}/@师门任务>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{学习技能=FCO=103}/@学习技能>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{生活技能=FCO=103}/@学习生活技能>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{贡献兑换=FCO=103}/@贡献兑换>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{领取手册=FCO=103}/@领取手册>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\





;---------------贡献兑换--------------------------------------------\

[@贡献兑换]
{<$SELFNAME>=FCO=243}：\
每完成师门一个任务都可获得1点贡献值\
{你当前的贡献值为=FCO=250}[<$HUMAN(贡献值变量)>]\
{10=y}
{12=x}{i.407,s.1,c.1=item}{50=x}[{需求贡献=FCO=254}]:<2点>\\
{5=y}{62=x}{f.3,i.2201=img}    <[{兑换此物=FCO=250}]/@兑换炼器符>\
{10=y}\
{12=x}{i.222,s.1,c.1=item}{50=x}[{需求贡献=FCO=254}]:<20点>\\
{5=y}{62=x}{f.3,i.2201=img}    <[{兑换此物=FCO=250}]/@兑换金条>\
{10=y}\
{12=x}{i.437,s.1,c.1=item}{50=x}[{需求贡献=FCO=254}]:<20点>\\
{5=y}{62=x}{f.3,i.2201=img}    <[{兑换此物=FCO=250}]/@兑换洗髓丹>\
{10=y}\
{12=x}{i.436,s.1,c.1=item}{50=x}[{需求贡献=FCO=254}]:<40点>\\
{5=y}{62=x}{f.3,i.2201=img}    <[{兑换此物=FCO=250}]/@兑换法宝认主符>\
{10=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\



[@兑换法宝认主符]
#if
CHECKVAR HUMAN 贡献值变量 > 39
#act
CALCVAR HUMAN 贡献值变量 - 40
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
DYNAMICGIVE 法宝认主符 1
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_永不掉落] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可交易] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可出售] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_丢弃消失] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_刷新物品]
MESSAGEBOX 兑换成功!
#ELSEact
MESSAGEBOX 兑换失败..你的贡献值不足







[@兑换洗髓丹]
#if
CHECKVAR HUMAN 贡献值变量 > 19
#act
CALCVAR HUMAN 贡献值变量 - 20
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
DYNAMICGIVE 洗髓丹 1
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_永不掉落] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可交易] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可出售] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_丢弃消失] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_刷新物品]
MESSAGEBOX 兑换成功!
#ELSEact
MESSAGEBOX 兑换失败..你的贡献值不足





[@兑换金条]
#if
CHECKVAR HUMAN 贡献值变量 > 19
#act
CALCVAR HUMAN 贡献值变量 - 20
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
DYNAMICGIVE 金条 1
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_永不掉落] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可交易] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可出售] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_丢弃消失] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_刷新物品]
MESSAGEBOX 兑换成功!
#ELSEact
MESSAGEBOX 兑换失败..你的贡献值不足


[@兑换炼器符]
#if
CHECKVAR HUMAN 贡献值变量 > 1
#act
CALCVAR HUMAN 贡献值变量 - 2
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
DYNAMICGIVE 炼器符 1
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_永不掉落] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可交易] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可出售] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_丢弃消失] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_刷新物品]
MESSAGEBOX 兑换成功!
#ELSEact
MESSAGEBOX 兑换失败..你的贡献值不足

















[@师门任务]

;----------------30级提交师门任务--------------------------------------------\



#if
checknamelist ..\QuestDiary\师门任务\翡翠玉镯.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{5=y}\
为师要的<翡翠玉镯>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务翡翠玉镯>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\斗笠.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{5=y}\
为师要的<斗笠·精>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务斗笠>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\逍遥扇.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{5=y}\
为师要的<逍遥扇>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务逍遥扇>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\珍珠项链.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{5=y}\
为师要的<珍珠项链>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务珍珠项链>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\骷髅吊坠.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
;{当前任务为第=FCO=250}[<$MISSIONARITHMOMETER(0)>]{环=FCO=250}\
{5=y}\
为师要的<骷髅吊坠>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务骷髅吊坠>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\银蛇剑.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
;{当前任务为第=FCO=250}[<$MISSIONARITHMOMETER(0)>]{环=FCO=250}\
{5=y}\
为师要的<银蛇剑>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务银蛇剑>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\钨钢锤.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
;{当前任务为第=FCO=250}[<$MISSIONARITHMOMETER(0)>]{环=FCO=250}\
{5=y}\
为师要的<钨钢锤>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务钨钢锤>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break



#if
checknamelist ..\QuestDiary\师门任务\聚气丹.txt
#say
{<$SELFNAME>=FCO=243}：\
{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
;{当前任务为第=FCO=250}[<$MISSIONARITHMOMETER(0)>]{环=FCO=250}\
{5=y}\
为师要的<聚气丹>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务聚气丹>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break





#if
checknamelist ..\QuestDiary\师门任务\高阶治疗药水.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
为师要的<高阶治疗药水>你买回来了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任务高阶治疗药水>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break





#if
checknamelist ..\QuestDiary\师门任务\师门之送信.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
快去把信笺已经送出去！\
{5=y}\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break

#if
checknamelist ..\QuestDiary\师门任务\师门之送信.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
快去把信笺已经送出去！\
{5=y}\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break

#if
checknamelist ..\QuestDiary\师门任务\送信给许千桓.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
快去把信笺已经送出去！\
{5=y}\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break



#if
checknamelist ..\QuestDiary\师门任务\送信给奇艾兰.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
快去把信笺已经送出去！\
{5=y}\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break




#if
checknamelist ..\QuestDiary\师门任务\清理骷髅战士.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
你击杀的骷髅战士数量足够了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任清理骷髅战士>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\清理骷髅战将.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
你击杀的骷髅战将数量足够了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任清理骷髅战将>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


#if
checknamelist ..\QuestDiary\师门任务\清理掷斧骷髅.txt
#say
{<$SELFNAME>=FCO=243}：\
;{当前任务为第=FCO=250}[<$HUMAN(师门任务变量)>]{环=FCO=250}\
{当前任务为第=FCO=250}[<^ARH(0)>]{环=FCO=250}\
{5=y}\
你击杀的掷斧骷髅数量足够了么?\
{5=y}\
{5=x}{f.3,i.2199=img}    <{提交任务=FCO=103}/@提交任清理掷斧骷髅>\
{5=y}\
{5=x}{f.3,i.2200=img}    <{结束对话=FCO=103}/@exit>\
#act
break


















;----------------30级准备接受师门任务-------------------------------------------


#ELSESAY
{<$SELFNAME>=FCO=243}：\
本门每日可接受10次师门任务,每次完成师门\
任务都会获得极大的奖励.第10轮任务结束后\
还可获得特殊的奖励.\
<当你达到30级时即可开始师门任务>\
{5=y}\
{5=x}{f.3,i.2199=img}    <{开始师门任务=FCO=103}/@开始师门任务1>\

;----------------30级提交师门任务-------------------------------------------
[@提交任务翡翠玉镯]
#if
CHECKITEMCOUNT 翡翠玉镯 ? 1
#act
TAKECOUNT 翡翠玉镯 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\翡翠玉镯.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\


[@提交任务斗笠]
#if
CHECKITEMCOUNT 斗笠·精 ? 1
#act
TAKECOUNT 斗笠·精 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\斗笠.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\

[@提交任务逍遥扇]
#if
CHECKITEMCOUNT 逍遥扇 ? 1
#act
TAKECOUNT 逍遥扇 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\逍遥扇.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\


[@提交任务珍珠项链]
#if
CHECKITEMCOUNT 珍珠项链 ? 1
#act
TAKECOUNT 珍珠项链 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\珍珠项链.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\





[@提交任务骷髅吊坠]
#if
CHECKITEMCOUNT 骷髅吊坠 ? 1
#act
TAKECOUNT 骷髅吊坠 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\骷髅吊坠.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\



[@提交任务银蛇剑]
#if
CHECKITEMCOUNT 银蛇剑 ? 1
#act
TAKECOUNT 银蛇剑 1
CHANGEEXP + 50000
give 金币 5000
DELNAMELIST ..\QuestDiary\师门任务\银蛇剑.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\



[@提交任务钨钢锤]
#if
CHECKITEMCOUNT 钨钢锤 ? 1
#act
TAKECOUNT 钨钢锤 1
CHANGEEXP + 25000
give 金币 2000
DELNAMELIST ..\QuestDiary\师门任务\钨钢锤.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\




[@提交任务聚气丹]
#if
CHECKITEMCOUNT 聚气丹 ? 1
#act
TAKECOUNT 聚气丹 1
CHANGEEXP + 25000
give 金币 2000
DELNAMELIST ..\QuestDiary\师门任务\聚气丹.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\






[@提交任务高阶治疗药水]
#if
CHECKITEMCOUNT 高阶金创药水 ? 4
#act
TAKECOUNT 高阶金创药水 4
CHANGEEXP + 25000
give 金币 2000
DELNAMELIST ..\QuestDiary\师门任务\高阶治疗药水.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\




[@提交任清理骷髅战士]
#if
CHECKMISSIONKILLMONCOUNT 5 1 > 14
#act
CHANGEEXP + 50000
give 金币 5000
CHANGEMISSIONKILLMONCOUNT 5 1 = 0
DELNAMELIST ..\QuestDiary\师门任务\清理骷髅战士.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\




[@提交任清理骷髅战将]
#if
CHECKMISSIONKILLMONCOUNT 5 1 > 9
#act
CHANGEEXP + 50000
give 金币 5000
CHANGEMISSIONKILLMONCOUNT 5 1 = 0
DELNAMELIST ..\QuestDiary\师门任务\清理骷髅战将.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\



[@提交任清理掷斧骷髅]
#if
CHECKMISSIONKILLMONCOUNT 5 1 > 19
#act
CHANGEEXP + 50000
give 金币 5000
CHANGEMISSIONKILLMONCOUNT 5 1 = 0
DELNAMELIST ..\QuestDiary\师门任务\清理掷斧骷髅.txt
DELMISSION 5
#say
{<$SELFNAME>=FCO=243}：\
做的好..本门就缺你这样的弟子!\
继续努力吧!\
#ELSESAY
{<$SELFNAME>=FCO=243}：\
不要糊弄为师!\























































;----------------30级接受师门任务-------------------------------------------



[@开始师门任务1]
#if
CHECKLEVELEX > 30
#say
#act
goto @30级师门任务
#ELSESAY
{<$SELFNAME>=FCO=243}：\
您的等级太小了..任务还不能给你\
抓紧修炼吧!



[@30级师门任务]





#if
CHECKARITHMOMETERCOUNT 0 = 10
checknamelist ..\QuestDiary\师门任务\10环奖励.txt
;CHECKVAR HUMAN 师门任务变量 = 10
#say
{<$SELFNAME>=FCO=243}：\
你今日的任务已经全部完成了..好好修炼\
明天再找我吧!\
<这是你今天完成10次任务的奖励.拿好吧!>\
#act
DYNAMICGIVE 檀木宝箱 2
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_永不掉落] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可交易] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_绑定状态] [$物品_改变属性_绑定状态_不可丢弃] [$物品_改变属性_绑定状态_绑定]
CHANGEGIVEITEM [$物品_改变属性_刷新物品]
DELNAMELIST ..\QuestDiary\师门任务\10环奖励.txt
break


#if
CHECKARITHMOMETERCOUNT 0 = 10
;CHECKVAR HUMAN 师门任务变量 = 10
#say
{<$SELFNAME>=FCO=243}：\
你今日的任务已经全部完成了..好好修炼\
明天再找我吧!\
#act
;CHANGEARITHMOMETERCOUNT 0 = 1
break










#ELSEact
goto @开始分配10任务
;-------------------------开始任务--------------------------------------------------\


[@开始分配10任务]
#if
random 15
#say
{<$SELFNAME>=FCO=243}：\
瘟疫骷髅洞最近里面的魔物似乎越来多了\
看来是有更多的修者陨落其中了,我需要你前往\
瘟疫骷髅洞中去击杀几只掷斧骷髅\\
#act
ADDMISSION 5 清理掷斧骷髅
SHOWEFFECT [$特效_接受任务]
SET [$CHECK常量_是否接受杀怪任务] 1
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\清理掷斧骷髅.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break





#if
random 14
#say
{<$SELFNAME>=FCO=243}：\
瘟疫骷髅洞最近里面的魔物似乎越来多了\
看来是有更多的修者陨落其中了,我需要你前往\
瘟疫骷髅洞中去击杀几只骷髅战将\\
#act
ADDMISSION 5 清理骷髅战将
SHOWEFFECT [$特效_接受任务]
SET [$CHECK常量_是否接受杀怪任务] 1
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\清理骷髅战将.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break







#if
random 13
#say
{<$SELFNAME>=FCO=243}：\
瘟疫骷髅洞最近里面的魔物似乎越来多了\
看来是有更多的修者陨落其中了,我需要你前往\
瘟疫骷髅洞中去击杀几只骷髅战士\\
#act
ADDMISSION 5 清理骷髅战士
SHOWEFFECT [$特效_接受任务]
SET [$CHECK常量_是否接受杀怪任务] 1
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\清理骷髅战士.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break









#if
random 12
CheckBagSize 2
#say
{<$SELFNAME>=FCO=243}：\
为师手里正好有一封信笺.你去送到\
<许千桓>手上吧\
#act
give 许千桓的信笺
ADDMISSION 5 送信给许千桓
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\送信给许千桓.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break






#if
random 11
CheckBagSize 2
#say
{<$SELFNAME>=FCO=243}：\
为师手里正好有一封信笺.你去送到\
<奇艾兰>手上吧\
#act
give 奇艾兰的信笺
ADDMISSION 5 送信给奇艾兰
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\送信给奇艾兰.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break






#if
random 10
CheckBagSize 2
#say
{<$SELFNAME>=FCO=243}：\
为师手里正好有一封信笺.你去送到\
<滑新豪>手上吧\
#act
give 滑新豪的信笺
ADDMISSION 5 师门之送信
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\师门之送信.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break













#if
random 9
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少4瓶<高阶治疗药水>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之治疗药水
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\高阶治疗药水.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break








#if
random 8
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<聚气丹>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之聚气丹
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\聚气丹.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break








#if
random 7
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<银蛇剑>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之银蛇剑
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\银蛇剑.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break



#if
random 6
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<钨钢锤>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之钨钢锤
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\钨钢锤.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break























#if
random 5
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<骷髅吊坠>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之骷髅吊坠
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\骷髅吊坠.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break







#if
random 4
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<珍珠项链>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之珍珠项链
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\珍珠项链.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break













#if
random 3
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<逍遥扇>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之逍遥扇
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\逍遥扇.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break










#if
random 2
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<斗笠·精>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之斗笠
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\斗笠.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break








#if
random 1
#say
{<$SELFNAME>=FCO=243}：\
师门现在正缺少一个<翡翠玉镯>\
你去帮我买一个来,要快去快回.\
#act
ADDMISSION 5 师门之翡翠手镯
SHOWEFFECT [$特效_接受任务]
CHANGEARITHMOMETERCOUNT 0 + 1
CALCVAR HUMAN 贡献值变量 + 1
SAVEVAR HUMAN 贡献值变量 ..\QuestDiary\变量\贡献值变量.txt
;CALCVAR HUMAN 师门任务变量 + 1
;SAVEVAR HUMAN 师门任务变量 ..\QuestDiary\变量\师门任务变量.txt
addnamelist ..\QuestDiary\师门任务\翡翠玉镯.txt
addnamelist ..\QuestDiary\师门任务\10环奖励.txt
break


















































[@学习技能]
{<$SELFNAME>=FCO=243}：\
当你达到40级时再来找我询问关于\
技能功法的问题吧.!\



[@领取手册]
#if
CheckBagSize 2
#act
give 碧灵宗门派手册 1
#say
{<$SELFNAME>=FCO=243}：\
拿好手册!不要再丢了\


[@学习生活技能]
{<$SELFNAME>=FCO=243}：\
本门除了要努力修炼功法外还要精修生活\
技能学习锻造法器、炼制灵丹也能快速获\
得足够的灵石来修炼.\
{5=y}\
{5=x}{f.3,i.2199=img}    <{学习生活技能=FCO=103}/@学习生活技能1>\

[@学习生活技能1]
#if
CHECK 0
#act
SET 1
ADDMAKEMAGIC 5
ADDMAKEMAGIC 0
ADDMAKEMAGIC 1
ADDMAKEMAGIC 2
ADDMAKEMAGIC 3
ADDMAKEMAGIC 4
ADDMAKEMAGIC 6
ADDMAKEMAGIC 7
ADDMAKEMAGIC 8
ADDMAKEMAGIC 9
#say
{<$SELFNAME>=FCO=243}：\
我已经教会你所有的生活技能..\
至于以后你有何造化就要看你自己的了!
#ELSEact
SENDMSG 5 你已经学会所有生活技能了!




[@双倍经验]
#IF
DAYOFWEEK MON
#ACT
MOV P0 1
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK TUE
#ACT
MOV P0 2
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK WED
#ACT
MOV P0 3
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK THU
#ACT
MOV P0 4
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK FRI
#ACT
MOV P0 5
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK SAT
#ACT
MOV P0 6
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

#IF
DAYOFWEEK SUN
#ACT
MOV P0 7
MOV P1 0
GOTO @游戏服务_双倍经验_计算时间
BREAK

[@游戏服务_双倍经验_计算时间]
#IF
CHECKNAMELIST ../ScriptData/双倍经验/1.txt
#ACT
INC P1 1

#IF
CHECKNAMELIST ../ScriptData/双倍经验/2.txt
#ACT
INC P1 2

#IF
CHECKNAMELIST ../ScriptData/双倍经验/3.txt
#ACT
INC P1 3

#IF
CHECKNAMELIST ../ScriptData/双倍经验/4.txt
#ACT
INC P1 4

#IF
CHECKNAMELIST ../ScriptData/双倍经验/5.txt
#ACT
INC P1 5

#IF
CHECKNAMELIST ../ScriptData/双倍经验/10.txt
#ACT
INC P1 10

#IF
LARGE P1 <$STR(P0)>
#ACT
MOV P0 0
GOTO @游戏服务_双倍经验_显示
#ELSEACT
DEC P0 <$STR(P1)>
GOTO @游戏服务_双倍经验_显示


[@游戏服务_双倍经验_显示]
　每个角色每天可以{免费领取1个小时=FCO=251}的双\
倍经验，而且双倍经验可在一周内累计，\
最多高达{7个小时=FCO=250}。即你可以先预存数天\
的双倍经验时间，然后再一起领取使用(不\
可透支领取)，甚至是在周末一次性使用。\
不过千万要记住：{每周一的凌晨1点整，双=FCO=243}\
{倍经验时间会清空并重新计算，所以一定=FCO=243}\
{要在周一凌晨1点前用完当周的双倍经验时=FCO=243}\
{间。=FCO=243}\
　该双倍可以与双倍秘籍同时使用，双倍\
有效时间自动累加，下线也自动保存。\ \
{你当前可以领取的双倍时间：=FCO=251} {<$STR(P0)>=FCO=243} {小时=FCO=251}\ \
<&输入要领取的双倍经验时间(小时)/@@InputInteger0>\
<&返回上一页/@main>\

[@@InputInteger0]
#IF
SMALL N0 1
#ACT
MESSAGEBOX 要领取的双倍经验时间必需大于“0”
BREAK

#IF
SMALL P0 <$STR(N0)>
#ACT
MESSAGEBOX 你剩余的双倍经验时间不足！
#ELSEACT
DEC P0 <$STR(N0)>
INC P1 <$STR(N0)>
MUL N0 3600
KILLMONEXPRATE 200 <$STR(N0)>
CLEARLIST ../ScriptData/双倍经验/1.txt
CLEARLIST ../ScriptData/双倍经验/2.txt
CLEARLIST ../ScriptData/双倍经验/3.txt
CLEARLIST ../ScriptData/双倍经验/4.txt
CLEARLIST ../ScriptData/双倍经验/5.txt
CLEARLIST ../ScriptData/双倍经验/10.txt
GOTO @游戏服务_双倍经验_保存剩余时间

[@游戏服务_双倍经验_保存剩余时间]
#IF
EQUAL P1 1
#ACT
ADDNAMELIST ../ScriptData/双倍经验/1.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 2
#ACT
ADDNAMELIST ../ScriptData/双倍经验/2.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 3
#ACT
ADDNAMELIST ../ScriptData/双倍经验/3.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 4
#ACT
ADDNAMELIST ../ScriptData/双倍经验/4.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 5
#ACT
ADDNAMELIST ../ScriptData/双倍经验/5.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 6
#ACT
ADDNAMELIST ../ScriptData/双倍经验/5.txt
ADDNAMELIST ../ScriptData/双倍经验/1.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 7
#ACT
ADDNAMELIST ../ScriptData/双倍经验/5.txt
ADDNAMELIST ../ScriptData/双倍经验/2.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 8
#ACT
ADDNAMELIST ../ScriptData/双倍经验/5.txt
ADDNAMELIST ../ScriptData/双倍经验/3.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 9
#ACT
ADDNAMELIST ../ScriptData/双倍经验/5.txt
ADDNAMELIST ../ScriptData/双倍经验/4.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 10
#ACT
ADDNAMELIST ../ScriptData/双倍经验/10.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 11
#ACT
ADDNAMELIST ../ScriptData/双倍经验/10.txt
ADDNAMELIST ../ScriptData/双倍经验/1.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 12
#ACT
ADDNAMELIST ../ScriptData/双倍经验/10.txt
ADDNAMELIST ../ScriptData/双倍经验/2.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
EQUAL P1 13
#ACT
ADDNAMELIST ../ScriptData/双倍经验/10.txt
ADDNAMELIST ../ScriptData/双倍经验/3.txt
GOTO @游戏服务_双倍经验_显示
BREAK

#IF
LARGE P1 13
#ACT
ADDNAMELIST ../ScriptData/双倍经验/10.txt
ADDNAMELIST ../ScriptData/双倍经验/4.txt
GOTO @游戏服务_双倍经验_显示
BREAK

查看完整版本: 传奇APPLE引擎碧灵宗掌门是怎么实现的