[AFT脚本] 兽魂觉醒，灵兽繁衍脚本

[@繁衍灵兽]
{
#IF
!CHECKITEM 灵兽项圈 1
!CHECKITEM 灵兽项圈(捆) 1
#ACT
MESSAGEBOX 你没有任何一种灵兽项圈。
BREAK

#IF
SMALL $UPGRADEITEMEXDLS.$PARAM(87).20 2
#ACT
SENDMSG 5 只有二转灵兽才可以繁衍。
BREAK

#IF
SMALL $UPGRADEITEMEXDLS.$PARAM(88).20 2
#ACT
SENDMSG 5 只有二转灵兽才可以繁衍。
BREAK

#IF
!EQUAL $ItemExN.$PARAM(87).NAME $ItemExN.$PARAM(87).NAME
#ACT
MESSAGEBOX 只有同种的灵兽才可以繁衍。
BREAK

#IF
SMALL $UPGRADEITEMEXDLS.$PARAM(87).31 1
#ACT
SENDMSG 5 只有鉴定过性别的灵兽才可以繁衍。
BREAK

#IF
SMALL $UPGRADEITEMEXDLS.$PARAM(88).31 1
#ACT
SENDMSG 5 只有鉴定过性别的灵兽才可以繁衍。
BREAK
#IF
EQUAL $UPGRADEITEMEXDLS.$PARAM(87).31 $UPGRADEITEMEXDLS.$PARAM(88).31
#ACT
MESSAGEBOX 同种性别的灵兽不能繁衍，虽然现实的世界基情无处不在，但是在这里不可以！
BREAK

#IF
!SMALL $UPGRADEITEMEXDLS.$PARAM(87).32 $UPGRADEITEMEXDLS.$PARAM(87).33
#ACT
SENDMSG 5 只有你的灵兽已经达到了最大的繁衍次数。
BREAK

#IF
!SMALL $UPGRADEITEMEXDLS.$PARAM(88).32 $UPGRADEITEMEXDLS.$PARAM(88).33
#ACT
SENDMSG 5 只有你的灵兽已经达到了最大的繁衍次数。
BREAK

#IF
true
#ACT
GIVE $ItemExN.$PARAM(87).NAME 1
UpgradeItemExDLS $PARAM(0) 20 = 2
;直接二转
UpgradeItemExDLS $PARAM(0) 23 = 1
;等级为1
UpgradeItemExDLS $PARAM(0) 28 = 1
;直接绑定
MOVR P20 60
INC P20 1 
UpgradeItemExDLS $PARAM(0) 34 = $STR(P20)
;血脉纯净度。
UpgradeItemExDLS $PARAM(0) 35 = 1
;是幼崽
#CALL [\游戏功能\灵兽属性.txt] @灵兽属性
UpgradeItemExDLS $PARAM(87) 32 + 1
UpgradeItemExDLS $PARAM(88) 32 + 1
UPDATEM**TONE
messagebox 灵兽繁衍成功。
#IF
CHECKITEM 灵兽项圈 1
#ACT
TAKE 灵兽项圈 1
break
#IF
CHECKITEM 灵兽项圈(捆) 1
#ACT
MOV S3 $ITEMMAKEINDE[灵兽项圈(捆)]
UpgradeUserItemEx $STR(S3) 13 - 1
MOV P2 $ItemEx.$STR(S3).13
#IF
SMALL P2 1
#ACT
TAKEID $STR(S3)
break
}