[@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 WavOpenbox.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 WavOpenbox.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 WavOpenbox.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 WavOpenbox.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 WaveGem.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 你连一个神油都没有!
