传奇世界官方的元神尊者脚本

官方现在更新了什么元神能量体，不知道是什么东东。现在琢磨更有难度的脚本，没空去做那个任务了，有资料的可以添加。说明：
此脚本不需要添加变量，只需要建立几个文本保存下任务步骤。
每个人物每天只能完成一次任务，让系统零点清空那几个步骤文本。
中州\元神尊者 0 485 238 元神尊者 0 1 0 0 0
CLEARNAMELIST ..\QuestDiary\数据文件\元神尊者\收集神油.txt
CLEARNAMELIST ..\QuestDiary\数据文件\元神尊者\收集灵石.txt
CLEARNAMELIST ..\QuestDiary\数据文件\元神尊者\在线时间.txt
按照以上路径添加NPC，文本，和系统时间控制清空。 
DB  2622;元神水晶;46;201;1;0;0;0;882;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;188470;
以下是脚本文件：
[@main]
#IF
!checknamelist ..\QuestDiary\数据文件\元神尊者\收集神油.txt
#ACT
break
#SAY
　　中州惨遭恶魔军袭击，国王特命我在此提升广大勇士的\
元神实力。\
　　<color=green 勇士可以完成以下环任务来提升元神的实力。>\
　　<第一环任务(收集10瓶祝福神油)/@shoujiZFSY>\
　　<上缴3个元神水晶/@YSSJprize>\
　　<配合火玫瑰上缴3个元神水晶/@firePrize>\
　　<离开/@exit>
#IF
!checknamelist ..\QuestDiary\数据文件\元神尊者\收集灵石.txt
#SAY
#ACT
break
    中州惨遭恶魔军袭击，国王特命我在此提升广大勇士的\元神实力。\
    <color=green 勇士可以完成以下环任务来提升元神的实力。>\
    <第二环任务(收集一块灵力≥10灵石)/@shoujiLS>\
    <上缴3个元神水晶/@YSSJprize>\
    <配合火玫瑰上缴3个元神水晶/@firePrize>\
    <离开/@exit>

#IF
!checknamelist ..\QuestDiary\数据文件\元神尊者\在线时间.txt
#SAY
　　中州惨遭恶魔军袭击，国王特命我在此提升广大勇士的\
元神实力。\
　　<color=green 勇士可以完成以下环任务来提升元神的实力。>\
　　<第三环任务(元神在线满一个小时)/@在线一个小时>\
　　<上缴3个元神水晶/@YSSJprize>\
　　<配合火玫瑰上缴3个元神水晶/@firePrize>\
　　<离开/@exit>
#ACT
break
#ELSESAY
    中州惨遭恶魔军袭击，国王特命我在此提升广大勇士的\元神实力。\
    <color=green 勇士可以完成以下环任务来提升元神的实力。>\\
    <上缴3个元神水晶/@YSSJprize>\
    <配合火玫瑰上缴3个元神水晶/@firePrize>\
    <离开/@exit>;2=0=1=1=8=5=g=o=j=j
[@shoujiZFSY]
#IF
CHECKLEVELEX < 46
#ACT
break
#SAY
    只有46级以上的勇士才能接取此任务。\\
　　<离开/@exit>
#IF
!PNEUMARELEASED
#ACT
break
#SAY
    你的分身呢？你不放出分身，无法接取任务。\\
    <我马上放出我的分身/@exit>
#IF
checkitem 祝福神油 10
#SAY
　　恭喜你获得了4000万元神经验和元神水晶一个的奖励。\\
　　<离开/@exit>
#ACT
take 祝福神油 10
give 元神水晶 1
$PNEUMANAME.GetExp 40000000
Addnamelist ..\QuestDiary\数据文件\元神尊者\收集神油.txt
break
#ELSESAY
　　你的包裹里祝福神油不足，不能领取任务奖励。\\
　　<我这就去找/@exit>;2=0=1=1=8=5=g=o=j=j
[@shoujiLS]
#IF
!PNEUMARELEASED
#ACT
break
#SAY
    你的分身呢？你不放出分身，无法接取任务。\\
    <我马上放出我的分身/@exit>
#IF
PNEUMARELEASED
#ACT
ShowSpotDlg 6 请放入灵石： @放入灵石
break
#SAY
    请放入一块10点灵力以上的三魂七魄灵石，我会奖励\
你5000万元神经验和元神水晶一个的奖励哦！\\
    <好的/@exit>

[@放入灵石]
#IF
!PosInList $PARAM(0) ..\QuestDiary\数据文件\七魄灵石.txt
#ACT
break
#SAY
　　<$PARAM(0)>不是我要的物品。\\
　　<离开/@exit>#IF
!SMALL $ITEMINFO[$PARAM(1)].DURA 10000
#ACT
takem $PARAM(1)
give 元神水晶 1
$PNEUMANAME.GetExp 50000000
Addnamelist ..\QuestDiary\数据文件\元神尊者\收集灵石.txt
break
#SAY
　　恭喜你获得了5000万元神经验和元神水晶一个的奖励。\\
　　<不客气/@exit>
#ELSESAY
　　勇士，你所放入的<$PARAM(0)>灵力不够，还不能完成任务。\\
　　<这就去找。/@exit>;2=0=1=1=8=5=g=o=j=j
[@在线一个小时]
#IF
!PNEUMARELEASED
#ACT
break
#SAY
    你的分身呢？你不放出分身，无法接取任务。\\
    <我马上放出我的分身/@exit>
#IF
$PNEUMANAME.OnLineLongMin > 60
#ACT
give 元神水晶 1
$PNEUMANAME.GetExp 80000000
Addnamelist ..\QuestDiary\数据文件\元神尊者\在线时间.txt
break
#SAY
　　恭喜你获得了8000万元神经验和元神水晶一个的奖励。\\
　　<不客气/@exit>
#ELSESAY
　　你的元神累计在线不满一个小时，不能领取奖励。\\
　　<我这就去找/@exit>;2==0==1==1===8==5==g==o==j==j==
[@YSSJprize]
#IF
checkitem 元神水晶 3
#ACT
take 元神水晶 3
MENTALPOINT + 600
GetExp 60000000
$PNEUMANAME.GetExp 60000000
break
#SAY
　　恭喜你获得了主体元神各6000万经验及600点天元值的奖励！\\
　　<不客气/@EXIT>
#ELSESAY
　  您的包裹里元神水晶数量不足，不能兑换奖励。\\
　  <我这就去找/@exit>;2==0==1==1===8==5==g==o==j==j==
[@firePrize]
#IF
!PNEUMARELEASED
#ACT
break
#SAY
    你的分身呢？你不放出分身，无法完成任务。\\
    <我马上放出我的分身/@exit>
#IF
PNEUMARELEASED
#ACT
ShowSpotDlg 6 请放入火玫瑰： @放入火玫瑰
#SAY
　　勇士还可<color=green 配合“火玫瑰”递交元神水晶>，在此方式下\
<color=orange 可获得主体元神各1.5亿经验及1200点天元值。>\\
　　<我再考虑一下/@exit>

[@放入火玫瑰]
#IF
!EQUAL $PARAM(0) 火玫瑰
#ACT
break
#SAY
　　你似乎给错东西了，年轻人！\\
　　<啊，给错了？我再找找/@exit>
#IF
!checkitem 元神水晶 3
#SAY
　  您的包裹里元神水晶数量不足，不能兑换奖励。\\
　  <我这就去找/@exit>
#ACT
break
#ELSEACT
takem $PARAM(1)
take 元神水晶 3
GetExp 150000000
MENTALPOINT + 1200
$PNEUMANAME.GetExp 150000000
break
#ELSESAY
　　恭喜你获得了主体元神各1.5亿经验及1200点天元值的奖励！\\
　　<不客气/@EXIT>