[彩虹脚本] 时光模式下小极品进阶和雷炼

本脚本可能看起来有点另类。写法和主流写法不太相同。

[@main]
人间与天界通道已开，装备小极品属性获得突破，可以
进一步进阶提升属性。但是再次进阶后的装备，不可以用
点金石重置属性。天人套装圣天套还可以进行雷炼强化，
雷炼等级，小极品进阶等级越高，成功概率越低。\
<装备极品进阶/@@OpenWnd EquipJinJieWnd> <装备雷炼/@LEILIAN>
;<装备雷炼/@@OpenWnd EquipThunderWnd>

;-------------------------------------极品进阶-----------------------------
[@@EquipJinJieWnd0] //刷新界面
#IF
EQUAL P10 0
#ACT
MOV S0 ###

#IF
LARGE $ITEMINFO[$PARAM(0)].GOODITEMTYPE(1) 0
SMALL $ITEMINFO[$PARAM(0)].GOODITEMVALUE(1) 15
#ACT
ReplaceText S0 # 1 1

#IF
LARGE $ITEMINFO[$PARAM(0)].GOODITEMTYPE(2) 0
SMALL $ITEMINFO[$PARAM(0)].GOODITEMVALUE(2) 15
#ACT
ReplaceText S0 # 2 1

#IF
LARGE $ITEMINFO[$PARAM(0)].GOODITEMTYPE(3) 0
SMALL $ITEMINFO[$PARAM(0)].GOODITEMVALUE(3) 15
#ACT
ReplaceText S0 # 3 1

#IF
POS $STR(S0) #
#ACT
ReplaceText S0 #
ReplaceText S0 #
ReplaceText S0 #

#IF
EQUAL $LENGTH.$STR(S0) 0
#ACT
SENDMSG 5 当前装备没有极品或极品属性已升级到顶。
break

#IF
EQUAL $LENGTH.$STR(S0) 3
#ACT
MOV S1 1
MOV S2 2
MOV S3 3
RANDOMVAR S1 3 S4

#IF
EQUAL $LENGTH.$STR(S0) 2
#ACT
COPYTEXT $STR(S0) 1 1 S1
COPYTEXT $STR(S0) 2 1 S2
RANDOMVAR S1 2 S4

#IF
EQUAL $LENGTH.$STR(S0) 1
#ACT
MOV S4 $STR(S0)

#IF
EQUAL S4 1
#ACT
MOV P1 1
MOV P2 0
MOV P3 0
MOV P7 170
INC P7 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(1)
READRANDOMSTR ..QuestDiary数据文件文本数据极品进阶价格.txt S0 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(1)
GETVALIDSTR $STR(S0) | P4 P5
SENDEQUIPJINJIENEED $PARAM(0) $STR(P1) $STR(P2) $STR(P3) $STR(P4) $STR(P5)
MOV P6 $ITEMINFO[$PARAM(0)].GOODITEMVALUE(1)
MOV P6 $MULT.$STR(P6).6
MOV P6 $DEC.100.$STR(P6)
BREAK

#IF
EQUAL S4 2
#ACT
MOV P1 0
MOV P2 1
MOV P3 0
MOV P7 185
INC P7 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(2)
READRANDOMSTR ..QuestDiary数据文件文本数据极品进阶价格.txt S0 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(2)
GETVALIDSTR $STR(S0) | P4 P5
SENDEQUIPJINJIENEED $PARAM(0) $STR(P1) $STR(P2) $STR(P3) $STR(P4) $STR(P5)
MOV P6 $ITEMINFO[$PARAM(0)].GOODITEMVALUE(2)
MOV P6 $MULT.$STR(P6).6
MOV P6 $DEC.100.$STR(P6)
BREAK

#IF
EQUAL S4 3
#ACT
MOV P1 0
MOV P2 0
MOV P3 1
MOV P7 200
INC P7 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(3)
READRANDOMSTR ..QuestDiary数据文件文本数据极品进阶价格.txt S0 $ITEMINFO[$PARAM(0)].GOODITEMTYPE(3)
GETVALIDSTR $STR(S0) | P4 P5
SENDEQUIPJINJIENEED $PARAM(0) $STR(P1) $STR(P2) $STR(P3) $STR(P4) $STR(P5)
MOV P6 $ITEMINFO[$PARAM(0)].GOODITEMVALUE(3)
MOV P6 $MULT.$STR(P6).6
MOV P6 $DEC.100.$STR(P6)
BREAK

[@点按速度]
#IF
LARGE P10 0
#ACT
DEC P10 1
DELAYGOTO 100 @点按速度
break

[@@EquipJinJieWnd1]
#IF
LARGE P10 0
#ACT
SENDMSG 5 系统正忙...
BREAK

#IF
LARGE $PARAM(0) 0
#ACT
INC P10 2
GOTO @点按速度
GOTO @@EquipJinJieWnd0

#IF
EQUAL $LENGTH.$STR(S0) 0
#ACT
SENDMSG 5 当前装备没有极品或极品属性已升级到顶。
break

#IF
!CHECKITEM 造化幽冥石 $STR(P4)
#ACT
SENDMSG 5 您没有足够的[造化幽冥石ｘ<$STR(P4)>]
break

#IF
!CHECKGOLD $STR(P5)
#ACT
SENDMSG 5 您没有足够的[金币ｘ<$STR(P5)>]
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 普通祝福石
#ACT
INC P6 10
TAKEM $PARAM(1)
GOTO @升级结果
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 优质祝福石
#ACT
INC P6 15
TAKEM $PARAM(1)
GOTO @升级结果
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 极品祝福石
#ACT
INC P6 20
TAKEM $PARAM(1)
GOTO @升级结果
break
#ELSEACT
GOTO @升级结果
break

[@升级结果]
#IF
RANDOM $STR(P6) 150
#ACT
TAKE 造化幽冥石 $STR(P4)
TAKE 金币 $STR(P5)
UPGRADEUSERITEM $PARAM(0) $STR(P7) + 1
;SENDJEWELCOMBINEOK
GOTO @@EquipJinJieWnd0
SENDMSG 7 本次升级成功...
#ELSEACT
TAKE 造化幽冥石 $STR(P4)
TAKE 金币 $STR(P5)
SENDJEWELCOMBINEOK
SENDMSG 5 本次升级失败了...

;-----------------------------------------装备雷炼--------------------------------------------
[@LEILIAN]
装备雷炼说明：
1.只有圣王级以上装备可以进行雷炼。
2.装备雷炼共有4个等级，雷炼等级越高成功率越低。
3.装备雷炼需要雷炼石、淬炼石、金币：
一级雷炼：雷炼石10个、淬炼石20个、金币100万。
二级雷炼：雷炼石20个、淬炼石40个、金币200万。
三级雷炼：雷炼石30个、淬炼石60个、金币300万。
四级雷炼：雷炼石40个、淬炼石80个、金币400万。
<领取材料/@材料>
#ACT
SHOWSPOTDLG 6 请放入需要雷炼的装备 @LEILIANGO

[@材料]
#ACT
GIVE 雷炼石 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
GIVE 淬炼石 1
UPGRADEUSERITEM $PARAM(10) 20 = 100

[@LEILIANGO]
#IF
!POSINLIST $ITEMINFO[$PARAM(1)].STDNAME ....ConfigLeiLian.xml
#ACT
SENDMSG 5 当前装备不可进行雷炼。
break

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(240) 0
#ACT
MOV P0 10
MOV P1 20
MOV P3 1000000
MOV P4 90

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(240) 1
#ACT
MOV P0 20
MOV P1 40
MOV P3 2000000
MOV P4 60

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(240) 2
#ACT
MOV P0 30
MOV P1 60
MOV P3 3000000
MOV P4 30

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(240) 3
#ACT
MOV P0 40
MOV P1 80
MOV P3 4000000
MOV P4 15

#IF
EQUAL $ITEMINFO[$PARAM(1)].ITEMEXT(240) 4
#ACT
SENDMSG 5 当前装备已经达到雷炼4级，无法继续晋级...
break

#IF
!CHECKITEM 雷炼石 $STR(P0)
#ACT
SENDMSG 5 您没有足够的[雷炼石ｘ<$STR(P0)>]
BREAK

#IF
!CHECKITEM 淬炼石 $STR(P1)
#ACT
SENDMSG 5 您没有足够的[淬炼石ｘ<$STR(P1)>]
BREAK

#IF
!CHECKGOLD $STR(P3)
#ACT
SENDMSG 5 您没有足够的[金币ｘ<$STR(P3)>]
BREAK
#IF
RANDOM $STR(P4) 100
#ACT
TAKE 雷炼石 $STR(P0)
TAKE 淬炼石 $STR(P1)
TAKE 金币 $STR(P3)
UPGRADEUSERITEM $PARAM(1) 240 + 1
SENDMSG 7 升级成功...
#ELSEACT
TAKE 雷炼石 $STR(P0)
TAKE 淬炼石 $STR(P1)
TAKE 金币 $STR(P3)
SENDMSG 6 升级失败..