module Go2

Go2_version = '2.0.8'

@@data ||= nil

def self.data

@@data

end

def self.color(color, msg)

if defined?(Lich::Messaging)

Lich::Messaging.msg_format(color, msg)

else

msg

end

end

def self.wealth_quiet();

wealth_pattern = /^You have (no silver|[,\d]+|but one) coins?/;

wealth = dothistimeout 'wealth quiet', 3, wealth_pattern;

coins = 0;

if wealth.gsub('but one', '1') =~ wealth_pattern;

coins = $1.gsub(',', '').to_i;

end;

return coins;

end;

def self.go2_check_silver;

if LICH_VERSION.split('.')[0].to_i < 5 or !defined?(Lich::Util.silver_count)

return self.wealth_quiet

else

return Lich::Util.silver_count

end

end

def self.load_go2_settings()

if UserVars.mapdb_buy_day_pass == true

buy_pass = "on"

elsif UserVars.mapdb_buy_day_pass == false

buy_pass = "off"

else

buy_pass = UserVars.mapdb_buy_day_pass

end

settings_hash = {

:mapdb_car_to_sos => UserVars.mapdb_car_to_sos,

:mapdb_car_from_sos => UserVars.mapdb_car_from_sos,

:mapdb_use_portals => UserVars.mapdb_use_portals,

:mapdb_use_old_portals => UserVars.mapdb_use_old_portals,

:mapdb_use_urchins => UserVars.mapdb_use_urchins,

:mapdb_use_portmasters => UserVars.mapdb_use_portmasters,

:mapdb_use_day_pass => UserVars.mapdb_use_day_pass,

:mapdb_buy_day_pass => buy_pass,

:mapdb_day_pass_sack => UserVars.day_pass_sack,

:mapdb_ice_mode => UserVars.mapdb_ice_mode,

:mapdb_fwi_trinket => UserVars.mapdb_fwi_trinket,

:rogue_password => UserVars.rogue_password,

:delay => CharSettings['delay'],

:typeahead => CharSettings['typeahead'],

:stop_for_dead => CharSettings['stop for dead'],

:get_silvers => CharSettings['get silvers'],

:get_return_silvers => CharSettings['get return trip silvers'],

:use_vaalor_shortcut => CharSettings['vaalor shortcut'],

:use_seeking => CharSettings['use seeking'],

:echo_input => CharSettings['echo_input'],

:hide_room_desc => CharSettings['hide_room_descriptions'],

:hide_room_titles => CharSettings['hide_room_titles'],

}

settings_hash

end

def self.load(settings)

@@data = settings

end

def self.save_go2_settings(settings)

UserVars.mapdb_car_to_sos = settings[:mapdb_car_to_sos]

UserVars.mapdb_car_from_sos = settings[:mapdb_car_from_sos]

UserVars.mapdb_use_portals = settings[:mapdb_use_portals]

UserVars.mapdb_use_old_portals = settings[:mapdb_use_old_portals]

UserVars.mapdb_use_urchins = settings[:mapdb_use_urchins]

UserVars.mapdb_use_portmasters = settings[:mapdb_use_portmasters]

UserVars.mapdb_use_day_pass = settings[:mapdb_use_day_pass]

UserVars.day_pass_sack = settings[:mapdb_day_pass_sack]

UserVars.mapdb_ice_mode = settings[:mapdb_ice_mode]

if settings[:mapdb_buy_day_pass].empty? || settings[:mapdb_buy_day_pass] =~ /off|no|false/

UserVars.mapdb_buy_day_pass = nil

elsif settings[:mapdb_buy_day_pass] =~ /on|true|yes/

UserVars.mapdb_buy_day_pass = true

else

settings[:mapdb_buy_day_pass].split(';').each { |location|

if location !~ /^\s*(?:wl,imt|imt,wl|wl,sol|sol,wl|imt,sol|ill,val|val,ill|ill,cys|cys,ill|val,cys|cys,val)\s*$/i

echo "warning: Location #{location} is invalid. Using it anyway."

end

}

UserVars.mapdb_buy_day_pass = settings[:mapdb_buy_day_pass]

end

if settings[:mapdb_fwi_trinket].empty? || UserVars.mapdb_fwi_trinket =~ /^off$/i

UserVars.mapdb_fwi_trinket = nil

else

UserVars.mapdb_fwi_trinket = settings[:mapdb_fwi_trinket]

end

UserVars.rogue_password = settings[:rogue_password]

CharSettings['delay'] = settings[:delay]

CharSettings['typeahead'] = settings[:typeahead]

CharSettings['stop for dead'] = settings[:stop_for_dead]

CharSettings['get silvers'] = settings[:get_silvers]

CharSettings['get return trip silvers'] = settings[:get_return_silvers]

CharSettings['vaalor shortcut'] = settings[:use_vaalor_shortcut]

CharSettings['use seeking'] = settings[:use_seeking]

CharSettings['echo_input'] = settings[:echo_input]

CharSettings['hide_room_descriptions'] = settings[:hide_room_desc]

CharSettings['hide_room_titles'] = settings[:hide_room_titles]

end

if defined?(Gtk)

# Setup is an extension of Gtk::Builder for Gtk setup

class Setup < Gtk::Builder

attr_accessor :settings

@@categories = {

general: {

mapdb_car_to_sos: { default: false },

mapdb_car_from_sos: { default: false },

mapdb_ice_mode: { default: false },

mapdb_use_urchins: { default: false },

mapdb_use_portmasters: { default: false },

mapdb_use_day_pass: { default: false },

mapdb_buy_day_pass: { default: '' },

mapdb_day_pass_sack: { default: '' },

mapdb_fwi_trinket: { default: '' },

mapdb_use_portals: { default: false },

mapdb_use_old_portals: { default: false },

typeahead: { default: 0 },

delay: { default: 0 },

use_vaalor_shortcut: { default: false },

get_silvers: { default: false },

get_return_silvers: { default: false },

hide_room_desc: { default: false },

hide_room_titles: { default: false },

echo_input: { default: true },

use_seeking: { default: false },

stop_for_dead: { default: false },

rogue_password: { default: '' },

}

}

def self.get_category(key)

@@categories.each { |category, data| return category unless data[key].nil? }

nil

end

def self.get_setting(key)

cat = Setup.get_category(key)

return nil if cat.nil?

@@categories[cat].each { |setting, data| return data if setting == key }

nil

end

def initialize(settings)

super()

@settings = settings

# set default values if they don't exist

@@categories.each do |_, data|

data.each { |key, value| @settings[key] = value[:default] if @settings[key].nil? }

end

# remove settings that doesn't exist

@settings.delete_if { |key, _| next Setup.get_category(key).nil? }

# use a GTK Builder to setup all the basics of the window then expand on that base

return unless defined?(Gtk) && Gtk::Version::MAJOR == 3

Gtk.queue do

# add_from_file("#{$data_dir}go2.ui")

add_from_string(Setup.go2_ui)

load_settings

self['main'].keep_above = true

self['main'].set_title "Go2 Setup v#{Go2_version}"

# connect signals after settings are loaded to a bunch of handlers don't trigger

connect_signals { |handler| method(handler) }

end

end

def self.go2_ui

ui_string = '<?xml version="1.0" encoding="UTF-8"?><interface><requires lib="gtk+" version="3.20"/><object class="GtkAdjustment" id="delay_adjustment"><property name="upper">600</property>

end

# This is connected to automatically during load_settings and syncs data back to CharSettings.

def on_update(obj)

Gtk.queue do

key = obj.builder_name.to_sym

setting = Setup.get_setting(key)

return if setting.nil?

if obj.class == Gtk::CheckButton

@settings[key] = obj.active?

elsif obj.class == Gtk::Entry

@settings[key] = obj.text.strip

elsif obj.class == Gtk::SpinButton

# update from text entry

obj.update

# force int, we don't use floats anywhere

@settings[key] = obj.adjustment.value.to_i

elsif obj.class == Gtk::ComboBoxText

@settings[key] = obj.active_text

end

end

end

def on_close_clicked

Go2.load(@settings)

self['main'].destroy

end

def on_destroy

Gtk.queue {

Go2.load(@settings)

@running = false

}

end

# iterate all objects and for any that match a setting name directly we set the default

def load_settings

Gtk.queue do

# load up the generic settings which are just matching by name of the widget

objects.each do |obj|

next unless obj.methods.include?(:builder_name)

key = obj.builder_name.to_sym

next if (setting = Setup.get_setting(key)).nil?

# set the default value

obj.set_sensitive(false) if (obj.builder_name.to_s.eql?("mapdb_use_portals")) && XMLData.game !~ /^GSPlat|^GSF/

obj.set_sensitive(false) if (obj.builder_name.to_s.eql?("mapdb_use_old_portals")) && XMLData.game !~ /^GSPlat/

obj.set_sensitive(false) if (obj.builder_name.to_s.eql?("rogue_password")) && Char.prof != "Rogue"

obj.set_sensitive(false) if (obj.builder_name.to_s.eql?("use_seeking")) && Society.member !~ /Order of Voln/ && Society.rank.eql?(26)

if obj.class == Gtk::CheckButton

obj.active = @settings[key]

obj.signal_connect('toggled') { on_update(obj) }

elsif obj.class == Gtk::Entry

obj.text = @settings[key].strip

obj.signal_connect('changed') { on_update(obj) }

elsif obj.class == Gtk::SpinButton

obj.value = @settings[key]

obj.adjustment.value = @settings[key]

obj.signal_connect('changed') { on_update(obj) }

elsif obj.class == Gtk::ComboBoxText

# Fixme: change to builder_name

if @settings[key] == "Auto"

item = 0

elsif @settings[key] == "On"

item = 1

elsif @settings[key] == "Off"

item = 2

elsif @settings[key] == "1"

item = 0

elsif @settings[key] == "2"

item = 1

end

obj.set_active(item) if item

obj.signal_connect('changed') { on_update(obj) }

elsif obj.class == Gtk::TreeView

if (store = self["#{key}_store"]).nil?

respond "** failed to find store for treeview #{key}"

next

elsif setting[:load].nil?

respond "** no :load defined #{key}"

next

end

setting[:load].call(store, @settings[key])

# setup the signals

if (add = self["#{key}_add"]).nil?

respond "** failed to find add for treeview #{key}"

next

elsif (delete = self["#{key}_delete"]).nil?

respond "** failed to find delete for treeview #{key}"

next

elsif (entry = self["#{key}_entry"]).nil?

respond "** failed to find entry for treeview #{key}"

next

end

add.signal_connect('clicked') do

if setting[:set].nil?

respond "** no :set defined for #{key}"

next

elsif entry.text.empty?

next

end

setting[:set].call(store, entry.text, @settings[key])

setting[:load].call(store, @settings[key])

end

delete.signal_connect('clicked') do

if setting[:delete].nil?

respond "** no :delete defined for #{key}"

next

elsif (selected = obj.selection.selected).nil?

next

end

setting[:delete].call(store, selected, @settings[key])

setting[:load].call(store, @settings[key])

end

end

end

# checkboxes for array storage with id's <setting>:<value>

# this is primarily used by the loot types

objects.each do |obj|

next unless obj.methods.include?(:builder_name)

next unless obj.builder_name =~ /^([^:]+):(.*)$/i

next unless obj.class == Gtk::CheckButton

key = Regexp.last_match(1).to_sym

value = Regexp.last_match(2).to_s

# echo "key: #{key} value: #{value}"

next if Setup.get_setting(key).nil?

# echo @settings[key].include?(value)

obj.active = @settings[key].include?(value)

# add in hook

obj.signal_connect('toggled') do

@settings[key].delete(value)

if obj.active?

@settings[key].push(value)

@settings[key].uniq!.sort!

end

end

end

end

end

def start

@running = true

Gtk.queue { self['main'].show_all }

wait_while { @running }

end

def list(cat_to_list: 'all')

indent_size = 2

print_array =

proc do |key, value, indent|

_respond("#{' ' * indent_size * indent.to_i}#{key}:")

value.sort!.each { |entry| _respond("#{' ' * indent_size * (indent.to_i + 1)}#{value.index(entry) + 1}. #{entry}") }

end

print_value = proc { |key, value, indent| _respond("#{' ' * indent_size * indent.to_i}#{key}: #{value}") }

categories = cat_to_list == 'all' ? %w[general internal] : [cat_to_list]

if $frontend == 'stormfront'

output = "<output class=\"mono\"/>\n"

else

output = String.new

end

categories.each do |opt|

_respond("#{output}") if !output.empty?

_respond("#{monsterbold_start}= #{opt.capitalize} =#{monsterbold_end}\n")

@@categories[opt.to_sym].each do |id, _|

value = @settings[id]

value.class == Array ? print_array.call(id, value, 1) : print_value.call(id, value, 1)

end

end

if $frontend == 'stormfront'

output = "<output class=\"\"/>\n"

_respond("#{output}")

end

end

def self.update_setting(key, value)

setting = Setup.get_setting(key)

echo "** Setting #{key.inspect} does not exist" if setting.nil?

action = nil

if value =~ /^([+-])(.*)$/

action = Regexp.last_match(1)

value = Regexp.last_match(2).strip.downcase

end

if value == 'reset'

@settings.delete(key)

echo " Reset #{key}"

elsif @settings[key].class == Array

if value =~ /\d/ && @settings[key][value.to_i]

@settings[key].delete_at(value.to_i)

else

@settings[key].delete(value)

end

if action == '-'

echo " #{value.inspect} removed from #{key.inspect}"

else

@settings[key].push(value)

echo " #{value.inspect} added to #{key.inspect}"

end

echo " #{key.inspect} is now #{@settings[key].join(', ').inspect}"

else

if @settings[key].class == FalseClass || @settings[key].class == TrueClass

value = value =~ /^true|1|yes|on/ ? true : false

elsif @settings[key].class == Integer

value = value.to_i

end

echo "#{key.inspect} has been set to #{value.inspect}"

@settings[key] = value

end

end

end

end

setting_value = { 'on' => true, 'true' => true, 'yes' => true, 'off' => false, 'false' => false, 'no' => false }

previous = shortest_distances = nil

if XMLData.game =~ /^GS/

UserVars.mapdb_urchins_expire = 0 if UserVars.mapdb_urchins_expire.nil?

UserVars.mapdb_car_to_sos = false if UserVars.mapdb_car_to_sos.nil?

UserVars.mapdb_car_from_sos = false if UserVars.mapdb_car_from_sos.nil?

UserVars.mapdb_ice_mode = 'auto' if UserVars.mapdb_ice_mode.nil?

CharSettings['vaalor shortcut'] = false if CharSettings['vaalor shortcut'].nil?

CharSettings['get silvers'] = false if CharSettings['get silvers'].nil?

CharSettings['stop for dead'] = false if CharSettings['stop for dead'].nil?

end

CharSettings['typeahead'] = 0 if CharSettings['typeahead'].nil?

CharSettings['delay'] = 0 if CharSettings['delay'].nil?

CharSettings['hide_room_descriptions'] = false if CharSettings['hide_room_descriptions'].nil?

CharSettings['hide_room_titles'] = false if CharSettings['hide_room_titles'].nil?

CharSettings['echo_input'] = true if CharSettings['echo_input'].nil?

show_help = proc {

output = []

output << "<output class='mono'/>"

output << ""

output << " Recent changes are #{Go2.color("yellow", "highlighted")}" if defined?(Lich::Messaging) == true

output << ""

output << " #{$lich_char}#{Script.current.name} <target> Takes you where you want to go using your saved options."

output.<< " #{$lich_char}#{Script.current.name} goback Takes you back to the room your last #{Script.current.name} started in."

output << " #{$lich_char}#{Script.current.name} <options> <target> Takes you where you want to go, using the given options"

output << " #{' '.rjust($lich_char.length + Script.current.name.length)} instead of your saved options."

output << " #{$lich_char}#{Script.current.name} <options> Saves the given options."

output << " #{Go2.color("yellow", "#{$lich_char}#{Script.current.name} setup")} Brings up GUI for Lich5 users with most of the commands below"

output << " #{Go2.color("yellow", "--hide_room_descriptions=<on|off>")} When 'on', turns room descriptions off for traveling"

output << " #{Go2.color("yellow", "--hide_room_titles=<on|off>")} When 'on', turns room titles off for traveling"

output << " #{Go2.color("yellow", "--echo_input=<on|off>")} When 'on', echos the script input from when the script was called"

output << ""

output << " target: "

output << " target may be a room number, a custom target, a built-in target,"

output << " or part of a room title or room description."

output << ""

output << " options:"

output << " --typeahead=<#> Sets the number of typeahead lines to use."

output << " --delay=<#> Sets the delay in seconds between movements"

output << " (disables typeahead)."

if XMLData.game =~ /^GS/

output << " --get-silvers=<on|off> Sets if #{Script.current.name} has permission to access your bank"

output << " account."

output << " --get-return-trip-silvers=<on|off> Sets if #{Script.current.name} should withdraw enough silvers to"

output << " return from your destination room to your starting room."

output << " --ice-mode=<auto|wait|run> Sets how #{Script.current.name} should deal with rooms that make"

output << " you slip and fall."

output << " --stop-for-dead=<on|off> Pauses the script if you pass a dead person."

output << " --shortcut=<on|off> Sets if the shortcut to Ta'Vaalor should be used."

output << " (climbing and/or simming needed)"

output << " --use-seeking=<on|off> Sets if #{Script.current.name} should use Voln symbol of seeking"

output << " when it will shorten your trip."

output << " --use-urchins=<on|off> Sets if #{Script.current.name} should use urchin guides"

output << " when it will shorten your trip."

output << " --use-portmasters=<on|off> Sets if #{Script.current.name} should use portmasters"

output << " when it will shorten your trip."

output << " --use-day-pass=<on|off> Use a Chronomage day pass to travel between towns in the"

output << " same zone if you have one."

output << " --buy-day-pass=<on|off|locations> Buy a Chronomage day pass if you don't have an unexpired"

output << " one. get-silvers will also need to be turned on if you"

output << " want to buy one without gold ring credits. If you only"

output << " want to buy passes for certain locations, specify the"

output << " locations like so:"

output << " ;go2 --buy-day-pass=wl,imt;imt,wl;imt,sol;ill,val;ill,cys"

output << " --day-pass-container=<container name> Sets the container where you keep your day passes"

output << " --instability=<room number> Use the instability at the given room number to get into"

output << " the Elementla Confluence instead of finding an attuned one."

output << " --fwi-trinket=<trinket name> Use a FWI trinket to get to/from FWI"

output << " --fwi-trinket=<off> Stop using a FWI trinket"

output << " --caravan-to-sos=<on|off> Use the caravan to travel to the Sanctum of Scales"

output << " --caravan-from-sos=<on|off> Use the caravan to travel back from the Sanctum of Scales"

elsif XMLData.game =~ /^DR/

output << " --drag=<name> Attempt to automatically drag someone to your destination"

output << " (this probably won't work)"

end

if XMLData.game =~ /^GSPlat|^GSF/

output << " --portals=<on|off> Sets if portals should be used."

end

if XMLData.game =~ /^GSPlat/

output << " --old-portals=<on|off> Sets if old (dangerous) portals should be used."

output << " --portal-pass=<on|off> Turn this on if you have a wearable portal pass and don't"

output << " need a portal ticket."

end

output << ""

output << " other commands:"

output << ""

output << " #{$lich_char}#{Script.current.name} save new name=<target> <Saves> a custom target. target can be the same"

output << " #{''.rjust($lich_char.length + Script.current.name.length)} as before, or \"current\" for your current room"

output << " #{$lich_char}#{Script.current.name} delete custom target Deletes a saved custom target."

output << " #{$lich_char}#{Script.current.name} list Shows your settings and custom targets."

output << " #{$lich_char}#{Script.current.name} targets Shows the built-in targets."

output << ""

output << "<output class=''/>"

output << ""

results = []

output.each { |line|

new_line = line

if $frontend =~ /^(?:wizard)$/

sf_to_wiz(line)

items = /<output class='mono'\/>|<output class=''\/>/

new_line = new_line.gsub(items, "")

new_line = new_line.gsub(/&lt;/, "<")

new_line = new_line.gsub(/&gt;/, ">")

else

line.scan(/\<[^\]\<]*[^\/]>/).each { |item|

next if item.include?("preset")

new_line = new_line.gsub(item, item.encode(:xml => :text))

}

end

results.push(new_line)

}

_respond results

}

# For Dragonrealms only

# A change in behavior from Lich4 to Lich5 caused certain ;go2 map wayto movements to fail.

# This is because of the way the map stringprocs are structured, and the method used to evaluate

# certain map moves, which involved an arguably dubious overloading of FalseClass on Lich4.

# The transition to Lich5 makes it necessary to fix some stringprocs as an interim solution, at

# least until the map can be divested from current owner control and handled appropriately. This code

# also allows the flexibility to pull custom map wayto overrides from the standard yaml hierarchy.

if XMLData.game =~ /^DR/ and defined?(get_settings)

# Get yaml settings

settings = get_settings

# Get base and personal wayto overrides

base_wayto_overrides = settings.base_wayto_overrides

personal_wayto_overrides = settings.personal_wayto_overrides

# Merge the two hashes into a single hash, favoring personal overrides for duplicate keys.

wayto_overrides = base_wayto_overrides.merge(personal_wayto_overrides)

# Iterate through the aggregated map wayto overrides from above and set new stringprocs

wayto_overrides.each do |_key, values|

start_room_id = values['start_room'].to_i

end_room_id = values['end_room'].to_i

start_room = Map.list[start_room_id]

old_wayto = start_room.wayto["#{end_room_id}"]

old_timeto = start_room.timeto["#{end_room_id}"]

new_wayto = old_wayto

new_timeto = old_timeto

if values['str_proc']

new_wayto = StringProc.new("#{values['str_proc']}")

end

if values['travel_time']

new_timeto = values['travel_time'].to_f

end

start_room.wayto["#{end_room_id}"] = new_wayto

start_room.timeto["#{end_room_id}"] = new_timeto

end

end

change_map_vaalor_shortcut = proc { |use_shortcut|

unless Map.list.any? { |room| room.timeto.any? { |_adj_id, time| time.class == Proc and time._dump =~ /$go2_use_vaalor_shortcut/ } }

if use_shortcut

Room[16745].timeto['16746'] = 15

Room[16746].timeto['16745'] = 15

else

Room[16745].timeto['16746'] = 15000

Room[16746].timeto['16745'] = 15000

end

end

}

get_silver_cost = proc { |path|

cost = 0

path.each_index { |index|

Room[path[index]].tags.each { |tag|

if tag =~ /^silver-cost:#{path[index + 1]}:(.*)$/

cost_string = $1

if cost_string =~ /^[0-9]+$/

cost += cost_string.to_i

else

cost += StringProc.new(cost_string).call.to_i

end

end

}

}

cost

}

update_urchin_expire = proc {

if UserVars.mapdb_use_urchins

urchin_status_expires_pattern = /You will have access to the urchin guides until (?<expires>.*?)\./

result = dothistimeout 'urchin status', 3, /You will have access to the urchin guides|You currently have no access to the urchin guides.|permanent access to the urchin guides./

if (m = urchin_status_expires_pattern.match(result))

UserVars.mapdb_urchins_expire = Time.parse(m[:expires].gsub(/(\d+)\/(\d+)\/(\d+) (\d+:\d+:\d+) (.*?)$/, '\3-\1-\2 \4 \5')).to_i

echo "Urchin expiration successfully updated."

elsif result =~ /permanent access to the urchin guides/

UserVars.mapdb_urchins_expire = Time.new(Time.now.year + 1, 1, 1).to_i

echo "Urchin expiration successfully updated."

else

UserVars.mapdb_urchins_expire = 0;

end

if UserVars.mapdb_use_urchins and (UserVars.mapdb_urchins_expire.nil? or UserVars.mapdb_urchins_expire == 0 or Time.now.to_i > UserVars.mapdb_urchins_expire)

echo "Current settings indicate to use urchins, but your access has expired or is unable to be parsed."

echo "Disable this check by running ;go2 --use-urchins=off"

end

end

}

if UserVars.mapdb_use_urchins and (UserVars.mapdb_urchins_expire.nil? or Time.now.to_i > UserVars.mapdb_urchins_expire)

before_dying { update_urchin_expire.call }

end

#

# check for general commands

#

echo "input: #{Script.current.vars[0]}" if CharSettings['echo_input'] == true;

if Script.current.vars.empty? or Script.current.vars[0].strip =~ /^help$/i

show_help.call

exit

elsif Script.current.vars[0] =~ /^setup$/i

Setup.new(Go2.load_go2_settings).start

Go2.save_go2_settings(Go2.data)

exit

elsif Script.current.vars[0] =~ /^targets$/i

echo 'generating list...'

dr_interesting_tags = ["alchemist", "armorshop", "bakery", "bank", "barbarian", "bard", "boutique", "cleric", "clericshop", "empath", "exchange", "fletcher", "forge", "furrier", "gemshop", "general store", "herbalist", "inn", "locksmith", "moonmage", "movers ", "necromancer", "npchealer", "paladin", "pawnshop", "ranger", "smokeshop", "stable", "thief", "town", "trader", "warmage", "weaponshop"]

gs_interesting_tags = ["advguard", "advguard2", "advguild", "advpickup", "alchemist", "armorshop", "bakery", "bank", "bardguild", "boutique", "chronomage", "clericguild", "clericshop", "cobbling", "collectibles", "consignment", "empathguild", "exchange", "fletcher", "forge", "furrier", "gemshop", "general store", "grocer", "herbalist", "inn", "locksmith pool", "locksmith", "mail", "movers", "npccleric", "npchealer", "pawnshop", "portmaster", "postoffice", "rangerguild", "smokeshop", "sorcererguild", "sunfist", "treasuremaster", "town", "voln", "warriorguild", "weaponshop", "wizardguild"]

town_list = Map.list.find_all { |room| room.tags.include?('town') and !room.tags.include?('closed') }

town_ids = town_list.collect { |room| room.id }

town_hash = Hash.new

town_ids.each { |id| town_hash[id] = Array.new }

interesting_tags = (XMLData.game =~ /^DR/ ? dr_interesting_tags : gs_interesting_tags)

for tag in interesting_tags

for room in Map.list.find_all { |iroom| iroom.tags.include?(tag) }

if (nearest = Room[room.id].find_nearest(town_ids))

unless town_hash[nearest].any? { |line| line =~ /^ \- #{tag.ljust(17)} / }

town_hash[nearest].push " - #{tag.ljust(17)} #{room.title.first.sub(/^\[/, '').sub(/\]$/, '').ljust(34)} - #{room.id.to_s.rjust(5)}"