ref: b1c85486283274fbd1dd9072116ab1bb034e7756
dir: /maps/GoldenrodHappinessRater.asm/
object_const_def ; object_event constants const GOLDENRODHAPPINESSRATER_TEACHER const GOLDENRODHAPPINESSRATER_POKEFAN_M const GOLDENRODHAPPINESSRATER_TWIN GoldenrodHappinessRater_MapScripts: db 0 ; scene scripts db 0 ; callbacks GoldenrodHappinessRaterTeacherScript: faceplayer opentext special GetFirstPokemonHappiness writetext GoldenrodHappinessRaterTeacherText promptbutton ifgreater 250 - 1, .LovesYouALot ifgreater 200 - 1, .ReallyTrustsYou ifgreater 150 - 1, .SortOfHappy ifgreater 100 - 1, .QuiteCute ifgreater 50 - 1, .NotUsedToYou sjump .LooksMean .LovesYouALot: writetext GoldenrodHappinessRatingText_LovesYouALot waitbutton closetext end .ReallyTrustsYou: writetext GoldenrodHappinessRatingText_ReallyTrustsYou waitbutton closetext end .SortOfHappy: writetext GoldenrodHappinessRatingText_SortOfHappy waitbutton closetext end .QuiteCute: writetext GoldenrodHappinessRatingText_QuiteCute waitbutton closetext end .NotUsedToYou: writetext GoldenrodHappinessRatingText_NotUsedToYou waitbutton closetext end .LooksMean: writetext GoldenrodHappinessRatingText_LooksMean waitbutton closetext end GoldenrodHappinessRaterPokefanMScript: jumptextfaceplayer GoldenrodHappinessRaterPokefanMText GoldenrodHappinessRaterTwinScript: jumptextfaceplayer GoldenrodHappinessRaterTwinText HappinessRatersHouseBookshelf: jumpstd difficultbookshelf HappinessRatersHouseRadio: jumpstd radio2 GoldenrodHappinessRaterTeacherText: text "If you treat your" line "#MON nicely," para "they will love you" line "in return." para "Oh? Let me see" line "your @" text_ram wStringBuffer3 text "…" done GoldenrodHappinessRatingText_LovesYouALot: text "It looks really" line "happy! It must" cont "love you a lot." done GoldenrodHappinessRatingText_ReallyTrustsYou: text "I get the feeling" line "that it really" cont "trusts you." done GoldenrodHappinessRatingText_SortOfHappy: text "It's friendly to-" line "ward you. It looks" cont "sort of happy." done GoldenrodHappinessRatingText_QuiteCute: text "It's quite cute." done GoldenrodHappinessRatingText_NotUsedToYou: text "You should treat" line "it better. It's" cont "not used to you." done GoldenrodHappinessRatingText_LooksMean: text "It doesn't seem to" line "like you at all." cont "It looks mean." done GoldenrodHappinessRaterPokefanMText: text "I keep losing in" line "battles, and my" para "#MON end up" line "fainting…" para "Maybe that's why" line "my #MON don't" cont "like me much…" done GoldenrodHappinessRaterTwinText: text "When I use an item" line "on my #MON, it" cont "acts really glad!" done GoldenrodHappinessRater_MapEvents: db 0, 0 ; filler db 2 ; warp events warp_event 2, 7, GOLDENROD_CITY, 3 warp_event 3, 7, GOLDENROD_CITY, 3 db 0 ; coord events db 3 ; bg events bg_event 0, 1, BGEVENT_READ, HappinessRatersHouseBookshelf bg_event 1, 1, BGEVENT_READ, HappinessRatersHouseBookshelf bg_event 7, 1, BGEVENT_READ, HappinessRatersHouseRadio db 3 ; object events object_event 2, 4, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTeacherScript, -1 object_event 5, 3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterPokefanMScript, -1 object_event 5, 6, SPRITE_TWIN, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodHappinessRaterTwinScript, -1