muby 0.6.6

data/contrib/aardmud.org_4000/speedwalks/aard-sw-clans.rb

@@ -0,0 +1,43 @@
+#
+# Clan speedwalks
+#
+# FIXME: Did I miss any clans?
+def _clantouchstone ; _aylor ; run "13s5en2w" end
+def _clanamazon ; _aylor ; run "2sd" end
+def _clanbard ; _aylor ; run "2s4e3sese;echo other stores -- run u2w or usws or us2w" end
+def _clancrusader ; _aylor ; run "sw" end
+def _clandominion ; _aylor ; run "n2w" end
+def _clandaoine ; _aylor ; run "10s4esw2se5sd" end
+def _clanlight ; _aylor ; run "22sd" end
+def _clanpyre ; _aylor ; run "2s4e3s2ed" end
+def _clansoulpyre ; _clanpyre end
+def _clanromani ; _aylor ; run "13s5e2sen" end
+def _clantanelorn ; _aylor ;  run "8se" end
+def _clanvanir ; _aylor ; run "ne" end
+def _clanwatchmen ; _aylor ; run "6su" end
+# _south ; run "nu"
+def _clantao ; _south ; run "22su" end
+def _tao ; _clantao end
+def _clanperdition ; _aylor ; run "6sd" end
+def _clanseekers ; _aylor ; run "8su" end
+def _clanimperium ; _aylor ; run "se" end
+def _clancabal ; _aylor ; run "2su" end
+def _clandruid ; _aylor ; run "13s4e5s2u" end
+def _clancrimson ; _aylor ; write "run 13s2w;open south;run 2s" end
+def _clanemerald ; _aylor ; run "5swd" end
+def _clanmasaki ; _aylor ; run "ne" end
+def _clantwinlobe ; _aylor ; run "2neu" end
+def _clanchaos ; _aylor ; run "su" end
+def _clanimperium ; _aylor ; run "se" end
+
+def _nopublichall ; pprint "No public hall is listed/known." end
+
+def _clandragon ; _nopublichall end
+def _clanbaal ; _nopublichall end
+def _clanxunti ; _nopublichall end
+def _clanrhabdo ; _nopublichall end
+def _clanretri ; _nopublichall end
+def _clanretribution ; _nopublichall end
+def _clanshadokil ; _nopublichall end
+def _clanshadowkill ; _nopublichall end
+def _clanhook ; _nopublichall end

data/contrib/aardmud.org_4000/speedwalks/aard-sw-guilds.rb

@@ -0,0 +1,13 @@
+#
+# Guild speedwalks
+#
+
+def _guildranger     ; recall ; run "7s2wu" ; nil end
+def _guildwarrior    ; recall ; run "5s2wu" ; nil end
+def _guildcleric     ; recall ; run "5sebu" ; nil end
+def _guildthief      ; recall ; run "7swsu" ; nil end
+def _guildpaladin    ; recall ; run "5s2nu" ; nil end
+def _guildpsionicist ; recall ; run "7s2eu" ; nil end
+def _guildpsi        ; _guildpsionicist     ; nil end
+def _guildmage       ; recall ; run "7sesu" ; nil end
+

data/contrib/aardmud.org_4000/speedwalks/aard-sw.rb

@@ -0,0 +1,45 @@
+# Getting to the gates in Aylor:
+# The Blessed Aylorian Highway
+# def _north ; _aylor ; write "run 4ne;open north;run 2nw4n" end
+def _north ; _aylor ; write "run 2s8enw" end
+# Eastern High Road
+def _east ; _aylor ; write "run 2s8e" end
+# Western High Road
+def _west ; _aylor ; write "run 2s8w" end
+# Great Andolor Highway
+# def _south ; _aylor ; write "run 23s" end
+def _south ; _aylor ; write "run 2s8esw" end
+
+
+def _id ; _aylor ; write "run 2s4e2n" end
+
+def _unknown
+  write "echo this speedwalk is not yet known"
+end
+
+
+
+#
+# Continents
+#
+# While running on the continents, running on roads will generally be faster than running over other land, unless of course you are flying then it makes no difference.
+# Some areas have multiple entrances from the same continent room depending on which direction you enter them.
+
+# Gelidus
+def _gelidus ; write "run 4ne;op n;run 2nw3n21n" end
+# Alagh
+def _alagh ; write "run 2s17e2s6en15e" end
+# Abend
+def _abend ; write "run 2s10wn2wn4wn8wn14w" end
+# Southern Ocean
+def _southernocean ; write "run 22s" end
+# Uncharted Ocean
+def _unchartedocean ; write "run 33s31w10s" end
+
+
+
+# Near to Aylor:
+def _angorbridge
+  _west
+  run "2wn2wn4wn8wn2w"
+end

data/contrib/aardmud.org_4000/triggers/aard-triggers-items.rb

@@ -0,0 +1,254 @@
+#
+# Helpers for items:
+#   bid, rbid, lore, identify and appraise.
+#
+
+
+# FIXME: When I rbid on something, it outputs the last known variables.  It's probably the alias doing it..
+# weight check is getting weird numbers..
+
+# TODO: Re-report the cost for the item.  Compare the numbers and report the amount of QPs lost/won so far.
+# Save the item into a hash with @item_number as its key, and the value as [@base, @tps]
+# Remort Auction: Bid of (\d+) Qp on .* (Level \d+, Num (\d+)) going (once|twice)\.
+# Remort Auction: .* (Level \d+, Num (\d+)) sold to \w+ for (\d+) Qp\.
+
+# /receive "Remort Auction: SySy is selling a level 200 Aardwolf Aura of Sanctuary (Num 3).\n"
+# Remort Auction: Starting bid is 100 Qp\. \(See 'help rbid'\)
+# FIXME: This is busted!
+conf.remote_triggers[/^DISABLED   Remort Auction: \w+ is selling a level (\w+) (.*) \(Num (\d+)\)\.$/] = Proc.new do |inwin, outwin, match|
+# FIXME: Bug with this not setting rbid off properly:
+# weight has changed: 10 => 
+# NoMethodError: undefined method `<' for nil:NilClass
+
+#   @level = match[1]
+  @item = match[2]
+  @item_number = match[3]
+  wasafk = 0
+  if $afk == 1 then wasafk == 1 ; afk 0 end
+  # Catch all the information:
+  id
+  # Hijack the next prompt (overwrites what 'id' does)
+  conf.remote_triggers[$prompt] = Proc.new do
+    rbid_tp_checker
+    pprint "A base of #{@base} + #{@tps} TPs = #{@base+(@tps*75)}"
+    id_teardown
+  end
+  # Trigger off the above:
+#   write "rbid #{@item_number}"
+  # Return me to my afk-ness:
+  if wasafk == 1 then afk 1 end
+end
+
+# TODO: Item flag changes..
+# TODO: keepflag = 6TPs
+# Catch the difference in hr/dr.  Check the level, know the expected hr/dr.  When higher, add 1TP cost per point difference.
+# TODO: Work with my level, tiers and the keepflag wish.  Note things that are out of my range.
+def rbid_tp_checker
+  @tps = 0
+  case @item
+    when "Axe of Aardwolf"                          ; @base = 1000 ; original_weight = 20 ; original_type = "axe"     ; base_damtype = "cleave"        ; base_flag = "vorpal"
+    when "Dagger of Aardwolf"                       ; @base = 1000 ; original_weight = 10 ; original_type = "dagger"  ; base_damtype = "pierce"        ; base_flag = "sharp"
+    when "Flail of Aardwolf"                        ; @base = 1000 ; original_weight = 25 ; original_type = "flail"   ; base_damtype = "beating"       ; base_flag = "vampiric"
+    when "Halberd of Aardwolf"                      ; @base = 1000 ; original_weight = 25 ; original_type = "polearm" ; base_damtype = "drain"         ; base_flag = "changing"
+    when "Mace of Aardwolf"                         ; @base = 1000 ; original_weight = 20 ; original_type = "mace"    ; base_damtype = "pound"         ; base_flag = "frost"
+    when "Staff of Aardwolf"                        ; @base = 1000 ; original_weight = 15 ; original_type = "spear"   ; base_damtype = "thwack"        ; base_flag = "shocking"
+    when "Sword of Aardwolf"                        ; @base = 1000 ; original_weight = 35 ; original_type = "sword"   ; base_damtype = "slice"         ; base_flag = "flaming"
+    when "Whip of Aardwolf"                         ; @base = 1000 ; original_weight = 15 ; original_type = "whip"    ; base_damtype = "shocking bite" ; base_flag = "vampiric"
+    when "the Shield of Aardwolf"                   ; @base =  750 ; original_weight = 25 # I think..
+    when "Aardwolf Aura of Sanctuary"               ; @base = 2500 ; original_weight = 1
+    when "the Amulet of Aardwolf"                   ; @base =  750 ; original_weight = 4
+    when "Aardwolf Bracers of Iron Grip"            ; @base = 1750 ; original_weight = 0 # unknown
+    when "Aardwolf Gloves of Dexterity"             ; @base = 2250 ; original_weight = 10
+    when "Aardwolf Boots of Speed"                  ; @base = 1300 ; original_weight = 2
+    when "Wings of Aardwolf"                        ; @base =  800 ; original_weight = 1
+    when "Aardwolf Ring of Invisibility"            ; @base =  500 ; original_weight = 1
+    when "Aardwolf Ring of Regeneration"            ; @base = 1000 ; original_weight = 1
+    when "Aardwolf Helm of True Sight"              ; @base = 1100 ; original_weight = 5
+    when "Aardwolf Breastplate of magic resistance" ; @base = 2000 ; original_weight = 10
+    when "Decanter of Endless Water"                ; @base =  550 ; original_weight = 0 # unknown
+    when "Bag of Aardwolf"                          ; @base = 1500 ; original_weight = 0 # depends on level.
+  end
+
+  def weight_check(original_weight, current_weight)
+    if original_weight != current_weight then pprint "weight has changed: #{original_weight} => #{current_weight}" end
+
+    # TODO: Make this much more universal.. loop through and figure out how many times I can divide by 2 or multiply by 2..
+    if current_weight < original_weight then
+      if current_weight <= (original_weight /  2) then pprint "half-weighted (1 time)"    ; return  2 end
+      if current_weight <= (original_weight /  4) then pprint "half-weighted (2 times)"   ; return  4 end
+      if current_weight <= (original_weight /  8) then pprint "half-weighted (3 times)"   ; return  6 end
+      if current_weight <= (original_weight / 16) then pprint "half-weighted (4 times)"   ; return  8 end
+      if current_weight <= (original_weight / 32) then pprint "half-weighted (5 times)"   ; return 10 end
+      if current_weight <= (original_weight / 64) then pprint "half-weighted (6 times)"   ; return 12 end
+    elsif current_weight > original_weight then
+      if current_weight >= (original_weight * 64) then pprint "double-weighted (6 times)" ; return 12 end
+      if current_weight >= (original_weight * 32) then pprint "double-weighted (5 times)" ; return 10 end
+      if current_weight >= (original_weight * 16) then pprint "double-weighted (4 times)" ; return  8 end
+      if current_weight >= (original_weight *  8) then pprint "double-weighted (3 times)" ; return  6 end
+      if current_weight >= (original_weight *  4) then pprint "double-weighted (2 times)" ; return  4 end
+      if current_weight >= (original_weight *  2) then pprint "double-weighted (1 time)"  ; return  2 end
+    else return 0
+    end
+    pprint "ERROR: 'weight_check' can't deal with numbers like that.\n       current_weight = '#{current_weight}' and original_weight = '#{original_weight}'"
+  end
+
+  # Items which were renamed will bypass the above switch.  Catch the proper base value of these items.
+  # Check if the damage type, flag or weight has been changed from the default.  NOTE: Items which have been renamed will slip through this net.
+  case @type
+    when "axe"
+      base = 1000
+      if original_type != "axe"      then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "vorpal"       then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 20)
+    when "dagger"
+      base = 1000
+      if original_type != "dagger"   then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "sharp"        then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 10)
+    when "flail"
+      base = 1000
+      if original_type != "flail"    then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "vampiric"     then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 25)
+    when "polearm"
+      base = 1000
+      if original_type != "polearm"  then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "changing"     then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 25)
+    when "mace"
+      base = 1000
+      if original_type != "mace"     then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "frost"        then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 20)
+    when "spear"
+      base = 1000
+      if original_type != "spear"    then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "shocking"     then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 15)
+    when "sword"
+      base = 1000
+      if original_type != "sword"    then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "flaming"      then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 35)
+    when "whip"
+      base = 1000
+      if original_type != "whip"     then pprint "weapon type changed" ; @tps += 3 end
+      if base_flag != "vampiric"     then pprint "weapon flag changed" ; @tps += 2 end
+      @tps += weight_check(original_weight, 15)
+    else # non-Aard-weapons
+      @tps += weight_check(original_weight, @weight)
+  end # case @type
+end # rbid_tp_checker
+
+
+#
+# Identifying equipment
+#
+
+def id
+  conf.remote_triggers[/^\| Names      : (.+)\|$/] = Proc.new do |inwin, outwin, match| @names = match[1].rstrip end
+  conf.remote_triggers[/^\| Desc       : (.+)\|$/] = Proc.new do |inwin, outwin, match| @desc  = match[1].rstrip end
+  conf.remote_triggers[/^\| Type       : (.+)Level  :\s*(\d+)\s*\|$/] = Proc.new do |inwin, outwin, match| @type = match[1].rstrip ; @level = match[2] end
+  conf.remote_triggers[/^\| Worth      :\s*(.+)\s*Weight :\s*(\d+)\s*\|$/] = Proc.new do |inwin, outwin, match|
+    @worth = match[1].gsub(",", "").rstrip.to_i
+    @weight = match[2].to_i
+  end
+  conf.remote_triggers[/^\| Wearable   :\s*(.+)\|$/] = Proc.new do |inwin, outwin, match| @wearable = match[1].rstrip end
+  conf.remote_triggers[/^\| Flags      :\s*(.+)\|$/] = Proc.new do |inwin, outwin, match| @flags = match[1].rstrip end
+  # FIXME: Work with additional rows of flags..
+  conf.remote_triggers[/^\| Armor      : Pierce    :\s*(\d+)\s*Bash      :\s*(\d+)\s*\|$/] = Proc.new do |inwin, outwin, match| @pierce = match[1].rstrip ; @bash = match[2] end
+  conf.remote_triggers[/^\|              Slash     :\s*(\d+)\s*Magic     :\s*(\d+)\s*\|$/] = Proc.new do |inwin, outwin, match| @slash = match[1].rstrip ; @magic = match[2] end
+
+  # Hijack the next prompt:
+  conf.remote_triggers[$prompt] = Proc.new do
+    id_teardown
+  end
+  # Also write out the string, if this method was called from a local trigger.
+  true
+end
+
+def id_teardown
+  # All of this should fire off on the bottom border.  The bottom border is seen once, or twice, depending on the type of item:
+  # Not supported: Colour in @names
+  pprint @names
+  pprint @desc
+  pprint @type
+  pprint @level
+  pprint @worth
+  pprint @weight
+  pprint @wearable
+  pprint @flags
+  if @type == "Armor" then
+    pprint @pierce
+    pprint @bash
+    pprint @slash
+    pprint @magic
+  end
+
+  conf.remote_triggers.delete(/^\| Names      : (.+)\|$/)
+  conf.remote_triggers.delete(/^\| Desc       : (.+)\|$/)
+  conf.remote_triggers.delete(/^\| Type       : (.+)Level  :\s*(\d+)\s*\|$/)
+  conf.remote_triggers.delete(/^\| Worth      :\s*(\d+)\s*Weight :\s*(\d+)\s*\|$/)
+  conf.remote_triggers.delete(/^\| Wearable   :\s*(.+)\|$/)
+  conf.remote_triggers.delete(/^\| Flags      :\s*(.+)\|$/)
+  # FIXME: Work with additional rows of flags..
+  conf.remote_triggers.delete(/^\| Armor      : Pierce    :\s*(\d+)\s*Bash      :\s*(\d+)\s*\|$/)
+  conf.remote_triggers.delete(/^\|              Slash     :\s*(\d+)\s*Magic     :\s*(\d+)\s*\|$/)
+  # Reset all of the prompts:
+  prompt_triggers_setup
+end
+
+
+# This should be user-customized:
+# There doesn't appear to be a simple way to set this.  Maybe I need to finger myself?  But then I'd have to have a user setting for the name of the character.. so why even bother?  I could just make the user set their tier manually..
+$tier = 0
+conf.local_triggers[/^getowned$/] = :getowned
+# This won't work if an item doesn't have a "serial number" - a keyword between brackets.
+def getowned
+  gag_all 1
+  # Janna's perfect white rose     (151412)    1 SySy             The Collective Mi
+  conf.remote_triggers[/^(.*)\((\w+)\)\s+(\*|)(\d+).*$/] = Proc.new do |inwin, outwin, match|
+    # Long names are chopped off by owned.
+    name = match[1].rstrip
+    # NOTE: This is not always a digit, as the item can be restrung to have an additional keyword in brackets.
+    serial_keyword = "(#{match[2]})"
+    item_level = match[4].to_i
+#     pprint name.inspect
+#     pprint serial_keyword.inspect
+#     pprint item_level.inspect
+    # Check to see if I'm a new remort.
+    # if I'm level 1, and the item's level makes it wearable
+    if $level == 1 && item_level <= ($level + ($tier * 10)) then
+      write "echo #{name} #{serial_keyword}"
+      getwear_keep(serial_keyword)
+    elsif item_level == (item_level + ($tier * 10)) then
+      # If I found something at my current level:
+      # Names to ignore:
+      case name
+        when "A Bag of Aardwolf" ; nil
+        when "Decanter of Endless Water" ; nil
+        else
+          write "echo #{name} #{serial_keyword}"
+      end
+      getowned_user_exceptions(serial_keyword)
+    end
+    # Clean up after the end of the owned list.
+    conf.remote_triggers[/\[ \d+ \] owned items found\.$/] = Proc.new do
+      conf.remote_triggers.delete(/^(.*)\((\w+)\)\s+(\*|)(\d+).*$/)
+      conf.remote_triggers.delete(/\[ \d+ \] owned items found\.$/)
+    end
+  end
+  write "owned"
+end
+
+# Keywords which are exceptions, e.g. for dualing:
+# TODO: Now the problem here is that it may try to dual the one item before it tries to wield the first.
+def getowned_user_exceptions(serial_keyword)
+  case serial_keyword
+    when "(example)" ; getdual_keep(serial_keyword) ; pprint "special item exception.."
+    else
+      getwear_keep(serial_keyword)
+  end
+end
+
+__END__

data/contrib/aardmud.org_4000/triggers/aard-triggers.rb

@@ -0,0 +1,227 @@
+#
+# Void trigger.  The character will never disconnect because of timeouts.
+#
+# NOTE: returning from the void causes your character to stand, and it does not influence your AFK status.
+# However, voiding and coming back doesn't wake one up.
+conf.remote_triggers[/^You disappear into the void\.$/] = Proc.new do |inwin, outwin, match|
+  # It's best to turn it off, to avoid unpleasantness.
+  afk 0
+  # NOTE: Cannot echo while afk.
+  if $asleep == 1 then wake end
+  write "echo keepalive -- #{Time.new}"
+  afk '@YF@Wear @YT@Whe @YV@Woid@Y.@w'
+end
+
+conf.remote_triggers[/^QUEST: You may now quest again.$/] = Proc.new do
+  p
+  # Play music?
+end
+conf.remote_triggers[/^You see no one here but yourself!$/] = Proc.new do write "map" end
+
+# Do the obvious thing, when reading notes.
+conf.remote_triggers[/^Changed to board .+ unread note(|s) for you on this board\.$/] = Proc.new do write "note" end
+
+# 'this command', 'whatever', 'ftalk', etc... =/
+conf.remote_triggers[/^\*\[AFK\]\* |^You are now in AFK mode\.$/] = Proc.new do $afk = 1 end
+conf.remote_triggers[/You cannot .+ while (afk|AFK)\.$/] = Proc.new do $afk = 1 ; afk 0 ; repeat_history end
+
+# When completed a note, get the prompt so that triggers and gags will resume.
+# Note cancelled!
+conf.remote_triggers[/You are back in the game\.$/] = :p
+
+
+conf.remote_triggers[/^Better stand up first\.$/] = Proc.new do write "stand" ; repeat_history end
+conf.remote_triggers[/^Nah\.\.\. You feel too relaxed\.\.\.$/] = Proc.new do write "stand" ; repeat_history end
+# Push fails for no particular reason.  Keep trying:
+conf.remote_triggers[/^You don\'t quite feel up to pushing things around at the moment\.$/] = Proc.new do repeat_history end
+
+# Commands while sleeping.  Like 'snore'  =/
+conf.remote_triggers[/^In your dreams\, or what\?/]    = Proc.new do $asleep = 1 ; wake ; repeat_history end
+conf.remote_triggers[/^You dream about being able to/] = Proc.new do $asleep = 1 ; wake ; repeat_history end
+
+
+# TODO: I don't know if the "intelligence" here actually works yet.
+def repeat_history
+#   pprint Muby::InputWindow.get_instance.history[-1]
+#   pprint Muby::InputWindow.get_instance.history[-2]
+  # If the first character is a slash, then abort!
+  if Muby::InputWindow.get_instance.history[-1].split(' ')[0][0..0] == "/" then pprint "not doing #{Muby::InputWindow.get_instance.history[-1].split(' ')[0].inspect}\n" ; return nil end
+  # Avoid throwing out something which will send me to recall..
+  case Muby::InputWindow.get_instance.history[-1].split(' ')[0]
+  # Don't leak a "know" string to the mud!
+  when "know" then return nil
+  # Let me do /repeat_history manually:
+  when "/repeat_history" then
+    case Muby::InputWindow.get_instance.history[-2].split(' ')[0]
+    when "know" then return nil
+    else
+      write Muby::InputWindow.get_instance.history[-2]
+    end
+  else
+    write Muby::InputWindow.get_instance.history[-1]
+  end
+end
+
+# Remember where I am:
+conf.remote_triggers[/^You are in area : (.+)$/] = Proc.new do |inwin, outwin, match| $area = match[1].rstrip end
+
+conf.remote_triggers[/^You have been KILLED!!$/] = Proc.new do write "stand" end
+# Untested..
+conf.remote_triggers[/^\*\* For \w+'s interference, you can take revenge on \w+ for \d+ \w+.$/] = Proc.new do write "pkstats" end
+
+# Santuary elapse/dispelled -- you could also echo it locally, or just replace the elapse message with something more visible.
+conf.remote_triggers[/^Your brilliant white aura of sanctuary shimmers and is gone\.$/] = Proc.new do write "gtalk @C**@W My sanctuary is gone! @C**@w" end
+
+
+# Search through triggers.
+def rt_search(s)
+  s = ensure_s(s)
+  conf.remote_triggers.each { |i|
+    if i.inspect =~ /#{s}/ then pprint i.inspect end
+  }
+end
+# Use with:  /rt_search "string"
+
+
+# If I try to dual something, then note the dual attempt.
+# NOTE: Variables are not saved between sessions yet.
+# TODO: Do something similar with holding an item.
+conf.local_triggers[/^dual (.+)$/] = Proc.new do |inwin, outwin, match|
+  dual match[1]
+  false
+end
+def dual(s)
+  s = ensure_s(s)
+  $dual_attempt = s
+  write "dual '#{ensure_s(s)}'"
+end
+# If I successfully dual an item, then note the new dual item.
+conf.remote_triggers[/^You wield .+ in your off-hand\.$/] = :_dual_success
+def _dual_success
+  if $dual_attempt == "" then return nil end
+  # Intelligently Deal with #.keyword -- 2.axe 20.axe 200.axe etc  =)
+  # NOTE: This does not deal with the problem of picking up another item with the same keyword, and the resulting stack issues.  I miss being able to remove an item and have it be on the top of the inventory stack.  =(
+  def dual_attempt(n)
+    n = ensure_n(n)
+    dual_attempt = $dual_attempt[(n+1)..-1]
+    # Put the item back on the top of the stack
+    write "remove #{dual_attempt}"
+    write "give #{$dual_attempt} self"
+    # Re-dual the item without the #.keyword:
+    dual dual_attempt
+  end
+  if $dual_attempt[1..1] == "." then dual_attempt(1) end
+  if $dual_attempt[2..2] == "." then dual_attempt(2) end
+  if $dual_attempt[3..3] == "." then dual_attempt(3) end
+  $dual = $dual_attempt.dup
+  $dual_attempt = ""
+end
+
+# TODO: Don't know how to use..
+# TODO: Barely know how to use..
+conf.remote_triggers[/^You are not carrying that!$|^That really wouldn\'t make a very effective weapon\.$|^You must be level .+ to use .+\.$/] = :_dual_fail
+def _dual_fail
+  if $dual_attempt != "" then $dual_attempt = "" end
+end
+
+conf.remote_triggers[/^You raise a level!!$/] = :levelup
+
+def levelup
+  $level += 1
+  write "wimpy"
+  # TODO: Make this more noticible.
+  pprint ">> level #{$level - ($tier * 10)} (#{$level})"
+
+#   pprint "level #{$level} / 5 = #{$level / 5.0}"
+#   pprint "      #{$level / 5.0} => #{($level / 5.0) - $level / 5}"
+  # Every 5 levels, check my score.  This is primarily to get the new $wis_now
+  if (($level / 5.0) - $level / 5) == 0.0 then score end
+end
+
+
+__END__
+
+[ 10 minutes of double exp started courtesy of Aardwolf supporters - see 'help donate' ]
+
+
+--+
+
+The Aardwolf gamedriver tells you 'ACK!!! I'm in a loop.
+--- Pfile saved. Qtime reset. Emergency reboot coming up ---
+
+--+
+
+What be thy name, adventurer?
+<login>
+The game is currently available only to imms.
+This means that either Aardwolf is about to reboot, or, the mud has a
+problem that can only be solved without players online.
+
+ Please wait a few minutes and try again.
+ Thanks for your patience and see you soon! - Immortals of Aardwolf.
+
+--+
+
+Reboot imminent. Quest time reset and full heal given.
+
+-----------------------------------------------------------------------------
+We hope you have enjoyed playing Aardwolf and will return soon. Please check
+out our web site at www.aardwolf.com and maybe even drop in a vote for us
+while you're there.
+-----------------------------------------------------------------------------
+
+--+
+
+Someone forces you to 'quit quit'.
+Reboot imminent. Quest time reset and full heal given.
+
+-----------------------------------------------------------------------------
+We hope you have enjoyed playing Aardwolf and will return soon. Please check
+out our web site at www.aardwolf.com and maybe even drop in a vote for us
+while you're there.
+-----------------------------------------------------------------------------
+
+--+
+
+
+
+#
+# Trigger group experimentation (fails)
+#
+
+--+ METHOD ONE:
+
+groups = []
+conf.remote_triggers[/^\| Names      : (.+)\|$/] = Proc.new do |inwin,
+outwin, match|
+ @names = match[1].rstrip
+ groups << match[0]
+end
+
+then I could delete it with:
+group.each { |i|
+ conf.remote_triggers.delete(i)
+}
+
+However, match[0] is not what I want.  Is there a way to easily refer
+to the regex itself?
+
+--+ METHOD TWO
+
+$trigger_groups = {}
+def group_remote_trigger(group, regex, actions)
+  conf.remote_triggers[regex] = Proc.new do |inwin, outwin, match| actions end
+  $trigger_groups.merge!({group => regex})
+  pprint $trigger_groups.inspect
+end
+
+def group_remote_trigger_delete_all(group)
+  $trigger_groups[group].each { |i|
+    pprint i.inspect
+    conf.remote_triggers.delete(i)
+    $trigger_groups.delete(group)
+  }
+end
+
+# /group_remote_trigger("test", '^test$', {pprint match[0]})
+# /group_remote_trigger_delete_all("test")