ref: b1c85486283274fbd1dd9072116ab1bb034e7756
dir: /maps/WillsRoom.asm/
object_const_def ; object_event constants const WILLSROOM_WILL WillsRoom_MapScripts: db 2 ; scene scripts scene_script .LockDoor ; SCENE_DEFAULT scene_script .DummyScene ; SCENE_FINISHED db 1 ; callbacks callback MAPCALLBACK_TILES, .WillsRoomDoors .LockDoor: prioritysjump .WillsDoorLocksBehindYou end .DummyScene: end .WillsRoomDoors: checkevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED iffalse .KeepEntranceOpen changeblock 4, 14, $2a ; wall .KeepEntranceOpen: checkevent EVENT_WILLS_ROOM_EXIT_OPEN iffalse .KeepExitClosed changeblock 4, 2, $16 ; open door .KeepExitClosed: return .WillsDoorLocksBehindYou: applymovement PLAYER, WillsRoom_EnterMovement refreshscreen $86 playsound SFX_STRENGTH earthquake 80 changeblock 4, 14, $2a ; wall reloadmappart closetext setscene SCENE_FINISHED setevent EVENT_WILLS_ROOM_ENTRANCE_CLOSED waitsfx end WillScript_Battle: faceplayer opentext checkevent EVENT_BEAT_ELITE_4_WILL iftrue WillScript_AfterBattle writetext WillScript_WillBeforeText waitbutton closetext winlosstext WillScript_WillBeatenText, 0 loadtrainer WILL, WILL1 startbattle reloadmapafterbattle setevent EVENT_BEAT_ELITE_4_WILL opentext writetext WillScript_WillDefeatText waitbutton closetext playsound SFX_ENTER_DOOR changeblock 4, 2, $16 ; open door reloadmappart closetext setevent EVENT_WILLS_ROOM_EXIT_OPEN waitsfx end WillScript_AfterBattle: writetext WillScript_WillDefeatText waitbutton closetext end WillsRoom_EnterMovement: step UP step UP step UP step UP step_end WillScript_WillBeforeText: text "Welcome to #MON" line "LEAGUE, <PLAYER>." para "Allow me to intro-" line "duce myself. I am" cont "WILL." para "I have trained all" line "around the world," para "making my psychic" line "#MON powerful." para "And, at last, I've" line "been accepted into" cont "the ELITE FOUR." para "I can only keep" line "getting better!" para "Losing is not an" line "option!" done WillScript_WillBeatenText: text "I… I can't…" line "believe it…" done WillScript_WillDefeatText: text "Even though I was" line "defeated, I won't" cont "change my course." para "I will continue" line "battling until I" para "stand above all" line "trainers!" para "Now, <PLAYER>, move" line "on and experience" para "the true ferocity" line "of the ELITE FOUR." done WillsRoom_MapEvents: db 0, 0 ; filler db 3 ; warp events warp_event 5, 17, INDIGO_PLATEAU_POKECENTER_1F, 4 warp_event 4, 2, KOGAS_ROOM, 1 warp_event 5, 2, KOGAS_ROOM, 2 db 0 ; coord events db 0 ; bg events db 1 ; object events object_event 5, 7, SPRITE_WILL, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, WillScript_Battle, -1