ref: 5693cc49cfe6db05890c6f5fa8fbe460048f02c2
dir: /maps/MahoganyTown.asm/
const_def 2 ; object constants const MAHOGANYTOWN_POKEFAN_M const MAHOGANYTOWN_GRAMPS const MAHOGANYTOWN_FISHER const MAHOGANYTOWN_LASS MahoganyTown_MapScripts: db 2 ; scene scripts scene_script .DummyScene0 ; SCENE_DEFAULT scene_script .DummyScene1 ; SCENE_FINISHED db 1 ; callbacks callback MAPCALLBACK_NEWMAP, .FlyPoint .DummyScene0: end .DummyScene1: end .FlyPoint: setflag ENGINE_FLYPOINT_MAHOGANY return MahoganyTownTryARageCandyBarScript: showemote EMOTE_SHOCK, MAHOGANYTOWN_POKEFAN_M, 15 applymovement MAHOGANYTOWN_POKEFAN_M, MovementData_0x1900a9 follow PLAYER, MAHOGANYTOWN_POKEFAN_M applymovement PLAYER, MovementData_0x1900a7 stopfollow turnobject PLAYER, RIGHT scall RageCandyBarMerchantScript applymovement MAHOGANYTOWN_POKEFAN_M, MovementData_0x1900ad end MahoganyTownPokefanMScript: faceplayer RageCandyBarMerchantScript: checkevent EVENT_CLEARED_ROCKET_HIDEOUT iftrue .ClearedRocketHideout scall .SellRageCandyBars end .ClearedRocketHideout: opentext writetext RageCandyBarMerchantText_SoldOut waitbutton closetext end .SellRageCandyBars: opentext writetext RageCandyBarMerchantText_TryOne special PlaceMoneyTopRight yesorno iffalse .Refused checkmoney YOUR_MONEY, 300 ifequal HAVE_LESS, .NotEnoughMoney giveitem RAGECANDYBAR iffalse .NoRoom waitsfx playsound SFX_TRANSACTION takemoney YOUR_MONEY, 300 special PlaceMoneyTopRight writetext RageCandyBarMerchantText_SavorIt waitbutton closetext end .NotEnoughMoney: writetext RageCandyBarMerchantText_NotEnoughMoney waitbutton closetext end .Refused: writetext RageCandyBarMerchantText_Refused waitbutton closetext end .NoRoom: writetext UnknownText_0x190188 waitbutton closetext end MahoganyTownGrampsScript: faceplayer opentext checkevent EVENT_CLEARED_ROCKET_HIDEOUT iftrue .ClearedRocketHideout writetext MahoganyTownGrampsText waitbutton closetext end .ClearedRocketHideout: writetext MahoganyTownGrampsText_ClearedRocketHideout waitbutton closetext end MahoganyTownFisherScript: jumptextfaceplayer MahoganyTownFisherText MahoganyTownLassScript: jumptextfaceplayer MahoganyTownLassText MahoganyTownSign: jumptext MahoganyTownSignText MahoganyTownRagecandybarSign: jumptext MahoganyTownRagecandybarSignText MahoganyGymSign: jumptext MahoganyGymSignText MahoganyTownPokecenterSign: jumpstd pokecentersign MovementData_0x1900a4: step DOWN big_step UP turn_head DOWN MovementData_0x1900a7: step LEFT step_end MovementData_0x1900a9: step RIGHT step DOWN turn_head LEFT step_end MovementData_0x1900ad: step UP turn_head DOWN step_end RageCandyBarMerchantText_TryOne: text "Hiya, kid!" para "I see you're new" line "in MAHOGANY TOWN." para "Since you're new," line "you should try a" para "yummy RAGECANDY-" line "BAR!" para "Right now, it can" line "be yours for just" cont "¥300! Want one?" done RageCandyBarMerchantText_SavorIt: text "Good! Savor it!" done RageCandyBarMerchantText_NotEnoughMoney: text "You don't have" line "enough money." done RageCandyBarMerchantText_Refused: text "Oh, fine then…" done UnknownText_0x190188: text "You don't have" line "room for this." done RageCandyBarMerchantText_SoldOut: text "RAGECANDYBAR's" line "sold out." para "I'm packing up." line "Don't bother me," cont "kiddo." done MahoganyTownGrampsText: text "Are you off to see" line "the GYARADOS ram-" cont "page at the LAKE?" done MahoganyTownGrampsText_ClearedRocketHideout: text "MAGIKARP have" line "returned to LAKE" cont "OF RAGE." para "That should be" line "good news for the" cont "anglers there." done MahoganyTownFisherText: text "Since you came" line "this far, take the" para "time to do some" line "sightseeing." para "You should head" line "north and check" para "out LAKE OF RAGE" line "right now." done MahoganyTownLassText: text "Visit Grandma's" line "shop. She sells" para "stuff that nobody" line "else has." done MahoganyTownSignText: text "MAHOGANY TOWN" para "Welcome to the" line "Home of the Ninja" done MahoganyTownRagecandybarSignText: text "While visiting" line "MAHOGANY TOWN, try" cont "a RAGECANDYBAR!" done MahoganyGymSignText: text "MAHOGANY TOWN" line "#MON GYM" cont "LEADER: PRYCE" para "The Teacher of" line "Winter's Harshness" done MahoganyTown_MapEvents: db 0, 0 ; filler db 5 ; warp events warp_event 11, 7, MAHOGANY_MART_1F, 1 warp_event 17, 7, MAHOGANY_RED_GYARADOS_SPEECH_HOUSE, 1 warp_event 6, 13, MAHOGANY_GYM, 1 warp_event 15, 13, MAHOGANY_POKECENTER_1F, 1 warp_event 9, 1, ROUTE_43_MAHOGANY_GATE, 3 db 2 ; coord events coord_event 19, 8, SCENE_DEFAULT, MahoganyTownTryARageCandyBarScript coord_event 19, 9, SCENE_DEFAULT, MahoganyTownTryARageCandyBarScript db 4 ; bg events bg_event 1, 5, BGEVENT_READ, MahoganyTownSign bg_event 9, 7, BGEVENT_READ, MahoganyTownRagecandybarSign bg_event 3, 13, BGEVENT_READ, MahoganyGymSign bg_event 16, 13, BGEVENT_READ, MahoganyTownPokecenterSign db 4 ; object events object_event 19, 8, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahoganyTownPokefanMScript, EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST object_event 6, 9, SPRITE_GRAMPS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahoganyTownGrampsScript, -1 object_event 6, 14, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, MahoganyTownFisherScript, EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_GYM object_event 12, 8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MahoganyTownLassScript, EVENT_MAHOGANY_MART_OWNERS