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