SHARE
TWEET

Pokeruby | Force an Egg to Hatch

Lunos Jun 17th, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ForcedHatch::
  2.     faceplayer
  3.     special SelectMonForNPCTrade
  4.     waitstate
  5.     compare VAR_SPECIAL_4, 255
  6.     goto_if_eq ForcedHatchEnd
  7.     specialvar RESULT, ScriptGetPartyMonSpecies
  8.     compare RESULT, SPECIES_EGG
  9.     goto_if_ne CantForceHatch
  10.     special EggHatch
  11.     waitstate
  12.     goto ForcedHatchEnd
  13. ForcedHatchEnd:
  14.     lock
  15.     msgbox ForceHatch_Text_End, 4
  16.     release
  17.     end
  18. CantForceHatch:
  19.     lock
  20.     msgbox ForceHatch_Text_NotAnEgg
  21.     release
  22.     end
  23.  
  24. ForceHatch_Text_End:
  25.     .string "Come back anytime.$"
  26.  
  27. ForceHatch_Text_NotAnEgg:
  28.     .string "I'm sorry, but that's not an EGG.$"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top