【脚本】装备自定义属性

2024-9-18

自定义属性脚本，可随机给予4种不同的属性，最多6条，可获得重复属性，可根据自己的要求进行修改，脚本内有标注，不明白的大家一起相互交流。

NPC脚本

[@main]
#IF
CHECKLEVELEX > 0
#ACT
CLOSEMERCHANTBIGDLG
#SAY
<RText|x=24.0|y=78.0|text=<本服的头盔.项链.手镯.戒指.腰带.靴子等首饰装备可以鉴定出附加属性值/FCOLOR=93>>
<RText|x=24.0|y=105.0|text=<鉴定品质分为:/FCOLOR=93><普通.优秀.稀有.史诗.神话.远古/FCOLOR=253><六种/FCOLOR=93>>
<RText|x=24.0|y=128.0|text=<分别可附加:/FCOLOR=93><1.2.3.4.5.6/FCOLOR=253><条属性/FCOLOR=93>>
<RText|x=24.0|y=155.0|text=<如果你对装备鉴定出的属性不满意.可以重新鉴定 →  →/FCOLOR=250>>
<RText|x=24.0|y=180.0|text=<请把需要重新鉴定的装备放入右边的鉴定框内　→　→/FCOLOR=250>>
<ITEMBOX|x=483.0|y=140.0|width=70|height=70|boxindex=7|stdmode=*|tips=<只能放入首饰/FCOLOR=249>|tipsx=4|tipsy=100|img=public/1900000651_3.png>
<RText|x=172.0|y=209.0|text=<【/FCOLOR=249><点击重新鉴定/@开始重新洗炼><】/FCOLOR=249>>
<RText|x=24.0|y=242.0|text=<每次重新鉴定需要消耗[10000]元宝./FCOLOR=254>>

[@ItemOutBox7]
#if
#ACT
ReturnBoxItem 7
close

[@ItemIntoBox7]
#if
CHECKTEXTLIST ..\QuestDiary\不可鉴定的装备.txt <$BOXITEM[7].NAME>
#act
ReturnBoxItem 7
MESSAGEBOX 提　示：当前物品禁止鉴定！
BREAK


#IF
#ACT
SetUpgradeItem 7

;颜色
CHANGECUSTOMITEMABIL -1 1 0 230
CHANGECUSTOMITEMABIL -1 2 0 230
CHANGECUSTOMITEMABIL -1 3 0 230
CHANGECUSTOMITEMABIL -1 4 0 230
CHANGECUSTOMITEMABIL -1 5 0 230
CHANGECUSTOMITEMABIL -1 6 0 230

;是否为百分比
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMABIL -1 2 3 1
CHANGECUSTOMITEMABIL -1 3 3 1
CHANGECUSTOMITEMABIL -1 4 3 1
CHANGECUSTOMITEMABIL -1 5 3 1
CHANGECUSTOMITEMABIL -1 6 3 1

;显示位置
CHANGECUSTOMITEMABIL -1 1 4 1
CHANGECUSTOMITEMABIL -1 2 4 2
CHANGECUSTOMITEMABIL -1 3 4 3
CHANGECUSTOMITEMABIL -1 4 4 4
CHANGECUSTOMITEMABIL -1 5 4 5
CHANGECUSTOMITEMABIL -1 6 4 6


[@开始重新洗炼]
#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 7

#or
EQUAL <$BOXITEM[7].STDMODE> 28
EQUAL <$BOXITEM[7].STDMODE> 15
EQUAL <$BOXITEM[7].STDMODE> 65
EQUAL <$BOXITEM[7].STDMODE> 51
EQUAL <$BOXITEM[7].STDMODE> 24
EQUAL <$BOXITEM[7].STDMODE> 26
EQUAL <$BOXITEM[7].STDMODE> 19
EQUAL <$BOXITEM[7].STDMODE> 22
EQUAL <$BOXITEM[7].STDMODE> 23
EQUAL <$BOXITEM[7].STDMODE> 64
EQUAL <$BOXITEM[7].STDMODE> 62
EQUAL <$BOXITEM[7].STDMODE> 21
#act
#ELSEACT
ReturnBoxItem 7
AddTextListex ..\..\..\..\..\..\..\..\尝试刷物品名单.txt 服务器名称=<$SERVERNAME>:玩家名称=【<$USERNAME>】:物品类型=【<$BOXITEM[7].STDMODE>】:物品名称=<$BOXITEM[7].STDMODE>:尝试时间=<$DATETIME>
MESSAGEBOX 提　示：非法操作！
BREAK

#if
CHECKTEXTLIST ..\QuestDiary\不可鉴定的装备.txt <$BOXITEM[7].NAME>
#act
ReturnBoxItem 7
MESSAGEBOX 提　示：当前物品禁止鉴定！
BREAK


#IF
Not CheckBoxItemCount 7
#ACT
MESSAGEBOX 提　示：请将需要重鉴的装备放入框中！
Break

#IF
CHECKGAMEGOLD ? 10000
#elseACT
MESSAGEBOX 提　示：你的元宝不足[10000]无法重鉴！
Break

#IF
CHECKGAMEGOLD ? 10000
#ACT
GAMEGOLD - 10000
SetUpgradeItem 7

CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0

;这里注意！！！！！！！！！！
;绑定\Envir\DATA\cfg_att_score里的属性位置，根据自己版本修改
mov n$位1 1
mov n$位2 4
mov n$位3 32
mov n$位4 41

;随机
movr n$置1 1 5
movr n$置2 1 5
movr n$置3 1 5
movr n$置4 1 5
movr n$置5 1 5
movr n$置6 1 5

mov n$属性1 <$STR(n$位<$STR(n$置1)>)>
mov n$属性2 <$STR(n$位<$STR(n$置2)>)>
mov n$属性3 <$STR(n$位<$STR(n$置3)>)>
mov n$属性4 <$STR(n$位<$STR(n$置4)>)>
mov n$属性5 <$STR(n$位<$STR(n$置5)>)>
mov n$属性6 <$STR(n$位<$STR(n$置6)>)>

;随机属性
CHANGECUSTOMITEMABIL -1 1 1 <$STR(n$属性1)>
CHANGECUSTOMITEMABIL -1 2 1 <$STR(n$属性2)>
CHANGECUSTOMITEMABIL -1 3 1 <$STR(n$属性3)>
CHANGECUSTOMITEMABIL -1 4 1 <$STR(n$属性4)>
CHANGECUSTOMITEMABIL -1 5 1 <$STR(n$属性5)>
CHANGECUSTOMITEMABIL -1 6 1 <$STR(n$属性6)>
#ELSEACT
BREAK



#if
random 100
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:远古]
CHANGECUSTOMITEMTEXTCOLOR -1 70

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(n$属性值2)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(n$属性值3)>
CHANGECUSTOMITEMVALUE -1 4 = <$STR(n$属性值4)>
CHANGECUSTOMITEMVALUE -1 5 = <$STR(n$属性值5)>
CHANGECUSTOMITEMVALUE -1 6 = <$STR(n$属性值6)>


UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:远古级
break

#if
random 50
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:神话]
CHANGECUSTOMITEMTEXTCOLOR -1 249

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(n$属性值2)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(n$属性值3)>
CHANGECUSTOMITEMVALUE -1 4 = <$STR(n$属性值4)>
CHANGECUSTOMITEMVALUE -1 5 = <$STR(n$属性值5)>
CHANGECUSTOMITEMVALUE -1 6 = 0

UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:神话级
break

#if
random 20
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:史诗]
CHANGECUSTOMITEMTEXTCOLOR -1 241

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(n$属性值2)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(n$属性值3)>
CHANGECUSTOMITEMVALUE -1 4 = <$STR(n$属性值4)>
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0

UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:史诗级
break

#if
random 10
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:稀有]
CHANGECUSTOMITEMTEXTCOLOR -1 253

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(n$属性值2)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(n$属性值3)>
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0

UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:稀有级
break

#if
random 5
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:优秀]
CHANGECUSTOMITEMTEXTCOLOR -1 154

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(n$属性值2)>
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0

UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:优秀级
break

#if
#act
CHANGECUSTOMITEMTEXT -1 [鉴定品质:普通]
CHANGECUSTOMITEMTEXTCOLOR -1 250

movr n$属性值1 1 6
movr n$属性值2 1 6
movr n$属性值3 1 6
movr n$属性值4 1 6
movr n$属性值5 1 6
movr n$属性值6 1 6

CHANGECUSTOMITEMVALUE -1 1 = <$STR(n$属性值1)>
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0

UpDateBoxItem 7
MessageBox 鉴定成功.当前鉴定品质为:普通级
break