1 files changed, 0 insertions, 86 deletions
diff --git a/src/dungeon.cc b/src/dungeon.cc
index 7fd5e7e9..9f3c137f 100644
--- a/src/dungeon.cc
+++ b/src/dungeon.cc
@@ -1468,92 +1468,6 @@ static void process_world(void)
 		if (magik(20)) select_bounties();
 	}
 
-	/* Modify loan */
-	if (p_ptr->loan)
-	{
-		if (p_ptr->loan_time) p_ptr->loan_time--;
-
-		if (((turn % 5000) == 0) && !p_ptr->loan_time)
-		{
-			cmsg_print(TERM_RED, "You should pay your loan...");
-
-			p_ptr->loan += p_ptr->loan / 12;
-
-			if (p_ptr->loan > PY_MAX_GOLD) p_ptr->loan = PY_MAX_GOLD;
-
-			/* Do a nasty stuff */
-			if (p_ptr->wild_mode && rand_int(2))
-			{
-				/* Discount player items */
-				int z = 0, tries = 200;
-				object_type *o_ptr = NULL;
-
-				while (tries--)
-				{
-					z = rand_int(INVEN_TOTAL);
-					o_ptr = &p_ptr->inventory[z];
-
-					if (!o_ptr->k_idx) continue;
-
-					if (o_ptr->discount >= 100) continue;
-
-					break;
-				}
-
-				if (tries)
-				{
-					o_ptr->discount += 70;
-					if (o_ptr->discount >= 100) o_ptr->discount = 100;
-
-					inven_item_optimize(z);
-					inven_item_describe(z);
-
-					p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
-				}
-			}
-
-			else
-			{
-				int merc = test_monster_name("Mean-looking mercenary");
-				int agent = test_monster_name("Agent of the black market");
-				int num = 5 + (p_ptr->lev / 3), z;
-
-				for (z = 0; z < num; z++)
-				{
-					int yy, xx, attempts = 200, m_idx;
-
-					/* Summon */
-					while (1)
-					{
-						scatter(&yy, &xx, p_ptr->py, p_ptr->px, 6);
-
-						/* Accept an empty grid within the boundary */
-						if (in_bounds(yy, xx) && cave_floor_bold(yy, xx)) break;
-
-						/* Max number of retries reached */
-						if (--attempts == 0) break;
-					}
-
-					/* All the attempts failed */
-					if (attempts == 0) continue;
-
-					/* Summon a monster */
-					m_idx = place_monster_one(yy, xx, magik(80) ? merc : agent,
-					                          0, FALSE, MSTATUS_ENEMY);
-
-					/* Level it */
-					if (m_idx)
-					{
-						monster_type *m_ptr = &m_list[m_idx];
-
-						m_ptr->exp = monster_exp(p_ptr->lev * 2);
-						monster_check_experience(m_idx, TRUE);
-					}
-				}
-			}
-		}
-	}
-
 	/*** Process the monsters ***/
 
 	/* Check for creature generation. */