月光宝盒兽尊灵丹经验触发脚本

[@杀怪经验触发]
#IF
CHECKLEVELEX > 0
#ACT
MOV D49 0
MOV D50 0
MOV D51 0
MOV D52 0
MOV D53 0
MOV D54 0
MOV D55 0
MOV D56 0
MOV D57 0
MOV D58 0
MOV D59 0
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
HAVEGUILD
#ACT
MOV D20 $PARAM(6)
DIV D20 1000
GuildExp $GUILDNAME + $STR(D20)
#IF
checkitem 月光宝盒(小) 1
#ACT
MOV D50 $PARAM(6)
DIV D50 10
MUL D50 6
MOV D51 4
#IF
checkitem 月光宝盒(大) 1
#ACT
MOV D50 $PARAM(6)
DIV D50 10
MUL D50 6
MOV D51 5
#IF
checkitem 兽尊灵丹(小) 1
#ACT
MOV D58 1
#IF
checkitem 兽尊灵丹(大) 1
#ACT
MOV D58 2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL D51 1
SMALL D58 1
#ACT
break
#IF
EQUAL D58 1
#ACT
MOV D59 $ItemExD.$ITEMMAKEINDE[兽尊灵丹(小)].0.4
#IF
EQUAL D58 2
#ACT
MOV D59 $ItemExD.$ITEMMAKEINDE[兽尊灵丹(大)].0.4
#IF
EQUAL D51 4
#ACT
MOV D55 $ItemExD.$ITEMMAKEINDE[月光宝盒(小)].0.4
#IF
EQUAL D51 5
#ACT
MOV D56 $ItemExD.$ITEMMAKEINDE[月光宝盒(大)].0.4
#IF
EQUAL D57 1
SMALL D52 2000000
#ACT
INC D52 $STR(D49)
#IF
EQUAL D57 2
SMALL D53 10000000
#ACT
INC D53 $STR(D49)
#IF
EQUAL D57 3
SMALL D54 50000000
#ACT
INC D54 $STR(D49)
#IF
EQUAL D51 4
SMALL D55 20000000
#ACT
INC D55 $STR(D50)
#IF
EQUAL D51 5
SMALL D56 100000000
#ACT
INC D56 $STR(D50)
#IF
EQUAL D58 1
SMALL D59 1000000
#ACT
INC D59 $PARAM(6)
#IF
EQUAL D58 2
SMALL D59 10000000
#ACT
INC D59 $PARAM(6)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL D59 1000000
EQUAL D58 1
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(小)] 0 4 + $PARAM(6)
SendMsg 5 兽尊灵丹成功吸收了<$PARAM(6)>经验。
#IF
LARGE D59 1000000
EQUAL D58 1
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(小)] 0 4 = 1000000
SendMsg 5 兽尊灵丹所储存的经验已满。
#IF
SMALL D59 10000000
EQUAL D58 2
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(大)] 0 4 + $PARAM(6)
SendMsg 5 兽尊灵丹成功吸收了<$PARAM(6)>经验。
#IF
LARGE D59 10000000
EQUAL D58 2
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(大)] 0 4 = 10000000
SendMsg 5 兽尊灵丹所储存的经验已满。
#IF
SMALL D55 20000000
EQUAL D51 4
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(小)] 0 4 + $STR(D50)
SendMsg 5 月光宝盒(小)成功吸收了<$STR(D50)>经验。
#IF
LARGE D55 20000000
EQUAL D51 4
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(小)] 0 4 = 20000000
SendMsg 5 月光宝盒(小)所储存的经验已满。
#IF
SMALL D56 100000000
EQUAL D51 5
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(大)] 0 4 + $STR(D50)
SendMsg 5 月光宝盒(大)成功吸收了<$STR(D50)>经验。
#IF
LARGE D56 100000000
EQUAL D51 5
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(大)] 0 4 = 100000000
SendMsg 5 月光宝盒(大)所储存的经验已满。

[@经验增加触发]
#IF
LARGE D91 0
#ACT
MOV D91 0
break
#IF
CHECKLEVELEX > 0
#ACT
MOV P60 0
MOV P61 0
MOV P62 0
MOV P63 0
MOV P64 0
MOV P65 0
MOV P66 0
MOV P67 0
MOV P68 0
MOV P69 0
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
checkitem 月光宝盒(小) 1
#ACT
MOV P60 $PARAM(5)
DIV P60 10
MUL P60 6
MOV P61 4
#IF
checkitem 月光宝盒(大) 1
#ACT
MOV P60 $PARAM(5)
DIV P60 10
MUL P60 6
MOV P61 5
#IF
checkitem 兽尊灵丹(小) 1
#ACT
MOV P68 1
#IF
checkitem 兽尊灵丹(大) 1
#ACT
MOV P68 2
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P61 1
SMALL P68 1
#ACT
break
#IF
EQUAL P68 1
#ACT
MOV P69 $ItemExD.$ITEMMAKEINDE[兽尊灵丹(小)].0.4
#IF
EQUAL P68 2
#ACT
MOV P69 $ItemExD.$ITEMMAKEINDE[兽尊灵丹(大)].0.4
#IF
EQUAL P61 4
#ACT
MOV P65 $ItemExD.$ITEMMAKEINDE[月光宝盒(小)].0.4
#IF
EQUAL P61 5
#ACT
MOV P66 $ItemExD.$ITEMMAKEINDE[月光宝盒(大)].0.4
#IF
EQUAL P61 4
SMALL P65 20000000
#ACT
INC P65 $STR(P60)
#IF
EQUAL P61 5
SMALL P66 100000000
#ACT
INC P66 $STR(P60)
#IF
EQUAL P68 1
SMALL P69 1000000
#ACT
INC P69 $PARAM(5)
#IF
EQUAL P68 2
SMALL P69 10000000
#ACT
INC P69 $PARAM(5)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P69 1000000
EQUAL P68 1
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(小)] 0 4 + $PARAM(5)
SendMsg 5 兽尊灵丹成功吸收了<$PARAM(5)>经验。
#IF
LARGE P69 1000000
EQUAL P68 1
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(小)] 0 4 = 1000000
SendMsg 5 兽尊灵丹所储存的经验已满。
#IF
SMALL P69 10000000
EQUAL P68 2
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(大)] 0 4 + $PARAM(5)
SendMsg 5 兽尊灵丹成功吸收了<$PARAM(5)>经验。
#IF
LARGE P69 10000000
EQUAL P68 2
#ACT
UpgradeItemExD $ITEMMAKEINDE[兽尊灵丹(大)] 0 4 = 10000000
SendMsg 5 兽尊灵丹所储存的经验已满。
#IF
SMALL P65 20000000
EQUAL P61 4
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(小)] 0 4 + $STR(P60)
SendMsg 5 月光宝盒(小)成功吸收了<$STR(P60)>经验。
#IF
LARGE P65 20000000
EQUAL P61 4
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(小)] 0 4 = 20000000
SendMsg 5 月光宝盒(小)所储存的经验已满。
#IF
SMALL P66 100000000
EQUAL P61 5
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(大)] 0 4 + $STR(P60)
SendMsg 5 月光宝盒(大)成功吸收了<$STR(P60)>经验。
#IF
LARGE P66 100000000
EQUAL P61 5
#ACT
UpgradeItemExD $ITEMMAKEINDE[月光宝盒(大)] 0 4 = 100000000
SendMsg 5 月光宝盒(大)所储存的经验已满。

以上脚本放到功能脚本里