Pokeruby | Force an Egg to Hatch

ForcedHatch::
    faceplayer
    special SelectMonForNPCTrade
    waitstate
    compare VAR_SPECIAL_4, 255
    goto_if_eq ForcedHatchEnd
    specialvar RESULT, ScriptGetPartyMonSpecies
    compare RESULT, SPECIES_EGG
    goto_if_ne CantForceHatch
    special EggHatch
    waitstate
    goto ForcedHatchEnd
ForcedHatchEnd:
    lock
    msgbox ForceHatch_Text_End, 4
    release
    end
CantForceHatch:
    lock
    msgbox ForceHatch_Text_NotAnEgg
    release
    end

ForceHatch_Text_End:
    .string "Come back anytime.$"

ForceHatch_Text_NotAnEgg:
    .string "I'm sorry, but that's not an EGG.$"