Files
pokeruby/data/maps/CaveOfOrigin_B4F/scripts.inc
2025-02-10 13:30:29 -05:00

98 lines
2.5 KiB
PHP
Vendored

CaveOfOrigin_B4F_MapScripts:: @ 815DDAC
map_script MAP_SCRIPT_ON_RESUME, CaveOfOrigin_B4F_MapScript1_15DDB7
map_script MAP_SCRIPT_ON_TRANSITION, CaveOfOrigin_B4F_MapScript1_15DDC5
.byte 0
CaveOfOrigin_B4F_MapScript1_15DDB7:: @ 815DDB7
call_if_set FLAG_SYS_CTRL_OBJ_DELETE, CaveOfOrigin_B4F_EventScript_15DDC1
end
CaveOfOrigin_B4F_EventScript_15DDC1:: @ 815DDC1
removeobject 1
return
CaveOfOrigin_B4F_MapScript1_15DDC5:: @ 815DDC5
.ifdef SAPPHIRE
setmaplayoutindex 163
.else
setmaplayoutindex 313
.endif
call Common_EventScript_SetupLegendaryGfxIds
call_if_set FLAG_LEGENDARY_BATTLE_COMPLETED, CaveOfOrigin_EventScript_DisableTriggers
end
CaveOfOrigin_B4F_EventScript_15DDD7:: @ 815DDD7
lockall
applymovement LOCALID_PLAYER, Common_Movement_WalkInPlaceFastestUp
waitmovement 0
.ifdef SAPPHIRE
msgbox UnknownString_81B4F03, MSGBOX_DEFAULT
.else
msgbox CaveOfOrigin_B4F_Text_1B4FE4, MSGBOX_DEFAULT
.endif
closemessage
setweather WEATHER_NONE
doweather
special WaitWeather
waitstate
playse SE_M_DETECT
setfieldeffectargument 0, 9
setfieldeffectargument 1, 13
setfieldeffectargument 2, 0
dofieldeffect FLDEFF_SPARKLE
waitfieldeffect FLDEFF_SPARKLE
.ifdef SAPPHIRE
setvar VAR_RESULT, 3
.else
setvar VAR_RESULT, 2
.endif
playse SE_ORB
special sub_80818A4
waitstate
special sub_80818FC
waitstate
applymovement 1, CaveOfOrigin_B4F_Movement_15DE7D
waitmovement 0
delay 60
setwildbattle SPECIES_GROUDON_OR_KYOGRE, 45, ITEM_NONE
waitse
playmoncry SPECIES_GROUDON_OR_KYOGRE, 2
delay 40
waitmoncry
setflag FLAG_SYS_CTRL_OBJ_DELETE
special ScrSpecial_StartGroudonKyogreBattle
waitstate
clearflag FLAG_SYS_CTRL_OBJ_DELETE
specialvar VAR_RESULT, GetBattleOutcome
compare VAR_RESULT, 1
call_if_eq CaveOfOrigin_B4F_EventScript_15DE73
setflag FLAG_HIDE_WALLACE_SOOTOPOLIS
setflag FLAG_HIDE_CAVE_OF_ORIGIN_ENTRANCE_WOMAN_1
setflag FLAG_HIDE_CAVE_OF_ORIGIN_ENTRANCE_WOMAN_2
clearflag FLAG_HIDE_WALLACE_SOOTOPOLIS_GYM
setvar VAR_CAVE_OF_ORIGIN_B4F_STATE, 1
setflag FLAG_LEGENDARY_BATTLE_COMPLETED
clearflag FLAG_HIDE_SOOTOPOLIS_RESIDENTS
clearflag FLAG_SYS_WEATHER_CTRL
setvar VAR_MT_PYRE_STATE, 2
clearflag FLAG_HIDE_LEADER_MT_PYRE_SUMMIT
releaseall
end
CaveOfOrigin_B4F_EventScript_15DE73:: @ 815DE73
.ifdef SAPPHIRE
msgbox UnknownString_81B4F29, MSGBOX_DEFAULT
.else
msgbox CaveOfOrigin_B4F_Text_1B5009, MSGBOX_DEFAULT
.endif
closemessage
return
CaveOfOrigin_B4F_Movement_15DE7D:: @ 815DE7D
init_affine_anim
walk_down_start_affine
delay_16
delay_16
walk_down_affine
step_end