cnl_mb.programs["drain"][1] = function()

  local minGap  = 250
  local minHpNd = 250

  local r       = m.room_roomId

  local ma      = m.pc_ma
  local maMax   = m.pc_maMax
  local maGoal  = (maMax * 3) - minGap
  local hp      = m.pc_hp
  local hpMax   = m.pc_hpMax

  local paths   = {
    --"n sneak;drain ven;",
    "s sneak;drain ven;",
    "e sneak;rn;drain ven;",
    "e sneak;rs;drain ven;",
    "e sneak;drain ven;",
  }



  if false then
  --------------------------------------
  elseif r == 74040 then
    cnl_mb.doAction("retreat n")
  elseif r == 74041 then
    cnl_mb.doAction("retreat s")
  elseif r == 74042 then
    cnl_mb.doAction("retreat w")
  elseif r == 74043 then
    cnl_mb.doAction("retreat n")
  elseif r == 74044 then
    cnl_mb.doAction("retreat s")
  --------------------------------------
  elseif ma >= maGoal or cnl_mb.cfg.attempts <= 0 then
    cnl_mb.loadProgram(cnl_mb.cfg.caller)
  --------------------------------------
  elseif ma >= 62 and hp < hpMax - minHpNd then
    cnl_mb.doAction("cast 'restor'")
  elseif ma >= 35 and hp > hpMax - minHpNd then
    local eqset = "mana"
    if ma < 1000 then eqset = "spl" end
    cnl_mb.doAction("wr "..eqset..";"..u.rndTxt(paths))
    cecho("<yellow>--- [ "..cnl_mb.cfg.attempts.." ] ---<reset>")
    cnl_mb.cfg.attempts = cnl_mb.cfg.attempts -1

  else
    cnl_mb.wait(0.1)
  end

end