FE13 Forced Chrom Marriage Scene (chapter11)

Header ev17(1048586,false,false)
Event ev17
ev::Talk(string("MID_011_ED1"))
ev::FadeOut(byte(3),byte(0),short(1f4))
ev::FadeWait()
ev::ForceUnitExpulsion(byte(1))
ev::CameraSetPosition(call(21),byte(b),byte(17))
ev::CameraInstant()
ev::ForceUnitDelete(byte(2))
ev::ForceUnitDelete(byte(0))
ev::Dispos(string("Event01"),short(2004))
ev::UnitGetByPID(raw(46,2),raw(21),storein(0),string("PID_クロム"))
ev::UnitGetMarrigeUnit()
call(23)
call(0)
raw(32)
pass {
    ev::HeroMarrige()
    ev::UnitGetByPID(raw(0,21),storein(0),string("PID_クロム"))
    ev::UnitGetMarrigeUnit()
    call(23)
    call(0)
    specialCheck {
        ev::UnitIsPID(call(0),string("PID_スミア"))
    }
    pass {
        ev::Dispos(string("Event06"),short(2008))
        ev::DisposWait()
        ev::UnitGetPlayer(raw(46,3),raw(21),storein(1))
        ev::UnitGetByPID(raw(23),storein(2),string("PID_リズ"))
        ev::UnitGetByPID(raw(23),storein(3),string("PID_011_バジーリオEV"))
        ev::UnitGetByPID(raw(23),storein(4),string("PID_011_フラヴィアEV"))
        ev::UnitMovePosition(raw(23),call(1),byte(a),byte(1b),byte(2))
        ev::UnitMovePosition(call(2),byte(a),byte(1b),byte(2))
        ev::UnitMovePosition(call(3),byte(b),byte(1b),byte(2))
        ev::UnitMovePosition(call(4),byte(a),byte(1b),byte(2))
        ev::UnitMoveWait()
        ev::UnitDeleteByIndex(call(1))
        ev::UnitDeleteByIndex(call(2))
        ev::UnitDeleteByIndex(call(3))
        ev::UnitDeleteByIndex(call(4))
        ev::Talk(string("MID_011_ED3"))
    }
    fail {
        call(0)
        specialCheck {
            ev::UnitIsPID(call(0),string("PID_ソワレ"))
        }
        pass {
            ev::UnitGetPlayer(storein(5))
            ev::UnitGetByPID(raw(23),storein(6),string("PID_リズ"))
            ev::UnitGetByPID(raw(23),storein(7),string("PID_011_バジーリオEV"))
            ev::UnitGetByPID(raw(23),storein(8),string("PID_011_フラヴィアEV"))
            ev::UnitMovePosition(raw(23),call(5),byte(a),byte(1b),byte(2))
            ev::UnitMovePosition(call(6),byte(a),byte(1b),byte(2))
            ev::UnitMovePosition(call(7),byte(b),byte(1b),byte(2))
            ev::UnitMovePosition(call(8),byte(a),byte(1b),byte(2))
            ev::UnitMoveWait()
            ev::UnitDeleteByIndex(call(5))
            ev::UnitDeleteByIndex(call(6))
            ev::UnitDeleteByIndex(call(7))
            ev::UnitDeleteByIndex(call(8))
            ev::Dispos(string("Event08"),short(2008))
            ev::DisposWait()
            ev::Talk(string("MID_011_ED2_ソワレ"))
        }
        fail {
            call(0)
            specialCheck {
                ev::UnitIsPID(call(0),string("PID_マリアベル"))
            }
            pass {
                ev::UnitGetPlayer(storein(9))
                ev::UnitGetByPID(raw(23),storein(a),string("PID_リズ"))
                ev::UnitGetByPID(raw(23),storein(b),string("PID_011_バジーリオEV"))
                ev::UnitGetByPID(raw(23),storein(c),string("PID_011_フラヴィアEV"))
                ev::UnitMovePosition(raw(23),call(9),byte(a),byte(1b),byte(2))
                ev::UnitMovePosition(call(a),byte(a),byte(1b),byte(2))
                ev::UnitMovePosition(call(b),byte(b),byte(1b),byte(2))
                ev::UnitMovePosition(call(c),byte(a),byte(1b),byte(2))
                ev::UnitMoveWait()
                ev::UnitDeleteByIndex(call(9))
                ev::UnitDeleteByIndex(call(a))
                ev::UnitDeleteByIndex(call(b))
                ev::UnitDeleteByIndex(call(c))
                ev::Dispos(string("Event10"),short(2008))
                ev::DisposWait()
                ev::Talk(string("MID_011_ED2_マリアベル"))
            }
            fail {
                call(0)
                specialCheck {
                    ev::UnitIsPID(call(0),string("PID_PlayerWoman"))
                }
                pass {
                    ev::UnitGetByPID(storein(d),string("PID_リズ"))
                    ev::UnitGetByPID(raw(23),storein(e),string("PID_011_バジーリオEV"))
                    ev::UnitGetByPID(raw(23),storein(f),string("PID_011_フラヴィアEV"))
                    ev::UnitMovePosition(raw(23),call(d),byte(a),byte(1b),byte(2))
                    ev::UnitMovePosition(call(e),byte(b),byte(1b),byte(2))
                    ev::UnitMovePosition(call(f),byte(a),byte(1b),byte(2))
                    ev::UnitMoveWait()
                    ev::UnitDeleteByIndex(call(d))
                    ev::UnitDeleteByIndex(call(e))
                    ev::UnitDeleteByIndex(call(f))
                    ev::Talk(string("MID_011_ED2_プレイヤー女"))
                }
                fail {
                }
            }
        }
    }
}
ev::DisableBGMCommandPG()
end