传奇私服版本利用脚本控制切割重鉴提升人物切割伤害

作者:admin 来源:未知 更新时间:2020-03-28 06:08

 [@切割重鉴]

 
{
 
#IF
#Act
CloseBigDialogBox
#SAY
\ \ \
       <鉴定功能:这里可提供重新鉴定装备的切割值!/FCOLOR=249>\
<Img:363:1:3:4>\
 <本服装备拾取后自动鉴定,如果不满意可重新鉴定切割值!/FCOLOR=254>  <[查看品质]|242#(良品):风云-系列[切割100- 300]剑甲双倍^ ^250#(精品):王者-幽煌[切割300- 500]剑甲双倍^ ^253#(稀有):天启-圣裁[切割500- 700]剑甲双倍^ ^70#(罕见):完美-系列[切割700- 900]剑甲双倍-特殊属性:增加目标爆率+1%^ ^249#(完美):至臻-系列[切割900-1100]剑甲双倍-特殊属性:增加目标爆率+1%.人物体力增加+1%/FCOLOR=249>\ \
 <共有五个级别:/FCOLOR=245><良品/FCOLOR=242>→<精品/FCOLOR=250>→<稀有/FCOLOR=254>→<罕见/FCOLOR=70>→<完美/FCOLOR=249>→<帝王/FCOLOR=243><,装备越好级别越高!/FCOLOR=245>\ \
 <请将要重新洗炼的装备放入框中→/FCOLOR=250>\
 <请将要重新洗炼的装备放入框中→/FCOLOR=250>\
    <《开始重新洗炼》/@开始重新洗炼>\
 <重新洗炼需要消耗:20000元宝+黑铁矿石×2/FCOLOR=146>\
<ITEMBOX:6:3:14244:300:-60:42:42:*:255#请放入你要重新洗炼的装备>\
 
 
 
[@ItemIntoBox6]
#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 6
#OR
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 3 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 > 0
CHECKCUSTOMITEMVALUE -1 9 > 0
#ELSEACT
MESSAGEBOX 提 示:你的装备【<$BOXITEM[6].NAME>】还未鉴定,不能重新鉴定!
UpDateBoxItem 6
ReturnBoxItem 6
BREAK
 
#OR
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\1级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\2级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\3级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\4级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\5级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\6级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\7级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\8级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\9级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\10级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\11级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\12级装备.txt <$BOXITEM[6].NAME>
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\13级装备.txt <$BOXITEM[6].NAME>
#ELSEACT
MESSAGEBOX 提 示:你的装备【<$BOXITEM[6].NAME>】无法鉴定!
UpDateBoxItem 6
ReturnBoxItem 6
BREAK
 
#IF
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\1级装备.txt <$BOXITEM[6].NAME>
#ELSEACT
MESSAGEBOX 提 示:你的装备【<$BOXITEM[6].NAME>】无法鉴定!
UpDateBoxItem 6
ReturnBoxItem 6
BREAK
 
;-----------------------------------------------------------------------------
 
[@开始重新洗炼]
#IF
EQUAL P10 1
#ACT
SENDMSG 5 〖提示〗操作太过频繁....
Break
 
 
#IF
Not CheckBoxItemCount 6
#ACT
MESSAGEBOX 提 示:请将需要重鉴的装备放入框中!
Break
 
 
#IF
CheckTextlist ..\QuestDiary\鉴定加星\装备分级\1级装备.txt <$BOXITEM[6].NAME>
#ELSEACT
MESSAGEBOX 提 示:你的装备【<$BOXITEM[6].NAME>】无法鉴定!
ReturnBoxItem 6
BREAK
 
 
#IF
CHECKGAMEGOLD < 20000
#ACT
MESSAGEBOX 提 示:你的元宝不足[20000颗]无法重鉴!
Break
 
#IF
not CHECKITEM 黑铁矿石 2
#ACT
MESSAGEBOX 提 示:你的黑铁矿石不足2个无法重鉴!
Break
 
 
#IF
CHECKGAMEGOLD > 19999
CHECKITEM 黑铁矿石 2
#ACT
take 黑铁矿石 2
GameGold - 20000
SetUpgradeItem 6
CHANGEITEMUPGRADECOUNT -1 = 0
CHANGECUSTOMITEMTEXT -1 <$STR(S$鉴定名称)>
CHANGECUSTOMITEMTEXTColor -1 146
 
CHANGECUSTOMITEMABIL -1 1 0 0
CHANGECUSTOMITEMABIL -1 2 0 0
CHANGECUSTOMITEMABIL -1 3 0 0
CHANGECUSTOMITEMABIL -1 4 0 0
CHANGECUSTOMITEMABIL -1 5 0 0
CHANGECUSTOMITEMABIL -1 6 0 0
CHANGECUSTOMITEMABIL -1 7 0 0
 
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 4
CHANGECUSTOMITEMABIL -1 3 1 5
CHANGECUSTOMITEMABIL -1 4 1 6
CHANGECUSTOMITEMABIL -1 5 1 7
CHANGECUSTOMITEMABIL -1 6 1 8
CHANGECUSTOMITEMABIL -1 7 1 9
 
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 5 2 5
CHANGECUSTOMITEMABIL -1 6 2 6
CHANGECUSTOMITEMABIL -1 7 2 7
 
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 0
CHANGECUSTOMITEMABIL -1 7 3 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
CHANGECUSTOMITEMVALUE -1 7 = 0
 
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 11 = 0
 
MOV S$鉴定位置 -1
MOV S$当前鉴定名称 <$BOXITEM[6].NAME>
#CALL [\鉴定加星\鉴定几率.txt] @几率设置
 
#OR
CompareText <$BOXITEM[6].STDMODE> 15
CompareText <$BOXITEM[6].STDMODE> 16
CompareText <$BOXITEM[6].STDMODE> 19
CompareText <$BOXITEM[6].STDMODE> 22
CompareText <$BOXITEM[6].STDMODE> 24
CompareText <$BOXITEM[6].STDMODE> 26
CompareText <$BOXITEM[6].STDMODE> 28
CompareText <$BOXITEM[6].STDMODE> 30
CompareText <$BOXITEM[6].STDMODE> 51
CompareText <$BOXITEM[6].STDMODE> 62
CompareText <$BOXITEM[6].STDMODE> 63
CompareText <$BOXITEM[6].STDMODE> 64
CompareText <$BOXITEM[6].STDMODE> 65
CompareText <$BOXITEM[6].STDMODE> 48
#ACT
#CALL [\鉴定加星\鉴定分类\首饰鉴定.txt] @首饰鉴定
UpDateBoxItem 6
Break
 
#OR
CompareText <$BOXITEM[6].STDMODE> 10
CompareText <$BOXITEM[6].STDMODE> 11
CompareText <$BOXITEM[6].STDMODE> 66
CompareText <$BOXITEM[6].STDMODE> 67
#ACT
#CALL [\鉴定加星\鉴定分类\衣服鉴定.txt] @衣服鉴定
UpDateBoxItem 6
Break
 
#IF
CompareText <$BOXITEM[6].STDMODE> 5
#ACT
#CALL [\鉴定加星\鉴定分类\武器鉴定.txt] @武器鉴定
UpDateBoxItem 6
Break
}
 
}
 
 
※ 上一篇:迷失传奇版本中增加宠物系统来增强人物的伤害属性
※ 下一篇:没有了