mirror of https://github.com/pret/pokecrystal.git
225 lines
4.3 KiB
NASM
225 lines
4.3 KiB
NASM
object_const_def ; object_event constants
|
|
const LAKEOFRAGEMAGIKARPHOUSE_FISHING_GURU
|
|
|
|
LakeOfRageMagikarpHouse_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 0 ; callbacks
|
|
|
|
MagikarpLengthRaterScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
|
|
iftrue .GetReward
|
|
checkevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
|
|
iftrue .AskedForMagikarp
|
|
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
|
|
iftrue .ClearedRocketHideout
|
|
checkevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
|
|
iftrue .ExplainedHistory
|
|
writetext MagikarpLengthRaterText_LakeOfRageHistory
|
|
waitbutton
|
|
closetext
|
|
setevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
|
|
end
|
|
|
|
.ExplainedHistory:
|
|
writetext MagikarpLengthRaterText_MenInBlack
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.ClearedRocketHideout:
|
|
writetext MagikarpLengthRaterText_WorldsLargestMagikarp
|
|
waitbutton
|
|
closetext
|
|
setevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
|
|
end
|
|
|
|
.AskedForMagikarp:
|
|
setval MAGIKARP
|
|
special FindPartyMonThatSpecies
|
|
iffalse .ClearedRocketHideout
|
|
writetext MagikarpLengthRaterText_YouHaveAMagikarp
|
|
waitbutton
|
|
special CheckMagikarpLength
|
|
ifequal MAGIKARPLENGTH_NOT_MAGIKARP, .NotMagikarp
|
|
ifequal MAGIKARPLENGTH_REFUSED, .Refused
|
|
ifequal MAGIKARPLENGTH_TOO_SHORT, .TooShort
|
|
; MAGIKARPLENGTH_BEAT_RECORD
|
|
sjump .GetReward
|
|
|
|
.GetReward:
|
|
writetext MagikarpLengthRaterText_Memento
|
|
promptbutton
|
|
verbosegiveitem ELIXER
|
|
iffalse .NoRoom
|
|
writetext MagikarpLengthRaterText_Bonus
|
|
waitbutton
|
|
closetext
|
|
clearevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
|
|
end
|
|
|
|
.NoRoom:
|
|
closetext
|
|
setevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
|
|
end
|
|
|
|
.TooShort:
|
|
writetext MagikarpLengthRaterText_TooShort
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.NotMagikarp:
|
|
writetext MagikarpLengthRaterText_NotMagikarp
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.Refused:
|
|
writetext MagikarpLengthRaterText_Refused
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
LakeOfRageMagikarpHouseUnusedRecordSign:
|
|
; unused
|
|
jumptext LakeOfRageMagikarpHouseUnusedRecordText
|
|
|
|
MagikarpHouseBookshelf:
|
|
jumpstd DifficultBookshelfScript
|
|
|
|
MagikarpLengthRaterText_LakeOfRageHistory:
|
|
text "LAKE OF RAGE is"
|
|
line "actually a crater"
|
|
|
|
para "made by rampaging"
|
|
line "GYARADOS."
|
|
|
|
para "The crater filled"
|
|
line "up with rainwater"
|
|
|
|
para "and the LAKE was"
|
|
line "formed."
|
|
|
|
para "That's the story"
|
|
line "passed on from my"
|
|
|
|
para "Grandpa's great-"
|
|
line "great-grandpa."
|
|
|
|
para "It used to be that"
|
|
line "you could catch"
|
|
|
|
para "lively MAGIKARP"
|
|
line "there, but…"
|
|
|
|
para "I don't understand"
|
|
line "what's happening."
|
|
done
|
|
|
|
MagikarpLengthRaterText_MenInBlack:
|
|
text "The LAKE hasn't"
|
|
line "been normal since"
|
|
|
|
para "those men wearing"
|
|
line "black arrived."
|
|
done
|
|
|
|
MagikarpLengthRaterText_WorldsLargestMagikarp:
|
|
text "LAKE OF RAGE is"
|
|
line "back to normal."
|
|
|
|
para "The MAGIKARP have"
|
|
line "returned."
|
|
|
|
para "I may yet realize"
|
|
line "my dream of see-"
|
|
cont "ing the world's"
|
|
cont "largest MAGIKARP."
|
|
|
|
para "Do you have a ROD?"
|
|
line "Please help me if"
|
|
cont "you do."
|
|
done
|
|
|
|
MagikarpLengthRaterText_YouHaveAMagikarp:
|
|
text "Ah, you have a"
|
|
line "MAGIKARP! Let's"
|
|
|
|
para "see how big that"
|
|
line "baby is."
|
|
done
|
|
|
|
MagikarpLengthRaterText_Memento:
|
|
text "Wow! This one is"
|
|
line "outstanding!"
|
|
|
|
para "I tip my hat to"
|
|
line "you!"
|
|
|
|
para "Take this as a"
|
|
line "memento!"
|
|
done
|
|
|
|
MagikarpLengthRaterText_Bonus:
|
|
text "The record is the"
|
|
line "important thing."
|
|
|
|
para "Think of that as"
|
|
line "a bonus!"
|
|
done
|
|
|
|
MagikarpLengthRaterText_TooShort:
|
|
text "Wow! This one is"
|
|
line "outstanding!"
|
|
|
|
para "…I wish I could"
|
|
line "say that, but I've"
|
|
|
|
para "seen a bigger one"
|
|
line "before."
|
|
done
|
|
|
|
MagikarpLengthRaterText_NotMagikarp:
|
|
text "What? That's not a"
|
|
line "MAGIKARP!"
|
|
done
|
|
|
|
MagikarpLengthRaterText_Refused:
|
|
text "Oh… So you didn't"
|
|
line "get one good"
|
|
|
|
para "enough to show me?"
|
|
line "Maybe next time."
|
|
done
|
|
|
|
LakeOfRageMagikarpHouseUnusedRecordText:
|
|
text "CURRENT RECORD"
|
|
|
|
para "@"
|
|
text_ram wStringBuffer3
|
|
text " caught by"
|
|
line "@"
|
|
text_ram wStringBuffer4
|
|
text_end
|
|
|
|
text_end ; unused
|
|
|
|
LakeOfRageMagikarpHouse_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 2, 7, LAKE_OF_RAGE, 2
|
|
warp_event 3, 7, LAKE_OF_RAGE, 2
|
|
|
|
db 0 ; coord events
|
|
|
|
db 2 ; bg events
|
|
bg_event 0, 1, BGEVENT_READ, MagikarpHouseBookshelf
|
|
bg_event 1, 1, BGEVENT_READ, MagikarpHouseBookshelf
|
|
|
|
db 1 ; object events
|
|
object_event 2, 3, SPRITE_FISHING_GURU, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MagikarpLengthRaterScript, -1
|