专属升星功能，可以消耗掉玩家打的多的专属
先上图，再上代码真实效果如图：
代码：
[@main]
#if
#act
mov S$本专属名称1 [专属]地狱魔王
mov S$本专属名称2 [专属]敌国元帅
mov S$本专属名称3 [专属]千年虎王
mov S$本专属名称4 [专属]峡谷殿主
OPENMERCHANTBIGDLG 182 1067 1 4 0 0 1 335 6 1
GetDBItemFieldValue <$STR(S$本专属名称1)> IDXN$专属展示1
GetDBItemFieldValue <$STR(S$本专属名称2)> IDXN$专属展示2
GetDBItemFieldValue <$STR(S$本专属名称3)> IDXN$专属展示3
GetDBItemFieldValue <$STR(S$本专属名称4)> IDXN$专属展示4
MOV S$专属放入名称
#if
checkitem <$STR(S$本专属名称1)> 1
#act
MOV N$专属1拥有 0
#elseact
MOV N$专属1拥有 1
#if
checkitem <$STR(S$本专属名称2)> 1
#act
MOV N$专属2拥有 0
#elseact
MOV N$专属2拥有 1
#if
checkitem <$STR(S$本专属名称3)> 1
#act
MOV N$专属3拥有 0
#elseact
MOV N$专属3拥有 1
#if
checkitem <$STR(S$本专属名称4)> 1
#act
MOV N$专属4拥有 0
#elseact
MOV N$专属4拥有 1
#if
#act
goto @-@放入降生专属
[@-@放入降生专属]
#say
\ \ \
<> <TEXT:专属升星:110:-40{FCOLOR=151;FSIZE=16;FNAME=黑体}>\
<> <TEXT:齐集本地图四大专属，即可进行专属升级:0:5{FCOLOR=95;FSIZE=10}>\
<> <ITEMBOX:1:182:1068:160:100:50:50:22:放入需要提升的专属，升级成功后不消失>\
<> <ITEMBOX:2:182:1068:70:180:50:50:22:放入专属材料，升级成功后消失^放入的材料不能重复^即理解为每次升级需要四种不同的专属><ITEMBOX:3:182:1068:160:180:50:50:22:放入专属材料，升级成功后消失^放入的材料不能重复^即理解为每次升级需要四种不同的专属><ITEMBOX:4:182:1068:250:180:50:50:22:放入专属材料，升级成功后消失^放入的材料不能重复^即理解为每次升级需要四种不同的专属>\
<>\
<> <ImgEx:182:662:663:662:110:110/@专属升级1>\
<> <TEXT:免费升星，可随机获得1点元素，最高9星:0:125{FCOLOR=215;FSIZE=10}>\
<><TEXT:本大陆专属一览：:0:125{FCOLOR=10;FSIZE=10}>\
<>\
<><ItemShow:<$STR(N$专属展示1)>:1:0:110:1:0:<$STR(N$专属1拥有)>><ItemShow:<$STR(N$专属展示2)>:1:0:110:1:0:<$STR(N$专属2拥有)>><ItemShow:<$STR(N$专属展示3)>:1:0:110:1:0:<$STR(N$专属3拥有)>><ItemShow:<$STR(N$专属展示4)>:1:0:110:1:0:<$STR(N$专属4拥有)>>\
[@ItemIntoBox1]
#OR
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 1
messagebox 放入的专属物品不属于本大陆产出
break
#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM.NAME>
#act
ReturnBoxItem 1
sendmsg 6 不能放入重复的专属
break
#if
large <$BOXITEM.UPGRADECOUNT> 8
#act
ReturnBoxItem 1
sendmsg 6 专属最高升至9星
break
#if
#act
INC S$专属放入名称 <$BOXITEM.NAME>
sendmsg 6 <$STR(S$专属放入名称)>
[@ItemIntoBox2]
#OR
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 2
messagebox 放入的专属物品不属于本大陆产出
break
#if
large <$BOXITEM.UPGRADECOUNT> 0
#act
ReturnBoxItem 2
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦
#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM.NAME>
#act
ReturnBoxItem 2
sendmsg 6 不能放入重复的专属
break
#if
#act
INC S$专属放入名称 <$BOXITEM.NAME>
sendmsg 6 <$STR(S$专属放入名称)>
[@ItemIntoBox3]
#OR
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 3
messagebox 放入的专属物品不属于本大陆产出
break
#if
large <$BOXITEM.UPGRADECOUNT> 0
#act
ReturnBoxItem 3
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦
#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM.NAME>
#act
ReturnBoxItem 3
sendmsg 6 不能放入重复的专属
break
#if
#act
INC S$专属放入名称 <$BOXITEM.NAME>
sendmsg 6 <$STR(S$专属放入名称)>
[@ItemIntoBox4]
#OR
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM.NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 4
messagebox 放入的专属物品不属于本大陆产出
break
#if
large <$BOXITEM.UPGRADECOUNT> 0
#act
ReturnBoxItem 4
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦
#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM.NAME>
#act
ReturnBoxItem 4
sendmsg 6 不能放入重复的专属
break
#IF
#act
INC S$专属放入名称 <$BOXITEM.NAME>
sendmsg 6 <$STR(S$专属放入名称)>
[@专属升级1]
#if
CheckBoxItemCount 1
CheckBoxItemCount 2
CheckBoxItemCount 3
CheckBoxItemCount 4
#elseact
messagebox 请确保四件专属都已放入
break
#if
#act
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
SetUpgradeItem 1
CHANGEITEMUPGRADECOUNT boxitem1 + 1
;随机一个元素数值
GetCacheRandomText ..\QuestDiary\配置文件\专属元素数值.txt N10
SendMsg 5 取出的字符串是:<$STR(N10)>
SetNewItemValue boxitem1 <$STR(N10)> + 1
UpdateItem boxitem1
SENDMSG 6 专属升星成功
close
顶一下！谢谢分享~~~~ 谢谢楼主分享！ 感谢分享 顶一下！！ 顶一下！谢谢分享~~~~
页:
[1]