mirror of
https://github.com/pret/pokefirered.git
synced 2026-05-12 06:55:48 -05:00
155 lines
4.8 KiB
PHP
155 lines
4.8 KiB
PHP
SilphCo_Elevator_MapScripts::
|
|
.byte 0
|
|
|
|
SilphCo_Elevator_EventScript_FloorSelect::
|
|
lockall
|
|
setvar VAR_0x8004, 1
|
|
call_if_unset FLAG_TEMP_2, EventScript_GetElevatorFloor
|
|
copyvar VAR_0x8005, VAR_ELEVATOR_FLOOR
|
|
special DrawElevatorCurrentFloorWindow
|
|
message Text_WantWhichFloor
|
|
waitmessage
|
|
setvar VAR_0x8004, LISTMENU_SILPHCO_FLOORS
|
|
specialvar VAR_RESULT, InitElevatorFloorSelectMenuPos
|
|
special ListMenu
|
|
waitstate
|
|
switch VAR_RESULT
|
|
case 0, SilphCo_Elevator_EventScript_To11F
|
|
case 1, SilphCo_Elevator_EventScript_To10F
|
|
case 2, SilphCo_Elevator_EventScript_To9F
|
|
case 3, SilphCo_Elevator_EventScript_To8F
|
|
case 4, SilphCo_Elevator_EventScript_To7F
|
|
case 5, SilphCo_Elevator_EventScript_To6F
|
|
case 6, SilphCo_Elevator_EventScript_To5F
|
|
case 7, SilphCo_Elevator_EventScript_To4F
|
|
case 8, SilphCo_Elevator_EventScript_To3F
|
|
case 9, SilphCo_Elevator_EventScript_To2F
|
|
case 10, SilphCo_Elevator_EventScript_To1F
|
|
case 11, SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
case 127, SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To1F::
|
|
setvar VAR_0x8006, 4
|
|
setdynamicwarp MAP_SILPH_CO_1F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 4
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 4
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To2F::
|
|
setvar VAR_0x8006, 5
|
|
setdynamicwarp MAP_SILPH_CO_2F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 5
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 5
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To3F::
|
|
setvar VAR_0x8006, 6
|
|
setdynamicwarp MAP_SILPH_CO_3F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 6
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 6
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To4F::
|
|
setvar VAR_0x8006, 7
|
|
setdynamicwarp MAP_SILPH_CO_4F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 7
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 7
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To5F::
|
|
setvar VAR_0x8006, 8
|
|
setdynamicwarp MAP_SILPH_CO_5F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 8
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 8
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To6F::
|
|
setvar VAR_0x8006, 9
|
|
setdynamicwarp MAP_SILPH_CO_6F, 255, 20, 3
|
|
compare VAR_ELEVATOR_FLOOR, 9
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 9
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To7F::
|
|
setvar VAR_0x8006, 10
|
|
setdynamicwarp MAP_SILPH_CO_7F, 255, 23, 3
|
|
compare VAR_ELEVATOR_FLOOR, 10
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 10
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To8F::
|
|
setvar VAR_0x8006, 11
|
|
setdynamicwarp MAP_SILPH_CO_8F, 255, 22, 3
|
|
compare VAR_ELEVATOR_FLOOR, 11
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 11
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To9F::
|
|
setvar VAR_0x8006, 12
|
|
setdynamicwarp MAP_SILPH_CO_9F, 255, 24, 3
|
|
compare VAR_ELEVATOR_FLOOR, 12
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 12
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To10F::
|
|
setvar VAR_0x8006, 13
|
|
setdynamicwarp MAP_SILPH_CO_10F, 255, 13, 3
|
|
compare VAR_ELEVATOR_FLOOR, 13
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 13
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_To11F::
|
|
setvar VAR_0x8006, 14
|
|
setdynamicwarp MAP_SILPH_CO_11F, 255, 13, 3
|
|
compare VAR_ELEVATOR_FLOOR, 14
|
|
goto_if_eq SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
call SilphCo_Elevator_EventScript_MoveElevator
|
|
setvar VAR_ELEVATOR_FLOOR, 14
|
|
goto SilphCo_Elevator_EventScript_ExitFloorSelect
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_ExitFloorSelect::
|
|
special CloseElevatorCurrentFloorWindow
|
|
releaseall
|
|
end
|
|
|
|
SilphCo_Elevator_EventScript_MoveElevator::
|
|
special CloseElevatorCurrentFloorWindow
|
|
closemessage
|
|
waitse
|
|
special AnimateElevator
|
|
waitstate
|
|
setflag FLAG_TEMP_2
|
|
return
|