GOM引擎元素唤醒脚本教程，GOM传奇服务端添加元素互换教程。

admin

                               
登录/注册后可看大图

[@main]
#ACT
OPENMERCHANTBIGDLG 36 845 1 4 -10 -40 1 730 50
MOV S$条件 　
MOV S$显示1 　
MOV S$显示2 　
MOV S$显示3 　
MOV S$显示4 　
MOV S$显示5
MOV S$显示6
MOV S$提示 请在框内放入需要强化的装备
MOV S$类型1 　
MOV S$类型2 　
MOV S$转移提示1
MOV S$转移提示2
MOV S$类型3 　
MOV S$跳转 　
UpDateBoxItem 1
UpDateBoxItem 2
UpDateBoxItem 3
;ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
GOTO @等级检测
goto @界面

[@界面]

\
\
\


\　\　\　\　\　\　\　\　\　\
              　　                      \
              　　                      \
\
　                                        \
　                                        \
　                                        \
　                                      　\
　                                     　 \
　                                         



[@转移]
\
\
\


\　\　\　\　\　\　\　\　\　\

                                                  \ \
                                                  

[@转移加星]
\
\
\


\　\　\　\　\　\　\　\　\　\

                                                  \ \
                                                  \ \

[@开始加星]
#IF
#ACT
SetUpgradeItem 2

#IF
CheckBoxItemCount 2
#ELSEACT
MESSAGEBOX 操作失败：\　\没放上去装备星级加到哪呢！
break

#IF
#ACT
SetUpgradeItem 3
#IF
;检测OK框中是否有物品
CheckBoxItemCount 3
#ELSEACT
MESSAGEBOX 操作失败：\　\没放上去星曜石拿什么去加星呢！
break

#IF
#ACT
DELBOXITEM 3
SetUpgradeItem 2


#IF
EQUAL N$星曜石等级 5
#ACT
CHANGEITEMADDVALUE -1  = 50
CHANGEITEMADDVALUE -1  = 50
CHANGEITEMADDVALUE -1  = 50
CHANGEITEMUPGRADECOUNT -1 = 5
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break


#IF
EQUAL N$星曜石等级 6
#ACT
CHANGEITEMADDVALUE -1  = 60
CHANGEITEMADDVALUE -1  = 60
CHANGEITEMADDVALUE -1  = 60
SetNewItemValue -1 0 = 1
CHANGEITEMUPGRADECOUNT -1 = 6
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break

#IF
EQUAL N$星曜石等级 7
#ACT
CHANGEITEMADDVALUE -1  = 70
CHANGEITEMADDVALUE -1  = 70
CHANGEITEMADDVALUE -1  = 70
SetNewItemValue -1 0 = 1
SetNewItemValue -1 1 = 1
CHANGEITEMUPGRADECOUNT -1 = 7
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break

#IF
EQUAL N$星曜石等级 8
#ACT
CHANGEITEMADDVALUE -1  = 80
CHANGEITEMADDVALUE -1  = 80
CHANGEITEMADDVALUE -1  = 80
SetNewItemValue -1 0 = 1
SetNewItemValue -1 1 = 1
SetNewItemValue -1 4 = 1
CHANGEITEMUPGRADECOUNT -1 = 8
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break

#IF
EQUAL N$星曜石等级 9
#ACT
CHANGEITEMADDVALUE -1  = 90
CHANGEITEMADDVALUE -1  = 90
CHANGEITEMADDVALUE -1  = 90
SetNewItemValue -1 0 = 1
SetNewItemValue -1 1 = 1
SetNewItemValue -1 4 = 1
SetNewItemValue -1 2 = 1
CHANGEITEMUPGRADECOUNT -1 = 9
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break

#IF
EQUAL N$星曜石等级 10
#ACT
CHANGEITEMADDVALUE -1  = 100
CHANGEITEMADDVALUE -1  = 100
CHANGEITEMADDVALUE -1  = 100
SetNewItemValue -1 0 = 2
SetNewItemValue -1 1 = 2
SetNewItemValue -1 4 = 2
SetNewItemValue -1 2 = 1
CHANGEITEMUPGRADECOUNT -1 = 10
UpDateBoxItem 2
ReturnBoxItem 2
MESSAGEBOX 操作成功：\　\星曜石属性已经附加！
break


[@转入星级]
#ACT
GOTO @转移加星


[@ItemIntoBox3]
#ACT
SetUpgradeItem 3

#IF
NOT CheckContainsText  星曜石
#ACT
ReturnBoxItem 3
MESSAGEBOX 操作失败：\　\你放的是星曜石么！
break

#IF
EQUAL  5星星曜石
#ACT
MOV N$星曜石等级 5

#IF
EQUAL  6星星曜石
#ACT
MOV N$星曜石等级 6

#IF
EQUAL  7星星曜石
#ACT
MOV N$星曜石等级 7

#IF
EQUAL  8星星曜石
#ACT
MOV N$星曜石等级 8

#IF
EQUAL  9星星曜石
#ACT
MOV N$星曜石等级 9

#IF
EQUAL  10星星曜石
#ACT
MOV N$星曜石等级 10

[@ItemIntoBox2]
#OR
equal    5
equal    10
equal    15
equal    19
equal    22
equal    23
equal    24
equal    26
equal    62
equal    64
equal    30
equal    63
equal    65
equal    48
equal    28
equal    51
equal    16
equal    66
#ELSEACT
UNALLOWITEMINTOBOX
MESSAGEBOX 操作失败：\　\此类物品无法进行操作！
BREAK
#if
#ACT
SetUpgradeItem 2

#IF
SMALL  5
#ACT
MOV S$转移星级 0星

#IF
EQUAL  5
#ACT
MOV S$转移属性1 0
MOV S$转移属性2 1
MOV S$转移属性3 2
#ELSEACT
MOV S$转移属性1 2
MOV S$转移属性2 3
MOV S$转移属性3 4

#IF
EQUAL  5
#ACT
MOV S$转移星级 5星

#IF
EQUAL  6
#ACT
MOV S$转移星级 6星

#IF
EQUAL  7
#ACT
MOV S$转移星级 7星

#IF
EQUAL  8
#ACT
MOV S$转移星级 8星

#IF
EQUAL  9
#ACT
MOV S$转移星级 9星

#IF
EQUAL  10
#ACT
MOV S$转移星级 10星




[@转移星级]
#ACT
SetUpgradeItem 2
#IF
;检测OK框中是否有物品
CheckBoxItemCount 2 1
#ELSEACT
MESSAGEBOX 操作失败：\　\没放上去装备拿什么去取出呢！
break

#IF
SMALL  5
#ACT
ReturnBoxItem 2
MESSAGEBOX 操作失败：\　\低于5星无法取出！
break

#IF
#ACT
CHANGEITEMUPGRADECOUNT -1 = 0
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
SetNewItemValue -1 0 = 0
SetNewItemValue -1 1 = 0
SetNewItemValue -1 2 = 0
SetNewItemValue -1 3 = 0
SetNewItemValue -1 4 = 0
GIVE 星曜石
MESSAGEBOX 操作成功：\　\取出星曜石！
MOV S$转移星级
UpDateBoxItem 2
ReturnBoxItem 2
break


[@升级0级]
#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级0级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级0级a

[@升级5级]
#IF
CHECKITEM 钢铁之魂 400
#ELSEACT
MESSAGEBOX 操作失败：\　\你的材料不足，无法强化！
break

#IF
CHECKGOLD 1000
#ELSEACT
MESSAGEBOX 操作失败：\　\你的金币不足，无法强化！
break


#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级5级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级5级a

[@升级5级a]
#if
#act
TAKE 金币 1000
take 钢铁之魂 400
SetUpgradeItem 1
CHANGEITEMADDVALUE -1  = 60
CHANGEITEMADDVALUE -1  = 60
CHANGEITEMADDVALUE -1  = 60
SetNewItemValue -1 0 + 1
CHANGEITEMUPGRADECOUNT -1 + 1
SENDMOVEMSG 0 253 255 50 1 玩家[]成功将【】强化到六星，高星更有惊喜哦，加油吧！
UpDateBoxItem 1
;ReturnBoxItem 1
goto @main
break



[@升级6级]
#IF
CHECKITEM 钢铁之魂 600
#ACT
#ELSEACT
MESSAGEBOX 操作失败：\　\你的材料不足，无法强化！
break

#IF
CHECKGOLD 1000
#ELSEACT
MESSAGEBOX 操作失败：\　\你的金币不足，无法强化！
break

#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级6级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级6级a

[@升级6级a]
#if
#act
TAKE 金币 1000
take 钢铁之魂 600
SetUpgradeItem 1
CHANGEITEMADDVALUE -1  = 70
CHANGEITEMADDVALUE -1  = 70
CHANGEITEMADDVALUE -1  = 70
SetNewItemValue -1 1 + 1
CHANGEITEMUPGRADECOUNT -1 + 1
SENDMOVEMSG 0 253 255 50 1 玩家[]成功将【】强化到七星，高星更有惊喜哦，加油吧！
UpDateBoxItem 1
;ReturnBoxItem 1
goto @main
break




[@升级7级]
#IF
CHECKITEM 钢铁之魂 800
#ACT
#ELSEACT
MESSAGEBOX 操作失败：\　\你的材料不足，无法强化！
break

#IF
CHECKGOLD 1000
#ELSEACT
MESSAGEBOX 操作失败：\　\你的金币不足，无法强化！
break

#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级7级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级7级a

[@升级7级a]

#if
#act
TAKE 金币 1000
take 钢铁之魂 800
SetUpgradeItem 1
CHANGEITEMADDVALUE -1  = 80
CHANGEITEMADDVALUE -1  = 80
CHANGEITEMADDVALUE -1  = 80
SetNewItemValue -1 4 + 1
CHANGEITEMUPGRADECOUNT -1 + 1
SENDMOVEMSG 0 253 255 50 1 玩家[]成功将【】强化到八星，这是要**的节奏吗？
UpDateBoxItem 1
;ReturnBoxItem 1
goto @main
break


[@升级8级]
#IF
CHECKITEM 钢铁之魂 1000
#ACT
#ELSEACT
MESSAGEBOX 操作失败：\　\你的材料不足，无法强化！
break

#IF
CHECKGOLD 1000
#ELSEACT
MESSAGEBOX 操作失败：\　\你的金币不足，无法强化！
break

#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级8级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级8级a

[@升级8级a]

#if
#act
TAKE 金币 1000
take 钢铁之魂 1000
SetUpgradeItem 1
CHANGEITEMADDVALUE -1  = 90
CHANGEITEMADDVALUE -1  = 90
CHANGEITEMADDVALUE -1  = 90
SetNewItemValue -1 2 + 1
CHANGEITEMUPGRADECOUNT -1 + 1
SENDMOVEMSG 0 253 255 50 1 玩家[]成功将【】强化到九星，这是要**的节奏吗？
UpDateBoxItem 1
;ReturnBoxItem 1
goto @main
break





[@升级9级]
#IF
CHECKITEM 钢铁之魂 1500
#ACT
#ELSEACT
MESSAGEBOX 操作失败：\　\你的材料不足，无法强化！
break

#IF
CHECKGOLD 1000
#ELSEACT
MESSAGEBOX 操作失败：\　\你的金币不足，无法强化！
break

#IF
CheckContainsText |5| ||
#ACT
MOV S$类型1 0
MOV S$类型2 1
MOV S$类型3 2
goto @升级9级a
#ELSEACT
MOV S$类型1 2
MOV S$类型2 3
MOV S$类型3 4
goto @升级9级a

[@升级9级a]

#if
#act
TAKE 金币 1000
take 钢铁之魂 1500
SetUpgradeItem 1
CHANGEITEMADDVALUE -1  = 100
CHANGEITEMADDVALUE -1  = 100
CHANGEITEMADDVALUE -1  = 100
SetNewItemValue -1 0 + 1
SetNewItemValue -1 1 + 1
SetNewItemValue -1 4 + 1
CHANGEITEMUPGRADECOUNT -1 + 1
SENDMOVEMSG 0 253 255 50 1 玩家[]成功将【】强化到十星，这是要**的节奏吗？
UpDateBoxItem 1
;ReturnBoxItem 1
goto @main
break




[@ItemIntoBox1]
#OR
equal    5
equal    10
equal    15
equal    19
equal    22
equal    23
equal    24
equal    26
equal    62
equal    64
equal    30
equal    63
equal    65
equal    48
equal    28
equal    51
equal    16
equal    66
#act
goto @等级检测
#ELSEACT
UNALLOWITEMINTOBOX
MESSAGEBOX 操作失败：\　\此类物品无法进行强化！
BREAK

[@等级检测]
#IF
equal
#ACT
MOV S$条件 　
MOV S$显示1 　
MOV S$显示2 　
MOV S$显示3 　
MOV S$显示4 　
MOV S$显示5
MOV S$显示6
MOV S$提示 请在框内放入需要强化的装备
MOV S$类型1 　
MOV S$类型2 　
MOV S$类型3 　
MOV S$跳转
GOTO @界面
break


#IF
SMALL  5
#ACT
MESSAGEBOX 操作失败：\　\本人只为5星以上的装备服务！！！
UNALLOWITEMINTOBOX
break

#IF
EQUAL  0
#ACT
goto @0级
break

#IF
EQUAL  1
#ACT
goto @1级
break

#IF
EQUAL  2
#ACT
goto @2级
break

#IF
EQUAL  3
#ACT
goto @3级
break

#IF
EQUAL  4
#ACT
goto @4级
break

#IF
EQUAL  5
#ACT
goto @5级
break

#IF
EQUAL  6
#ACT
goto @6级
break

#IF
EQUAL  7
#ACT
goto @7级
break

#IF
EQUAL  8
#ACT
goto @8级
break

#IF
EQUAL  9
#ACT
goto @9级
break

#IF
EQUAL  10
#ACT
UNALLOWITEMINTOBOX
MESSAGEBOX 操作失败：\　\最高强化+10星，无法继续强化！
break





[@5级]
#ACT
MOV S$条件 　　　
MOV S$条件1 　
MOV S$显示1
MOV S$显示2 　　
MOV S$显示3
MOV S$显示4
MOV S$显示5
MOV S$显示6
MOV S$跳转 升级5级
MOV S$提示 点击开始强化吧！
GOTO @界面
BREAK

[@6级]
#ACT
MOV S$条件 　　　
MOV S$条件1 　
MOV S$显示1
MOV S$显示2 　　
MOV S$显示3
MOV S$显示4
MOV S$显示5
MOV S$显示6
MOV S$跳转 升级6级
MOV S$提示 点击开始强化吧！
GOTO @界面
BREAK

[@7级]
#ACT
MOV S$条件 　　　
MOV S$条件1 　
MOV S$显示1
MOV S$显示2 　　
MOV S$显示3
MOV S$显示4
MOV S$显示5
MOV S$显示6
MOV S$跳转 升级7级
MOV S$提示 点击开始强化吧！
GOTO @界面
BREAK

[@8级]
#ACT
MOV S$条件 　　　
MOV S$条件1 　
MOV S$显示1
MOV S$显示2 　　
MOV S$显示3
MOV S$显示4
MOV S$显示5
MOV S$显示6
MOV S$跳转 升级8级
MOV S$提示 点击开始强化吧！
GOTO @界面
BREAK

[@9级]
#ACT
MOV S$条件 　　　
MOV S$条件1 　
MOV S$显示1
MOV S$显示2 　　
MOV S$显示3
MOV S$显示4 　　
MOV S$显示5
MOV S$显示6
MOV S$跳转 升级9级
MOV S$提示 点击开始强化吧！
GOTO @界面
BREAK


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！