GOM引擎特殊鉴定脚本怎么写?单职业传奇版本清除当前装备星星星教程。

GOM引擎特殊鉴定脚本怎么写?单职业传奇版本清除当前装备星星星教程。

20191022093437.png (904.28 KB, 下载次数: 0)

下载附件

2019-10-24 11:35 上传

(@ReclaimItem)

[@main]

#if

#act

OPENMERCHANTBIGDLG 0 596 1 4 1 -70 0 0 0 1

MOV N$时装页面 0

goto @main22

#say

  <Img:599:0:-13:75>

<ITEMBOX:3:-1:211:191:155:40:40:15,19,20,21,22,23,24,26,62,64:146#请放入要鉴定的首饰!^-^70#每次鉴定需要:特殊鉴定石一个>

 

  <ImgEx:0:648:649:648:80:280|253#鉴定说明:^-^70#一:鉴定一次需要特殊鉴定石一个+150荣誉点!!^-^70#二:每鉴定一次星星增加一个^-^70#每次鉴定最高可获得3%属性!!^-^70#三:星星最高可以增加到六级^-^242#星星六级以后可归零星级再鉴定!/@品级鉴定aaa> <ImgEx:0:775:776:775:70:280|150#星级归零一次需要5个金刚石^-^242#只要星星大于一个就可重置/@星级归零> <ImgEx:0:718:719:718:60:280/@exit>

               

          {如果对当前属性不满意可以/scolor=250}{『归零星级』/scolor=253}{再鉴定/scolor=250}

[@星级归零]

#if

#act

SetUpgradeItem 3

#if

equal <$BOXITEM[3].NAME>

#act

messagebox 请先放入首饰再执行当前操作!!

break

#if

equal <$BOXITEM[3].UPGRADECOUNT> 0

#act

messagebox 你当前装备都没有星星,清除什么!!

break

#if

CHECKGAMEDIAMOND < 5

#act

messagebox 你当前RMB不足,无法执行当前操作!!

break

#elseact

messagebox 你确定要清除当前装备所有星星吗?? @别废话

break

[@别废话]

#if

#act

SetUpgradeItem 3

#if

NOT equal <$BOXITEM[3].NAME>

large <$BOXITEM[3].UPGRADECOUNT> 0

CHECKGAMEDIAMOND > 4

#act

GAMEDIAMOND - 5

CHANGEITEMUPGRADECOUNT -1 = 0

UpDateBoxItem 3

messagebox 你已经成功的清除了当前装备的星星!! 可以再次去鉴定特殊属性了!!

break

[@品级鉴定aaa]

#if

#act

SetUpgradeItem 3

#if

equal <$BOXITEM[3].NAME>

#act

messagebox 请先放入首饰再鉴定属性!!

break

#if

checkitem 特殊鉴定石 1

#elseact

ReturnBoxItem 3

messagebox 你没有特殊鉴定石!!

break

#if

checkGameGird < 150

#act

messagebox 荣誉不足,无法鉴定!!

break

#if

large <$BOXITEM[3].UPGRADECOUNT> 5

#act

;ReturnBoxItem 3

messagebox 当前装备星级已经超过6级,不可再鉴定!! 你可以选择重置后再鉴定哦!!

break

#if

#act

;关联到OK框物品 所有操作或检测自定义OK框的脚本命令才能正常使用

SetUpgradeItem 3

SetNewItemValue -1 0 = 0

SetNewItemValue -1 1 = 0

SetNewItemValue -1 2 = 0

SetNewItemValue -1 3 = 0

SetNewItemValue -1 4 = 0

SetNewItemValue -1 5 = 0

SetNewItemValue -1 6 = 0

SetNewItemValue -1 7 = 0

SetNewItemValue -1 8 = 0

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

CHANGECUSTOMITEMVALUE -1 7 = 0

;===========================================================加攻击

;===========================================================加血量

#if

Random 7

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 5 1 6

CHANGECUSTOMITEMVALUE -1 5 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 5 0 254

CHANGECUSTOMITEMABIL -1 5 2 6

CHANGECUSTOMITEMABIL -1 5 3 1

;===========================================================加防御

#if

Random 7

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 0 1 1

CHANGECUSTOMITEMVALUE -1 0 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 0 0 254

CHANGECUSTOMITEMABIL -1 0 2 1

CHANGECUSTOMITEMABIL -1 0 3 1

;===========================================================加魔防

#if

Random 4

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 1 1 2

CHANGECUSTOMITEMVALUE -1 1 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 1 0 254

CHANGECUSTOMITEMABIL -1 1 2 2

CHANGECUSTOMITEMABIL -1 1 3 1

;===========================================================加魔法

#if

Random 4

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 3 1 4

CHANGECUSTOMITEMVALUE -1 3 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 3 0 254

CHANGECUSTOMITEMABIL -1 3 2 4

CHANGECUSTOMITEMABIL -1 3 3 1

;===========================================================加道术

#if

Random 4

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 2 1 3

CHANGECUSTOMITEMVALUE -1 4 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 2 0 254

CHANGECUSTOMITEMABIL -1 2 2 3

CHANGECUSTOMITEMABIL -1 2 3 1

;===========================================================加MP

#if

Random 4

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

small P55 5

#act

inc P55 1

MOVR P8 1 4

CHANGECUSTOMITEMABIL -1 6 1 7

CHANGECUSTOMITEMVALUE -1 6 = <$STR(P8)>

CHANGECUSTOMITEMABIL -1 6 0 254

CHANGECUSTOMITEMABIL -1 6 2 7

CHANGECUSTOMITEMABIL -1 6 3 1

#if

random 50

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

MOVR P8 1 4

SetNewItemValue -1 2 = <$STR(P8)>

INC P55 1

#if

Random 7

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

MOVR P8 1 4

SetNewItemValue -1 0 = <$STR(P8)>

INC P55 1

#if

Random 7

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

MOVR P8 1 4

SetNewItemValue -1 4 = <$STR(P8)>

INC P55 1

#if

random 4

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

MOVR P8 1 4

SetNewItemValue -1 4 = <$STR(P8)>

INC P55 1

#if

random 4

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

MOVR P8 1 4

SetNewItemValue -1 3 = <$STR(P8)>

INC P55 1

#if

random 3

small P55 5

NOT equal <$BOXITEM[3].NAME>

checkitem 特殊鉴定石 1

checkGameGird > 149

small <$BOXITEM[3].UPGRADECOUNT> 10

#act

SetNewItemValue -1 6 = 1

INC P55 1

#if

#act

CHANGEITEMUPGRADECOUNT -1 + 1

GameGird - 150

take 特殊鉴定石 1

UpDateBoxItem 3

文章归发布者所有。发布者:爱到深处,转载请注明出处:https://www.anyitu.com

如该内容侵犯您的权利,请及时联系我们

微信公众号