最新给力引擎专用虚空神炉NPC文件分享

[@main]

灵魂神印,吞噬万物的灵魂,吸取万物之灵力!\
每个英雄都有自己的灵魂神印,区别在于谁才是真正的英雄!\
\ \
<神印灵魂释放{FCOLOR=218}/@灵魂释放>   释放出神印的灵魂,提高神印能力!  神油*1个/次\
\  \                    
<神印品质提升{FCOLOR=191}/@灵魂飞升>   飞升神印的灵魂,提高神印的品质!  经验1000万，递增/次\
\  \                    
<神印灵魂吞噬{FCOLOR=253}/@灵魂吞噬>   吞噬另外一个神印的灵魂!获取灵魂命格的属性\
\  \   
<神油灵魂炼制{FCOLOR=251}/@合成神油>   十个灵魂命格加2个金砖合成          <离开/@exit> \

[@合成神油]
#if
checkitem 金砖 2
checkitem 灵魂命格 10
#act
take 金砖 2
take 灵魂命格 10
give 神油 1
SENDMOVEMSG 0 253 255 350 1 <$USERNAME>成功合成了神油一个！
#elseact
sendmsg 6 你的材料不足
break

[@灵魂吞噬]
#act
UpDateBoxItem 6
ReturnBoxItem 6
UpDateBoxItem 7
ReturnBoxItem 7
MOV S$灵魂飞升左 =====》
MOV S$灵魂飞升右 《=====
MOV S$灵魂吞噬确认
INC S$灵魂吞噬确认 <Img:
INC S$灵魂吞噬确认 301
INC S$灵魂吞噬确认 :7|243#点击开始释放神印灵魂/@开始吞噬神印灵魂>
OPENMERCHANTBIGDLG 7 311 0 0 0 0 1 465 10
#say
\ \
\       <神印灵魂吞噬规则/FCOLOR=218>
\                                              \
\<神印每次吞噬需要:经验值100万/FCOLOR=224>
\ \
\<神印的吞噬次数:单项属性不超过40/FCOLOR=224>
\ \
\<神印灵魂吞噬命格获得其属性/FCOLOR=218>
\ \
\<白色品质:不可吞噬命格         /FCOLOR=255>           {<$STR(S$灵魂飞升左)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}           {<$STR(S$灵魂飞升右)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}
\ \
\<绿色品质:可吞噬白色品质命格   /FCOLOR=132>
\ \
\<紫色品质:可吞噬白色,绿色命格  /FCOLOR=241>      灵魂神印吞噬成功率100%,
\                                    吞噬后,被吞噬的神印将消失!\
\<粉色品质:可吞噬白,绿,紫色命格 /FCOLOR=253>      属性转移到被主灵魂神印\
\ \
\<金色品质:可吞噬白,绿,紫,粉命格/FCOLOR=243>                   <$STR(S$灵魂吞噬确认)>\
<ITEMBOX:6:7:303:298:-248:50:50:53:243#主体灵魂神印放这里>
<ITEMBOX:7:7:299:245:-158:50:50:53,5,6:243#被吞噬的灵魂命格放这里>

[@ItemIntoBox6]
#if
large <$BOXITEM[6].HAC> 60
#act
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 神印已达到极限！请使用神油释放灵魂!
DELAYGOTO 20 @灵魂吞噬
break
#if
large <$BOXITEM[6].HMAC> 60
#act
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 神印已达到极限！请使用神油释放灵魂!
DELAYGOTO 20 @灵魂吞噬
break
#if
large <$BOXITEM[6].HDC> 40
#act
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 神印已达到极限！请使用神油释放灵魂!
DELAYGOTO 20 @灵魂吞噬
break
#if
large <$BOXITEM[6].HMC> 40
#act
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 神印已达到极限！请使用神油释放灵魂!
DELAYGOTO 20 @灵魂吞噬
break
#if
large <$BOXITEM[6].HSC> 40
#act
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 神印已达到极限！请使用神油释放灵魂!
DELAYGOTO 20 @灵魂吞噬
break
#IF
CHECKLEVEL 1
#ACT
SetUpgradeItem 6
DELAYGOTO 20 @吞噬名字检测
break

[@吞噬名字检测]
#IF
equal <$BOXITEM[6].NAME> 灵魂神印
#ACT
SetUpgradeItem 6
goto @检测主体颜色
#ELSEACT
UpDateBoxItem 6
ReturnBoxItem 6
MESSAGEBOX 只有灵魂神印才可以吞噬灵魂命格!
DELAYGOTO 20 @灵魂吞噬
break


[@检测主体颜色]
#if
equal <$BOXITEM[6].COLOR> 255
#act
MESSAGEBOX 只有白色以上的灵魂神印才可以吞噬灵魂命格!
DELAYGOTO 20 @灵魂吞噬
break


[@ItemIntoBox7]
#IF
equal <$BOXITEM[6].NAME> 灵魂神印
#ELSEACT
MESSAGEBOX 必须先放入灵魂神印!
DELAYGOTO 20 @灵魂吞噬
break


#IF
equal <$BOXITEM[6].COLOR> 132
equal <$BOXITEM[7].COLOR> 255
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 241
equal <$BOXITEM[7].COLOR> 255
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 241
equal <$BOXITEM[7].COLOR> 132
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 253
equal <$BOXITEM[7].COLOR> 255
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 253
equal <$BOXITEM[7].COLOR> 132
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 253
equal <$BOXITEM[7].COLOR> 241
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 243
equal <$BOXITEM[7].COLOR> 255
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 243
equal <$BOXITEM[7].COLOR> 132
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 243
equal <$BOXITEM[7].COLOR> 241
#act
DELAYGOTO 20 @灵魂吞噬检测开始
break

#IF
equal <$BOXITEM[6].COLOR> 243
equal <$BOXITEM[7].COLOR> 253
#act
DELAYGOTO 20 @灵魂吞噬检测开始
#ELSEACT
MESSAGEBOX 同颜色的灵魂神印不能吞噬同颜色的命格!
DELAYGOTO 20 @灵魂吞噬
break

[@灵魂吞噬检测开始]
#IF
equal <$BOXITEM[7].NAME> 灵魂命格
#ACT
MOV N$防御值 0
MOV N$攻击值 0
MOV N$魔防值 0
MOV N$魔法值 0
MOV N$道术值 0
MOV N1 0
SetUpgradeItem 7
GOTO @检测命格属性1
SENDMSG 6 请等待提示后点击确定,否则后果自负!
#ELSEACT
DELAYGOTO 20 @检测命格名字


[@检测命格名字]
#act
UpDateBoxItem 7
ReturnBoxItem 7
MESSAGEBOX 只有灵魂神印才可以吞噬灵魂命格!
DELAYGOTO 20 @灵魂吞噬
break

[@检测命格属性1]
#IF
CHECKLEVEL 1
#ACT
GetListString ..\QuestDiary\功能\数据值1框.txt N1 <$STR(N$值)>
INC N1 1

#IF
SMALL N1 10
CHECKITEMADDVALUE -1 0 = <$STR(N$值)> <$STR(N$防御值)>
#ACT
MOV N$防御值 <$STR(N$值)>

#IF
LARGE N1 9
SMALL N1 19
CHECKITEMADDVALUE -1 1 = <$STR(N$值)> <$STR(N$魔防值)>
#ACT
MOV N$魔防值 <$STR(N$值)>

#IF
LARGE N1 18
SMALL N1 28
CHECKITEMADDVALUE -1 2 = <$STR(N$值)> <$STR(N$攻击值)
#ACT
MOV N$攻击值 <$STR(N$值)>

#IF
LARGE N1 27
SMALL N1 38
CHECKITEMADDVALUE -1 3 = <$STR(N$值)> <$STR(N$魔法值)>
#ACT
MOV N$魔法值 <$STR(N$值)>

#IF
LARGE N1 38
SMALL N1 50
CHECKITEMADDVALUE -1 4 = <$STR(N$值)> <$STR(N$道术值)>
#ACT
MOV N$道术值 <$STR(N$值)>




#IF
SMALL N1 50
#ACT
GOTO @检测命格属性1
break


#IF
LARGE N1 49
#ACT
MOV N1 0
SENDMSG 6 命格的:防御值<$STR(N$防御值)>,魔防值<$STR(N$魔防值)>,攻击值<$STR(N$攻击值)>,魔法值<$STR(N$魔法值)>,道术值<$STR(N$道术值)>
SENDMSG 6 现在可以点击确定来吞噬掉命格属性!





[@开始吞噬神印灵魂]
#IF
EQUAL <$BOXITEM[6].NAME>
#ACT
MESSAGEBOX 请放入需要抽取的装备和融合装备。
break

#IF
EQUAL <$BOXITEM[7].NAME>
#ACT
MESSAGEBOX 缺少可以融合的装备。
break

#IF
CHECKEXP > 999999
#ACT
CHANGEEXP - 1000000
SetUpgradeItem 6
CHANGEITEMADDVALUE -1 0 + <$STR(N$防御值)>
CHANGEITEMADDVALUE -1 1 + <$STR(N$魔防值)>
CHANGEITEMADDVALUE -1 2 + <$STR(N$攻击值)>
CHANGEITEMADDVALUE -1 3 + <$STR(N$魔法值)>
CHANGEITEMADDVALUE -1 4 + <$STR(N$道术值)>
UpDateBoxItem 6
ReturnBoxItem 6
SetUpgradeItem 7
DELBOXITEM 7
SENDMSG 0 <$USERNAME>成功的使用[灵魂神印]吞噬了[灵魂命格]的属性!请查看npc虚空神炉!
GOTO @灵魂吞噬
MESSAGEBOX 吞噬成功！请检查下吧！~
#ELSEACT
UpDateBoxItem 6
ReturnBoxItem 6
UpDateBoxItem 7
ReturnBoxItem 7
MESSAGEBOX 你的经验值不够100万!
DELAYGOTO 20 @灵魂吞噬
break











[@灵魂飞升]
#act
MOV S$灵魂飞升左 =====》
MOV S$灵魂飞升右 《=====
MOV S$灵魂飞升确认
INC S$灵魂飞升确认 <Img:
INC S$灵魂飞升确认 301
INC S$灵魂飞升确认 :7|243#点击开始释放神印灵魂/@开始飞升神印灵魂>
OPENMERCHANTBIGDLG 7 311 0 0 0 0 1 465 10
#say
\ \
\       <神印灵魂飞升规则/FCOLOR=218>
\                                              <神奇的灵魂飞升炉/FCOLOR=253>\
\<神印飞升需要:经验值1000万,按品质倍增/FCOLOR=224>
\ \
\<神印的飞升次数:四次/FCOLOR=224>
\ \
\<神印灵魂飞升后属性/FCOLOR=218>
\ \
\<白色品质:不可吞噬命格         /FCOLOR=255>           {<$STR(S$灵魂飞升左)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}           {<$STR(S$灵魂飞升右)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}
\ \
\<绿色品质:可吞噬白色品质命格   /FCOLOR=132>
\ \
\<紫色品质:可吞噬白色,绿色命格  /FCOLOR=241>      灵魂神印飞升成功率100%,
\                                    飞升后,神印属性不变,品质提升!\
\<粉色品质:可吞噬白,绿,紫色命格 /FCOLOR=253>
\ \
\<金色品质:可吞噬白,绿,紫,粉命格/FCOLOR=243>                   <$STR(S$灵魂飞升确认)>\
<ITEMBOX:5:7:299:295:-158:50:50:53:243#将要飞升的灵魂神印放入这里>

[@ItemIntoBox5]
#IF
CHECKLEVEL 1
#ACT
SetUpgradeItem 5
DELAYGOTO 20 @飞升名字检测

[@飞升名字检测]
#IF
equal <$BOXITEM[5].NAME> 灵魂神印
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
MESSAGEBOX 只有灵魂神印命格才可以飞升灵魂!
DELAYGOTO 20 @灵魂飞升
break




[@开始飞升神印灵魂]
#IF
EQUAL <$BOXITEM[5].NAME> 灵魂神印
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
MESSAGEBOX 只有灵魂神印命格才可以飞升灵魂!。
DELAYGOTO 20 @灵魂飞升
break
#IF
equal <$BOXITEM[5].COLOR> 255
#ACT
DELAYGOTO 20 @飞升白色神印灵魂
BREAK
#IF
equal <$BOXITEM[5].COLOR> 132
#ACT
DELAYGOTO 20 @飞升绿色神印灵魂
BREAK
#IF
equal <$BOXITEM[5].COLOR> 241
#ACT
DELAYGOTO 20 @飞升紫色神印灵魂
BREAK
#IF
equal <$BOXITEM[5].COLOR> 253
#ACT
DELAYGOTO 20 @飞升粉色神印灵魂
BREAK
#IF
equal <$BOXITEM[5].COLOR> 243
#ACT
UpDateBoxItem 5
ReturnBoxItem 5
SENDMSG 6 当前灵魂神印已经是最高品质!
DELAYGOTO 20 @灵魂飞升
break

[@飞升粉色神印灵魂]
#if
CHECKEXP > 79999999
#act
PLAYSOUND Wav\Openbox.wav 1 4
CHANGEEXP - 80000000
SetUpgradeItem 5
CHANGEITEMNAMECOLOR -1 243
UpDateBoxItem 5
ReturnBoxItem 5
SENDMSG 6 当前灵魂神印已经飞升至[金色品质]!
SENDMSG 0 <$USERNAME>花费8000万经验成功提升了灵魂神印的品质!请查看npc虚空神炉!
DELAYGOTO 20 @灵魂飞升
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
DELAYGOTO 20 @灵魂飞升
SENDMSG 6 你没有8000万经验!


[@飞升紫色神印灵魂]
#if
CHECKEXP > 39999999
#act
PLAYSOUND Wav\Openbox.wav 1 4
CHANGEEXP - 40000000
SetUpgradeItem 5
CHANGEITEMNAMECOLOR -1 253
UpDateBoxItem 5
ReturnBoxItem 5
SENDMSG 6 当前灵魂神印已经飞升至[粉色品质]!
SENDMSG 0 <$USERNAME>花费4000万经验成功提升了灵魂神印的品质!请查看npc虚空神炉!
DELAYGOTO 20 @灵魂飞升
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
DELAYGOTO 20 @灵魂飞升
SENDMSG 6 你没有4000万经验!

[@飞升绿色神印灵魂]
#if
CHECKEXP > 19999999
#act
PLAYSOUND Wav\Openbox.wav 1 4
CHANGEEXP - 20000000
SetUpgradeItem 5
CHANGEITEMNAMECOLOR -1 241
UpDateBoxItem 5
ReturnBoxItem 5
SENDMSG 6 当前灵魂神印已经飞升至[紫色品质]!
SENDMSG 0 <$USERNAME>花费2000万经验成功提升了灵魂神印的品质!请查看npc虚空神炉!
DELAYGOTO 20 @灵魂飞升
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
DELAYGOTO 20 @灵魂飞升
SENDMSG 6 你没有2000万经验!

[@飞升白色神印灵魂]
#if
CHECKEXP > 9999999
#act
PLAYSOUND Wav\Openbox.wav 1 4
CHANGEEXP - 10000000
SetUpgradeItem 5
CHANGEITEMNAMECOLOR -1 132
UpDateBoxItem 5
ReturnBoxItem 5
SENDMSG 6 当前灵魂神印已经飞升至[绿色品质]!
SENDMSG 0 <$USERNAME>花费1000万经验成功提升了灵魂神印的品质!请查看npc虚空神炉!
DELAYGOTO 20 @灵魂飞升
#ELSEACT
UpDateBoxItem 5
ReturnBoxItem 5
DELAYGOTO 20 @灵魂飞升
SENDMSG 6 你没有1000万经验!










[@灵魂释放]
#act
MOV S$灵魂释放左 =====》
MOV S$灵魂释放右 《=====
MOV S$灵魂释放确认
INC S$灵魂释放确认 <Img:
INC S$灵魂释放确认 301
INC S$灵魂释放确认 :7|243#点击开始释放神印灵魂/@开始释放神印灵魂>
OPENMERCHANTBIGDLG 7 311 0 0 0 0 1 465 10
#say
\ \
\      <神印灵魂释放规则/FCOLOR=218>
\                                              <神奇的灵魂释放炉/FCOLOR=253>\
\  <神印每次释放需要:神油*1个/FCOLOR=224>
\ \
\  <神印的释放次数:无限制/FCOLOR=224>
\ \
\  <神印灵魂释放后属性/FCOLOR=218>
\ \
\  <随机1~5点增加/FCOLOR=255>                          {<$STR(S$灵魂释放左)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}           {<$STR(S$灵魂释放右)>/AUTOCOLOR=254,251,168,191,250,70,245,249,253}
\ \
\  \
\ \
\                                    释放神印灵魂成功几率100%,
\                                    成功后,神印属性随机增加,神油消失!\
\  \
\ \
\                                                 <$STR(S$灵魂释放确认)>\
<ITEMBOX:4:7:299:295:-158:50:50:53:253#将要释放灵魂的神印放入这里>

[@ItemIntoBox4]
#IF
CHECKLEVEL 1
#ACT
SetUpgradeItem 4
DELAYGOTO 20 @释放名字检测

[@释放名字检测]
#IF
equal <$BOXITEM[4].NAME> 灵魂神印
#ELSEACT
UpDateBoxItem 4
ReturnBoxItem 4
MESSAGEBOX 只有灵魂神印命格才可以释放灵魂!
DELAYGOTO 20 @灵魂释放
break


[@开始释放神印灵魂]
#IF
EQUAL <$BOXITEM[4].NAME> 灵魂神印
#ELSEACT
UpDateBoxItem 4
ReturnBoxItem 4
MESSAGEBOX 只有灵魂神印命格才可以释放灵魂!。
DELAYGOTO 20 @灵魂释放
break
#IF
equal <$BOXITEM[4].COLOR> 255
#ACT
DELAYGOTO 20 @释放紫色神印灵魂
BREAK
#IF
equal <$BOXITEM[4].COLOR> 132
#ACT
DELAYGOTO 20 @释放紫色神印灵魂
BREAK
#IF
equal <$BOXITEM[4].COLOR> 241
#ACT
DELAYGOTO 20 @释放紫色神印灵魂
BREAK
#IF
equal <$BOXITEM[4].COLOR> 253
#ACT
DELAYGOTO 20 @释放紫色神印灵魂
BREAK
#IF
equal <$BOXITEM[4].COLOR> 243
#ACT
DELAYGOTO 20 @释放紫色神印灵魂
BREAK




[@释放紫色神印灵魂]
#if
CHECKITEM 神油 1
#act
movr p80 1 5
movr p79 0 5
take 神油 1
SetUpgradeItem 4
CHANGEITEMADDVALUE -1 <$STR(p79)> + <$STR(p80)>
PLAYSOUND Wav\eGem.wav 1 4
UpDateBoxItem 4
ReturnBoxItem 4
SENDMSG 6 灵魂命格神印释放灵魂成功!
SENDMOVEMSG 0 253 255 350 1 <$USERNAME>成功的使用[神油]释放了灵魂属性,获得属性提升<$STR(p80)>点。请查看npc虚空神炉!
MESSAGEBOX 释放灵魂成功!请检查下吧~
DELAYGOTO 20 @灵魂释放
#ELSEACT
UpDateBoxItem 4
ReturnBoxItem 4
DELAYGOTO 20 @灵魂释放
SENDMSG 6 你连一个神油都没有!

看到这帖子真是高兴！

看到这帖子真是高兴！

强烈支持楼主ing……

强烈支持楼主ing……

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

看到这帖子真是高兴！

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

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

看到这帖子真是高兴！