[@main]
灵魂神印,吞噬万物的灵魂,吸取万物之灵力!\
每个英雄都有自己的灵魂神印,区别在于谁才是真正的英雄!\
\ \
神印灵魂释放{FCOLO网页复古传奇R=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
SetUpgrad押镖eItem 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 你连一个神油都没有!

TAGS：1 76复古合击传奇