Gom引擎脚本-属性转移

戏做顿

[@main]
#if
#act
MOV <$STR(M70)> 0
MOV <$STR(M71)> 0
MOV <$STR(M72)> 0
MOV <$STR(M73)> 0
MOV <$STR(M74)> 0
MOV S40
MOV <$STR(M75)> 0
MOV <$STR(M76)> 0
MOV <$STR(M77)> 0
MOV <$STR(M78)> 0
MOV <$STR(M79)> 0
MOV S41
MOV S$转移元宝 1000
MOV S$极品防御 　
MOV S$极品魔御 　
MOV S$极品攻击 　
MOV S$极品魔法 　
MOV S$极品道术 　


OPENMERCHANTBIGDLG 14 103 1 4 1 -100 1 493 27
goto @开始

[@开始]
#if
CheckStringlength <$STR(S40)> = 8
#act
SetStringBlank <$STR(S40)> 10 1

#if
CheckStringlength <$STR(S40)> = 6
#act
SetStringBlank <$STR(S40)> 12 1

#if
CheckStringlength <$STR(S40)> < 8
#act
SetStringBlank <$STR(S40)> 10 0


#if
large <$STR(M70)> 0
#act
MOV S$极品防御 <Img:366:14:23:-1>{<$STR(M70)>/SCOLOR=250}　　　　　　　　　　　　<Img:380:14:22:-1>{<$STR(M75)>/SCOLOR=250}

#if
large <$STR(M71)> 0
#act
MOV S$极品魔御 <Img:367:14:23:-1>{<$STR(M71)>/SCOLOR=250}　　　　　　　　　　　　<Img:381:14:22:-1>{<$STR(M76)>/SCOLOR=250}

#if
large <$STR(M72)> 0
#act
MOV S$极品攻击 <Img:368:14:23:-1>{<$STR(M72)>/SCOLOR=250}　　　　　　　　　　　　<Img:382:14:22:-1>{<$STR(M77)>/SCOLOR=250}

#if
large <$STR(M73)> 0
#act
MOV S$极品魔法 <Img:369:14:23:-1>{<$STR(M73)>/SCOLOR=250}　　　　　　　　　　　　<Img:383:14:22:-1>{<$STR(M78)>/SCOLOR=250}

#if
large <$STR(M74)> 0
#act
MOV S$极品道术 <Img:370:14:23:-1>{<$STR(M74)>/SCOLOR=250}　　　　　　　　　　　　<Img:384:14:22:-1>{<$STR(M79)>/SCOLOR=250}


#if
#act
#say
<Img:104:14:-13:24>\
<ITEMBOX:1:14:94:85:20:42:42:10,11,15,24,26,22,23,62,64:70#请放入【极品装备】^151#暂时只支持一下装备极品转移^151#【衣服】【头盔】【手镯】^151#【戒指】【腰带】【靴子】>
<ITEMBOX:2:14:94:285:20:42:42:10,11,15,24,26,22,23,62,64:70#请放入【目标装备】^151#必须无任何属性^151#暂时只支持一下装备极品转移^151#【衣服】【头盔】【手镯】^151#【戒指】【腰带】【靴子】>\
　　\   \　\   \　\   \　　　　　　　{<$STR(S40)>　/SCOLOR=151}　　　　　　　　　　　　　　{<$STR(S41)>　/SCOLOR=151}\
<$STR(S$极品防御)>　\
<$STR(S$极品魔御)>　\
<$STR(S$极品攻击)>　\
<$STR(S$极品魔法)>　\
<$STR(S$极品道术)>　\　　\
　　　　　{<$STR(S$转移元宝)>元宝/SCOLOR=151}　　　　　　　　　　　　　　　　<15%/SCOLOR=151>\<Img:371:14:407:-22|146#点击转移极品属性/@转移>  \
<Img:373:14:-4:-11>
　 <Img:374:14:-6:-11|146#点击查看转移介绍/@转移介绍>
　 <Img:376:14:-6:-11|146#点击查看转移规则/@转移规则>
　 <Img:378:14:-6:-11|146#点击查看极品清洗/@清洗>
　 <Img:140:14:-6:-11|146#关闭对话框/@exit>


[@ItemIntoBox1]
#IF
#ACT
SetUpgradeItem 1
GETITEMADDVALUE -1 0 <$STR(M70)>
GETITEMADDVALUE -1 1 <$STR(M71)>
GETITEMADDVALUE -1 2 <$STR(M72)>
GETITEMADDVALUE -1 3 <$STR(M73)>
GETITEMADDVALUE -1 4 <$STR(M74)>
GOTO @极品检测

[@极品检测]
#or
large <$STR(M70)> 1
large <$STR(M71)> 1
large <$STR(M72)> 1
large <$STR(M73)> 1
large <$STR(M74)> 1
#ACT
MOV S40 <$BOXITEM[1].NAME>
MOV S$转移元宝 2500
GOTO @开始
#elseact
GOTO @极品检测1
BREAK

[@极品检测1]
#or
large <$STR(M70)> 0
large <$STR(M71)> 0
large <$STR(M72)> 0
large <$STR(M73)> 0
large <$STR(M74)> 0
#ACT
MOV S40 <$BOXITEM[1].NAME>
MOV S$转移元宝 1000
GOTO @开始
#elseact
ReturnBoxItem 1
goto @ItemOutBox1
MESSAGEBOX \请放入【极品装备】\　\极品属性只统计【防御】【魔御】【攻击】【魔法】【道术】
BREAK



[@ItemIntoBox2]
#IF
#ACT
SetUpgradeItem 2
GETITEMADDVALUE -1 0 <$STR(M75)>
GETITEMADDVALUE -1 1 <$STR(M76)>
GETITEMADDVALUE -1 2 <$STR(M77)>
GETITEMADDVALUE -1 3 <$STR(M78)>
GETITEMADDVALUE -1 4 <$STR(M79)>
MOV S41 <$BOXITEM[2].NAME>
GOTO @普通检测

[@普通检测]
#if
small <$STR(M75)> 1
small <$STR(M76)> 1
small <$STR(M77)> 1
small <$STR(M78)> 1
small <$STR(M79)> 1
#ACT
GOTO @一号检测
#elseact
goto @ItemOutBox2
ReturnBoxItem 2
MESSAGEBOX \请放入【无属性装备】\　\属性只统计【防御】【魔御】【攻击】【魔法】【道术】
BREAK

[@一号检测]
#if
CheckBoxItemCount 1 1
#ACT
GOTO @开始
#elseact
ReturnBoxItem 2
goto @ItemOutBox2
MESSAGEBOX \请放放入【极品装备】再放入【无属性装备】\　\属性只统计【防御】【魔御】【攻击】【魔法】【道术】
BREAK





[@ItemOutBox1]
#if
#ACT
MOV <$STR(M70)> 0
MOV <$STR(M71)> 0
MOV <$STR(M72)> 0
MOV <$STR(M73)> 0
MOV <$STR(M74)> 0
MOV S40
MOV S$转移元宝 1000
MOV S$极品防御 　
MOV S$极品魔御 　
MOV S$极品攻击 　
MOV S$极品魔法 　
MOV S$极品道术 　
UpDateBoxItem 1
goto @开始

[@ItemOutBox2]
#if
#ACT
MOV <$STR(M75)> 0
MOV <$STR(M76)> 0
MOV <$STR(M77)> 0
MOV <$STR(M78)> 0
MOV <$STR(M79)> 0
MOV S41
UpDateBoxItem 2
goto @开始




[@转移]
#if
NOT CHECKGAMEGOLD > <$STR(S$转移元宝)>
#ACT
MESSAGEBOX \【提示】：你当前不足<$STR(S$转移元宝)>元宝！无法转移！
BREAK

#IF
RANDOM 40
#ACT
SetUpgradeItem 1
mov M75 <$STR(M70)>
mov M76 <$STR(M71)>
mov M77 <$STR(M72)>
mov M78 <$STR(M73)>
mov M79 <$STR(M74)>
goto @转移1
#ELSEACT
GameGold - <$STR(S$转移元宝)>
MESSAGEBOX \【提示】：转移失败！扣除<$STR(S$转移元宝)>元宝
BREAK

[@转移1]
#IF
#ACT
SetUpgradeItem 2
CHANGEITEMADDVALUE -1 0 = <$STR(M75)>
CHANGEITEMADDVALUE -1 1 = <$STR(M76)>
CHANGEITEMADDVALUE -1 2 = <$STR(M77)>
CHANGEITEMADDVALUE -1 3 = <$STR(M78)>
CHANGEITEMADDVALUE -1 4 = <$STR(M79)>
UpDateBoxItem 2
SendCenterMsg 0 21 极品转移∶[<$USERNAME>]将[<$BOXITEM[1].NAME>]极品属性转移至[<$BOXITEM[2].NAME>]. 1 3
;===========================还原=====================
SetUpgradeItem 1
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
UpDateBoxItem 1
ReturnBoxItem 1
ReturnBoxItem 2
goto @main
BREAK







[@转移介绍]
#if
#act
#say
   \   \   \
<极品属性转移介绍：/AUTOCOLOR=250>\
<1、极品属性转移不限制装备等级！/AUTOCOLOR=154>\
<2、如:攻9圣战戒指可以转移到力量戒指，力量戒指转移圣战戒指./AUTOCOLOR=154>\
<3、极品属性只统计【防御】【魔御】【攻击】【魔法】【道术】/AUTOCOLOR=154>\
<4、极品属性转移成功几率只有１５％，能不能成功就完成看你的造化了./AUTOCOLOR=154>\
<5、极品属性转移失败扣取元宝，极品装备属性不清零./AUTOCOLOR=154>\
<6、每次极品属性转移需要２５００元宝费用．/AUTOCOLOR=154>\
<-----------------------------------------------------------------------/AUTOCOLOR=90>\
<极品属性转移注意事项：/AUTOCOLOR=250>\
<注意1：目标装备必须为空白属性，如果是极品请先清洗极品属性后再转移./SCOLOR=239>\
<注意2：必须先放入【极品装备】再放入【无属性装备】/SCOLOR=239>\
<注意3：转移成功时原始极品装备属性消失，极品属性转移到目标装备./SCOLOR=239>\
<注意4：清洗极品属性需要5000元宝费用，１００％成功./SCOLOR=239>\
<注意5：清洗极品属性不限制装备类型，任何装备均可清洗./SCOLOR=239>\   \
<Img:372:14:-4:-11|146#点击查看属性转移/@开始>
　 <Img:375:14:-6:-11>
　 <Img:376:14:-6:-11|146#点击查看转移规则/@转移规则>
　 <Img:378:14:-6:-11|146#点击查看极品清洗/@清洗>
　 <Img:140:14:-6:-11|146#关闭对话框/@exit>

[@转移规则]
#if
#act
#say
   \   \   \
<1、转移规则：【祖玛装备】转【赤月装备】转【天之赤月装备】转【黄金赤月装备】/AUTOCOLOR=239>\
<2、鼠标转移到【装备类型名字】上方可查看该【装备类型】所包含的【装备名字】/AUTOCOLOR=239>\
<-----------------------------------------------------------------------/AUTOCOLOR=90>\
<黑铁头盔>　<　→　/AUTOCOLOR=70>　
<赤月头盔|254#圣战头盔^254#法神头盔^254#天尊头盔>　<　→　/AUTOCOLOR=70>　
<天之赤月头盔
|254#天之圣战头盔
^254#天之法神头盔
^254#天之天尊头盔>　<　→　/AUTOCOLOR=70>　
<黄金赤月头盔
|254#黄金圣战头盔
^254#黄金法神头盔
^254#黄金天尊头盔>\  \
<祖玛手镯
|254#骑士手镯
^254#龙之手镯
^254#三眼手镯>　<　→　/AUTOCOLOR=70>　
<赤月手镯
|254#圣战手镯
^254#法神手镯
^254#天尊手镯>　<　→　/AUTOCOLOR=70>　
<天之赤月手镯
|254#天之圣战手镯
^254#天之法神手镯
^254#天之天尊手镯>　<　→　/AUTOCOLOR=70>　
<黄金赤月手镯
|254#黄金圣战手镯
^254#黄金法神手镯
^254#黄金天尊手镯/AUTOCOLOR=249>\  \
<祖玛戒指
|254#力量戒指
^254#紫碧螺
^254#泰坦戒指>　<　→　/AUTOCOLOR=70>　
<赤月戒指
|254#圣战戒指
^254#法神戒指
^254#天尊戒指>　<　→　/AUTOCOLOR=70>　
<天之赤月戒指
|254#天之圣战戒指
^254#天之法神戒指
^254#天之天尊戒指>　<　→　/AUTOCOLOR=70>　
<黄金赤月戒指
|254#黄金圣战戒指
^254#黄金法神戒指
^254#黄金天尊戒指>\  \
<祖玛腰带
|254#战士腰带
^254#法师腰带
^254#道士腰带>　<　→　/AUTOCOLOR=70>　
<赤月腰带
|254#圣战腰带
^254#法神腰带
^254#天尊腰带>　<　→　/AUTOCOLOR=70>　
<天之赤月腰带
|254#天之圣战腰带
^254#天之法神腰带
^254#天之天尊腰带>　<　→　/AUTOCOLOR=70>　
<黄金赤月腰带
|254#黄金圣战腰带
^254#黄金法神腰带
^254#黄金天尊腰带>\  \
<祖玛靴子
|254#战靴
^254#法靴
^254#道靴>　<　→　/AUTOCOLOR=70>　
<赤月靴子
|254#圣战战靴
^254#法神法靴
^254#天尊道靴>　<　→　/AUTOCOLOR=70>　
<天之赤月靴子
|254#天之圣战战靴
^254#天之法神法靴
^254#天之天尊道靴>　<　→　/AUTOCOLOR=70>　
<黄金赤月靴子
|254#黄金圣战战靴
^254#黄金法神法靴
^254#黄金天尊道靴>\  \
<祖玛衣服
|254#战神盔甲(男)
^254#战神盔甲(女)
^254#恶魔长袍(男)
^254#恶魔长袍(女)
^254#幽灵战衣(男)
^254#幽灵战衣(女)>　<　→　/AUTOCOLOR=70>　
<赤月衣服
|254#天魔神甲
^254#圣战宝甲
^254#法神披风
^254#霓裳羽衣
^254#天师长袍
^254#天尊道袍>　<　→　/AUTOCOLOR=70>　
<天之赤月衣服
|254#神甲
^254#神袍>　<　→　/AUTOCOLOR=70>　
<黄金赤月衣服
|254#黄金战衣
^254#黄金战甲
^254#黄金魔衣
^254#黄金魔袍
^254#黄金道袍
^254#黄金道衣>\  \
<Img:372:14:-4:-11|146#点击查看属性转移/@开始>
　 <Img:374:14:-6:-11|146#点击查看转移介绍/@转移介绍>
　 <Img:377:14:-6:-11>
　 <Img:378:14:-6:-11|146#点击查看极品清洗/@清洗>
　 <Img:140:14:-6:-11|146#关闭对话框/@exit>

[@清洗]
#if
#act
#say
   \   \   \
　　　　　　　　　　<ITEMBOX:5:14:94:85:20:42:42:5,6,10,11,15,20,21,22,24,26,22,23,62,64:70#请放入【极品装备】^151#暂时只支持一下装备清洗极品^151#【武器】【衣服】【头盔】【手镯】^151#【项链】【戒指】【腰带】【靴子】>\  \   \   \   \
　　　　　　　　　　　 <Img:389:14:22:-1>\   \
　　　　　　　　　 　　　 　　　　<5000元宝/AUTOCOLOR=151><Img:387:14:-110:-1>\   \
　　　　　　　　　 　　　 　　　　<100%/AUTOCOLOR=151><Img:388:14:-86:-1>\   \
<清洗【武器】【项链】极品属性时【幸运】【诅咒】【准确】等等属性将会被悉数清洗/AUTOCOLOR=254,251,168,191,250,70,245,249,253>   \
　　　　　　　　　    　　　　　<Img:385:14:-2:0|146#点击清洗极品属性！/@清洗属性>\   \   \
<Img:372:14:-4:-11|146#点击查看属性转移/@开始>
　 <Img:374:14:-6:-11|146#点击查看转移介绍/@转移介绍>
　 <Img:376:14:-6:-11|146#点击查看转移规则/@转移规则>
　 <Img:379:14:-6:-11>
　 <Img:140:14:-6:-11|146#关闭对话框/@exit>

[@ItemIntoBox5]
#IF
#ACT
SetUpgradeItem 5
GETITEMADDVALUE -1 0 <$STR(M70)>
GETITEMADDVALUE -1 1 <$STR(M71)>
GETITEMADDVALUE -1 2 <$STR(M72)>
GETITEMADDVALUE -1 3 <$STR(M73)>
GETITEMADDVALUE -1 4 <$STR(M74)>
GOTO @清洗检测

[@清洗检测]
#or
large <$STR(M70)> 0
large <$STR(M71)> 0
large <$STR(M72)> 0
large <$STR(M73)> 0
large <$STR(M74)> 0
#ACT
goto @清洗
#ELSEACT
ReturnBoxItem 5
MESSAGEBOX \请放入【极品装备】
BREAK




[@清洗属性]
#if
NOT CHECKGAMEGOLD > 4999
#ACT
MESSAGEBOX 错误：清洗极品属性需要5000元宝
BREAK

#IF
CheckBoxItemCount 5 1
#ACT
goto @清洗属性1
#ELSEACT
MESSAGEBOX 错误：请放入极品装备！
BREAK


[@清洗属性1]
#if
#ACT
SetUpgradeItem 5
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 5 = 0
CHANGEITEMADDVALUE -1 8 = 0
CHANGEITEMADDVALUE -1 9 = 0
CHANGEITEMADDVALUE -1 10 = 0
CHANGEITEMADDVALUE -1 11 = 0
CHANGEITEMADDVALUE -1 12 = 0
CHANGEITEMADDVALUE -1 13 = 0
UpDateBoxItem 5
goto @清洗
BREAK







;===========================================洗练未用===============================


[@洗练]
#IF
CHECKGAMEGOLD > 39999
#ACT
GAMEGOLD - 40000
SetUpgradeItem 3
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
UpDateBoxItem 3
GetRandomText ..\QuestDiary\游戏触发\洗练抽取\属性抽取.txt S86
GetRandomText ..\QuestDiary\游戏触发\洗练抽取\类别抽取.txt S85
CHANGEITEMADDVALUE -1 <$STR(S85)> = <$STR(N85)>
UpDateBoxItem 3
SendCenterMsg 151 253 [<$USERNAME>]将装备[<$BOXITEM[3].NAME>]的属性进行重组,得到更加强大的属性  1 4
SendCenterMsg 146 0 [<$USERNAME>]将装备[<$BOXITEM[3].NAME>]的属性进行重组,得到更加强大的属性  1 3
GOTO @ItemIntoBox3
BREAK
#ELSEACT
MESSAGEBOX 对不起,你没有4万元宝

義里之人

谢谢楼主，共同发展

浮生一轩笑

我是传奇的忠实粉丝，如果问我为什么喜欢玩传奇的话

吃不吃鸡了

版本库内容丰富多元，涵盖传奇私服版本、传奇服务端、

海鲜池老许

来又更新了许多版本,例如1.80传奇私服、1.85传奇私服、1.90传奇私服、1.95传奇私服

内涵有理

顶顶更健康

三爷的

路过的帮顶

飞越星河

沙发位出租，有意请私密我

安以凡

这是我第一次玩的最开心的一个游戏；传奇也是我最爱的一个游戏

一点都不笨

谢谢楼主，共同发展