查看: 402|回复: 5

[GOM引擎脚本] 一款GOM 随机鉴定切割属性脚本

[复制链接]

68

主题

114

帖子

6万

积分

终身会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
67041

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

发表于 2020-8-15 00:23:52 | 显示全部楼层 |阅读模式
[@装备星星NPC]
{
[@锻造星星]
#if
#act
#Define         $(星价基数) 5000

mov N$星星保护 0
mov n$最大星星 0
MOV N$当前星星 0
mov n$升星价格 0
ReturnBoxItem 0
OPENMERCHANTBIGDLG 6 29 1 0 0 40 1 570 30
goto @装备鉴定



[@装备鉴定]
#if
EQUAL n$鉴定颜色 0
#act
MOV n$鉴定颜色 161

#if
#act
mov s$当前星星 <$BOXITEM[3].NAME>
SetStringBlank <$STR(s$当前星星)> 20 1
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2

#say
<><img:54:6:244:-13>\ \

<>\
<>                        \
<ITEMBOX:3:6:580:266:3:76:76:*:250#放入装备 !>\ \
<>\ \
<>                          <装备:<$STR(s$当前星星)>/fcolor=70>          <品质:/fcolor=254>{<$STR(S$当前品质)>/FCOLOR=<$STR(n$鉴定颜色)>}\
<>                                              \ \



<>                            <选择操作:/fcolor=254><[装备鉴定]/@装备鉴定>   <[星星升级]/@星星升级>   <[星星转移]/@星星转移>\
<>                          <------------------------------------------------/fcolor=10>  \

<>                           <装备重鉴:/fcolor=251>   \
<>                           <普通品质:血量随机50- 200  切割随机20-50/fcolor=250>\
<>                           <优秀品质:血量随机200-300  切割随机50-90/fcolor=168>\
^<>                          <卓越品质:血量随机300-400  切割随机90-140/fcolor=253>\
<>                           <完美品质:血量随机400-500  切割随机150-200/fcolor=24>\
<>                           <史诗品质:血量随机500-600  切割随机200-270/fcolor=5>\

<>                           <价格:2万元宝+2个神石/fcolor=250>\ \


<>                                        <imgex:6:204:204:205:20:-8/@鉴定OK>\ \
<>                              \ \



[@星星升级]
#if
#act
mov s$当前星星 <$BOXITEM[0].NAME>
SetStringBlank <$STR(s$当前星星)> 20 1
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
#say
<><img:54:6:244:-13>\ \

<>\
<>                        <playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:540:6:200:0:0>
<>                     <playimg:0:540:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0>\
<ITEMBOX:0:6:580:266:3:76:76:*:250#放入装备 !>\ \
<>\ \
<>                          <装备:<$STR(s$当前星星)>/fcolor=70>          <[星星重洗]|250#让装备的星星归零/@星星归零>\
<>                                              <当前:/fcolor=254>[<$STR(n$当前星星)>]<playimg:0:540:6:200:0:-5>\ \



<>                            <选择操作:/fcolor=254><[装备鉴定]/@装备鉴定>   <[星星升级]/@星星升级>   <[星星转移]/@星星转移>\
<>                          <------------------------------------------------/fcolor=10>  \




<>                                必须材料:                 附加材料:\
<>                               <ITEMSHOW:653:0:10:6:1>   <ITEMSHOW:654:0:104:6:1>\

<>                                             <星星升级>\ \  \

<>                              星星打造锤+20%           幸运石成功+70%\
<>                           \

<>                                        <imgex:6:204:204:205:20:-8/@锻造星星OK>\ \
<>                              <星星升级/fcolor=251><随机攻、魔、道:+ 2/fcolor=250> 失败星星归0!!<最大支持10星/fcolor=253>\ \

[@星星归零]

#if
equal <$BOXITEM[0].NAME>
#act
messagebox 请放入装备!
break

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[0].NAME>
#act
ReturnBoxItem 0
messagebox 当前物品不支持!
break

#if
#act
MESSAGEBOX 你确定要花1万元宝让[<$STR(n$当前星星)>]星的<$STR(s$当前星星)>\.\重洗变成0星?  @星星归零OK  @quxiao
break

[@星星归零OK]

#if
equal <$BOXITEM[0].NAME>
#act
messagebox 请放入装备!
break

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[0].NAME>
#act
ReturnBoxItem 0
messagebox 当前物品不支持!
break

#if
CHECKGAMEGOLD < 10000
#ACT
MESSAGEBOX 元宝不足,无法重洗!
BREAK

#or
equal N$升星位置 5
equal N$升星位置 6
#ACT
SetUpgradeItem 0
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
#elseact
SetUpgradeItem 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0


#if
#act
GAMEGOLD - 10000
MOV N$元宝消耗 10000
#Call [\1.0管理后台\消费统计.txt] @消费统计计算
CHANGEITEMUPGRADECOUNT  -1 = 0
UpDateBoxItem 0
goto @ItemIntoBox0
messagebox 归零成功!
break




[@鉴定OK]
#if
equal <$BOXITEM[3].NAME>
#act
messagebox 请放入装备!
break

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[3].NAME>
#act
ReturnBoxItem 3
messagebox 当前物品不支持!
break

#or
EQUAL S$当前品质 [史诗]
EQUAL S$当前品质 [传说]
EQUAL S$当前品质 [神圣]
EQUAL S$当前品质 [至尊]
#act
ReturnBoxItem 3
MEssagebox 当前装备已经是[史诗]以上了!
break

#OR
CHECKGAMEGOLD < 20000
NOT CHECKITEM 神石 2
#ACT
MESSAGEBOX 元宝或神石不足,无法鉴定!
BREAK
#if
#act
take 神石 2
GAMEGOLD - 20000
MOV N$元宝消耗 20000
#Call [\1.0管理后台\消费统计.txt] @消费统计计算

mov n$鉴定属性 0
Movr N$鉴定几率 100

#if
EQUAL n$鉴定属性 0
SMALL N$鉴定几率 2
#act
MOV n$鉴定属性 1
mov s$鉴定属性 史诗
mov n$鉴定颜色 5
movr N$鉴定血量 500 601
movr N$鉴定切割 200 271
sendmsg 0  恭喜%s鉴定到了[史诗]的{<$str(S$装备名字)>|251:0}装备!人品爆发!

#if
EQUAL n$鉴定属性 0
SMALL N$鉴定几率 10
#act
MOV n$鉴定属性 1
mov s$鉴定属性 完美
mov n$鉴定颜色 42
movr N$鉴定血量 400 501
movr N$鉴定切割 150 201
sendmsg 0  恭喜%s鉴定到了[完美]的{<$str(S$装备名字)>|251:0}装备!人品爆发!


#if
EQUAL n$鉴定属性 0
SMALL N$鉴定几率 30
#act
MOV n$鉴定属性 1
mov s$鉴定属性 卓越
mov n$鉴定颜色 253
movr N$鉴定血量 300 401
movr N$鉴定切割 90 141

#if
EQUAL n$鉴定属性 0
SMALL N$鉴定几率 50
#act
MOV n$鉴定属性 1
mov s$鉴定属性 优秀
mov n$鉴定颜色 168
movr N$鉴定血量 200 301
movr N$鉴定切割 50 91


#if
EQUAL n$鉴定属性 0
#act
MOV n$鉴定属性 1
mov s$鉴定属性 普通
mov n$鉴定颜色 250
movr N$鉴定血量 50 201
movr N$鉴定切割 20 51



#if
#ACT
SetUpgradeItem 3
CHANGECUSTOMITEMTEXT -1 [鉴定品质]: [<$str(s$鉴定属性)>]
CHANGECUSTOMITEMTEXTCOLOR -1 70
ChangeItemName -1 <$str(S$鉴定名字)>[<$STR(s$鉴定属性)>]
ChangeItemNameColor -1 <$str(n$鉴定颜色)>
;修改颜色
CHANGECUSTOMITEMABIL -1 0 0 <$str(n$鉴定颜色)>
CHANGECUSTOMITEMABIL -1 1 0 <$str(n$鉴定颜色)>
;修改绑定属性
CHANGECUSTOMITEMABIL -1 0 1 6
CHANGECUSTOMITEMABIL -1 1 1 13
;修改显示位置
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1

;修改绑定的值
CHANGECUSTOMITEMVALUE -1 0 = <$str(N$鉴定血量)>
CHANGECUSTOMITEMVALUE -1 1 = <$str(N$鉴定切割)>
UpDateBoxItem 3
goto @ItemIntoBox3
messagebox 鉴定成功!获得<$STR(s$鉴定属性)><$str(S$鉴定名字)>装备!
break

[@星星转移]
#if
equal <$BOXITEM[1].NAME>
#act
MOV n$转移星星 0

#if
#act
ReturnBoxItem 0
ReturnBoxItem 3
#say
<><img:54:6:244:-13>\ \

<>\
<>                        <playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:540:6:200:0:0>
<>                     <playimg:0:540:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0><playimg:0:530:6:200:0:0>\
<> \ \
<>\ \
<>                                    \
<>                                              \ \



<>                            <选择操作:/fcolor=254><[装备鉴定]/@装备鉴定>   <[星星升级]/@星星升级>   <[星星转移]/@星星转移>\
<>                          <------------------------------------------------/fcolor=10>  \




<>                                放入装备:                 转移目标:\
<>                               <ITEMBOX:1:6:580:-8:-10:76:76:*:250#放入装备 !>   <ITEMBOX:2:6:580:55:-10:76:76:*:250#放入装备 !>\

<>                                             <星星转移>\ \  \

<>                              <转移星数:/fcolor=254>[<$STR(n$转移星星)>]<playimg:0:540:6:200:0:-5> \
<>                           \

<>                                        <imgex:6:204:204:205:20:-8/@转移星星OK>\ \
<>                              <转移说明:/fcolor=251><免费转移/fcolor=250>\ \



[@转移星星OK]
#or
equal <$BOXITEM[1].NAME>
equal <$BOXITEM[2].NAME>
#act
messagebox 请放入装备!
break

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[2].NAME>
#act
ReturnBoxItem 2
messagebox 当前物品不支持!
break

#if
equal N$转移成功 1
#act
messagebox 转移成功,请取下转移装备!
break

#or
equal N$转移类型 5
equal N$转移类型 6
#act
SetUpgradeItem 1
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMUPGRADECOUNT  -1 = 0
UpDateBoxItem 1
mov N$转移成功 1
#elseact
SetUpgradeItem 1
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMUPGRADECOUNT  -1 = 0
UpDateBoxItem 1
mov N$转移成功 1




#or
equal N$转移类型2 5
equal N$转移类型2 6
#act
SetUpgradeItem 2
CHANGEITEMADDVALUE -1 0 = <$str(n$转移攻击)>
CHANGEITEMADDVALUE -1 1 = <$str(n$转移魔法)>
CHANGEITEMADDVALUE -1 2 = <$str(n$转移道术)>
CHANGEITEMUPGRADECOUNT  -1 = <$str(n$转移星星)>0
UpDateBoxItem 2
messagebox 转移成功,获得<$str(n$转移星星)>星装备!
BREAK

#if
#act
SetUpgradeItem 2
CHANGEITEMADDVALUE -1 2 = <$str(n$转移攻击)>
CHANGEITEMADDVALUE -1 3 = <$str(n$转移魔法)>
CHANGEITEMADDVALUE -1 4 = <$str(n$转移道术)>
CHANGEITEMUPGRADECOUNT  -1 = <$str(n$转移星星)>0
UpDateBoxItem 2
messagebox 转移成功,获得<$str(n$转移星星)>星装备!
BREAK



[@锻造星星OK]
#if
equal <$BOXITEM[0].NAME>
#act
messagebox 请放入装备!
break

#if
equal N$升星状态 1
#act
messagebox 程序正在执行!!!请稍后
break

#if
equal N$当前星星 10
#act
messagebox 此装备已经达到10满星!!
break



#if
not checkitem 星星打造锤 1
#act
messagebox 没有打造锤,无法升星!
break

#if
#act
movR N$升星几率 100


#iF
checkitem 星星打造锤 1
checkitem 星星幸运石 1
SMALL N$升星几率 90
#ACT
TAKE 星星打造锤 1
TAKE 星星幸运石 1
MOV N$升星状态 1
mov N$升星位置 <$BOXITEM[0].STDMODE>
GOTO @加属性判断
goto @ItemIntoBox0
break

#iF
checkitem 星星打造锤 1
checkitem 星星幸运石 1
#ACT
TAKE 星星打造锤 1
TAKE 星星幸运石 1
MOV N$升星状态 1
mov N$升星位置 <$BOXITEM[0].STDMODE>
goto @星星消失
goto @ItemIntoBox0
sendmsg 7 升星失败,星星归0~
break

#if
checkitem 星星打造锤 1
#act
MESSAGEBOX 你当前背包没有星星幸运石,此次升星成功率只有20%,是否继续?!    @锻造星星OKlo  @取消
break


[@锻造星星OKlo]
#if
equal <$BOXITEM[0].NAME>
#act
messagebox 请放入装备!
break


#if
EQUAL <$BOXITEM[0].UPGRADECOUNT> 100
#act
ReturnBoxItem 0
MESSAGEBOX 你的装备已经达到10星了!
break

#if
not checkitem 星星打造锤 1
#act
messagebox 没有打造锤,无法升星!
break

#if
#act
movR N$升星几率 100


#if
checkitem 星星打造锤 1
equal N$当前星星 0
#act
TAKE 星星打造锤 1
mOV N$升星状态 1
GOTO @加属性判断
goto @ItemIntoBox0
break

#if
checkitem 星星打造锤 1
SMALL N$升星几率 20
#act
TAKE 星星打造锤 1
mOV N$升星状态 1
GOTO @加属性判断
goto @ItemIntoBox0
break

#ELSEACT
TAKE 星星打造锤 1
goto @星星消失
goto @ItemIntoBox0
sendmsg 7 升星失败,星星归0~
BREAK

[@星星消失]

#or
equal N$升星位置 5
equal N$升星位置 6
#act
SetUpgradeItem 0
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMUPGRADECOUNT  -1 = 0
MOV N$升星状态 0
UpDateBoxItem 0
break
#if
#act
SetUpgradeItem 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMUPGRADECOUNT  -1 = 0
MOV N$升星状态 0
UpDateBoxItem 0







[@加属性判断]
#if
not equal N$升星状态 1
#act
messagebox 非法JINRU!
break

#if
#act
MOVR N$升星邦定 2 5

#or
equal N$升星位置 5
equal N$升星位置 6
#ACT
MOVR N$升星邦定 3



#IF
#ACT
SetUpgradeItem 0
CHANGEITEMADDVALUE -1 <$str(N$升星邦定)> + 2
CHANGEITEMUPGRADECOUNT  -1 = <$str(N$下阶星星)>0
UpDateBoxItem 0
MOV N$升星状态 0
messagebox 1.升星成功,获得<$str(N$下阶星星)>星装备!
BREAK



[@ItemIntoBox1]

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[1].NAME>
#act
ReturnBoxItem 1
messagebox 当前物品不支持!
break


#if
EQUAL <$BOXITEM[1].UPGRADECOUNT> 0
#act
ReturnBoxItem 1
MESSAGEBOX 当前放入的装备,星星不足1,无法进行转移!
break

#if
equal <$BOXITEM[1].NAME> <$BOXITEM[1].NAME_G>
#act
ReturnBoxItem 1
messagebox 此装备需要重新佩戴鉴定了再来!
break

#if
#act
mov N$转移成功 0
mov N$转移类型 <$BOXITEM[1].STDMODE>
SetUpgradeItem 1
GETITEMADDVALUE -1 2 <$STR(N$转移攻击)>
GETITEMADDVALUE -1 3 <$STR(N$转移魔法)>
GETITEMADDVALUE -1 4 <$STR(N$转移道术)>

#or
equal N$转移类型 5
equal N$转移类型 6
#act
GETITEMADDVALUE -1 0 <$STR(N$转移攻击)>
GETITEMADDVALUE -1 1 <$STR(N$转移魔法)>
GETITEMADDVALUE -1 2 <$STR(N$转移道术)>

#IF
#ACT
div N$转移星星 <$BOXITEM[1].UPGRADECOUNT> 10
goto @ItemIntoBox2
goto @星星转移
break


[@ItemoutBox1]
#if
#act
MOV n$转移星星 0
GOTO @星星转移
break

[@ItemIntoBox2]
#if
equal <$BOXITEM[1].NAME>
#act
ReturnBoxItem 2
messagebox 请先在1号星星框放入装备!
break

#if
equal <$BOXITEM[2].NAME> <$BOXITEM[2].NAME_G>
#act
ReturnBoxItem 2
messagebox 此装备需要重新佩戴鉴定了再来!
break

#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[2].NAME>
#act
ReturnBoxItem 2
messagebox 当前物品不支持!
break


#IF
#ACT
MOV N$转移星星2 <$BOXITEM[2].UPGRADECOUNT>
div N$转移星星2 <$BOXITEM[2].UPGRADECOUNT> 10
mov N$转移类型2 <$BOXITEM[2].STDMODE>

#if
large N$转移星星2 <$str(N$转移星星)>
#act
ReturnBoxItem 2
messagebox 无法转移:1.当前转移目标的装备星数大于转移星数!
break
[@ItemIntoBox3]


#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[3].NAME>
#act
ReturnBoxItem 3
messagebox 当前物品不支持!
break

#if
equal <$BOXITEM[3].NAME> <$BOXITEM[3].NAME_G>
#act
ReturnBoxItem 3
messagebox 此装备需要重新佩戴鉴定了再来!
break

#If
#act
mov S$当前品质 <$BOXITEM[3].NAME_G>
DEC S$当前品质 <$BOXITEM[3].NAME>
mov S$鉴定名字 <$BOXITEM[3].NAME>

goto @装备鉴定
break
[@ItemOUTBox3]
#If
#act
mov S$当前品质
mov S$鉴定名字
goto @装备鉴定
break



[@ItemIntoBox0]


#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[0].NAME>
#act
ReturnBoxItem 0
messagebox 当前物品不支持!
break

#IF
#ACT
div N$当前星星 <$BOXITEM[0].UPGRADECOUNT> 10
MOV N$下阶星星 <$STR(N$当前星星)>
INC N$下阶星星 1
mov N$升星位置 <$BOXITEM[0].STDMODE>
GOTO @星星升级
break







[@ItemoutBox0]
#if
#act
GOTO @锻造星星



}

回复

使用道具 举报

0

主题

23

帖子

24

积分

新手上路

Rank: 1

积分
24
发表于 2020-8-15 00:24:05 | 显示全部楼层
果断MARK,前十有我必火!
回复

使用道具 举报

0

主题

35

帖子

36

积分

新手上路

Rank: 1

积分
36
发表于 2020-8-15 00:25:07 | 显示全部楼层
膜拜神贴,后面的请保持队形~
回复

使用道具 举报

0

主题

26

帖子

28

积分

新手上路

Rank: 1

积分
28
发表于 2020-8-15 00:26:29 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报

0

主题

19

帖子

21

积分

新手上路

Rank: 1

积分
21
发表于 2020-8-15 00:27:39 | 显示全部楼层
找传奇版本,传奇教程就到301传奇论坛
回复

使用道具 举报

0

主题

28

帖子

29

积分

新手上路

Rank: 1

积分
29
发表于 2020-8-15 00:29:15 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报