chrom marriage check

call(0x0)
raw(0x32)
pass {
    ev::HeroMarrige()
    raw(0x0,0x21)
    ev::UnitGetByPID(storein(0x0),string("PID_クロム"))
    ev::UnitGetMarrigeUnit()
    call(0x23)
    call(0x0)
    specialCheck {
        ev::UnitIsPID(call(0x0),string("PID_スミア"))
    }
    pass {
        ev::Dispos(string("Event06"),short(0x2008))
        ev::DisposWait()
        raw(0x46,0x3)
        ev::UnitGetPlayer(raw(0x21),storein(0x1))
        raw(0x23)
        ev::UnitGetByPID(storein(0x2),string("PID_リズ"))
        raw(0x23)
        ev::UnitGetByPID(storein(0x3),string("PID_011_バジーリオEV"))
        raw(0x23)
        ev::UnitGetByPID(storein(0x4),string("PID_011_フラヴィアEV"))
        raw(0x23)
        ev::UnitMovePosition(call(0x1),byte(0xA),byte(0x1B),byte(0x2))
        ev::UnitMovePosition(call(0x2),byte(0xA),byte(0x1B),byte(0x2))
        ev::UnitMovePosition(call(0x3),byte(0xB),byte(0x1B),byte(0x2))
        ev::UnitMovePosition(call(0x4),byte(0xA),byte(0x1B),byte(0x2))
        ev::UnitMoveWait()
        ev::UnitDeleteByIndex(call(0x1))
        ev::UnitDeleteByIndex(call(0x2))
        ev::UnitDeleteByIndex(call(0x3))
        ev::UnitDeleteByIndex(call(0x4))
        ev::Talk(string("MID_011_ED3"))
    }
    fail {
        call(0x0)
        specialCheck {
            ev::UnitIsPID(call(0x0),string("PID_ソワレ"))
        }
        pass {
            ev::UnitGetPlayer(storein(0x5))
            raw(0x23)
            ev::UnitGetByPID(storein(0x6),string("PID_リズ"))
            raw(0x23)
            ev::UnitGetByPID(storein(0x7),string("PID_011_バジーリオEV"))
            raw(0x23)
            ev::UnitGetByPID(storein(0x8),string("PID_011_フラヴィアEV"))
            raw(0x23)
            ev::UnitMovePosition(call(0x5),byte(0xA),byte(0x1B),byte(0x2))
            ev::UnitMovePosition(call(0x6),byte(0xA),byte(0x1B),byte(0x2))
            ev::UnitMovePosition(call(0x7),byte(0xB),byte(0x1B),byte(0x2))
            ev::UnitMovePosition(call(0x8),byte(0xA),byte(0x1B),byte(0x2))
            ev::UnitMoveWait()
            ev::UnitDeleteByIndex(call(0x5))
            ev::UnitDeleteByIndex(call(0x6))
            ev::UnitDeleteByIndex(call(0x7))
            ev::UnitDeleteByIndex(call(0x8))
            ev::Dispos(string("Event08"),short(0x2008))
            ev::DisposWait()
            ev::Talk(string("MID_011_ED2_ソワレ"))
        }
        fail {
            call(0x0)
            specialCheck {
                ev::UnitIsPID(call(0x0),string("PID_マリアベル"))
            }
            pass {
                ev::UnitGetPlayer(storein(0x9))
                raw(0x23)
                ev::UnitGetByPID(storein(0xA),string("PID_リズ"))
                raw(0x23)
                ev::UnitGetByPID(storein(0xB),string("PID_011_バジーリオEV"))
                raw(0x23)
                ev::UnitGetByPID(storein(0xC),string("PID_011_フラヴィアEV"))
                raw(0x23)
                ev::UnitMovePosition(call(0x9),byte(0xA),byte(0x1B),byte(0x2))
                ev::UnitMovePosition(call(0xA),byte(0xA),byte(0x1B),byte(0x2))
                ev::UnitMovePosition(call(0xB),byte(0xB),byte(0x1B),byte(0x2))
                ev::UnitMovePosition(call(0xC),byte(0xA),byte(0x1B),byte(0x2))
                ev::UnitMoveWait()
                ev::UnitDeleteByIndex(call(0x9))
                ev::UnitDeleteByIndex(call(0xA))
                ev::UnitDeleteByIndex(call(0xB))
                ev::UnitDeleteByIndex(call(0xC))
                ev::Dispos(string("Event10"),short(0x2008))
                ev::DisposWait()
                ev::Talk(string("MID_011_ED2_マリアベル"))
            }
            fail {
                call(0x0)
                specialCheck {
                    ev::UnitIsPID(call(0x0),string("PID_プレイヤー女"))
                }
                pass {
                    ev::UnitGetByPID(storein(0xD),string("PID_リズ"))
                    raw(0x23)
                    ev::UnitGetByPID(storein(0xE),string("PID_011_バジーリオEV"))
                    raw(0x23)
                    ev::UnitGetByPID(storein(0xF),string("PID_011_フラヴィアEV"))
                    raw(0x23)
                    ev::UnitMovePosition(call(0xD),byte(0xA),byte(0x1B),byte(0x2))
                    ev::UnitMovePosition(call(0xE),byte(0xB),byte(0x1B),byte(0x2))
                    ev::UnitMovePosition(call(0xF),byte(0xA),byte(0x1B),byte(0x2))
                    ev::UnitMoveWait()
                    ev::UnitDeleteByIndex(call(0xD))
                    ev::UnitDeleteByIndex(call(0xE))
                    ev::UnitDeleteByIndex(call(0xF))
                    ev::Talk(string("MID_011_ED2_プレイヤー女"))
                }
                fail {
                }
            }
        }
    }
}