From af5862b9ed2d4e622b2ba6cb2fd4113bdb65ab3e Mon Sep 17 00:00:00 2001
From: Robert Vollmert <rvollmert@gmx.net>
Date: Thu, 12 Nov 2009 11:30:12 +0100
Subject: Add wiz-mode arbitrary radius exclude command.

This is quite a hack: Hitting 'R' on the level map in
wizard mode will silently read a number that specifies
the exclude radius. If you have an idea for making this
nicer, please improve or tell me.
---
 crawl-ref/source/cmd-keys.h |  1 +
 crawl-ref/source/cmd-name.h |  1 +
 crawl-ref/source/enum.h     |  1 +
 crawl-ref/source/viewmap.cc | 11 +++++++++++
 4 files changed, 14 insertions(+)

diff --git a/crawl-ref/source/cmd-keys.h b/crawl-ref/source/cmd-keys.h
index 5294c04ae0..d9610d58d3 100644
--- a/crawl-ref/source/cmd-keys.h
+++ b/crawl-ref/source/cmd-keys.h
@@ -242,6 +242,7 @@
 {CONTROL('W'), CMD_MAP_ADD_WAYPOINT},
 {'e', CMD_MAP_EXCLUDE_AREA},
 {CONTROL('E'), CMD_MAP_CLEAR_EXCLUDES},
+{'R', CMD_MAP_EXCLUDE_RADIUS},
 {'b', CMD_MAP_MOVE_DOWN_LEFT},
 {'h', CMD_MAP_MOVE_LEFT},
 {'j', CMD_MAP_MOVE_DOWN},
diff --git a/crawl-ref/source/cmd-name.h b/crawl-ref/source/cmd-name.h
index 9940b8e548..0d58833c4d 100644
--- a/crawl-ref/source/cmd-name.h
+++ b/crawl-ref/source/cmd-name.h
@@ -114,6 +114,7 @@
 {CMD_MAP_ADD_WAYPOINT, "CMD_MAP_ADD_WAYPOINT"},
 {CMD_MAP_EXCLUDE_AREA, "CMD_MAP_EXCLUDE_AREA"},
 {CMD_MAP_CLEAR_EXCLUDES, "CMD_MAP_CLEAR_EXCLUDES"},
+{CMD_MAP_EXCLUDE_RADIUS, "CMD_MAP_EXCLUDE_RADIUS"},
 {CMD_MAP_MOVE_LEFT, "CMD_MAP_MOVE_LEFT"},
 {CMD_MAP_MOVE_DOWN, "CMD_MAP_MOVE_DOWN"},
 {CMD_MAP_MOVE_UP, "CMD_MAP_MOVE_UP"},
diff --git a/crawl-ref/source/enum.h b/crawl-ref/source/enum.h
index 6408f267ca..193d4887a2 100644
--- a/crawl-ref/source/enum.h
+++ b/crawl-ref/source/enum.h
@@ -579,6 +579,7 @@ enum command_type
     CMD_MAP_ADD_WAYPOINT,
     CMD_MAP_EXCLUDE_AREA,
     CMD_MAP_CLEAR_EXCLUDES,
+    CMD_MAP_EXCLUDE_RADIUS,
 
     CMD_MAP_MOVE_LEFT,
     CMD_MAP_MOVE_DOWN,
diff --git a/crawl-ref/source/viewmap.cc b/crawl-ref/source/viewmap.cc
index 98603fc959..3369147e66 100644
--- a/crawl-ref/source/viewmap.cc
+++ b/crawl-ref/source/viewmap.cc
@@ -741,6 +741,17 @@ void show_map( level_pos &spec_place, bool travel_mode, bool allow_esc )
             _reset_travel_colours(features, on_level);
             break;
 
+#ifdef WIZARD
+        case CMD_MAP_EXCLUDE_RADIUS:
+        {
+            const coord_def p(start_x + curs_x - 1, start_y + curs_y - 1);
+            set_exclude(p, getchm() - '0');
+
+            _reset_travel_colours(features, on_level);
+            break;
+        }
+#endif
+
         case CMD_MAP_MOVE_DOWN_LEFT:
             move_x = -1;
             move_y = 1;
-- 
cgit v1.2.3-54-g00ecf