开区服务端中装备吞噬脚本每次吞噬收费30万金币

22pk论坛 · 发表于 2021-3-1 16:26:07

()
%100
[@main]
#ACT
;OPENMERCHANTBIGDLG 19 232 1 4 0 -90 0
#SAY
<Img:0:19:350:-15/@EXIT>\
<       > <放入主装备/SCOLOR=251>  < >  < 每次吞噬收费30万金币/SCOLOR=253 > <说明：移动鼠标看|250#建议优先使用极品装备升级哦^250#武器会根据当前职业增加1点攻击属性^250#其他装备则会随机加防御，魔防，物理，魔法，道术/SCOLOR=70 >    \ \ \
<       > <放入副装备1/SCOLOR=251>  < > \ \
<       > <放入副装备2/SCOLOR=251>  < >  <注意：切勿吞噬时关闭窗口。后果自负！！！垃圾装备也可以变神器/SCOLOR=253 > \ \
<                                  > <确定吞噬/@吞噬开> \ \
<ITEMBOX:3:5:513:27:20:100:100:5,6,10,11,15,22,23,24,26,30,62,64:主装备> <ITEMBOX:4:5:513:27:60:100:100:5,6,10,11,15,22,23,24,26,30,62,64:副装备>  <ITEMBOX:5:5:513:27:100:100:100:5,6,10,11,15,22,23,24,26,30,62,64:副装备> \ \ \ \ \ \ \ \

; <ITEMBOX:3:5:513:27:60:100:100:5,6,10,11,15,19,20,21,22,23,24,26,30,62,64:主装备> <ITEMBOX:4:5:513:27:100:100:100:5,6,10,11,15,19,20,21,22,23,24,26,30,62,64:副装备>  <ITEMBOX:5:5:513:27:140:100:100:5,6,10,11,15,19,20,21,22,23,24,26,30,62,64:副装备> \ \ \ \ \ \ \ \

[@ItemIntoBox3]

[@ItemIntoBox4]
#act
MOV S$副武器1名字 <$BOXITEM[4].NAME>

[@ItemIntoBox5]
#act
MOV S$副武器2名字 <$BOXITEM[5].NAME>

[@ItemOutBox3]
#act
Close
[@ItemOutBox4]
#act
Close
[@ItemOutBox5]
#act
Close

[@吞噬开]
#act
MOV S$主武器名字 <$BOXITEM[3].NAME>
GetCustomItemText boxitem3 <$STR(S51)>
Mov P9 0

#if
Equal S51 装备已吞噬次数:10/10
#act
ReturnBoxItem 3
Messagebox 该装备吞噬次数用完

#if
Equal S51 装备已吞噬次数:1/10
#act
Mov P9 1
#if
Equal S51 装备已吞噬次数:2/10
#act
Mov P9 2
#if
Equal S51 装备已吞噬次数:3/10
#act
Mov P9 3
#if
Equal S51 装备已吞噬次数:4/10
#act
Mov P9 4
#if
Equal S51 装备已吞噬次数:5/10
#act
Mov P9 5
#if
Equal S51 装备已吞噬次数:6/10
#act
Mov P9 6
#if
Equal S51 装备已吞噬次数:7/10
#act
Mov P9 7
#if
Equal S51 装备已吞噬次数:8/10
#act
Mov P9 8
#if
Equal S51 装备已吞噬次数:9/10
#act
Mov P9 9

#IF
CheckGold 300000
#act
GOLDCOUNT - 300000
DelayCall 500  @吞噬开始
break
#ELSEACT
MESSAGEBOX 金币不足30万！！！
BREAK

[@吞噬开始]
#or
NOT CheckBoxItemCount 3
NOT CheckBoxItemCount 4
NOT CheckBoxItemCount 5
#ACT
MESSAGEBOX 请放入武器!
break
#IF
Equal S$主武器名字 <$STR(S$副武器1名字)>
Equal S$主武器名字 <$STR(S$副武器2名字)>
#act
SetUpgradeItem 3
#elseact
MESSAGEBOX 请放入三把相同的武器!
break

;#OR
;CheckItemAddValue boxitem3 0 > 7
;CheckItemAddValue boxitem3 1 > 7
;CheckItemAddValue boxitem3 2 > 7
;#ACT
;MESSAGEBOX 装备已经达到升级极限，或者你的金币不足。
;BREAK

#if
CheckContainsText S51 装备已吞噬次数:10
#act
ReturnBoxItem 3
Messagebox 该装备吞噬次数用完
BREAK
#IF
#ACT
GetDBItemFieldValue  <$BOXITEM[3].NAME>  stdmode  <$STR(N$装备位置)>
MOV N$距离  0
#OR
EQUAL N$装备位置 5
EQUAL N$装备位置 6
#ACT
DelayCall 50 @检测职业
BREAK
#elseact
MOV N$距离  5
#if
#ACT
Inc P9 1
SetCustomItemText boxitem3 装备已吞噬次数:<$STR(P9)>/10
SetCustomItemTextColor boxitem3 250
DelBoxItem 4
DelBoxItem 5
UpdateItem boxitem3
MOV N$位置 0
MOVR N$位置 0 <$STR(N$距离)>
CHANGEITEMADDVALUE boxitem3 <$STR(N$位置)> + 1
SendMsg 5 恭喜：你的【<$BOXITEM[3].NAME>】吞噬成功！随机属性提升1点！！！
Close
BREAK

[@检测职业]
#IF
checkjob warrior
#ACT
Inc P9 1
SetCustomItemText boxitem3 装备已吞噬次数:<$STR(P9)>/10
SetCustomItemTextColor boxitem3 250
DelBoxItem 4
DelBoxItem 5
UpdateItem boxitem3
CHANGEITEMADDVALUE boxitem3 0 + 1
SendMsg 5 恭喜：<$BOXITEM[3].NAME>吞噬成功，攻击+1！
Close
BREAK
#IF
checkjob wizard
#ACT
Inc P9 1
SetCustomItemText boxitem3 装备已吞噬次数:<$STR(P9)>/10
SetCustomItemTextColor boxitem3 250
DelBoxItem 4
DelBoxItem 5
UpdateItem boxitem3
CHANGEITEMADDVALUE boxitem3 1 + 1
SendMsg 5 恭喜：<$BOXITEM[3].NAME>吞噬成功，魔法+1！
Close
BREAK
#IF
checkjob taoist
#ACT
Inc P9 1
SetCustomItemText boxitem3 装备已吞噬次数:<$STR(P9)>/10
SetCustomItemTextColor boxitem3 250
DelBoxItem 4
DelBoxItem 5
UpdateItem boxitem3
CHANGEITEMADDVALUE boxitem3 2 + 1
SendMsg 5 恭喜：<$BOXITEM[3].NAME>吞噬成功，道术+1！
Close
BREAK

游客，如果您要查看本帖隐藏内容请回复