2024-05-07
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 4 16 1 4 0 -50 1 405 10
#SAY
<1.装备开光系统/SCOLOR=254>
<武器衣服可以在我这里进行开光/SCOLOR=251>
<开光后随机获得打怪伤害跟元素属性/SCOLOR=241> <ITEMBOX:0:28:1294:100:0:36:15:5,10:251#只允许放入武器.衣服>
<装备开光需要：/SCOLOR=250><[开光魔石]/SCOLOR=249>
<需要开光的武器.衣服放入左边框内/SCOLOR=253>
<> <确定开光/@放入装备>
<2.首饰重鉴系统/SCOLOR=250>
<大部分首饰都可以在我这里进行重新鉴定/SCOLOR=70>
<重新鉴定需要鉴定等级相同或更高级的/SCOLOR=241><“祭品”/SCOLOR=249><首饰/SCOLOR=241>
<只有首饰才能鉴定/SCOLOR=253>
<前往进入重新鉴定/@鉴定说明>
[@鉴定说明]
#IF
#ACT
OPENMERCHANTBIGDLG 4 16 1 4 0 -50 1 405 10
#SAY
<首饰重鉴系统/SCOLOR=250>
<如果你不满意首饰的鉴定属性可以在我这里重新鉴定/scolor=250>
<鉴定收取一定费用,鉴定后重新重新获取鉴定属性/scolor=241>\
<只允许戒指,手镯,腰带,靴子.头盔.项链/scolor=253>
<1.框内放入需要重新鉴定的装备/scolor=253>
<2.每次重新鉴定需要花费100000元宝/scolor=70>
<> <ITEMBOX:3:28:1294:60:0:40:40:15,19,24,26,64,62,22,23:251#放入需要重新鉴定的装备>
;<ITEMBOX:2:28:1294:190:0:40:40:15,19,24,26,64,62,22,23:251#放入相同或更高等级的祭品>
<> <开始重鉴属性/@开始重鉴属性>
[@开始重鉴属性]
#act
;SetUpgradeItem 2
SetUpgradeItem 3
#IF
NOT CheckBoxItemCount 3 1
#act
MESSAGEBOX 左边没放装备
BREAK
;#IF
;NOT CheckBoxItemCount 2 1
;#act
;MESSAGEBOX 右边没放装备
;BREAK
#if
CHECKGAMEGOLD > 99999
#ACT
GAMEGOLD - 100000
GOTO @确定重鉴属性
BREAK
#elseact
messagebox 元宝不足100000！
;#OR
;LARGE <$BOXITEM[2].MP> <$BOXITEM[3].MP>
;EQUAL <$BOXITEM[2].MP> <$BOXITEM[3].MP>
;#act
;GOTO @确定重鉴属性
;BREAK
;#elseact
;messagebox 祭品首饰须与重新鉴定的首饰鉴定等级相同.或者更高！
[@确定重鉴属性]
#if
CHECKTEXTLIST ........秩序觉醒通区通区文本鉴定列表.txt <$BOXITEM[3].NAME>
#act
;DELBOXITEM 2
CHANGECUSTOMITEMVALUE -1 0 = 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
#CALL [........秩序觉醒通区通区文本拾取鉴定.txt] @dq拾取鉴定
MESSAGEBOX 重新鉴定成功
BREAK
[@放入装备]
#ACT
MESSAGEBOX 你还没有放入装备？？？
[@ItemOutBox0]
#ACT
goto @main
[@ItemIntoBox0]
#ACT
SetUpgradeItem 0
#IF
EQUAL <$BOXITEM[0].STDMODE> 10
#ACT
MOV N$元素属性位置1 2
MOV N$元素属性位置2 3
MOV N$元素属性位置3 5
MOV N$元素属性位置4 7
MOVR N$元素属性数值1 1 25
MOVR N$元素属性数值2 1 25
;MOVR N$元素属性数值3 1 20
MOVR N$元素属性数值4 1 25
MOVR N$打怪伤害数值 1 20
DELAYGOTO 1 @开光说明
BREAK
#IF
EQUAL <$BOXITEM[0].STDMODE> 5
#ACT
MOV N$元素属性位置1 0
MOV N$元素属性位置2 1
MOV N$元素属性位置3 4
MOV N$元素属性位置4 6
MOVR N$元素属性数值1 1 30
MOVR N$元素属性数值2 1 20
;MOVR N$元素属性数值3 1 30
MOVR N$元素属性数值4 1 20
MOVR N$打怪伤害数值 1 20
DELAYGOTO 1 @开光说明
BREAK
[@开光说明]
#IF
#ACT
OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
#SAY
<1.装备开光系统/SCOLOR=254>
<武器衣服可以在我这里进行开光/SCOLOR=251> <ITEMBOX:0:28:1294:100:0:36:15:5,10:251#只允许放入武器.衣服>
<开光后随机获得打怪伤害跟元素属性/SCOLOR=241>
<装备开光需要：/SCOLOR=250><[开光魔石]/SCOLOR=249>
<需要开光的武器.衣服放入左边框内/SCOLOR=253> <确定开光/@确定开光>
<注:如果不满意开光获得的属性数值可以重复开光.只要你有足够的材料/SCOLOR=250>
<[开光魔石全服大部分怪物均有掉落.赞助浮力商城也可以兑换]/SCOLOR=249>
[@确定开光]
#IF
checkitem 开光魔石 1
#act
GOTO @执行开光
#elseact
messagebox 请检查是否有足够的材料！
BREAK
[@执行开光]
#IF
checkitem 开光魔石 1
#ACT
TAKE 开光魔石 1
SetNewItemValue -1 <$str(N$元素属性位置1)> = <$str(N$元素属性数值1)>
SetNewItemValue -1 <$str(N$元素属性位置2)> = <$str(N$元素属性数值2)>
;SetNewItemValue -1 <$str(N$元素属性位置3)> = <$str(N$元素属性数值3)>
SetNewItemValue -1 <$str(N$元素属性位置4)> = <$str(N$元素属性数值4)>
CHANGECUSTOMITEMABIL -1 1 1 8
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMVALUE -1 1 = <$str(N$打怪伤害数值)>
UpDateBoxItem 0
GOTO @ItemIntoBox0
MESSAGEBOX 恭喜您成功的给装备开光！
上一篇:
GOM版本人物装备框三个自定义功能StateWindowsButtonClick用不了
下一篇:
转区换大米脚本,很多回收加群联系管理
