4000  FOR MM = 1 TO 10: IF MZ%(MM,0) = 0 THEN 4999
4010 RA =  SQR ((PX - ML%(MM,0)) ^ 2 + (PY - ML%(MM,1)) ^ 2)
4011  IF MZ%(MM,1) < IN * LP THEN 4030
4020  IF RA < 1.3 THEN 4500
4025  IF MM = 8 AND RA < 3 THEN 4999
4030 X1 =  SGN (PX - ML%(MM,0)):Y1 =  SGN (PY - ML%(MM,1))
4031  IF MZ%(MM,1) < IN * LP THEN X1 =  - X1:Y1 =  - Y1
4035  IF Y1 = 0 THEN 4045
4040 D = DNG%(ML%(MM,0),(ML%(MM,1) + Y1 + .5)): IF D = 1 OR D > 9 OR D =
    2 THEN 4045
4042 X1 = 0: GOTO 4050
4045 Y1 = 0: IF X1 = 0 THEN 4050
4046 D = DN%((ML%(MM,0) + X1 + .5),ML%(MM,1)): IF D = 1 OR D > 9 OR D =
    2 THEN X1 = 0: GOTO 4081
4050 DNG%(ML%(MM,0),ML%(MM,1)) = DNG%(ML%(MM,0),ML%(MM,1)) - 10 * MM
4055  IF ML%(MM,0) + X1 = PX AND ML%(MM,1) + Y1 = PY THEN 4999
4060 ML%(MM,0) = ML%(MM,0) + X1:ML%(MM,1) = ML%(MM,1) + Y1
4080 DNG%(ML%(MM,0),ML%(MM,1)) = (DNG%(ML%(MM,0),ML%(MM,1)) + 10 * MM +
    .5)
4081  IF X1 <  > 0 OR Y1 <  > 0 THEN 4999
4082  IF MZ%(MM,1) < IN * LP AND RA < 1.3 THEN 4500
4083  IF MZ%(MM,1) < IN * LP THEN MZ%(MM,1) = MZ%(MM,1) + MM + IN
4499  GOTO 4999
4500  IF MM = 2 OR MM = 7 THEN 4600
4509  PRINT "YOU ARE BEING ATTACKED": PRINT "BY A ";M$(MM)
4510  IF  RND (1) * 20 -  SGN (PW(3)) - C(3) + MM + IN < 0 THEN  PRINT "
    MISSED": GOTO 4525
4520  PRINT "HIT":C(0) = C(0) -  INT ( RND (1) * MM + IN)
4525  IF PA = 1 THEN  PRINT "-CR- TO CONT. ";: INPUT Q$
4530  GOTO 4999
4600  IF  RND (1) < .5 THEN 4509
4610  IF MM = 7 THEN PW(0) =  INT (PW(0) / 2): PRINT "A GREMLIN STOLE SO
    ME FOOD": GOTO 4525
4620 ZZ =  INT ( RND (1) * 6): IF PW(ZZ) < 1 THEN 4620
4630  PRINT "A THIEF STOLE A ";W$(ZZ):PW(ZZ) = PW(ZZ) - 1: GOTO 4525
4999  NEXT : RETURN

' Handle each possible monster on level - there could be one of each.
sub MonsterHandle
 local n%
 for n% = 1 to 10
   if mz%(n,0) then MonsterAction(n%,ML%(MM,0),ML%(MM,0))
 next n
end sub

' Let monster n, located at mx,my, do it's thing.
' Weak monsters will try to run away, unless cornered.
' Distant strong monsters will try to move closer to the player.
' A monster up close to (beside) the player will attack.
' A thief or a gremlin might steal something instead of attacking.
' Mimics won't move closer if near (within 3 of) the player - sneaky critters!
' note: mx & my are passed by reference so that changes are returned
sub MonsterAction(n,mx as integer,my as integer)
 local integer dx,dy
 local float ra
 ra = sqr((px - mx) ^ 2 + (py - my) ^ 2)  ' distance to player
 dx = sgn(px - mx)   ' direction toward player
 dy = sgn(py - my)   '    -1/0/1 for x and y axes
 
 if mz%(n,1) < dngLevel*skill then  ' all weak monsters try to run away
   dx = -dx  ' change direction to
   dy = -dy  '    away from player
   MonsterMove(n,mx,my,dx,dy)
 elseif ra < 1.3 then  ' attack if beside player
   MonsterAttack(n)
 elseif n = 8 and ra < 3 then
   exit sub  ' strong mimic doesn't move closer if within 3
 else  ' far away from player so try to move closer
   MonsterMove(n,mx,my,dx,dy)
 endif
end sub

' Monster n at mx,my will try to move in direction dy, then try dx.
' A weak monster, if unable to move away, will attack if close - ie cornered
' note: mx & my are passed by reference so that changes are returned
sub MonsterMove(n,mx as integer,my as integer,dx,dy)
 local integer d
 if dy <> 0 then '4045 ' no y-move so check for x-move
   d = dng%(mx,(my + dy + .5))   ' What's in the y direction?
   if d = 1 or d = 2 or d > 9 then
     dy = 0  ' can't move that way because wall, trap or another monster is there
   else
     dx = 0  ' : goto 4050   ' perform a y-move only
   endif
 endif
 
 if dx <> 0 then '4045 ' no y-move so check for x-move
   d = dng%((mx + dx + .5),my)   ' What's in the x direction?
   if d = 1 or d = 2 or d > 9 then
     dx = 0  ' can't move that way because wall, trap or another monster is there
   endif
 endif

 if dx = 0 and dy = 0 then ' monster couldn't move
   if mz%(n,1) < dngLevel*skill then   ' weak monster couldn't run
     if ra < 1.3 then  ' desparation attack if beside player
       MonsterAttack(n)
     else
       mz%(n,1) = mz%(n,1) + n + dngLevel   ' heal monster
     endif
   endif
 else  ' movin, movin, movin, let's get that monster movin
   if mx + dx = px and my + dy = py then exit sub  ' should never be true
   dng%(mx,my) = dng%(mx,my) - 10 * n '  erase monster at old location
   mx = mx + dx:my = my + dy   ' passed by reference, must propagate back
   dng%(mx,my) = (dng%(mx,my) + 10 * n + .5)  ' replace monster at new
 endif
end sub

' Monster attacks!
' Unless it's a thief or gremlin, in which case there is
' a 50% chance it will steal something instead
sub MonsterAttack(n)
 local integer t
 if n = 2 and rand(1) < .5 then ' yes, it's stealin thief time
   do
     t = int(rand(1) * 6)
   while pw(t) < 1    ' find something to steal
   print "A thief stole a ";w$(t)
   pw(t) = pw(t) - 1
   if pa = 1 then print "-CR- to cont. ";: input q$   ' pause mode
   exit sub
 endif
     
 if n = 7 and rand(1) < .5 then  ' yes, it's food stealin gremlin time
   print "A gremlin stole some food"
   pw(0) = int(pw(0) / 2)
   if pa = 1 then print "-CR- to cont. ";: input q$   ' pause mode
   exit sub
 endif

 print "You are being attacked by a ";m$(n)
 if rand(1) * 20 - sgn(pw(3)) - c(3) + n + dngLevel < 0 then
   print "Missed"
 else
   print "Hit!"
   c(0) = c(0) - int(rand(1) * n + dngLevel)
 endif
 if pa = 1 then print "-CR- to cont. ";: input q$   ' pause mode
end sub