Files
2025-06-11 09:45:39 -04:00

542 lines
12 KiB
ObjectPascal

MtChimney_MapScripts::
map_script MAP_SCRIPT_ON_RESUME, MtChimney_OnResume
map_script MAP_SCRIPT_ON_TRANSITION, MtChimney_OnTransition
.byte 0
MtChimney_OnTransition:
setvar VAR_JAGGED_PASS_ASH_WEATHER, 1
end
MtChimney_OnResume:
setstepcallback STEP_CB_ASH
end
MtChimney_EventScript_Archie::
lock
faceplayer
call_if_unset FLAG_EVIL_LEADER_PLEASE_STOP, MtChimney_EventScript_ArchieGoStopTeamMagma
call_if_set FLAG_EVIL_LEADER_PLEASE_STOP, MtChimney_EventScript_ArchieBusyFighting
closemessage
applymovement LOCALID_MT_CHIMNEY_ARCHIE, Common_Movement_FaceOriginalDirection
waitmovement 0
setflag FLAG_EVIL_LEADER_PLEASE_STOP
release
end
MtChimney_EventScript_ArchieGoStopTeamMagma::
msgbox MtChimney_Text_ArchieGoStopTeamMagma, MSGBOX_DEFAULT
return
MtChimney_EventScript_ArchieBusyFighting::
msgbox MtChimney_Text_ArchieIHaveMyHandsFull, MSGBOX_DEFAULT
return
MtChimney_EventScript_Maxie::
lockall
playbgm MUS_ENCOUNTER_MAGMA, FALSE
msgbox MtChimney_Text_MeteoriteWillActivateVolcano, MSGBOX_DEFAULT
applymovement LOCALID_MT_CHIMNEY_MAXIE, Common_Movement_FacePlayer
waitmovement 0
playse SE_PIN
applymovement LOCALID_MT_CHIMNEY_MAXIE, Common_Movement_ExclamationMark
waitmovement 0
applymovement LOCALID_MT_CHIMNEY_MAXIE, Common_Movement_Delay48
waitmovement 0
msgbox MtChimney_Text_MaxieIntro, MSGBOX_DEFAULT
trainerbattle_no_intro TRAINER_MAXIE_MT_CHIMNEY, MtChimney_Text_MaxieDefeat
msgbox MtChimney_Text_MaxieYouHaventSeenLastOfMagma, MSGBOX_DEFAULT
closemessage
delay 30
fadescreen FADE_TO_BLACK
removeobject LOCALID_MT_CHIMNEY_MAXIE
removeobject LOCALID_MT_CHIMNEY_MAGMA_GRUNT_1
removeobject LOCALID_MT_CHIMNEY_TABITHA
removeobject LOCALID_MT_CHIMNEY_MAGMA_GRUNT_2
setflag FLAG_HIDE_MT_CHIMNEY_TEAM_MAGMA
fadescreen FADE_FROM_BLACK
setobjectxyperm LOCALID_MT_CHIMNEY_ARCHIE, 10, 12
addobject LOCALID_MT_CHIMNEY_ARCHIE
call_if_eq VAR_FACING, DIR_EAST, MtChimney_EventScript_ArchieApproachPlayerEast
call_if_eq VAR_FACING, DIR_NORTH, MtChimney_EventScript_ArchieApproachPlayerNorth
applymovement LOCALID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
msgbox MtChimney_Text_ArchieThankYou, MSGBOX_DEFAULT
closemessage
call_if_eq VAR_FACING, DIR_EAST, MtChimney_EventScript_ArchieExitEast
call_if_eq VAR_FACING, DIR_NORTH, MtChimney_EventScript_ArchieExitNorth
removeobject LOCALID_MT_CHIMNEY_ARCHIE
setflag FLAG_HIDE_MT_CHIMNEY_TEAM_AQUA
setflag FLAG_DEFEATED_EVIL_TEAM_MT_CHIMNEY
clearflag FLAG_HIDE_FALLARBOR_HOUSE_PROF_COZMO
setflag FLAG_HIDE_METEOR_FALLS_1F_1R_COZMO
clearflag FLAG_HIDE_MT_CHIMNEY_LAVA_COOKIE_LADY
releaseall
end
MtChimney_EventScript_ArchieApproachPlayerEast::
applymovement LOCALID_MT_CHIMNEY_ARCHIE, MtChimney_Movement_ArchieApproachPlayerEast
waitmovement 0
return
MtChimney_EventScript_ArchieApproachPlayerNorth::
applymovement LOCALID_MT_CHIMNEY_ARCHIE, MtChimney_Movement_ArchieApproachPlayerNorth
waitmovement 0
return
MtChimney_EventScript_ArchieExitEast::
applymovement LOCALID_MT_CHIMNEY_ARCHIE, MtChimney_Movement_ArchieExitEast
waitmovement 0
return
MtChimney_EventScript_ArchieExitNorth::
applymovement LOCALID_MT_CHIMNEY_ARCHIE, MtChimney_Movement_ArchieExitNorth
waitmovement 0
return
MtChimney_EventScript_LavaCookieLady::
lock
faceplayer
showmoneybox 0, 0
msgbox MtChimney_Text_LavaCookiesJust200, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MtChimney_EventScript_DeclineLavaCookie
checkmoney 200
goto_if_eq VAR_RESULT, FALSE, MtChimney_EventScript_NotEnoughMoney
msgbox MtChimney_Text_ThankYouDear, MSGBOX_DEFAULT
checkitemspace ITEM_LAVA_COOKIE
call_if_eq VAR_RESULT, TRUE, MtChimney_EventScript_RemoveMoney
giveitem ITEM_LAVA_COOKIE
goto_if_eq VAR_RESULT, FALSE, MtChimney_EventScript_BagIsFull
hidemoneybox
release
end
MtChimney_EventScript_BagIsFull::
msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT
hidemoneybox
release
end
MtChimney_EventScript_RemoveMoney::
removemoney 200
updatemoneybox
return
MtChimney_EventScript_DeclineLavaCookie::
msgbox MtChimney_Text_OhFineThen, MSGBOX_DEFAULT
hidemoneybox
release
end
MtChimney_EventScript_NotEnoughMoney::
msgbox MtChimney_Text_YouveNotGotTheMoney, MSGBOX_DEFAULT
hidemoneybox
release
end
MtChimney_Movement_ArchieApproachPlayerEast:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
walk_right
step_end
MtChimney_Movement_ArchieExitEast:
walk_left
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_ArchieApproachPlayerNorth:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_right
walk_right
step_end
MtChimney_Movement_ArchieExitNorth:
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused1:
walk_down
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
step_end
MtChimney_Movement_Unused2:
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_down
step_end
MtChimney_Movement_Unused3:
walk_right
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused4:
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_fast_down
walk_left
walk_left
walk_down
walk_down
walk_down
walk_left
walk_left
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
step_end
MtChimney_Movement_Unused5:
delay_16
delay_16
delay_16
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_down
step_end
MtChimney_Movement_Unused6:
delay_16
walk_left
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused7:
delay_16
walk_left
walk_left
walk_down
walk_down
walk_down
walk_left
walk_left
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
step_end
MtChimney_Movement_Unused8:
delay_16
walk_down
walk_left
walk_left
walk_left
walk_left
walk_in_place_faster_down
step_end
MtChimney_Movement_Unused9:
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused10:
walk_down
step_end
MtChimney_Movement_Unused11:
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused12:
delay_16
delay_16
walk_in_place_faster_left
delay_16
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
MtChimney_Movement_Unused13:
delay_16
delay_16
delay_16
delay_16
delay_16
delay_16
walk_in_place_faster_left
delay_16
walk_down
walk_down
step_end
MtChimney_Movement_Unused14:
lock_facing_direction
walk_fast_left
unlock_facing_direction
face_right
step_end
MtChimney_Movement_Unused15:
walk_left
walk_in_place_faster_right
delay_16
step_end
MtChimney_EventScript_BusyAquaGrunt1::
msgbox MtChimney_Text_MagmaOutnumbersUs, MSGBOX_SIGN
end
MtChimney_EventScript_BusyAquaGrunt2::
msgbox MtChimney_Text_LessHabitatForWaterPokemon, MSGBOX_SIGN
end
MtChimney_EventScript_BusyAquaGrunt3::
msgbox MtChimney_Text_MagmasNameSimilar, MSGBOX_SIGN
end
MtChimney_EventScript_Tabitha::
trainerbattle_single TRAINER_TABITHA_MT_CHIMNEY, MtChimney_Text_TabithaIntro, MtChimney_Text_TabithaDefeat
msgbox MtChimney_Text_TabithaPostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Grunt2::
trainerbattle_single TRAINER_GRUNT_MT_CHIMNEY_2, MtChimney_Text_Grunt2Intro, MtChimney_Text_Grunt2Defeat
msgbox MtChimney_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_BusyMagmaGrunt1::
msgbox MtChimney_Text_TeamAquaAlwaysMessingWithPlans, MSGBOX_SIGN
end
MtChimney_EventScript_BusyMagmaGrunt2::
msgbox MtChimney_Text_MeteoritesPackAmazingPower, MSGBOX_SIGN
end
MtChimney_EventScript_BusyMagmaGrunt3::
msgbox MtChimney_Text_YouBetterNotMessWithUs, MSGBOX_SIGN
end
MtChimney_EventScript_BusyMagmaGrunt4::
msgbox MtChimney_Text_AquasNameSimilar, MSGBOX_SIGN
end
MtChimney_EventScript_BusyMagmaGrunt5::
msgbox MtChimney_Text_DouseThemInFire, MSGBOX_SIGN
end
MtChimney_EventScript_BusyMagmaGrunt6::
msgbox MtChimney_Text_KeepMakingMoreLand, MSGBOX_SIGN
end
MtChimney_EventScript_MagmaPoochyena::
msgbox MtChimney_Text_Bufoh, MSGBOX_SIGN
end
MtChimney_EventScript_AquaPoochyena::
msgbox MtChimney_Text_Bushaa, MSGBOX_SIGN
end
MtChimney_EventScript_MeteoriteMachine::
lockall
goto_if_unset FLAG_DEFEATED_EVIL_TEAM_MT_CHIMNEY, MtChimney_EventScript_MachineOn
goto_if_set FLAG_RECEIVED_METEORITE, MtChimney_EventScript_MachineOff
msgbox MtChimney_Text_RemoveTheMeteorite, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MtChimney_EventScript_LeaveMeteoriteAlone
msgbox MtChimney_Text_PlayerRemovedMeteorite, MSGBOX_DEFAULT
giveitem ITEM_METEORITE
setflag FLAG_RECEIVED_METEORITE
releaseall
end
MtChimney_EventScript_LeaveMeteoriteAlone::
msgbox MtChimney_Text_PlayerLeftMeteorite, MSGBOX_DEFAULT
releaseall
end
MtChimney_EventScript_MachineOff::
msgbox MtChimney_Text_MachineMakesNoResponse, MSGBOX_DEFAULT
releaseall
end
MtChimney_EventScript_MachineOn::
msgbox MtChimney_Text_MetoriteFittedOnMachine, MSGBOX_DEFAULT
releaseall
end
MtChimney_EventScript_RouteSign::
msgbox MtChimney_Text_RouteSign, MSGBOX_SIGN
end
MtChimney_EventScript_Shelby::
trainerbattle_single TRAINER_SHELBY_1, MtChimney_Text_ShelbyIntro, MtChimney_Text_ShelbyDefeat, MtChimney_EventScript_DefeatedShelby
specialvar VAR_RESULT, ShouldTryRematchBattle
goto_if_eq VAR_RESULT, TRUE, MtChimney_EventScript_RematchShelby
msgbox MtChimney_Text_ShelbyPostBattle, MSGBOX_DEFAULT
release
end
MtChimney_EventScript_DefeatedShelby::
special PlayerFaceTrainerAfterBattle
waitmovement 0
msgbox MtChimney_Text_ShelbyRegister, MSGBOX_DEFAULT
register_matchcall TRAINER_SHELBY_1
release
end
MtChimney_EventScript_RematchShelby::
trainerbattle_rematch TRAINER_SHELBY_1, MtChimney_Text_ShelbyRematchIntro, MtChimney_Text_ShelbyRematchDefeat
msgbox MtChimney_Text_ShelbyPostRematch, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Melissa::
trainerbattle_single TRAINER_MELISSA, MtChimney_Text_MelissaIntro, MtChimney_Text_MelissaDefeat
msgbox MtChimney_Text_MelissaPostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Sheila::
trainerbattle_single TRAINER_SHEILA, MtChimney_Text_SheilaIntro, MtChimney_Text_SheilaDefeat
msgbox MtChimney_Text_SheilaPostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Shirley::
trainerbattle_single TRAINER_SHIRLEY, MtChimney_Text_ShirleyIntro, MtChimney_Text_ShirleyDefeat
msgbox MtChimney_Text_ShirleyPostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Grunt1::
trainerbattle_single TRAINER_GRUNT_MT_CHIMNEY_1, MtChimney_Text_Grunt1Intro, MtChimney_Text_Grunt1Defeat
msgbox MtChimney_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
MtChimney_EventScript_Sawyer::
trainerbattle_single TRAINER_SAWYER_1, MtChimney_Text_SawyerIntro, MtChimney_Text_SawyerDefeat, MtChimney_EventScript_SawyerDefeated
specialvar VAR_RESULT, ShouldTryRematchBattle
goto_if_eq VAR_RESULT, TRUE, MtChimney_EventScript_SawyerRematch
msgbox MtChimney_Text_SawyerPostBattle, MSGBOX_DEFAULT
release
end
MtChimney_EventScript_SawyerDefeated::
special PlayerFaceTrainerAfterBattle
waitmovement 0
msgbox MtChimney_Text_SawyerRegister, MSGBOX_DEFAULT
register_matchcall TRAINER_SAWYER_1
release
end
MtChimney_EventScript_SawyerRematch::
trainerbattle_rematch TRAINER_SAWYER_1, MtChimney_Text_SawyerRematchIntro, MtChimney_Text_SawyerRematchDefeat
msgbox MtChimney_Text_SawyerPostRematch, MSGBOX_AUTOCLOSE
end
.ifdef FRENCH
.include "data/maps/MtChimney/text_fr.inc"
.else
.ifdef ITALIAN
.include "data/maps/MtChimney/text_it.inc"
.else
.ifdef SPANISH
.include "data/maps/MtChimney/text_es.inc"
.else
.include "data/maps/MtChimney/text.inc"
.endif
.endif
.endif