传奇GM版本库切割灌注脚本,GOM引擎一级切割几率秒怪1%血教程范例
[@切割灌注]
{
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用 0
goto @强化大师界面
[@强化大师界面]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@切一]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用0 2000
goto @强化大师界面0
[@强化大师界面0]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化0]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 1
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切二]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用1 4000
goto @强化大师界面1
[@强化大师界面1]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化1]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 1
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切三]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用2 6000
goto @强化大师界面2
[@强化大师界面2]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化2]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 1
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切四]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用3 10000
goto @强化大师界面3
[@强化大师界面3]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化3]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 2
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切五]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用4 16000
goto @强化大师界面4
[@强化大师界面4]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化4]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 2
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切六]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用5 20000
goto @强化大师界面5
[@强化大师界面5]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化5]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 2
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切七]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用6 20000
goto @强化大师界面6
[@强化大师界面6]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化6]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 3
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 3
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切八]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用7 20000
goto @强化大师界面7
[@强化大师界面7]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化7]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 3
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 3
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切九]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用8 20000
goto @强化大师界面8
[@强化大师界面8]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化8]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 3
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 3
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@切十]
#act
OPENMERCHANTBIGDLG 6 82 1 4 -8 -18 1 320 20
mov N$强化费用9 40000
goto @强化大师界面9
[@强化大师界面9]
#say
{装备名:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@开始强化9]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法升级
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 < 10
#ACT
GAMEDIAMOND -
;CHANGECUSTOMITEMVALUE -1 0 + 2
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 + 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 + 2
SetItemBind -1 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
Close
messagebox 法宝切割值升级成功
#ELSEACT
messagebox 法宝切割值升级成功
GOTO @ItemIntoBox0
Close
break
[@ItemIntoBox0]
#act
SetUpgradeItem 0
#IF
CHECKCUSTOMITEMPROGRESSBAR -1 0
#ACT
GOTO @切割灌注
#ELSEACT
messagebox 错误:()的切割属性还没开启,请佩戴法宝自动开启。
UNALLOWITEMINTOBOX
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0
#ACT
GOTO @切一
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 1
#ACT
GOTO @切二
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 2
#ACT
GOTO @切三
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 3
#ACT
GOTO @切四
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 4
#ACT
GOTO @切五
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 5
#ACT
GOTO @切六
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 6
#ACT
GOTO @切七
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 7
#ACT
GOTO @切八
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 8
#ACT
GOTO @切九
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 9
#ACT
GOTO @切十
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 10
#ACT
Close
messagebox 你的切割等级已满,无需再次升级!!!!!
break
[@转移]
#IF
#ACT
Close
OPENMERCHANTBIGDLG 6 83 1 4 -8 -18 1 320 20
mov N$转移费用 5000
goto @转移大师界面
[@转移大师界面]
#say
{装备:/SCOLOR=251}{装备:/SCOLOR=251}
{强化所需费用:积分/SCOLOR=249}
[@ItemIntoBox1]
#act
SetUpgradeItem 1
#IF
CHECKCUSTOMITEMPROGRESSBAR -1 0
#ELSEACT
messagebox 错误:()的切割没有觉醒。
UNALLOWITEMINTOBOX
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 > 0
#ELSEACT
messagebox 错误:()的切割等级为0,无需转移。
UNALLOWITEMINTOBOX
break
[@ItemIntoBox2]
#act
SetUpgradeItem 2
#IF
CompareText
#ACT
messagebox 错误:请先在第一格放入需要转移切割值的法宝。
UNALLOWITEMINTOBOX
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0
#ELSEACT
messagebox 错误:你放入等()不是空属性,请换一个空属性的法宝。
UNALLOWITEMINTOBOX
break
#IF
CHECKCUSTOMITEMPROGRESSBAR -1 0
#act
GOTO @转移大师界面
#ELSEACT
messagebox 错误:()的法宝没有觉醒。
UNALLOWITEMINTOBOX
break
[@ItemOutBox0]
#ACT
GOTO @切割灌注
break
[@ItemOutBox1]
#ACT
ReturnBoxItem 2
GOTO @转移大师界面
break
[@ItemOutBox2]
#ACT
GOTO @转移大师界面
break
[@开始转移]
#if
CHECKGAMEDIAMOND ?
#elseact
messagebox 你积分不足无法转移
break
#act
SetUpgradeItem 1
#IF
CompareText
#ACT
messagebox 错误:请在第1格放入需要转移切割值的法宝。
ReturnBoxItem 2
GOTO @转移大师界面
break
#IF
CompareText
#ACT
messagebox 错误:请在第2格放入空属性的法宝。
ReturnBoxItem 1
GOTO @转移大师界面
break
#IF
CHECKCUSTOMITEMPROGRESSBAR -1 0
#ELSEACT
messagebox 错误:()的法宝没有觉醒。
GOTO @转移大师界面
break
#IF
CHECKCUSTOMITEMPROGRESSBARVALUE -1 0 1 > 0
#ELSEACT
messagebox 错误:()的法宝切割等级为0,无需转移。
GOTO @转移大师界面
break
#IF
#act
SetUpgradeItem 2
#IF
CHECKCUSTOMITEMPROGRESSBAR -1 0
#ELSEACT
messagebox 错误:()的法宝没有觉醒。
GOTO @转移大师界面
break
#if
#ACT
GAMEDIAMOND -
SetUpgradeItem 2
;//修改2武器进度
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 =
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 =
;CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 1 =
;CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 =
SetItemBind -1 1
SetUpgradeItem 1
;//修改1武器进度
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 0 = 0
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 = 0
;CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 = 0
;CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 1 = 0
;//修改1武器属性
;CHANGECUSTOMITEMVALUE -1 0 = 0
SetItemBind -1 0
SENDMSG 6 [系统]:传承成功,已将()上的切割值属性传承至()上。
UpDateBoxItem 1
UpDateBoxItem 2
ReturnBoxItem 1
ReturnBoxItem 2
GOTO @转移大师界面
break
[/td][/tr] |