mirror of https://github.com/pret/pokecrystal.git
155 lines
3.4 KiB
NASM
155 lines
3.4 KiB
NASM
const_def 2 ; object 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
|
|
buttonsound
|
|
ifgreater 250 - 1, .LovesYouALot
|
|
ifgreater 200 - 1, .ReallyTrustsYou
|
|
ifgreater 150 - 1, .SortOfHappy
|
|
ifgreater 100 - 1, .QuiteCute
|
|
ifgreater 50 - 1, .NotUsedToYou
|
|
jump .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
|