GOM引擎的传奇一条龙开区版本星级转移脚本教程说明和范例使用

admin

                               
登录/注册后可看大图

[@main]

#IF
#ACT
OPENMERCHANTBIGDLG 36 69 1 4 -30 -100 0 455 30
#say
\ \  \

         \ \

         \ \

         \ \

         \ \ \

                   \ \

               \ \ \

                      \ \

\

\ \ \





[@ItemIntoBox2]
#IF
NOT large  4
#ACT
ReturnBoxItem 2
MESSAGEBOX \\您放入的主装备没有大于5星就不要转移了亲！
break

[@转移]

#IF
NOT CheckBoxItemCount 2
#ACT
MESSAGEBOX \\请放入要转移的装备！
break

#IF
NOT CheckBoxItemCount 3
#ACT
MESSAGEBOX \\请放入接受转移的装备！
break





#IF
equal  5
CHECKGAMEPOINT > 1
#ACT
GAMEPOINT - 2
SetUpgradeItem 3
MOVR N91 15000 25000
MOVR N92 12000 19000
MOVR N93 1700 1900
MOVR N94 100000 110000
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 5
CHANGEITEMUPGRADECOUNT -1 = 5
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 2 0 253
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 4 0 254
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break



#IF
equal  6
CHECKGAMEPOINT > 1
#ACT
GAMEPOINT - 2
SetUpgradeItem 3
MOVR N91 30000 38000
MOVR N92 22000 23000
MOVR N93 2000 2100
MOVR N94 170000 180000
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 6
CHANGEITEMUPGRADECOUNT -1 = 6
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 2 0 253
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 4 0 254
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break



#IF
equal  7
CHECKGAMEPOINT > 1
#ACT
GAMEPOINT - 2
SetUpgradeItem 3
MOVR N91 60000 89000
MOVR N92 35000 40000
MOVR N93 2200 2400
MOVR N94 200000 380000
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 7
CHANGEITEMUPGRADECOUNT -1 = 7
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 2 0 253
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 4 0 254
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break


#IF
equal  8
CHECKGAMEPOINT > 1
#ACT
GAMEPOINT - 2
SetUpgradeItem 3
MOVR N91 140000 189000
MOVR N92 70000 90000
MOVR N93 2500 2700
MOVR N94 600000 999999
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 8
CHANGEITEMUPGRADECOUNT -1 = 8
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 2 0 253
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 4 0 254
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break

#IF
equal  9
CHECKGAMEPOINT > 1
#ACT
GAMEPOINT - 2
SetUpgradeItem 3
MOVR N91 300000 370000
MOVR N92 100000 130000
MOVR N93 2400 2700
MOVR N94 1711111 2222222
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 9
CHANGEITEMUPGRADECOUNT -1 = 9
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
CHANGECUSTOMITEMABIL -1 1 0 250
CHANGECUSTOMITEMABIL -1 2 0 253
CHANGECUSTOMITEMABIL -1 3 0 70
CHANGECUSTOMITEMABIL -1 4 0 254
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break




[@转移2]

#IF
NOT CheckBoxItemCount 2
#ACT
MESSAGEBOX \\请放入要转移的装备！
break

#IF
NOT CheckBoxItemCount 3
#ACT
MESSAGEBOX \\请放入接受转移的装备！
break

#IF
equal  9
checkitem 转星神水 1
#ACT
TAKE 转星神水  1
SetUpgradeItem 3
MOVR N91 300000 370000
MOVR N92 100000 130000
MOVR N93 2400 2700
MOVR N94 1711111 2222222
MOV  
MOV  
MOV  
MOV  
SetNewItemValue -1 9 = 9
CHANGEITEMUPGRADECOUNT -1 = 9
CHANGECUSTOMITEMTEXT -1 [神圣鉴定]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 3 0
CHANGECUSTOMITEMABIL -1 2 3 0
CHANGECUSTOMITEMABIL -1 3 3 0
CHANGECUSTOMITEMABIL -1 4 3 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 6
CHANGECUSTOMITEMABIL -1 3 1 7
CHANGECUSTOMITEMABIL -1 4 1 9
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
UpDateBoxItem 3
goto @zhuanyi
##ELSEACT
break


[@zhuanyi]
#IF
#ACT
SetUpgradeItem 2
#IF
#ACT
MOVR N11 2000 3000
MOVR N12 800 2000
MOVR N13 399 599
MOVR N14 13000 18000
SetNewItemValue -1 9 = 1
CHANGEITEMUPGRADECOUNT -1 = 1
CHANGECUSTOMITEMVALUE -1 1 =
CHANGECUSTOMITEMVALUE -1 2 =
CHANGECUSTOMITEMVALUE -1 3 =
CHANGECUSTOMITEMVALUE -1 4 =
UpDateBoxItem 2
ReturnBoxItem 2
ReturnBoxItem 3
break


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