beastFrogDead :: PrimMonad m => AITransition m BeastFrogState
beastFrogDead = runAIControlMonad $ leaveCorpse BeastFrogCorpse "frog"
beastFrogDead :: PrimMonad m => AITransition m BeastFrogState
beastFrogDead = runAIControlMonad $ leaveCorpse BeastFrogCorpse "frog"
beastFrogDead = runAIControlMonad $ leaveCorpse BeastFrogCorpse "frog"