GriffinR
111 lines
3.5 KiB
ObjectPascal
111 lines
3.5 KiB
ObjectPascal
Route12_FishingHouse_MapScripts::
|
|
.byte 0
|
|
|
|
Route12_FishingHouse_EventScript_FishingGuruBrother::
|
|
lock
|
|
faceplayer
|
|
goto_if_set FLAG_GOT_SUPER_ROD, Route12_FishingHouse_EventScript_CheckMagikarpRecord
|
|
msgbox Route12_FishingHouse_Text_DoYouLikeToFish, MSGBOX_YESNO
|
|
compare VAR_RESULT, YES
|
|
goto_if_eq Route12_FishingHouse_EventScript_GiveSuperRod
|
|
msgbox Route12_FishingHouse_Text_OhThatsDisappointing
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_GiveSuperRod::
|
|
checkitemspace ITEM_SUPER_ROD
|
|
compare VAR_RESULT, FALSE
|
|
goto_if_eq Route12_FishingHouse_EventScript_NoRoomForSuperRod
|
|
additem ITEM_SUPER_ROD
|
|
msgbox Route12_FishingHouse_Text_TakeThisAndFish
|
|
msgreceiveditem Route12_FishingHouse_Text_ReceivedSuperRod, ITEM_SUPER_ROD
|
|
setflag FLAG_GOT_SUPER_ROD
|
|
msgbox Route12_FishingHouse_Text_IfYouCatchBigMagikarpShowMe
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NoRoomForSuperRod::
|
|
msgbox Route12_FishingHouse_Text_NoRoomForGift
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_CheckMagikarpRecord::
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
special QuestLog_CutRecording
|
|
setvar VAR_0x8004, SPECIES_MAGIKARP
|
|
specialvar VAR_RESULT, DoesPlayerPartyContainSpecies
|
|
compare VAR_RESULT, FALSE
|
|
goto_if_eq Route12_FishingHouse_EventScript_NoMagikarpInParty
|
|
special GetMagikarpSizeRecordInfo
|
|
msgbox Route12_FishingHouse_Text_OhMagikarpAllowMeToSee
|
|
special ChoosePartyMon
|
|
waitstate
|
|
copyvar VAR_RESULT, VAR_0x8004
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_ge Route12_FishingHouse_EventScript_CancelShowMon
|
|
special CompareMagikarpSize
|
|
compare VAR_RESULT, 1
|
|
goto_if_eq Route12_FishingHouse_EventScript_NotMagikarp
|
|
compare VAR_RESULT, 2
|
|
goto_if_eq Route12_FishingHouse_EventScript_NotRecordMagikarp
|
|
compare VAR_RESULT, 3
|
|
goto_if_eq Route12_FishingHouse_EventScript_NewRecordMagikarp
|
|
compare VAR_RESULT, 4
|
|
goto_if_eq Route12_FishingHouse_EventScript_TieRecordMagikarp
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NoMagikarpInParty::
|
|
msgbox Route12_FishingHouse_Text_TryFishingBringMeMagikarp
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_CancelShowMon::
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NotMagikarp::
|
|
msgbox Route12_FishingHouse_Text_DoesntLookLikeMagikarp
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NotRecordMagikarp::
|
|
goto_if_unset FLAG_GOT_RECORD_SETTING_MAGIKARP, Route12_FishingHouse_EventScript_NewRecordMagikarp
|
|
msgbox Route12_FishingHouse_Text_HmmXInchesDoesntMeasureUp
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_TieRecordMagikarp::
|
|
goto_if_unset FLAG_GOT_RECORD_SETTING_MAGIKARP, Route12_FishingHouse_EventScript_NewRecordMagikarp
|
|
msgbox Route12_FishingHouse_Text_HuhXInchesSameSizeAsLast
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NewRecordMagikarp::
|
|
setflag FLAG_GOT_RECORD_SETTING_MAGIKARP
|
|
msgbox Route12_FishingHouse_Text_WhoaXInchesTakeThis
|
|
giveitem ITEM_NET_BALL
|
|
compare VAR_RESULT, FALSE
|
|
goto_if_eq Route12_FishingHouse_EventScript_NoRoomForNetBall
|
|
msgbox Route12_FishingHouse_Text_LookForwardToGreaterRecords
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_NoRoomForNetBall::
|
|
msgbox Route12_FishingHouse_Text_NoRoomForGift
|
|
release
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_MagikarpRecordSign::
|
|
lockall
|
|
goto_if_set FLAG_GOT_RECORD_SETTING_MAGIKARP, Route12_FishingHouse_EventScript_MagikarpRecordSignRecordSet
|
|
msgbox Route12_FishingHouse_Text_BlankChartOfSomeSort
|
|
releaseall
|
|
end
|
|
|
|
Route12_FishingHouse_EventScript_MagikarpRecordSignRecordSet::
|
|
special GetMagikarpSizeRecordInfo
|
|
msgbox Route12_FishingHouse_Text_MostGiganticMagikarpXInches
|
|
releaseall
|
|
end
|