mirror of
https://github.com/thornAvery/jep-hack.git
synced 2026-02-06 16:15:24 +13:00
Honey Pot & Grandma
Ported from Pokemon October.8114fead911a6f3e4f03d00cd6fafdAlterations have been made in that the treemonset has been diversified a bit further, having Munchlax like in DPP. They're L60, intended to be used in Nihon. I haven't placed the grandma in the region yet, intending for her to be in Old City.
This commit is contained in:
Llinos Evans
parent
02233c5429
commit
bcfafaaf83
21 changed files with 331 additions and 303 deletions
|
|
@ -3,5 +3,5 @@
|
|||
|
||||
!
|
||||
E
|
||||
E@AABHJ~IIIEF|}ABEJ~EF@AAB
|
||||
E@AABHJ~IIIEF|}ABEJ~EF@AAB
|
||||
DBIIIIJDFTnUDFX5YHIIIJ|}~EEE
|
||||
|
|
@ -198,292 +198,127 @@ DebugTextE:
|
|||
line "many items!"
|
||||
done
|
||||
|
||||
DebugFossilScientist:
|
||||
; Honey Tree script (to be put in Old City)
|
||||
HoneyGrannyScript:
|
||||
faceplayer
|
||||
|
||||
opentext
|
||||
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove the next two lines to immediately receive the fossil
|
||||
iftrue .GaveScientistFossil
|
||||
checkevent EVENT_GAVE_SCIENTIST_OLD_AMBER
|
||||
iftrue .GiveDecilla
|
||||
checkevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
|
||||
iftrue .GiveKabuto
|
||||
checkevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
|
||||
iftrue .GiveOmanyte
|
||||
checkevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
|
||||
iftrue .GiveXylodon
|
||||
checkevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
|
||||
iftrue .GiveFeradactyl
|
||||
writetext FossilScientistIntroText
|
||||
waitbutton
|
||||
loadmenu .MoveMenuHeader
|
||||
verticalmenu
|
||||
closewindow
|
||||
ifequal REVIVE_OLD_AMBER, .OldAmber
|
||||
ifequal REVIVE_DOME_FOSSIL, .DomeFossil
|
||||
ifequal REVIVE_HELIX_FOSSIL, .HelixFossil
|
||||
ifequal REVIVE_CLUB_FOSSIL, .ClubFossil
|
||||
ifequal REVIVE_WING_FOSSIL, .WingFossil
|
||||
sjump .No
|
||||
writetext .IntroText
|
||||
|
||||
.OldAmber
|
||||
checkitem OLD_AMBER
|
||||
iffalse .No
|
||||
getmonname STRING_BUFFER_3, DECILLA
|
||||
writetext FossilScientistMonText
|
||||
promptbutton
|
||||
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
|
||||
setevent EVENT_GAVE_SCIENTIST_OLD_AMBER
|
||||
takeitem OLD_AMBER
|
||||
writetext FossilScientistGiveText
|
||||
waitbutton
|
||||
sjump .GaveScientistFossil
|
||||
checkitem HONEY_POT
|
||||
iffalse .no_pot
|
||||
|
||||
.DomeFossil:
|
||||
checkitem DOME_FOSSIL
|
||||
iffalse .No
|
||||
getmonname STRING_BUFFER_3, KABUTO
|
||||
writetext FossilScientistMonText
|
||||
promptbutton
|
||||
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
|
||||
setevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
|
||||
takeitem DOME_FOSSIL
|
||||
opentext
|
||||
writetext FossilScientistGiveText
|
||||
checkflag ENGINE_SWEET_HONEY
|
||||
iftrue .just_given
|
||||
|
||||
special CheckSweetHoneyTimer
|
||||
ifequal 1, .waited_a_day
|
||||
ifequal 2, .just_used
|
||||
|
||||
writetext .UsedHoneyText
|
||||
.give_honey
|
||||
setflag ENGINE_SWEET_HONEY
|
||||
waitbutton
|
||||
sjump .GaveScientistFossil
|
||||
|
||||
.HelixFossil:
|
||||
checkitem HELIX_FOSSIL
|
||||
iffalse .No
|
||||
getmonname STRING_BUFFER_3, OMANYTE
|
||||
writetext FossilScientistMonText
|
||||
promptbutton
|
||||
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
|
||||
setevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
|
||||
takeitem HELIX_FOSSIL
|
||||
writetext FossilScientistGiveText
|
||||
writetext .ReceivedSweetHoneyText
|
||||
playsound SFX_ITEM
|
||||
pause 60
|
||||
waitbutton
|
||||
sjump .GaveScientistFossil
|
||||
|
||||
.ClubFossil:
|
||||
checkitem HELIX_FOSSIL
|
||||
iffalse .No
|
||||
getmonname STRING_BUFFER_3, XYLODON
|
||||
writetext FossilScientistMonText
|
||||
promptbutton
|
||||
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
|
||||
setevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
|
||||
takeitem HELIX_FOSSIL
|
||||
writetext FossilScientistGiveText
|
||||
|
||||
writetext .TryUsingText
|
||||
waitbutton
|
||||
sjump .GaveScientistFossil
|
||||
|
||||
closetext
|
||||
end
|
||||
|
||||
.WingFossil:
|
||||
checkitem HELIX_FOSSIL
|
||||
iffalse .No
|
||||
getmonname STRING_BUFFER_3, FERADACTYL
|
||||
writetext FossilScientistMonText
|
||||
promptbutton
|
||||
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
|
||||
setevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
|
||||
takeitem HELIX_FOSSIL
|
||||
writetext FossilScientistGiveText
|
||||
waitbutton
|
||||
sjump .GaveScientistFossil
|
||||
|
||||
.No
|
||||
writetext FossilScientistNoText
|
||||
.just_used
|
||||
writetext .DidYouPutText
|
||||
waitbutton
|
||||
closetext
|
||||
end
|
||||
|
||||
.GaveScientistFossil:
|
||||
writetext FossilScientistTimeText
|
||||
.no_pot
|
||||
writetext .NoPotText
|
||||
waitbutton
|
||||
closetext
|
||||
; older versions will use FadeBlackQuickly below instead
|
||||
; special FadeOutToBlack ; uncomment the next five lines to immediately receive the fossil
|
||||
; special ReloadSpritesNoPalettes
|
||||
; playsound SFX_WARP_TO
|
||||
; waitsfx
|
||||
; pause 35
|
||||
end ; replace this with "sjump FossilScientist" to immediately receive the fossil
|
||||
verbosegiveitem HONEY_POT
|
||||
writetext .AfterPotGivenText
|
||||
sjump .give_honey
|
||||
|
||||
.GiveDecilla:
|
||||
readvar VAR_PARTYCOUNT
|
||||
ifequal PARTY_LENGTH, .NoRoom
|
||||
clearevent EVENT_GAVE_SCIENTIST_OLD_AMBER
|
||||
writetext FossilScientistDoneText
|
||||
promptbutton
|
||||
getmonname STRING_BUFFER_3, DECILLA
|
||||
writetext FossilScientistReceiveText
|
||||
playsound SFX_CAUGHT_MON
|
||||
waitsfx
|
||||
waitbutton
|
||||
writetext FossilScientistMonText
|
||||
givepoke DECILLA, 30
|
||||
closetext
|
||||
end
|
||||
|
||||
.GiveKabuto:
|
||||
readvar VAR_PARTYCOUNT
|
||||
ifequal PARTY_LENGTH, .NoRoom
|
||||
clearevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
|
||||
writetext FossilScientistDoneText
|
||||
promptbutton
|
||||
getmonname STRING_BUFFER_3, KABUTO
|
||||
writetext FossilScientistReceiveText
|
||||
playsound SFX_CAUGHT_MON
|
||||
waitsfx
|
||||
waitbutton
|
||||
writetext FossilScientistMonText
|
||||
givepoke KABUTO, 30
|
||||
closetext
|
||||
end
|
||||
|
||||
.GiveOmanyte:
|
||||
readvar VAR_PARTYCOUNT
|
||||
ifequal PARTY_LENGTH, .NoRoom
|
||||
clearevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
|
||||
writetext FossilScientistDoneText
|
||||
promptbutton
|
||||
getmonname STRING_BUFFER_3, OMANYTE
|
||||
writetext FossilScientistReceiveText
|
||||
playsound SFX_CAUGHT_MON
|
||||
waitsfx
|
||||
waitbutton
|
||||
writetext FossilScientistMonText
|
||||
givepoke OMANYTE, 30
|
||||
closetext
|
||||
end
|
||||
|
||||
.GiveXylodon:
|
||||
readvar VAR_PARTYCOUNT
|
||||
ifequal PARTY_LENGTH, .NoRoom
|
||||
clearevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
|
||||
writetext FossilScientistDoneText
|
||||
promptbutton
|
||||
getmonname STRING_BUFFER_3, XYLODON
|
||||
writetext FossilScientistReceiveText
|
||||
playsound SFX_CAUGHT_MON
|
||||
waitsfx
|
||||
waitbutton
|
||||
writetext FossilScientistMonText
|
||||
givepoke XYLODON, 30
|
||||
closetext
|
||||
end
|
||||
|
||||
.GiveFeradactyl:
|
||||
readvar VAR_PARTYCOUNT
|
||||
ifequal PARTY_LENGTH, .NoRoom
|
||||
clearevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
|
||||
writetext FossilScientistDoneText
|
||||
promptbutton
|
||||
getmonname STRING_BUFFER_3, FERADACTYL
|
||||
writetext FossilScientistReceiveText
|
||||
playsound SFX_CAUGHT_MON
|
||||
waitsfx
|
||||
waitbutton
|
||||
writetext FossilScientistMonText
|
||||
givepoke FERADACTYL, 30
|
||||
closetext
|
||||
end
|
||||
|
||||
.NoRoom:
|
||||
writetext FossilScientistPartyFullText
|
||||
.just_given
|
||||
writetext .TryUsingText
|
||||
waitbutton
|
||||
closetext
|
||||
end
|
||||
|
||||
.MoveMenuHeader:
|
||||
db MENU_BACKUP_TILES ; flags
|
||||
menu_coords 0, 0, 15, TEXTBOX_Y + 1
|
||||
dw .MenuData
|
||||
db 1 ; default option
|
||||
.waited_a_day
|
||||
writetext .DidYouPutText2
|
||||
waitbutton
|
||||
closetext
|
||||
end
|
||||
|
||||
.MenuData:
|
||||
db STATICMENU_CURSOR ; flags
|
||||
db 6 ; items
|
||||
db "OLD AMBER@"
|
||||
db "DOME FOSSIL@"
|
||||
db "HELIX FOSSIL@"
|
||||
db "CLUB FOSSIL@"
|
||||
db "WING FOSSIL@"
|
||||
db "CANCEL@"
|
||||
|
||||
FossilScientistIntroText:
|
||||
text "Hiya!"
|
||||
|
||||
para "I am important"
|
||||
line "doctor!"
|
||||
|
||||
para "I study here rare"
|
||||
line "#MON fossils!"
|
||||
|
||||
para "You! Have you a"
|
||||
line "fossil for me?"
|
||||
.IntroText:
|
||||
text "Hello, hello!"
|
||||
line "I'm the HONEY"
|
||||
cont "GRANDMA!"
|
||||
done
|
||||
|
||||
FossilScientistNoText:
|
||||
text "No! Is too bad!"
|
||||
|
||||
para "You come again!"
|
||||
.UsedHoneyText:
|
||||
text "I see you have a"
|
||||
line "HONEY POT with"
|
||||
para "you. You can use"
|
||||
line "it to collect"
|
||||
cont "SWEET HONEY."
|
||||
para "I know! I'll share"
|
||||
line "some with you."
|
||||
done
|
||||
|
||||
FossilScientistPartyFullText:
|
||||
text "No! Is too bad!"
|
||||
|
||||
para "Your party is"
|
||||
line "already full!"
|
||||
done
|
||||
|
||||
FossilScientistTimeText:
|
||||
text "I take a little"
|
||||
line "time!"
|
||||
|
||||
para "You go for walk a"
|
||||
line "little while!"
|
||||
done
|
||||
|
||||
FossilScientistDoneText:
|
||||
text "Where were you?"
|
||||
|
||||
para "Your fossil is"
|
||||
line "back to life!"
|
||||
done
|
||||
|
||||
FossilScientistMonText:
|
||||
text "Oh! That is"
|
||||
line "a fossil!"
|
||||
|
||||
para "It is fossil of"
|
||||
line "@"
|
||||
text_ram wStringBuffer3
|
||||
text ", a"
|
||||
|
||||
|
||||
para "#MON that is"
|
||||
line "already extinct!"
|
||||
|
||||
para "My Resurrection"
|
||||
line "Machine will make"
|
||||
cont "that #MON live"
|
||||
cont "again!"
|
||||
done
|
||||
|
||||
FossilScientistGiveText:
|
||||
text "So! You hurry and"
|
||||
line "give me that!"
|
||||
|
||||
para "<PLAYER> handed"
|
||||
line "over the fossil."
|
||||
done
|
||||
|
||||
FossilScientistReceiveText:
|
||||
.ReceivedSweetHoneyText:
|
||||
text "<PLAYER> received"
|
||||
line "@"
|
||||
text_ram wStringBuffer3
|
||||
text "!"
|
||||
line "SWEET HONEY."
|
||||
done
|
||||
|
||||
.DidYouPutText:
|
||||
text "Did you put SWEET"
|
||||
line "HONEY on a tree?"
|
||||
|
||||
para "It takes about a"
|
||||
line "day for #MON to"
|
||||
cont "be drawn to it."
|
||||
done
|
||||
|
||||
.NoPotText:
|
||||
text "You don't have a"
|
||||
line "HONEY POT?"
|
||||
|
||||
para "Not to worry!"
|
||||
line "I've got just the"
|
||||
cont "thing for you."
|
||||
done
|
||||
|
||||
.AfterPotGivenText:
|
||||
text "A HONEY POT can"
|
||||
line "store SWEET HONEY."
|
||||
para "You can use it to"
|
||||
line "attract rare wild"
|
||||
cont "#MON."
|
||||
|
||||
para "In fact, I'll give"
|
||||
line "you some to try"
|
||||
cont "it out!"
|
||||
done
|
||||
|
||||
.TryUsingText:
|
||||
text "Try spreading some"
|
||||
line "HONEY on a tree!"
|
||||
done
|
||||
|
||||
.DidYouPutText2:
|
||||
text "Did you put SWEET"
|
||||
line "HONEY on a tree?"
|
||||
|
||||
para "What happened to"
|
||||
line "it?"
|
||||
done
|
||||
|
||||
DebugRoom_MapEvents:
|
||||
|
|
@ -516,4 +351,4 @@ DebugRoom_MapEvents:
|
|||
object_event 17, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugFlyScript, -1
|
||||
object_event 16, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugDexScript, -1
|
||||
object_event 19, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugItemScript, -1
|
||||
object_event 18, 13, SPRITE_NURSE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, DebugFossilScientist, -1
|
||||
object_event 18, 13, SPRITE_NURSE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, HoneyGrannyScript, -1
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue