script set: c08r0802

code

ev_c08r0802_elevator:
    event_start()
    obj_anime("HERO", "anm_c08r0802_player_elevator_on")
    obj_anime_wait()
    ifval_jump(work: 115, "EQ", 0.0, "case2_c08r0802_elevator_01")
    ifval_jump(work: 115, "EQ", 1.0, "case3_c08r0802_elevator_01")
    end()

case2_c08r0802_elevator_01:
    ldval(work: 238, 1.0)
    call("common_01_c08r0802")
    map_change("C08R0801", 0.0)
    end()

case3_c08r0802_elevator_01:
    ldval(work: 238, 0.0)
    call("common_01_c08r0802")
    map_change("C08", 11.0)
    end()

common_01_c08r0802:
    se_play("S_FI017")
    elevator_anm(work: 238)
    camera_shake(0.0, 10.0, 0.0, 3.0, 40.0)
    se_stop("S_FI017")
    se_play("S_FI018")
    time_wait(15.0, work: 246)
    obj_anime("HERO", "anm_c08r0802_player_elevator_off")
    obj_anime_wait()
    se_play("S_FI001")
    ret()

anm_c08r0802_player_elevator_on:
    ac_dir_u(4.0)
    ac_up(2.0, 8.0)
    ac_dir_d(8.0)
    acmd_end()

anm_c08r0802_player_elevator_off:
    ac_down(2.0, 8.0)
    ac_dir_d(8.0)
    acmd_end()