专属升星功能，可以消耗掉玩家打的多的专属

jin2003

先上图，再上代码

真实效果如图：


代码：

[@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)> IDX  N$专属展示1
GetDBItemFieldValue <$STR(S$本专属名称2)> IDX  N$专属展示2
GetDBItemFieldValue <$STR(S$本专属名称3)> IDX  N$专属展示3
GetDBItemFieldValue <$STR(S$本专属名称4)> IDX  N$专属展示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[1].NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM[1].NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM[1].NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM[1].NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 1
messagebox 放入的专属物品不属于本大陆产出
break

#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM[1].NAME>
#act
ReturnBoxItem 1
sendmsg 6 不能放入重复的专属
break

#if
large <$BOXITEM[1].UPGRADECOUNT> 8
#act
ReturnBoxItem 1
sendmsg 6 专属最高升至9星
break

#if
#act
INC S$专属放入名称 <$BOXITEM[1].NAME>
sendmsg 6 <$STR(S$专属放入名称)>

[@ItemIntoBox2]
#OR
EQUAL <$BOXITEM[2].NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM[2].NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM[2].NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM[2].NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 2
messagebox 放入的专属物品不属于本大陆产出
break

#if
large <$BOXITEM[2].UPGRADECOUNT> 0
#act
ReturnBoxItem 2
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦



#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM[2].NAME>
#act
ReturnBoxItem 2
sendmsg 6 不能放入重复的专属
break

#if
#act
INC S$专属放入名称 <$BOXITEM[2].NAME>
sendmsg 6 <$STR(S$专属放入名称)>

[@ItemIntoBox3]
#OR
EQUAL <$BOXITEM[3].NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM[3].NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM[3].NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM[3].NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 3
messagebox 放入的专属物品不属于本大陆产出
break

#if
large <$BOXITEM[3].UPGRADECOUNT> 0
#act
ReturnBoxItem 3
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦



#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM[3].NAME>
#act
ReturnBoxItem 3
sendmsg 6 不能放入重复的专属
break

#if
#act
INC S$专属放入名称 <$BOXITEM[3].NAME>
sendmsg 6 <$STR(S$专属放入名称)>

[@ItemIntoBox4]
#OR
EQUAL <$BOXITEM[4].NAME> <$STR(S$本专属名称1)>
EQUAL <$BOXITEM[4].NAME> <$STR(S$本专属名称2)>
EQUAL <$BOXITEM[4].NAME> <$STR(S$本专属名称3)>
EQUAL <$BOXITEM[4].NAME> <$STR(S$本专属名称4)>
#elseact
ReturnBoxItem 4
messagebox 放入的专属物品不属于本大陆产出
break

#if
large <$BOXITEM[4].UPGRADECOUNT> 0
#act
ReturnBoxItem 4
messagebox 提示：您放入了一个带星的专属到材料区域\升级成功后会消失哦


#if
CheckContainsText <$STR(S$专属放入名称)> <$BOXITEM[4].NAME>
#act
ReturnBoxItem 4
sendmsg 6 不能放入重复的专属
break

#IF
#act
INC S$专属放入名称 <$BOXITEM[4].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

坏坏鱼

顶一下！谢谢分享~~~~

goodsnowv

谢谢楼主分享！

lulu888

感谢分享 顶一下！！

a117211385

顶一下！谢谢分享~~~~