宝石淬炼脚本

Admins

宝石淬炼脚本[@main]
<Color=green 淬炼原石无论成功失败都将消耗精力值。>\
一价原石： 2点　二阶原石： 4点\
三价原石：10点　四阶原石：50点\
五价原石：50点　六阶原石：50点\
七价原石：50点　八阶原石：50点\
九价原石：50点　十阶原石：50点\
<Color=green 使用精力药水可增加精力值。>\
<我要淬炼宝石/@@gemextract>　　<离开/@exit>\

[@@gemextract]
#IF
random 1
#ACT
MOV S1 $PARAM(1)
MOV P10 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV P10 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV P10 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV P10 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV P10 $ITEMINFO[$PARAM(5)].VALUE(0)
MOV P10 $ITEMINFO[$PARAM(6)].VALUE(0)
#IF
EQUAL P10 0
#ACT
MOV P1 2
#IF
EQUAL P10 1
#ACT
MOV P1 4
#IF
EQUAL P10 2
#ACT
MOV P1 10
#IF
LARGE P10 3
#ACT
MOV P1 50
#IF
!SMALL $SPIRITY $STR(P1)
#ACT
SPIRITY - $STR(P1)
SMELTBOXRESULT 1 7 1
SENDMSG 5 精力值减少<$STR(P1)>
break
#ELSEACT
MessageBox 你没有足够的精力值淬炼原石
break
[@@gemextractOK]
#IF
!EQUAL $PARAM(1) 0
#ACT
MOV S3 $ITEMINFO[$PARAM(1)].Mac2
MOV P4 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV S10 $PARAM(1)
#IF
!EQUAL $PARAM(2)
#ACT
MOV S3 $ITEMINFO[$PARAM(2)].Mac2
MOV P4 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV S10 $PARAM(2)
#IF
!EQUAL $PARAM(3)
#ACT
MOV S3 $ITEMINFO[$PARAM(3)].Mac2
MOV P4 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV S10 $PARAM(3)
#IF
!EQUAL $PARAM(4)
#ACT
MOV S3 $ITEMINFO[$PARAM(4)].Mac2
MOV P4 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV S10 $PARAM(4)
#IF
!EQUAL $PARAM(5)
#ACT
MOV S3 $ITEMINFO[$PARAM(5)].Mac2
MOV P4 $ITEMINFO[$PARAM(5)].VALUE(0)
MOV S10 $PARAM(6)
#IF
!EQUAL $PARAM(6)
#ACT
MOV S3 $ITEMINFO[$PARAM(6)].Mac2
MOV P4 $ITEMINFO[$PARAM(6)].VALUE(0)
MOV S10 $PARAM(6)
#IF
EQUAL P4 0
#ACT
MOV P5 1
#IF
EQUAL P4 1
#ACT
MOV P5 2
#IF
EQUAL P4 2
#ACT
MOV P5 4
#IF
EQUAL P4 3
#ACT
MOV P5 8
#IF
EQUAL P4 4
#ACT
MOV P5 10
#IF
EQUAL P4 5
#ACT
MOV P5 12
#IF
EQUAL P4 6
#ACT
MOV P5 14
#IF
EQUAL P4 7
#ACT
MOV P5 16
#IF
EQUAL P4 8
#ACT
MOV P5 18
#IF
EQUAL P4 9
#ACT
MOV P5 30
#IF
SMALL P4 1
#ACT
MOV P4 1
#IF
random $STR(P5)
#ACT
UpgradeUserItem $PARAM(0) $STR(S3) = $STR(P4)
GOTO @Take_item
MessageBox 恭喜你，淬炼宝石成功。
break
Close
#ELSEACT
MessageBox 抱歉，淬炼宝石失败。
break
[@Take_item]
#IF
LARGE $ITEMINFO[$STR(S10)].DURA 1
#ACT
UpgradeUserItem $STR(S10) 20 - 1
#ELSEACT
TAKEM $str(s10)
break