/* Too many quirks presently if hero and steed
 * are swallowed. Pretend purple worms don’t
 * like horses for now :-)
 */

Source: Direct link to the source code
Software: interhack
Programming language: C++