teleporting monster strategy

Reported last spring and again last week:  monsters who teleport to
your location (named demons, master liches, and so forth) continue to do
that even if they've just used a scroll or wand of teleportation to get
away from you.  This doesn't prevent that situation but does make it be
much less likely to occur.

doc/fixes34.1

@@ -393,6 +393,8 @@ character inflicted with lycanthropy is vulnerable to Werebane when in
 shopkeeper could get angry without remembering the customer name
 any object held by ghost during recorporealization would cease to exist
 	including the Amulet of Yendor
+harassing monsters will be less likely to teleport to your location while
+	they're running away from you
 
 
 Platform- and/or Interface-Specific Fixes

src/wizard.c

@@ -1,4 +1,4 @@
-/*	SCCS Id: @(#)wizard.c	3.4	2002/04/09	*/
+/*	SCCS Id: @(#)wizard.c	3.4	2003/02/18	*/
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /* NetHack may be freely redistributed.  See license for details. */
 
@@ -325,7 +325,7 @@ tactics(mtmp)
 		/* fall through :-) */
 
 	    case STRAT_NONE:	/* harrass */
-	        if(!rn2(5)) mnexto(mtmp);
+		if (!rn2(!mtmp->mflee ? 5 : 33)) mnexto(mtmp);
 		return(0);
 
 	    default:		/* kill, maim, pillage! */