From 358ff8c3d4537d845a4a2b4ce127b376068c53ac Mon Sep 17 00:00:00 2001
From: aardwolf-lunk <aardwolftomnine@gmail.com>
Date: Sat, 18 Mar 2017 16:35:23 +0000
Subject: [PATCH] Create WinkleWinkle_Mapper_Extender_2.xml

---
 WinkleWinkle_Mapper_Extender_2.xml | 1816 ++++++++++++++++++++++++++++
 1 file changed, 1816 insertions(+)
 create mode 100644 WinkleWinkle_Mapper_Extender_2.xml

diff --git a/WinkleWinkle_Mapper_Extender_2.xml b/WinkleWinkle_Mapper_Extender_2.xml
new file mode 100644
index 0000000..f1d0346
--- /dev/null
+++ b/WinkleWinkle_Mapper_Extender_2.xml
@@ -0,0 +1,1816 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE muclient>
+<muclient>
+<plugin
+   name="WinkleWinkle_Mapper_Extender_2_8"
+   author="WinkleWinkle"
+   id="b6eae87ccedd84f510b74715"
+   language="Lua"
+   purpose="Extends mapper functionality"
+   date_written="2010-09-01 16:37:14"
+   requires="4.76"
+   version="2.8"
+   save_state="y"
+   >
+
+<description trim="n">
+<![CDATA[
+
+MAPPER EXTENDER USAGE:
+
+===== SHOW THIS HELP =============>
+>    extender help
+        - shows only this help
+>    ww help
+        - all winklewinkle(tm) plugins show help
+
+===== RUNNING ====================>
+>   xrunto [areaname]
+        - Runs you via mapper goto/walkto to the first room you discovered in that area
+		
+>   xrt [areaname]
+        - Same as "xrunto"
+
+>   xset mark
+        - Sets the current room you are in to be the "first" room of that area	
+
+>   xset speed
+        - Toggles the use of mapper goto/walkto for all movement commands
+		
+>   xset speed <walk|run>
+        - changes the use of mapper goto/walkto for all movement commands
+
+>   xmapper move <roomid>		
+        - uses set movement speed to move to the specified room id
+
+>   xmapper move <roomid> <walk|run>
+        - uses a temporary movement speed to move to the specified room id
+		
+===== SEARCHING ==================>
+>   xm [roomname]	
+        - Lists and numbers rooms that match the [roomname] exactly, and then partial matches in the current area
+		
+>   xmall [roomname]
+        - Lists and numbers rooms that match the [roomname] exactly, and then partial matches in all areas
+		
+===== ROOMS ======================>
+>   go [index]
+        - Will run you with mapper goto/walkto to the first room in a numbered room list
+		
+>   go
+        - The same as typing "go 1"
+		
+>   nx
+        - Will run you to the next numbered room, "go" then "nx" would be the same as typing "go 1" then "go 2"
+		
+===== CAMPAIGNS ==================>
+>   xcp	
+        - Lists all active campaign mobs in a numbered list (see xcp [index])
+		
+>   xcp [index]
+        - Area CP runs you to the area of that CP item and does a Quick-Where on your mob. Type "go [index]" after this to go to the first known room found (if any)
+        - Room CP lists all known rooms that exactly match your CP room name. Type "go [index]" to run to the right room (if any).
+
+===== NOTES ======================>
+>   roomnote
+        - Lists all mapper notes for the current room (if any).
+		
+>   roomnote area
+        - Lists all mapper notes for the current area (if any). Useful for mazes
+
+===== SETTINGS ======================>
+>   xset pk
+        - Toggles the display of PK flag in room searches
+
+>   xset vidblain
+        - Toggles a hack that will allow you to speedwalk to vidblain areas if you do not have a portal to use
+		
+>	xset reset gui
+		- Will reset the X, Y and Z position of the Extender GUI
+
+===== TO CREATE A CEXIT / MAP A PORTAL ==========>
+
+http://code.google.com/p/aardwolf-scriptalicious/wiki/MapperHelp
+		
+]]>
+</description>
+
+</plugin>
+
+<!--  Timers  -->
+
+<timers>
+
+	<timer
+		name="tim_init_plugin"
+		script="init_plugin"
+		enabled="y"
+		second="1">
+	</timer>
+	
+	<timer
+		name="execute_in_area_timer"
+		script="execute_in_area_tick"
+		enabled="n"
+		second="0.25">
+	</timer>
+
+</timers>
+
+<!--  finding aliases -->
+
+<aliases>
+
+	<!-- debug -->
+
+	<alias
+		name="ali_toggle_debug"
+		match="^ext debug$"
+		regexp="y"
+		enabled="y"
+		sequence="100"
+		script="ext_debug"
+	>
+	</alias>
+
+	<alias match="^(?:ww|extender) help$"
+		enabled="y"
+		sequence="100"
+		send_to="12"
+		regexp="y"
+		keep_evaluating="y"		
+	>
+	<send>
+		ColourNote("MediumSeaGreen", "", GetPluginInfo (GetPluginID (), 3))
+	</send>
+	</alias>
+
+	<!-- Settings -->
+	
+	<alias
+		name="ali_set_pk"
+		match="^xset pk$"
+		regexp="y"
+		enabled="y"
+		sequence="100"
+		script="xset_pk"
+	>
+	</alias>
+
+	<alias match="^xset mark$"
+		enabled="y"
+		sequence="100"
+		script="xset_to_mark"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^xset vidblain$"
+		enabled="y"
+		sequence="99"
+		script="set_check_vidblain"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^xru?n?to? (.+)$"
+		enabled="y"
+		sequence="100"
+		script="xrun_to"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^xm(?:\ {(?<mob>[^\}]+)\})? (?<loc>.+)$"
+		enabled="y"
+		sequence="100"
+		script="map_area"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^xmal?l?(?:\ {(?<mob>[^\}]+)\})? (?<loc>.+)$"
+		enabled="y"
+		sequence="99"
+		script="map_area_all"
+		regexp="y"
+		keep_evaluating="n"
+	>
+	</alias>
+
+
+	<alias match="^(?<cmd>cp|ca|cam|camp|campa|campai|campaig|campaign) (?<param>c|ch|che|chec|check)$"
+		enabled="y"
+		sequence="5"
+		script="xcp_check"
+		regexp="y"
+	>
+	</alias>
+	<alias match="^(?<cmd>xcp) ?(?<param>c|ch|che|chec|check|test)?$"
+		enabled="y"
+		sequence="6"
+		script="xcp_check"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^got?o?( (?<id>.+))?$"
+		enabled="y"
+		sequence="100"
+		script="goto_number"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^nx$"
+		enabled="y"
+		sequence="100"
+		script="goto_next"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^(xcp|cp|ca|cam|camp|campa|campaign) (?<index>[0-9]+)$"
+		enabled="y"
+		sequence="100"
+		script="goto_cp"
+		regexp="y"
+	>
+	</alias>
+
+	<!-- speed -->
+
+	<alias match="^xset speed ?(?<speed>run|walk)?$"
+		enabled="y"
+		sequence="100"
+		script="set_speed"
+		regexp="y"
+	>
+	</alias>
+	
+	<alias match="^xma?p?p?e?r? move (?<roomid>[0-9]+) ?(?<speed>run|walk)?$"
+		enabled="y"
+		sequence="95"
+		script="move_trigger"
+		regexp="y"
+	>
+	</alias>
+	
+	<!-- roomnotes -->
+
+	<alias match="^r(?:oomnote|n)$"
+		enabled="y"
+		sequence="100"
+		script="room_note"
+		regexp="y"
+	>
+	</alias>
+
+	<alias match="^r(?:oomnote|n) a(?:rea)?(?: (?<areaid>.+))?$"
+		enabled="y"
+		sequence="99"
+		script="room_note_area"
+		regexp="y"
+	>
+	</alias>
+
+ 	<alias match="^xmapper purge room$"
+		enabled="y"
+		sequence="100"
+		script="map_purgeroom"
+		regexp="y"
+	>
+	</alias>
+
+	<!-- Sql Execution -->
+
+	<alias name="runsql"
+		match="^runsql (?<sql>.+)$"
+		enabled="y"
+		sequence="1"
+		script="RunSql"
+		regexp="y"
+	>
+	</alias>
+
+    <alias name="execsql"
+    	match="^execsql (?<sql>.+)$"
+    	enabled="y"
+    	sequence="1"
+    	script="ExecSql"
+    	regexp="y"
+    >
+    </alias>
+
+</aliases>
+
+<triggers>
+
+
+	<trigger
+		name="trg_cp_request"
+		match="^Commander Barcett tells you \'Good luck in your campaign\!\'$"
+		enabled="y"
+		regexp="y"
+		sequence="100"
+		send_to="12"
+	>
+		<send>Execute("cp c")</send>
+	</trigger>
+
+	<trigger 
+		name="trg_cp_mob_dead"
+		match="Congratulations, that was one of your CAMPAIGN mobs!"
+		enabled="y"
+		sequence="100"
+		send_to="12"
+	>
+		<send>Execute("cp c")</send>
+	</trigger>
+
+	<trigger match="^You still have to kill \* (?<mob>[^\(]+) \((?<where>.+?)(?<isdead> - Dead)?\)\.?$"
+		name="trg_xcp_line"
+		script="xcp_index_line"
+		enabled="n"
+		regexp="y"
+		omit_from_output="y"
+		sequence="500">
+	</trigger>
+
+	<trigger match="^(?!You still have to kill \*)"
+		name="trg_xcp_line_end"
+		script="xcp_index_line_end"
+		enabled="n"
+		regexp="y"
+		omit_from_output="n"
+		sequence="500">
+	</trigger>
+
+	<trigger match="You are not currently on a campaign."
+		name="trg_xcp_line_end_none"
+		script="xcp_index_line_end"
+		enabled="y"
+		regexp="n"
+		omit_from_output="n"
+		sequence="500">
+	</trigger>
+	
+	<!-- area grabber -->
+	<trigger match="              [ Listing all areas in range * to * ]"
+		name="trg_area_index_start_gag"
+		script="area_index_start_gag"
+		enabled="y"
+		regexp="n"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+
+	<trigger match="^From To   Lock  Builder          Area Name"
+		name="trg_area_index_start"
+		script="area_index_start"
+		enabled="n"
+		regexp="y"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+	
+	<trigger match="---- ---- ----  ---------------  ------------------------------"
+		name="trg_area_index_gag1"
+		enabled="n"
+		regexp="n"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+	<trigger match="---------------------------------------------------------------"
+		name="trg_area_index_gag2"
+		enabled="n"
+		regexp="n"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+	
+	<trigger match="^ (?<min>[0-9 ]{3})  (?<max>[0-9 ]{3})  (?<lock>[0-9 ]{3})  (?<author>.{15})  (?<area>.+)$"
+		name="trg_area_index_line"
+		script="area_index_line"
+		enabled="n"
+		regexp="y"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+
+	<trigger match="'Lock' means you cannot enter until you are that level or higher."
+		name="trg_area_index_end"
+		script="area_index_end"
+		enabled="n"
+		regexp="n"
+		omit_from_output="n"
+		sequence="100">
+	</trigger>
+
+</triggers>
+
+<variables>
+	<variable name="example"></variable>
+</variables>
+
+<!--  Get our standard constants -->
+<include name="constants.lua"/>
+
+<!--  Script  -->
+<script>
+
+
+<![CDATA[
+
+	require "serialize"
+	require "gmcphelper"
+	require "tprint"
+
+	-- Variables --
+	local showDebug = 0
+
+	local search_destroy_id = "e50b1d08a0cfc0ee9c442001"
+	local mob_mapper_id = "b555825a4a5700c35fa80800"
+
+	local searchResult = {}
+	local searchIndex = 0
+
+	local cpList = {}
+	local cpIndex = 1
+
+	local mode = nil
+	local gotoList = {}
+	local gotoIndex = 1
+	local currentRoom = {}
+
+	local char_status
+
+	local next_room = -1
+	local last_area = ""
+
+	local lastRoomId = -10
+
+	local mapper_area_index = 0
+
+	local last_substitute
+	
+	local speed = "run"
+
+
+	local showPK = GetVariable("showPK") or "true"
+	local USER_check_vidblain = GetVariable("XRunToCheckVidblain") or "false"
+	local USER_show_help = "true"
+	--local USER_run_if_one_room = true
+
+	local init_called = 0
+
+	local area_range = {}
+
+	local areaStartRooms = {}
+	if (GetVariable("areaStartRooms") ~= nil) then			
+		luastmt = "obj = " .. GetVariable("areaStartRooms")
+		assert (loadstring (luastmt or "")) ()		
+		areaStartRooms = obj
+	end	
+	
+	---------------------
+
+	function init_plugin()
+		if (init_called < 2) then
+		
+			Execute("sendgmcp request char")
+
+			local localchar = char_status
+			if (localchar ~= nil and tonumber(localchar.state) == 3) then
+			
+				if (init_called == 0) then
+					Execute("xset suspend page size")
+					init_called = 1
+				else
+				
+					EnableTimer("tim_init_plugin", false)
+					init_called = 2
+
+					Execute("sendgmcp request room")
+					
+					-- trigger a search for area limits
+					SendNoEcho("area 0 298")
+
+
+				end
+				
+			end		
+		end
+	end
+
+	function OnPluginBroadcast (msg, id, name, text)
+
+		-- Look for GMCP handler.
+		if (id == '3e7dedbe37e44942dd46d264') then
+			if (text == "room.info") then
+				res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","room.info")
+
+				luastmt = "gmcpdata = " .. gmcparg
+				assert (loadstring (luastmt or "")) ()
+
+				currentRoom.roomid = gmcpval("num")
+
+				-- Stall timer every time we move
+				if (IsTimer("done_moving") == error_code.eOK) then
+					ResetTimer("done_moving")
+				end
+				
+				-- gmcp request of area also gets room.info so only request area if it has changed AND we are done moving
+				-- otherwise we would continuously get room gmcp and piss off Lasher				
+				if (currentRoom.areaid ~= gmcpval("zone")) then				
+					currentRoom.areaid = gmcpval("zone")	
+					
+					-- We have changed areas, create the timer if it doesn't exist
+					if (IsTimer("done_moving") ~= error_code.eOK) then					
+						AddTimer("done_moving", 0, 0, .5, "", timer_flag.Enabled + timer_flag.OneShot, "done_moving")
+					end																														
+				end				
+			elseif (text == "room.area") then
+				res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","room.area")
+				luastmt = "gmcpdata = " .. gmcparg
+				assert (loadstring (luastmt or "")) ()
+			
+				currentRoom.areaname = gmcpval("name")
+			elseif (text == "char.status") then
+				res, gmcparg = CallPlugin("3e7dedbe37e44942dd46d264","gmcpval","char.status")
+				luastmt = "gmcpdatacharstatus = " .. gmcparg
+				assert (loadstring (luastmt or "")) ()
+				char_status = gmcpdatacharstatus
+				--tprint(char_status)
+
+				--currentState = tonumber(gmcpval("status.state"))
+			end
+		end
+	end
+	
+	function done_moving()
+		Send_GMCP_Packet("request area")
+	end
+	
+	function set_speed(name, line, wildcards)
+		if (wildcards.speed ~= "") then
+			speed = wildcards.speed
+		else
+			if (speed == "walk") then
+				speed = "run"
+			else
+				speed = "walk"
+			end
+		end
+		ColourNote("darkorange", "", "Move speed:" .. speed)
+	end
+
+
+	function move_trigger(name, line, wildcards)
+		
+		if (wildcards.roomid ~= "") then
+			move(wildcards.roomid, wildcards.speed)
+		end
+		
+	end
+	
+	function move(roomid, temp_speed)
+	
+		if (temp_speed == nil or temp_speed == "") then
+			temp_speed = speed
+		end
+		if (temp_speed == "walk") then
+			Note("walking to " .. roomid)
+			Execute("mapper walkto " .. roomid)
+		else
+			Execute("mapper goto " .. roomid)
+		end
+	end
+	
+	local last_cp_check = os.time()
+	local xcp_flag = false
+	function xcp_check(name, line, wildcards)
+
+		DebugNote("xcp_check")
+		
+		xcp_flag = true
+
+		-- prevent double cp checks from different plugins
+		local time_check = os.time()
+		if ((time_check - last_cp_check) < 2) then
+			return
+		end
+		last_cp_check = time_check
+
+		cpList = {}
+		cpIndex = 1
+		EnableTrigger("trg_xcp_line", true)
+		EnableTrigger("trg_xcp_line_end", false)
+		
+		if (wildcards.param == "test") then
+			cp_simulate()
+		else
+			Send("cp c")
+		end
+	end
+
+
+	function xcp_index_line(name, line, wildcards)
+
+		EnableTrigger("trg_xcp_line_end", true)
+
+		if (cpList == nil) then
+			cpList = {}
+			cpIndex = 1
+		end
+		
+		DebugNote("xcp_index_line:" .. wildcards.mob)
+		cpIndex = get_rooms_areas(cpList, cpIndex, wildcards.where, wildcards.mob, 1, wildcards.isdead)	
+		
+	end
+
+
+	local get_rooms_areas_sql = 
+		" SELECT r.uid as room, r.name as roomName, a.uid as area, a.name as areaName, 'room' as type, info " ..
+		" FROM rooms r " ..
+		" INNER JOIN areas a ON r.area = a.uid " ..
+		" WHERE r.name = %s " ..
+		" UNION " ..
+		" SELECT -1 as room, '' as roomName, uid as area, name as areaName, 'area' as type, '' as info " ..
+		" FROM areas " ..
+		" WHERE name = %s " ..
+		" ORDER BY type ASC "
+
+	function get_rooms_areas(list, listIndex, place, mobName, qty, isDead)
+
+	
+		local localLevel = -1
+		if (char_status == nill) then
+			DebugNote("Unknown char status")
+			return
+		else
+			localLevel = tonumber(char_status.level)
+		end
+		
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		-- find room/area
+		local select = string.format (get_rooms_areas_sql, fixsql(place), fixsql(place))
+		DebugNote(select)
+		
+		local index = 0
+		local lastMobSignature = ""
+		for row in db:nrows(select) do
+
+			if (row.type == "room") then				
+			
+				local tolerance = 11
+				local min = (area_range[row.areaName] or {min = 0}).min 
+				local max = (area_range[row.areaName] or {max = 300}).max
+				-- debug
+				--min = 0
+				--max = 300
+
+				-- filter out spammy neighbouring rooms.. too much spam!
+				local mobSignature = row.areaName .. "|" .. mobName
+				local showItem = false
+				DebugNote("lastMobSignature:" .. lastMobSignature .. ":mobSignature:" .. mobSignature)
+				
+				-- sanitize text room ids for "unmappable" rooms that are now being mapped
+				row.room = (tonumber(row.room) or "nomap")
+
+				if (lastMobSignature ~= mobSignature) then
+					if (localLevel >= (min - tolerance) and localLevel <= (max + tolerance)) then
+						
+						index = index + 1
+				
+						list[listIndex] = {
+							qty = tonumber(qty),
+							mob = mobName,
+							type = row.type,
+							roomId = row.room,
+							roomName = row.roomName,
+							areaId = row.area,
+							areaName = row.areaName,
+							area = row.area,
+							isDead = isDead,
+							min = min,
+							max = max,
+							info = row.info}
+
+						listIndex = listIndex + 1
+					else
+						local link = string.format("Ignoring due to level : %s in '%s' (%s) [%s-%s]", mobName, row.roomName, row.area, min, max)
+						Hyperlink("xm move " .. row.room, link, "Move to room " .. row.room, "Khaki", "black", 0)
+						print("")
+					end
+				end
+					
+				lastRoomId = row.room
+				lastMobSignature = mobSignature
+				
+			else -- area
+
+				index = index + 1
+			
+				DebugNote("get_rooms_areas - area:" .. index .. ":" .. mobName)
+			
+				list[listIndex] = {
+					qty = tonumber(qty),
+					mob = mobName,
+					type = row.type,
+					roomId = row.room,
+					roomName = row.roomName,
+					areaId = row.area,
+					areaName = row.areaName,
+					area = row.area,
+					isDead = isDead}
+
+				listIndex = listIndex + 1
+			
+			end
+		end
+		db:close_vm()
+		
+		DebugNote(mobName .. " index:" .. index)
+		-- add unknown mobs
+		if (index == 0) then
+			
+			list[listIndex] = {
+				qty = tonumber(qty),
+				mob = mobName,
+				type = "unknown",
+				roomId = 0,
+				roomName = place,
+				areaId = "UNKNOWN",
+				areaName = "UNKNOWN",
+				area = "UNKNOWN",
+				isDead = isDead}
+
+			listIndex = listIndex + 1	
+		end
+		
+		return listIndex
+	end
+	
+	function print_rooms_areas(list, command)
+
+		DebugNote("print_rooms_areas:" .. command .. ":" .. #list)
+	
+		--reset signature for next search
+		lastMobSignature = ""
+
+
+		if (USER_show_help == "true") then
+			ColourNote("Gray", "", "Type '" .. command .. " <Index>' or click link, to go to that item")
+			ColourNote("Gray", "", "  Index     Target          - Location")
+			ColourNote("Gray", "", "---------------------------------------")
+		end
+		
+		local index = 0
+		for key, value in ipairs(list) do
+		
+			index = index + 1
+		
+			local qty = ""
+			if (value.qty > 1) then
+				qty = string.format("%s * ", value.qty)
+			end
+
+			local mobText = qty .. value.mob
+			local deadFlag = false
+			if (value.isDead ~= nil and value.isDead ~= "") then
+				mobText = mobText .. " [Dead]"
+				deadFlag = true
+			end
+			
+			DebugNote("xcp_index_line_end:" .. value.mob)
+			local link
+			local color
+			if (value.type == "area") then
+				link = string.format("~~~  %s %s - %s", padRight(key, 6, " "), padRight(mobText, 20, " "), padRight(value.areaId, 12, " "))
+				if (deadFlag == false) then
+					color = "Snow"
+				else
+					color = "DimGray"
+				end
+			elseif (value.type == "room") then
+				
+				link = string.format("~~~  %s %s - '%s' (%s) - %s [%s-%s]", 
+					padRight(key, 6, " "), 
+					padRight(mobText, 20, " "), 
+					value.roomName, 
+					padRight(value.roomId, 5, " "), 
+					value.areaId, value.min, value.max)
+				if (deadFlag == false) then
+					color = "lightblue"
+				else
+					color = "DimGray"
+				end
+			else -- unknown
+				link = string.format("~~~  %s %s - '%s' is Unknown", padRight(key, 6, " "), padRight(mobText, 20, " "), value.roomName)
+				if (deadFlag == false) then
+					color = "Crimson"
+				else
+					color = "DarkRed"
+				end
+			end		
+			
+			Hyperlink(command .. " " .. key, link, "Start CP item " .. key, color, "black", 0)
+			
+			if (value.type == "area") then
+				Hyperlink("roomnote area " .. value.areaId , "   [notes]", "Show notes for " .. key, "lightgreen", "black", 0)
+			end
+			print("")
+		end
+		
+		if (index == 0) then
+			ColourNote("darkorange", "", "   No campaign items to show.")
+		end
+
+		if (USER_show_help == "true") then
+			ColourNote("Gray", "", "---------------------------------------")
+		end
+
+	end
+
+
+	function xcp_index_line_end(name, line, wildcards)
+
+		DebugNote("xcp_index_line_end")
+
+		EnableTrigger("trg_xcp_line", false)
+		EnableTrigger("trg_xcp_line_end", false)
+
+		if (xcp_flag == false) then
+			return
+		end
+		xcp_flag = false
+		
+		print_rooms_areas(cpList, "xcp")
+		
+		-- broadcast this data for other plugins to consume
+		local ser = serialize.save_simple(cpList)
+		--print(ser)
+		BroadcastPlugin(669, ser)
+		
+	end
+
+
+	function goto_number(name, line, wildcards)
+		Note("goto_number: " .. wildcards.id)
+
+		if (wildcards.id == nil or wildcards.id == "") then
+			gotoIndex = 1
+		else
+			gotoIndex = tonumber(wildcards.id)
+		end
+
+		if (gotoList[gotoIndex] ~= nil) then
+			if (tonumber(gotoList[gotoIndex]) == nil) then
+				-- go to an area
+				Execute("xrt " .. gotoList[gotoIndex])
+			else
+				next_room = gotoList[gotoIndex]
+				goto_roomid(gotoList[gotoIndex])
+			end
+		else
+			ColourNote("darkorange", "", "No destination exists")
+		end
+	end
+
+	function goto_roomid(roomid)
+
+		local dest_in_vidblain = is_vidblain_area(roomid)
+		local both_in_vidblain = dest_in_vidblain and is_vidblain_area(currentRoom.roomid)
+
+
+		if (dest_in_vidblain == true and both_in_vidblain == false) then
+			Execute("xmapper move 11910")
+			Execute("enter hole")
+
+			local func = function() Execute("xmapper move " .. roomid) end
+			execute_in_area("vidblain_hack", "vidblain", func)
+
+		else
+			Execute("xmapper move " .. roomid)
+		end
+	end
+
+	local is_vidblain_area_sql =  
+		"SELECT area " ..
+		"FROM rooms " ..
+		"WHERE uid = %s "
+
+	function is_vidblain_area(roomid)
+
+		if (USER_check_vidblain == "false") then
+			return false
+		end
+
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local select = string.format (is_vidblain_area_sql, fixsql(roomid))
+		for row in db:nrows(select) do
+			--Note(row.area)
+			local areaid = row.area
+			if (areaid == "vidblain" or
+				areaid == "imperial" or
+				areaid == "darklight" or
+				areaid == "sendhian" or
+				areaid == "omentor") then
+				
+				db:close_vm()
+				return true
+			end
+		end		
+		db:close_vm()
+
+		return false
+
+	end
+
+	function goto_next(name, line, wildcards)
+
+		DebugNote("next:" .. next_room .. ":" .. currentRoom.roomid)
+		if (tonumber(next_room) == tonumber(currentRoom.roomid)) then
+			gotoIndex = gotoIndex + 1
+		end
+
+		if (gotoList[gotoIndex] ~= nil) then
+			
+			ColourNote("darkorange", "", "Goto - " .. gotoIndex .. " of " .. #gotoList)
+			next_room = gotoList[gotoIndex]
+			Execute("xmapper move " .. next_room)
+		else
+			ColourNote("darkorange", "", "No destination exists")
+		end
+	end
+
+	function goto_cp(name, line, wildcards)
+
+		cpIndex = tonumber(wildcards.index)
+		mode = "cp"
+
+		DebugNote("goto_cp:" .. wildcards.index)
+		
+		BroadcastPlugin(670, "cp")
+		
+		goto_list_item(cpList, cpIndex)
+	
+	end
+	
+	function goto_list_item(list, index)
+		
+		-- reset room list
+		gotoList = {}
+		gotoIndex = 1
+
+		local localItem = list[index]
+		local localRoom = currentRoom
+		
+		if (localItem ~= nil and localRoom ~= nil and localRoom.areaid ~= nil) then
+		
+			-- send this mob name to S&D plugin
+			DebugTPrint("goto_list_item - localItem", localItem)
+		
+			if (localItem.type == "area") then
+				DebugNote("area type")
+				remote_guess_mob_name(localItem.mob, localItem.areaId, true)
+				if (localRoom.areaid ~= localItem.areaId) then
+					Execute("xrt " .. localItem.areaId)
+				end
+
+				local func = function() Execute("x_ht " .. localItem.mob) end
+				execute_in_area("goto_list_item_area", localItem.areaId, func)
+			else -- "room"
+				DebugNote("room type")
+				remote_guess_mob_name(localItem.mob, localItem.areaId, true)
+				
+				search_rooms(localItem.roomName .. "|" .. localItem.areaId, "area", localItem.mob)
+				
+			end
+		else
+			ColourNote("darkorange", "", "No item exists, or data busy (try again)")
+		end
+
+	end
+
+	local xrun_to_sql_uid =  
+		"SELECT r.uid, r.name as room, r.area " ..
+		"FROM rooms r " ..		
+		"WHERE r.area like %s " ..
+		"ORDER BY r.name "
+		
+	local xrun_to_sql_name =  
+		"SELECT r.uid, r.name as room, r.area " ..
+		"FROM rooms r " ..
+		"INNER JOIN areas a ON a.uid = r.area " ..
+		"WHERE r.area like %s OR a.name like %s " ..
+		"ORDER BY r.name "
+	
+	function xrun_to(name, line, wildcards)
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		-- HACK for ftii
+		if (wildcards[1] == "ft2") then
+			wildcards[1] = "ftii"
+		end
+		
+		-- Check for xset marked room
+		local startRoom = get_start_room(wildcards[1])
+		if (startRoom ~= -1) then
+			-- start room has been marked, we are done here
+			ColourNote("darkorange", "", "x-runto (" .. startRoom .. ") xset marked as start room")
+			goto_roomid(startRoom)
+		else
+			-- Room has not been marked for the area
+			-- Search mapper DB for room with lowest id for the area
+		
+			-- try exact hit first
+			local select = string.format (xrun_to_sql_uid, fixsql(wildcards[1]))
+			DebugNote("xrun_to (1)- " .. select)
+			
+			for row in db:nrows(select) do
+				ColourNote("darkorange", "", "x-runto (" .. row.uid .. ") " .. row.room .. " in " .. row.area .. " - exact match")
+
+				goto_roomid(row.uid)
+				
+				db:close_vm()
+				return
+			end
+			db:close_vm()
+			
+			-- try a wildcard match
+			local like = fixsql("%" .. wildcards[1] .. "%")
+			select = string.format (xrun_to_sql_name, like, like)
+			DebugNote("xrun_to (2)- " .. select)
+
+			for row in db:nrows(select) do
+				ColourNote("darkorange", "", "x-runto (" .. row.uid .. ") " .. row.room .. " in " .. row.area .. " - 'like' match")
+
+				goto_roomid(row.uid)
+				
+				db:close_vm()
+				return
+			end
+			db:close_vm()
+						
+			ColourNote("darkorange", "", "No matching rooms found. Using aardwolf runto...")
+			Execute("xmapper move 32418") -- recall
+			Execute("runto " .. wildcards[1])	
+		end					
+	end
+
+	function xset_pk(name, line, wildcards)
+
+		if (showPK == "true") then
+			showPK = "false"
+		else
+			showPK = "true"
+		end
+		
+		SetVariable("showPK", showPK)
+		ColourNote("DarkOrange", "", "Show PK room flag : " .. showPK)
+
+	end
+
+	function xset_to_mark(name, line, wildcards)
+		areaStartRooms[currentRoom.areaid] = { areaname = currentRoom.areaname, roomid = currentRoom.roomid }
+		ColourNote("darkorange", "", currentRoom.roomid .. " set as starting room for " .. currentRoom.areaid)
+		SetVariable("areaStartRooms", serialize.save_simple(areaStartRooms))
+	end
+	
+	function get_start_room(area)
+		local cleanedArea = string.lower(area)
+		if (areaStartRooms[cleanedArea] ~= nil) then 			
+			-- exact match on area id
+			return areaStartRooms[cleanedArea].roomid 
+		end
+				
+		for key, val in pairs(areaStartRooms) do			
+			if (string.match(string.lower(key), cleanedArea) ~= nil) then 				
+				-- string match on key
+				return val.roomid
+			elseif (string.match(string.lower(val.areaname), cleanedArea) ~= nil) then								
+				-- string match on area name
+				return val.roomid
+			end
+		end				
+			
+		-- found nothing
+		return -1		
+	end
+
+	---- room notes --------
+
+	function room_note_area(name, line, wildcards)
+		if (wildcards.areaid == "") then
+			get_notes(currentRoom.areaid, nil)
+		else
+			get_notes(wildcards.areaid, nil)
+		end
+	end
+
+	function room_note(name, line, wildcards)
+		get_notes(nil, currentRoom.roomid)
+	end
+
+	function get_notes(areaid, roomid, text_only)
+
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local sql =  " SELECT b.uid, b.notes "
+		sql = sql .. " FROM bookmarks b "
+		if (areaid ~= nil) then
+			sql = sql .. " INNER JOIN rooms r ON b.uid = r.uid "
+			sql = sql .. " WHERE r.area = " .. fixsql(areaid)
+		else
+			sql = sql .. " WHERE b.uid = " .. fixsql(roomid)
+		end
+		sql = sql .. " ORDER BY b.uid "
+		DebugNote(sql)
+
+		local index = 0
+
+		if (areaid ~= nil) then
+			Simulate("\nNotes for " .. getAreaName(areaid) .. "\n")
+		end
+
+		for row in db:nrows(sql) do
+			index = index + 1
+
+			if (text_only == true) then
+				local line = string.format("    note:'%s'", row.notes)
+				Hyperlink("xmapper move " .. row.uid, line, "go to room " .. row.uid, "lightblue", "black", 0)		
+			else
+				local line = string.format("    (%s) %s", row.uid, row.notes)
+				Hyperlink("xmapper move " .. row.uid, line, "go to room " .. row.uid, "lightblue", "black", 0)
+				print("")
+			end		
+		end
+		db:close_vm()
+		
+		if (areaid ~= nil and index == 0 and text_only ~= true) then
+			Simulate("\tNo notes.\n")
+		end
+	end
+
+
+
+	function getRoomByMob(mobName)
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local sql =  "SELECT roomid, mobname, count "
+		sql = sql .. "FROM mobs "
+		sql = sql .. "WHERE mobname = %s "
+		sql = sql .. "ORDER BY count desc "
+
+		for row in db:nrows(string.format (sql, fixsql(uid))) do
+			db:close_vm()
+			return row.name
+		end
+		db:close_vm()
+	end
+
+
+	function getAreaName(uid)
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local sql =  "SELECT name FROM areas WHERE uid = %s"
+		for row in db:nrows(string.format (sql, fixsql(uid))) do
+			db:close_vm()
+			return row.name
+		end
+		db:close_vm()
+		
+		return uid
+	end
+
+	function getAreaUid(name)
+
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local sql =  "SELECT uid FROM areas WHERE name = %s order by uid "
+
+		local areas = {}
+		local index = 0
+		DebugNote("getAreaUid:" .. fixsql(name))
+		for row in db:nrows(string.format (sql, fixsql(name))) do
+			DebugNote(row.uid .. ":" .. name)
+			index = index + 1
+			areas[index] = {uid = row.uid, name = name}
+		end
+		
+		db:close_vm()
+		return areas
+	end
+
+
+	function map_area(name, line, wildcards)
+		search_rooms(wildcards.loc, 'area', wildcards.mob)
+	end
+
+	function map_area_all(name, line, wildcards)
+		search_rooms(wildcards.loc .. "|all", 'all', wildcards.mob)
+	end
+	
+	local search_rooms_sql = 
+		"SELECT r.uid as uid, r.name as name, info, r.area as area, " ..
+		"ifnull(a.name, r.area) as area_name, 1 as DisplayOrder " .. 
+		"FROM rooms r " ..
+		"LEFT OUTER JOIN areas a ON r.area = a.uid " ..
+		"WHERE r.name = %s " ..
+		"AND (%s = 'all' OR (a.name = %s OR r.area = %s)) " ..
+		
+		"UNION " ..
+		
+		"SELECT r.uid, r.name, info, r.area, " ..
+		"ifnull(a.name, r.area) as area_name, 0 as DisplayOrder " .. 
+		"FROM rooms r " ..
+		"LEFT OUTER JOIN areas a ON r.area = a.uid " ..
+		"WHERE r.name <> %s " ..
+		"AND r.name LIKE %s " .. 
+		"AND (%s = 'all' OR (a.name = %s OR r.area = %s)) " ..
+		"ORDER BY Area, DisplayOrder DESC "
+	
+	function search_rooms(room, searchType, fullMobName)
+		DebugNote("search_rooms(" .. room .."," .. searchType .. "," .. fullMobName .. ")")
+	
+		if (room == nil or room == "") then
+			Note("map_area() error : room is not known")
+			return
+		end
+
+		-- room|area
+		local parts = split(room, "[^|]+") -- pipe delimited
+		local room = parts[1]
+		local area_id
+		if (#parts == 2) then
+			area_id = parts[2]
+		else
+			if (currentRoom ~= nil) then
+				area_id = currentRoom.areaid
+			else
+				ColourNote("darkorange", "", "Area not known, falling back to mapper list")
+				Execute("mapper list " .. parts[1])
+			end
+		end
+
+		if (room == nil) then
+			Note("map_area() - Room not known")
+			return
+		end
+
+		like = "%"..room.."%"
+
+		-- i forget what this does? Strip out a leading " ?
+		--if string.sub(room,1,1) == "\"" and string.sub(room,-1) == "\"" then
+		--	like = string.sub(room,2,-2)
+		--end
+
+		local select = string.format(search_rooms_sql, 
+			fixsql(room), 
+			fixsql(area_id), 
+			fixsql(area_id), 
+			fixsql(area_id), 
+			fixsql(room), 
+			fixsql(like), 
+			fixsql(area_id), 
+			fixsql(area_id), 
+			fixsql(area_id))
+		DebugNote(select)
+			
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+		
+		local results = {}
+		local roomid_list = {}
+		
+		for row in db:nrows(select) do
+
+			-- sanitize text room ids for "unmappable" rooms that are now being mapped
+			local id = (tonumber(row.uid) or -1)
+			results[#results + 1] = { 
+				uid = id, 
+				name = row.name,
+				info = row.info,
+				area = row.area_name,
+				areaid = row.area or row.area_name -- make safe against bad dbs			
+			}
+			
+			-- make a list of room ids
+			if (id > 0) then
+				roomid_list[#roomid_list + 1] = id
+			end
+
+		end   -- finding rooms
+		db:close_vm()
+		
+		local mob_mapping = {}
+		
+		local freq_total = mob_mapping[-1] or 0
+		DebugNote("freq_total:" .. freq_total)
+		
+		-- add mob to room mapping
+		for key, value in ipairs(results) do
+		
+			local freq = mob_mapping[value.uid]
+			if (freq ~= nil) then
+				value.freq = math.floor((freq / freq_total) * 100)
+			else
+				value.freq = 0
+			end	
+		end
+		
+		print_rooms(results)
+	end
+	
+	function IPRINT_ROOMS(json)
+		-- load serialize.save_simple data
+		luastmt = "gPrintRooms = " .. json
+		assert (loadstring (luastmt or "")) ()
+		
+		print_rooms(gPrintRooms)
+	end
+	
+	-- uses results{ areaid, area, info, name, uid, freq }
+	function print_rooms(results)
+		-- print results
+		gotoList = {}
+		mapper_area_index = 0
+		local last_area = ""
+
+		DebugTPrint("results", results)
+
+		if (USER_show_help == "true") then
+			ColourNote("Gray", "", "Type 'go <Index>' or click link, to go to that room")
+			ColourNote("Gray", "", "  Index   Room Name   (uid)")
+			ColourNote("Gray", "", "----------------------------")
+		end
+		
+		for key, value in ipairs(results) do
+			DebugNote("area: " .. value.areaid )
+			
+			if (last_area ~= value.areaid) then
+			
+				if (mapper_area_index == 0) then
+					local areaLine = string.format("~~~ %s %s", 
+						mapper_area_index, 
+						value.areaid)
+					Hyperlink("go " .. mapper_area_index, areaLine, "go to area " .. value.areaid, "silver", "black", 0)
+					gotoList[mapper_area_index] = value.areaid
+					
+					mapper_area_index = mapper_area_index + 1
+				else
+					local areaLine = string.format("~~~   %s", value.areaid)
+					Hyperlink("xrt " .. value.areaid, areaLine, "go to area " .. value.areaid, "silver", "black", 0)
+				end				
+				print("")
+				last_area = value.areaid				
+			end
+		
+			local line1 = string.format("~~~ %s ", 
+				padRight(mapper_area_index, 3, " "))
+			Hyperlink("go " .. mapper_area_index, line1, "go to item " .. mapper_area_index, "lightblue", "black", 0)
+			
+			-- mob name? 
+			if (value.mobname ~= nil) then
+				local mobline = padRight(value.mobname .. " ", 20, " ")
+				Hyperlink("go " .. mapper_area_index, mobline, "go to item " .. mapper_area_index, "snow", "black", 0)
+			end
+
+			
+			local line2 = string.format("%s  (%s) ", 
+				padRight(string.gsub(value.name, "@[a-zA-Z]", ""), 20, " "), 
+				value.uid)
+			Hyperlink("go " .. mapper_area_index, line2, "go to item " .. mapper_area_index, "lightblue", "black", 0)
+			
+			-- mob to room
+			if (value.freq > 0) then
+				ColourTell ("DarkOrange", "black", " (" .. value.freq .. "%) ")
+			end
+			
+			Hyperlink("mapper where " .. value.uid, 
+				"   {?}", 
+				"click for speedwalk to this room", 
+				"LightSteelBlue ", 
+				"black", 
+				0)
+			gotoList[mapper_area_index] = value.uid
+			
+			print("")
+			mapper_area_index = mapper_area_index + 1
+		end
+			
+
+		if (mapper_area_index == 0) then
+			ColourNote("darkorange", "", "No matching rooms found.")
+		end
+		
+		if (USER_show_help == "true") then
+			ColourNote("Gray", "", "-------------------------------------")
+		end	
+
+	end
+
+	function map_purgeroom (name, line, wildcards)
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		Note(string.format ("delete from exits WHERE fromuid = %s;", fixsql(currentRoom.roomid)))
+		dbcheck (db:execute (string.format ("delete from exits WHERE fromuid = %s;", fixsql(currentRoom.roomid))))
+		Note(string.format ("delete from exits WHERE touid = %s;", fixsql(currentRoom.roomid)))
+		dbcheck (db:execute (string.format ("delete from exits WHERE touid = %s;", fixsql(currentRoom.roomid))))
+		Note(string.format ("delete from rooms_lookup WHERE uid = %s;", fixsql(currentRoom.roomid)))
+		dbcheck (db:execute (string.format ("delete from rooms_lookup WHERE uid = %s;", fixsql(currentRoom.roomid))))
+		Note(string.format ("delete from rooms WHERE uid = %s;", fixsql(currentRoom.roomid)))
+		dbcheck (db:execute (string.format ("delete from rooms WHERE uid = %s;", fixsql(currentRoom.roomid))))
+		db:close_vm()
+		
+		ColourNote("darkorange", "", "Purged room (" .. currentRoom.roomid .. ") from the mapper database.")
+	end
+
+	local cp_simulate_toggle = 0
+	function cp_simulate(name, line, wildcards)	
+
+		Simulate("\n")	
+
+		if (cp_simulate_toggle == 0) then
+			Simulate("You still have to kill * Isscheburqua (Insanitaria)\n")
+			Simulate("You still have to kill * a rook citizen (Avian Kingdom)\n")
+			Simulate("You still have to kill * Lea, the farmer's daughter (Farmyard)\n")
+			Simulate("You still have to kill * a rook citizen (Nesting Home)\n")
+			Simulate("You still have to kill * a demon school student (The School of Horror)\n")
+			Simulate("You still have to kill * a hookle fish (Black Lagoon)\n")
+			Simulate("You still have to kill * Harry (Unknown Tower - Dead)\n")
+			Simulate("You still have to kill * a former court jester (The Labyrinth)\n")
+			Simulate("You still have to kill * Parent (The Kitchen)\n")
+			Simulate("You still have to kill * a wealth redistribution specialist (Empyrean, Streets of Downfall)\n")
+			Simulate("You still have to kill * the reaching thorns (Eternal Autumn)\n")
+			Simulate("You still have to kill * Redtooth (Mossflower Wood - Dead)\n")
+			Simulate("You still have to kill * Castle Guard (Rebellion of the Nix)\n")
+			Simulate("You still have to kill * Jules (The Amazon Nation)\n")
+			Simulate("You still have to kill * an earth fiend (The Broken Halls of Horath)\n")
+			Simulate("You still have to kill * the spirit of Bakarne (The Empire of Aiighialla)\n")
+			Simulate("You still have to kill * Elfgar Sous-Fled (Some Place)\n")
+			Simulate("You still have to kill * the heart of a sandstorm (Living Mines of Dak'Tai)\n")
+			cp_simulate_toggle = 1
+		else
+			Simulate("You still have to kill * a former court jester (The Labyrinth)\n")
+			Simulate("You still have to kill * the heart of a sandstorm (Buried in the Great Desert's unrelenting dunes)\n")
+			Simulate("You still have to kill * Parent (The Kitchen)\n")
+			Simulate("You still have to kill * a rhino seraph (A Corridor of Cinnamon and Silver)\n")
+			Simulate("You still have to kill * A sprite prisoner (A cell)\n")
+		
+			cp_simulate_toggle = 0
+		end
+		Simulate("Note: Dead means that the target is dead, not that you have killed it.\n")
+		Simulate("\n")
+		Simulate("You have 6 days, 23 hours and 56 minutes left to finish this campaign.\n")
+		Simulate("\n")	
+
+	end
+
+	-------- Area level capture -------
+
+
+	--Commander Barcett tells you ' Good luck in your campaign!''
+
+	function area_index_start_gag(name, line, wildcards)	
+		DebugNote("area_index_start_gag - " .. wildcards[1] .. ":" .. wildcards[2])
+		if (wildcards[1] == "0" and wildcards[2] == "298") then
+			EnableTrigger("trg_area_index_start", true)
+			EnableTrigger("trg_area_index_line", false)
+			EnableTrigger("trg_area_index_end", false)
+			EnableTrigger("trg_area_index_gag1", true)
+			EnableTrigger("trg_area_index_gag2", true)
+		else -- not an area index command
+			EnableTrigger("trg_area_index_start", false)
+			EnableTrigger("trg_area_index_line", false)
+			EnableTrigger("trg_area_index_end", false)
+			EnableTrigger("trg_area_index_gag1", false)
+			EnableTrigger("trg_area_index_gag2", false)
+		end
+	end
+
+	function area_index_start(name, line, wildcards)
+		DebugNote("area_index_start")
+		EnableTrigger("trg_area_index_start", false)
+		EnableTrigger("trg_area_index_line", true)
+		EnableTrigger("trg_area_index_end", true)
+		
+		area_range = {}
+		
+		ColourNote("DarkOrange", "", "*** Indexing area levels...")
+	end
+
+	function area_index_line(name, line, wildcards)
+		DebugNote("area_index_line")
+
+		area_range[Trim(wildcards.area)] = { 
+			area = Trim(wildcards.area), 
+			min = tonumber(Trim(wildcards.min)), 
+			max = tonumber(Trim(wildcards.max)),
+			lock = tonumber(Trim(wildcards.lock)) or 0 }		
+		--tprint(area_range[wildcards.area])
+
+	end
+
+	function area_index_end(name, line, wildcards)
+		DebugNote("area_index_end")
+
+		EnableTrigger("trg_area_index_start", false)
+		EnableTrigger("trg_area_index_line", false)
+		EnableTrigger("trg_area_index_end", false)
+		EnableTrigger("trg_area_index_gag1", false)
+		EnableTrigger("trg_area_index_gag2", false)
+
+		ColourNote("DarkOrange", "", "*** Area levels indexed!")
+		
+		DoAfterSpecial(2, "xset resume page size", sendto.execute)
+
+	end
+
+	------ Execute in Area ------
+
+	local execute_in_area_array = {}
+
+	function execute_in_area(id, areaId, functionPointer)
+
+		execute_in_area_array[id] = { 
+			areaId = areaId, 
+			func = functionPointer, 
+			index = 0, 
+			active = true,
+			lastState = 3, -- standing
+			standIndex = 0 -- count of stands in a row
+			}
+		--tprint(execute_in_area_array)
+		EnableTimer("execute_in_area_timer", true)
+
+	end
+
+	function execute_in_area_tick(name, line, wildcards)
+
+		local localRoom = currentRoom
+		local localState
+
+
+		-- thread safety
+		if (localRoom == nil) then
+			DebugNote("Unknown Room")
+			return
+		end
+		
+		if (char_status == nill) then
+			DebugNote("Unknown char status")
+			return
+		else
+			localState = tonumber(char_status.state)
+		end
+
+		local isActive = false
+		
+		--tprint(execute_in_area_array)
+
+		for index, value in pairs(execute_in_area_array) do
+		
+			DebugNote("loop - " .. index)
+			if (value.active == true) then
+		
+				value.index = value.index + 1
+
+				if (value.index > 100) then
+					value.active = false
+					print("** aborting quickwhere timer for " .. index .. ", took too long to get to destination")
+					
+				else
+
+					DebugNote("state:" .. localState .. ",:" .. value.areaId .. "==" .. localRoom.areaid)
+
+					if ((localState == 3 and value.lastState == 3) 
+						and value.areaId == localRoom.areaid) then
+
+						-- skip first timer tick
+						value.index = value.index + 1
+						value.standIndex = value.standIndex + 1
+						if (value.standIndex < 2) then
+							DebugNote("skip - index:" .. value.index)
+						else
+							DebugNote("executing - index:" .. value.index)
+							value.func()
+							value.active = false						
+						end
+					else
+						-- still moving.. reset index
+						value.standIndex = 0
+					end
+				end
+			end
+			
+			value.lastState = localState
+			
+			if (value.active == true) then
+				isActive = true
+			end
+			
+		end
+		
+		-- no timer items active.. disable
+		if (isActive == false) then
+			DebugNote("disable timer")
+			EnableTimer("execute_in_area_timer", false)
+		end
+	end
+
+	----------- EXTERNAL CALLOUTS -----------------------------
+	
+	function remote_guess_mob_name(mobName, areaId, broadcast)
+
+		DebugNote("remote_guess_mob_name call:" .. mobName .. ":" .. areaId)
+	
+		local rc, mobGuess, subMob = CallPlugin(
+			search_destroy_id, 
+			"IGuessMobNameBroadcast", 
+			mobName,
+			areaId)
+			
+		if (subMob ~= nil) then
+			DebugNote(subMob)
+		end
+		
+		DebugNote("remote_guess_mob_name return:" .. mobGuess)
+		return mobGuess
+
+	end
+
+
+	------ Utils ------
+
+	function padRight(text, length, padChar)
+
+		local padding = length - string.len(text)
+		for i = 1, padding do
+			text = text .. padChar
+		end
+
+		return text
+	end
+
+	function sanitize_filename(str)
+		str = string.gsub(str, "[^%w%s()_-]", "")
+		return str
+	end
+
+	function quote(str)
+		return "\""..str.."\""
+	end
+
+	function dbcheck(code)
+
+		if code ~= sqlite3.OK and    -- no error
+			code ~= sqlite3.ROW and   -- completed OK with another row of data
+			code ~= sqlite3.DONE then -- completed OK, no more rows
+			local err = db:errmsg ()  -- the rollback will change the error message
+			db:exec("ROLLBACK")      -- rollback any transaction to unlock the database
+			error (err, 2)            -- show error in caller's context
+		end -- if
+
+	end -- dbcheck
+
+	function fixsql(s)
+
+		if s then
+			return "'" .. (string.gsub (s, "'", "''")) .. "'" -- replace single quotes with two lots of single quotes
+		else
+			return "NULL"
+		end -- if
+	end -- fixsql
+
+	function fixbool(b)
+		if b then
+			return 1
+		else
+			return 0
+		end -- if
+	end -- fixbool
+
+	function split(line, delim)
+
+		local result = {}
+		local index = 1
+
+		for token in string.gmatch(line, delim) do
+			result[index] = token
+			index = index + 1
+		end
+
+		return result
+	end
+
+	function set_check_vidblain(name, line, wildcards)
+
+	  if (USER_check_vidblain == "true") then
+		USER_check_vidblain = "false"
+	  else
+		USER_check_vidblain = "true"
+	  end
+
+	  local msg = "off"
+	  if (USER_check_vidblain == "true") then
+		msg = "on"
+	  end
+	  ColourNote ("darkorange", "", "No-portal vidblain assistance: " .. msg)
+	end
+
+	function OnPluginSaveState()
+
+		SetVariable("XRunToCheckVidblain", USER_check_vidblain)
+
+	end
+
+	--------- Sql Execution ------------
+
+	function RunSql(name, line, wildcards)
+
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		local index = 0
+		local sql = wildcards.sql
+		ColourNote("darkorange", "", "running :" .. sql)
+		for row in db:nrows(sql) do
+			index = index + 1
+			print("----------- record " .. index .. " -----------" )
+			tprint(row)
+	--		print (serialize.save ("row", row))
+		end
+		
+		db:close_vm()
+	end
+
+	function ExecSql (name, line, wildcards)
+		local worldPath = GetInfo(66)..Trim(sanitize_filename(WorldName()))
+		local db = assert(sqlite3.open(worldPath .. ".db"))
+
+		Note("executing " .. wildcards.sql)
+	--	dbcheck (db:execute (fixsql(wildcards.sql)))
+		db:execute(fixsql(wildcards.sql))
+
+		db:close_vm()
+		Note("ok")
+	end
+
+	-------------- DEBUG --------------------
+
+	function ext_debug(name, line, wildcards)
+		if (showDebug == 0) then
+			showDebug = 1
+		else
+			showDebug = 0
+		end
+		Note("Ext debug:" .. showDebug)
+	end	
+	
+	function DebugNote(text)
+		if (showDebug == 1) then
+			Note("Extender ~ " .. text)
+		end
+	end
+
+	function DebugTPrint(title, obj)
+		if (showDebug == 1) then
+			DebugNote(title .. " : " .. serialize.save_simple(obj))
+		end
+	end
+
+
+	-------------- INSTALL MESSAGE ------------------
+
+	function InstallMessage()
+		ColourNote("MediumSeaGreen", "", "+=======================================================+")
+		ColourNote("MediumSeaGreen", "", "+ Extender Installed - type 'extender help' for options +")
+		ColourNote("MediumSeaGreen", "", "+=======================================================+")
+	end
+
+	InstallMessage()
+
+
+]]>
+</script>
+
+</muclient>
+
+
+<!-- BUGS
+
+
+-->