ref: bb2aba7da172f8ede8c3eb6f3602f62eff4d55be
dir: /maps/WarehouseEntrance.asm/
const_value set 2 const WAREHOUSEENTRANCE_SUPER_NERD1 const WAREHOUSEENTRANCE_SUPER_NERD2 const WAREHOUSEENTRANCE_SUPER_NERD3 const WAREHOUSEENTRANCE_SUPER_NERD4 const WAREHOUSEENTRANCE_POKE_BALL const WAREHOUSEENTRANCE_GRAMPS const WAREHOUSEENTRANCE_SUPER_NERD5 const WAREHOUSEENTRANCE_SUPER_NERD6 const WAREHOUSEENTRANCE_GRANNY WarehouseEntrance_MapScriptHeader: .MapTriggers: db 0 .MapCallbacks: db 3 ; callbacks dbw 5, .ResetSwitches dbw 1, .CheckBasementKey dbw 2, .CheckDayOfWeek .ResetSwitches: clearevent EVENT_SWITCH_1 clearevent EVENT_SWITCH_2 clearevent EVENT_SWITCH_3 clearevent EVENT_EMERGENCY_SWITCH clearevent EVENT_SWITCH_4 clearevent EVENT_SWITCH_5 clearevent EVENT_SWITCH_6 clearevent EVENT_SWITCH_7 clearevent EVENT_SWITCH_8 clearevent EVENT_SWITCH_9 clearevent EVENT_SWITCH_10 clearevent EVENT_SWITCH_11 clearevent EVENT_SWITCH_12 clearevent EVENT_SWITCH_13 clearevent EVENT_SWITCH_14 writebyte $0 copyvartobyte UndergroundSwitchPositions return .CheckBasementKey: checkevent EVENT_USED_BASEMENT_KEY iffalse .LockBasementDoor return .LockBasementDoor: changeblock $12, $6, $3d return .CheckDayOfWeek: checkcode VAR_WEEKDAY if_equal MONDAY, .Monday if_equal TUESDAY, .Tuesday if_equal WEDNESDAY, .Wednesday if_equal THURSDAY, .Thursday if_equal FRIDAY, .Friday if_equal SATURDAY, .Saturday .Sunday: disappear WAREHOUSEENTRANCE_GRAMPS disappear WAREHOUSEENTRANCE_SUPER_NERD5 appear WAREHOUSEENTRANCE_SUPER_NERD6 appear WAREHOUSEENTRANCE_GRANNY return .Monday: disappear WAREHOUSEENTRANCE_GRAMPS checkmorn iffalse .NotMondayMorning appear WAREHOUSEENTRANCE_GRAMPS .NotMondayMorning: disappear WAREHOUSEENTRANCE_SUPER_NERD5 disappear WAREHOUSEENTRANCE_SUPER_NERD6 disappear WAREHOUSEENTRANCE_GRANNY return .Tuesday: disappear WAREHOUSEENTRANCE_GRAMPS appear WAREHOUSEENTRANCE_SUPER_NERD5 disappear WAREHOUSEENTRANCE_SUPER_NERD6 disappear WAREHOUSEENTRANCE_GRANNY return .Wednesday: disappear WAREHOUSEENTRANCE_GRAMPS disappear WAREHOUSEENTRANCE_SUPER_NERD5 appear WAREHOUSEENTRANCE_SUPER_NERD6 disappear WAREHOUSEENTRANCE_GRANNY return .Thursday: disappear WAREHOUSEENTRANCE_GRAMPS appear WAREHOUSEENTRANCE_SUPER_NERD5 disappear WAREHOUSEENTRANCE_SUPER_NERD6 disappear WAREHOUSEENTRANCE_GRANNY return .Friday: disappear WAREHOUSEENTRANCE_GRAMPS disappear WAREHOUSEENTRANCE_SUPER_NERD5 appear WAREHOUSEENTRANCE_SUPER_NERD6 disappear WAREHOUSEENTRANCE_GRANNY return .Saturday: disappear WAREHOUSEENTRANCE_GRAMPS appear WAREHOUSEENTRANCE_SUPER_NERD5 disappear WAREHOUSEENTRANCE_SUPER_NERD6 appear WAREHOUSEENTRANCE_GRANNY return TrainerSupernerdEric: trainer EVENT_BEAT_SUPER_NERD_ERIC, SUPER_NERD, ERIC, SupernerdEricSeenText, SupernerdEricBeatenText, 0, SupernerdEricScript SupernerdEricScript: end_if_just_battled opentext writetext UnknownText_0x7c36c waitbutton closetext end TrainerSupernerdTeru: trainer EVENT_BEAT_SUPER_NERD_TERU, SUPER_NERD, TERU, SupernerdTeruSeenText, SupernerdTeruBeatenText, 0, SupernerdTeruScript SupernerdTeruScript: end_if_just_battled opentext writetext UnknownText_0x7c410 waitbutton closetext end TrainerPokemaniacIssac: trainer EVENT_BEAT_POKEMANIAC_ISSAC, POKEMANIAC, ISSAC, PokemaniacIssacSeenText, PokemaniacIssacBeatenText, 0, PokemaniacIssacScript PokemaniacIssacScript: end_if_just_battled opentext writetext UnknownText_0x7c498 waitbutton closetext end TrainerPokemaniacDonald: trainer EVENT_BEAT_POKEMANIAC_DONALD, POKEMANIAC, DONALD, PokemaniacDonaldSeenText, PokemaniacDonaldBeatenText, 0, PokemaniacDonaldScript PokemaniacDonaldScript: end_if_just_battled opentext writetext UnknownText_0x7c52f waitbutton closetext end GrannyScript_0x7c132: opentext checkcode VAR_WEEKDAY if_equal SUNDAY, .Open if_equal SATURDAY, .Open jump WarehouseEntranceScript_ShopClosed .Open: pokemart MARTTYPE_BITTER, MART_UNDERGROUND closetext end GrampsScript_0x7c146: opentext checkflag ENGINE_GOLDENROD_UNDERGROUND_MERCHANT_CLOSED iftrue WarehouseEntranceScript_ShopClosed checkcode VAR_WEEKDAY if_equal MONDAY, .CheckMorn jump WarehouseEntranceScript_ShopClosed .CheckMorn: checkmorn iffalse WarehouseEntranceScript_ShopClosed pokemart MARTTYPE_BARGAIN, 0 closetext end OlderHaircutBrotherScript: opentext checkcode VAR_WEEKDAY if_equal TUESDAY, .DoHaircut if_equal THURSDAY, .DoHaircut if_equal SATURDAY, .DoHaircut jump WarehouseEntranceScript_ShopClosed .DoHaircut: checkflag ENGINE_GOLDENROD_UNDERGROUND_GOT_HAIRCUT iftrue .AlreadyGotHaircut special PlaceMoneyTopRightOW writetext UnknownText_0x7c5f9 yesorno iffalse .Refused checkmoney $0, 500 if_equal $2, .NotEnoughMoney writetext UnknownText_0x7c69a buttonsound special Special_YoungerHaircutBrother if_equal $0, .Refused if_equal $1, .Refused setflag ENGINE_GOLDENROD_UNDERGROUND_GOT_HAIRCUT if_equal $2, .two if_equal $3, .three jump .else .two: setevent EVENT_GAVE_KURT_APRICORNS clearevent EVENT_RECEIVED_BALLS_FROM_KURT clearevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .three: clearevent EVENT_GAVE_KURT_APRICORNS setevent EVENT_RECEIVED_BALLS_FROM_KURT clearevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .else: clearevent EVENT_GAVE_KURT_APRICORNS clearevent EVENT_RECEIVED_BALLS_FROM_KURT setevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .then: takemoney $0, 500 special PlaceMoneyTopRightOW writetext UnknownText_0x7c6b8 waitbutton closetext special FadeOutPalettes playmusic MUSIC_HEAL pause 60 special FadeInPalettes special RestartMapMusic opentext writetext UnknownText_0x7c6d8 waitbutton checkevent EVENT_GAVE_KURT_APRICORNS iftrue UnknownScript_0x7c2bb checkevent EVENT_RECEIVED_BALLS_FROM_KURT iftrue UnknownScript_0x7c2c4 jump UnknownScript_0x7c2cd .Refused: writetext UnknownText_0x7c6ea waitbutton closetext end .NotEnoughMoney: writetext UnknownText_0x7c709 waitbutton closetext end .AlreadyGotHaircut: writetext UnknownText_0x7c72b waitbutton closetext end YoungerHaircutBrotherScript: opentext checkcode VAR_WEEKDAY if_equal SUNDAY, .DoHaircut if_equal WEDNESDAY, .DoHaircut if_equal FRIDAY, .DoHaircut jump WarehouseEntranceScript_ShopClosed .DoHaircut: checkflag ENGINE_GOLDENROD_UNDERGROUND_GOT_HAIRCUT iftrue .AlreadyGotHaircut special PlaceMoneyTopRightOW writetext UnknownText_0x7c75c yesorno iffalse .Refused checkmoney $0, 300 if_equal $2, .NotEnoughMoney writetext UnknownText_0x7c7f1 buttonsound special Special_OlderHaircutBrother if_equal $0, .Refused if_equal $1, .Refused setflag ENGINE_GOLDENROD_UNDERGROUND_GOT_HAIRCUT if_equal $2, .two if_equal $3, .three jump .else .two: setevent EVENT_GAVE_KURT_APRICORNS clearevent EVENT_RECEIVED_BALLS_FROM_KURT clearevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .three: clearevent EVENT_GAVE_KURT_APRICORNS setevent EVENT_RECEIVED_BALLS_FROM_KURT clearevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .else: clearevent EVENT_GAVE_KURT_APRICORNS clearevent EVENT_RECEIVED_BALLS_FROM_KURT setevent EVENT_DRAGON_SHRINE_QUESTION_2 jump .then .then: takemoney $0, 300 special PlaceMoneyTopRightOW writetext UnknownText_0x7c80e waitbutton closetext special FadeOutPalettes playmusic MUSIC_HEAL pause 60 special FadeInPalettes special RestartMapMusic opentext writetext UnknownText_0x7c82a waitbutton checkevent EVENT_GAVE_KURT_APRICORNS iftrue UnknownScript_0x7c2bb checkevent EVENT_RECEIVED_BALLS_FROM_KURT iftrue UnknownScript_0x7c2c4 jump UnknownScript_0x7c2cd .Refused: writetext UnknownText_0x7c842 waitbutton closetext end .NotEnoughMoney: writetext UnknownText_0x7c85b waitbutton closetext end .AlreadyGotHaircut: writetext UnknownText_0x7c87b waitbutton closetext end UnknownScript_0x7c2bb: writetext HaircutBrosText_SlightlyHappier special PlayCurMonCry waitbutton closetext end UnknownScript_0x7c2c4: writetext HaircutBrosText_Happier special PlayCurMonCry waitbutton closetext end UnknownScript_0x7c2cd: writetext HaircutBrosText_MuchHappier special PlayCurMonCry waitbutton closetext end BasementDoorScript:: opentext checkevent EVENT_USED_BASEMENT_KEY iftrue .Open checkitem BASEMENT_KEY iftrue .Unlock writetext UnknownText_0x7c5b0 waitbutton closetext end .Unlock: playsound SFX_TRANSACTION writetext UnknownText_0x7c5d6 waitbutton closetext changeblock $12, $6, $2e reloadmappart closetext setevent EVENT_USED_BASEMENT_KEY end .Open: writetext UnknownText_0x7c5c3 waitbutton closetext end WarehouseEntranceScript_ShopClosed: writetext UnknownText_0x7c904 waitbutton closetext end WarehouseEntranceCoinCase: itemball COIN_CASE MapWarehouseEntranceSignpost1Script: jumptext UnknownText_0x7c91a MapWarehouseEntranceSignpostItem2: dwb EVENT_WAREHOUSE_ENTRANCE_HIDDEN_PARLYZ_HEAL, PARLYZ_HEAL MapWarehouseEntranceSignpostItem3: dwb EVENT_WAREHOUSE_ENTRANCE_HIDDEN_SUPER_POTION, SUPER_POTION MapWarehouseEntranceSignpostItem4: dwb EVENT_WAREHOUSE_ENTRANCE_HIDDEN_ANTIDOTE, ANTIDOTE SupernerdEricSeenText: text "I got booted out" line "of the GAME COR-" cont "NER." para "I was trying to" line "cheat using my" cont "#MON…" done SupernerdEricBeatenText: text "…Grumble…" done UnknownText_0x7c36c: text "I guess I have to" line "do things fair and" cont "square…" done SupernerdTeruSeenText: text "Do you consider" line "type alignments in" cont "battle?" para "If you know your" line "type advantages," para "you'll do better" line "in battle." done SupernerdTeruBeatenText: text "Ow, ow, ow!" done UnknownText_0x7c410: text "I know my #MON" line "type alignments." para "But I only use one" line "type of #MON." done PokemaniacIssacSeenText: text "My #MON just" line "got a haircut!" para "I'll show you how" line "strong it is!" done PokemaniacIssacBeatenText: text "Aiyeeee!" done UnknownText_0x7c498: text "Your #MON will" line "like you more if" para "you give them" line "haircuts." done PokemaniacDonaldSeenText: text "I think you have" line "some rare #MON" cont "with you." para "Let me see them!" done PokemaniacDonaldBeatenText: text "Gaah! I lost!" line "That makes me mad!" done UnknownText_0x7c52f: text "Are you making a" line "#DEX? Here's a" cont "hot tip." para "The HIKER on ROUTE" line "33, ANTHONY, is a" cont "good guy." para "He'll phone you if" line "he sees any rare" cont "#MON." done UnknownText_0x7c5b0: text "The door's locked…" done UnknownText_0x7c5c3: text "The door is open." done UnknownText_0x7c5d6: text "The BASEMENT KEY" line "opened the door." done UnknownText_0x7c5f9: text "Welcome!" para "I run the #MON" line "SALON!" para "I'm the older and" line "better of the two" cont "HAIRCUT BROTHERS." para "I can make your" line "#MON beautiful" cont "for just ¥500." para "Would you like me" line "to do that?" done UnknownText_0x7c69a: text "Which #MON" line "should I work on?" done UnknownText_0x7c6b8: text "OK! Watch it" line "become beautiful!" done UnknownText_0x7c6d8: text "There! All done!" done UnknownText_0x7c6ea: text "Is that right?" line "That's a shame!" done UnknownText_0x7c709: text "You'll need more" line "money than that." done UnknownText_0x7c72b: text "I do only one" line "haircut a day. I'm" cont "done for today." done UnknownText_0x7c75c: text "Welcome to the" line "#MON SALON!" para "I'm the younger" line "and less expen-" cont "sive of the two" cont "HAIRCUT BROTHERS." para "I'll spiff up your" line "#MON for just" cont "¥300." para "So? How about it?" done UnknownText_0x7c7f1: text "OK, which #MON" line "should I do?" done UnknownText_0x7c80e: text "OK! I'll make it" line "look cool!" done UnknownText_0x7c82a: text "There we go!" line "All done!" done UnknownText_0x7c842: text "No? " line "How disappointing!" done UnknownText_0x7c85b: text "You're a little" line "short on funds." done UnknownText_0x7c87b: text "I can do only one" line "haircut a day." para "Sorry, but I'm all" line "done for today." done HaircutBrosText_SlightlyHappier: text_from_ram StringBuffer3 text " looks a" line "little happier." done HaircutBrosText_Happier: text_from_ram StringBuffer3 text " looks" line "happy." done HaircutBrosText_MuchHappier: text_from_ram StringBuffer3 text " looks" line "delighted!" done UnknownText_0x7c904: text "We're not open" line "today." done UnknownText_0x7c91a: text "NO ENTRY BEYOND" line "THIS POINT" done WarehouseEntrance_MapEventHeader: ; filler db 0, 0 .Warps: db 6 warp_def $2, $3, 7, UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES warp_def $22, $3, 4, UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES warp_def $6, $12, 4, WAREHOUSE_ENTRANCE warp_def $1f, $15, 3, WAREHOUSE_ENTRANCE warp_def $1f, $16, 3, WAREHOUSE_ENTRANCE warp_def $1b, $16, 1, UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES .XYTriggers: db 0 .Signposts: db 5 signpost 6, 18, SIGNPOST_READ, BasementDoorScript signpost 6, 19, SIGNPOST_READ, MapWarehouseEntranceSignpost1Script signpost 13, 6, SIGNPOST_ITEM, MapWarehouseEntranceSignpostItem2 signpost 18, 4, SIGNPOST_ITEM, MapWarehouseEntranceSignpostItem3 signpost 8, 17, SIGNPOST_ITEM, MapWarehouseEntranceSignpostItem4 .PersonEvents: db 9 person_event SPRITE_SUPER_NERD, 31, 5, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_TRAINER, 3, TrainerSupernerdEric, -1 person_event SPRITE_SUPER_NERD, 9, 6, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_TRAINER, 2, TrainerSupernerdTeru, -1 person_event SPRITE_SUPER_NERD, 27, 3, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_TRAINER, 2, TrainerPokemaniacIssac, -1 person_event SPRITE_SUPER_NERD, 6, 2, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_TRAINER, 3, TrainerPokemaniacDonald, -1 person_event SPRITE_POKE_BALL, 25, 7, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, PERSONTYPE_ITEMBALL, 0, WarehouseEntranceCoinCase, EVENT_WAREHOUSE_ENTRANCE_COIN_CASE person_event SPRITE_GRAMPS, 11, 7, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, GrampsScript_0x7c146, EVENT_WAREHOUSE_ENTRANCE_GRAMPS person_event SPRITE_SUPER_NERD, 14, 7, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, OlderHaircutBrotherScript, EVENT_WAREHOUSE_ENTRANCE_OLDER_HAIRCUT_BROTHER person_event SPRITE_SUPER_NERD, 15, 7, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, YoungerHaircutBrotherScript, EVENT_WAREHOUSE_ENTRANCE_YOUNGER_HAIRCUT_BROTHER person_event SPRITE_GRANNY, 21, 7, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, GrannyScript_0x7c132, EVENT_WAREHOUSE_ENTRANCE_GRANNY