muby 0.6.6

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

@@ -0,0 +1,205 @@
+#
+# Aliases are "local triggers" which match against what you type at the keyboard.
+#
+
+#
+# These are the ones most likely to annoy users.
+#
+# misc.
+conf.local_triggers[/^donate (.*)$/]  = Proc.new do |inwin, outwin, match| write "gdonate #{ensure_s(match[1..-1])}" ; false end
+# conf.local_triggers[/^newbie (.*)$/]  = Proc.new do |inwin, outwin, match| write "snewbie" + ensure_s(match[1..-1]) end
+conf.local_triggers[/^rep (.*)$/]     = Proc.new do |inwin, outwin, match| write "reply #{ensure_s(match[1..-1])}" ; false end
+conf.local_triggers[/^eval (.*)$/]    = Proc.new do |inwin, outwin, match| write "study #{ensure_s(match[1..-1])}" ; false end
+conf.local_triggers[/^re$/] = Proc.new do write "replay" ; nil end
+
+
+conf.local_triggers[/^getwear (.*)$/] = Proc.new do |inwin, outwin, match| getwear ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^getdual (.*)$/] = Proc.new do |inwin, outwin, match| getdual ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^retire (.*)$/]  = Proc.new do |inwin, outwin, match|  retire ensure_s(match[1..-1]) ; false end
+
+# little aliases:
+# So you can copy-and-paste easier:
+# For when people cut-and-paste from within this scripting.
+conf.local_triggers[/^write (.*)$/] = Proc.new do |inwin, outwin, match| write match[1..-1] ; false end
+
+conf.local_triggers[/^openall$/] = Proc.new do open n;open e;open s;open w;open u;open d ; false end
+conf.local_triggers[/^closeall$/] = Proc.new do close n;close e;close s;close w;close u;close d ; false end
+conf.local_triggers[/^ca$/] = Proc.new do write "consider all" ; false end
+# TODO: Allow a specific corpse name to be looted.
+conf.local_triggers[/^lc$/] = Proc.new do write "get all corpse;sacrifice corpse" ; false end
+conf.local_triggers[/^recall$/] = Proc.new do recall ; false end
+conf.local_triggers[/^spring$/] = Proc.new do write "divining" ; false end
+conf.local_triggers[/^reunite$/] = Proc.new do write "reunion" ; false end
+# FIXME: / is intercepted by muby.
+# conf.local_triggers[/^\/$/]     = Proc.new do recall ; false end
+
+conf.local_triggers[/^curep(.*)$/] = Proc.new do |inwin, outwin, match| casting("cure poison", match[1]) ; false end
+conf.local_triggers[/^cureb(.*)$/] = Proc.new do |inwin, outwin, match| casting("cure blindness", match[1]) ; false end
+conf.local_triggers[/^prote(.*)$/] = Proc.new do |inwin, outwin, match| casting("protection evil", match[1]) ; false end
+conf.local_triggers[/^uncurse(.*)$/] = Proc.new do |inwin, outwin, match| casting("remove curse", match[1]) ; false end
+
+# set up the channels:
+# because.. who can remember them?  =/
+conf.local_triggers[/^ranger (.*)$/]  = Proc.new do |inwin, outwin, match| write "grapevine " + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^warrior (.*)$/] = Proc.new do |inwin, outwin, match| write "wardrums "  + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^cleric (.*)$/]  = Proc.new do |inwin, outwin, match| write "commune "   + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^psi (.*)$/]     = Proc.new do |inwin, outwin, match| write "telepathy " + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^psionic (.*)$/] = Proc.new do |inwin, outwin, match| write "telepathy " + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^thief (.*)$/]   = Proc.new do |inwin, outwin, match| write "cant "      + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^rogue (.*)$/]   = Proc.new do |inwin, outwin, match| write "cant "      + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^paladin (.*)$/] = Proc.new do |inwin, outwin, match| write "chant "     + ensure_s(match[1..-1]) ; false end
+conf.local_triggers[/^mage (.*)$/]    = Proc.new do |inwin, outwin, match| write "inform "    + ensure_s(match[1..-1]) ; false end
+
+def reload ; reload_application! ; false end
+conf.local_triggers[/^reload$/] = :reload
+
+# # identification assistance:
+# conf.local_triggers[/^bid (.*)$|^rbid (.*)$|^id (.*)$|^c id (.*)$|^lore (.*)$/] = Proc.new do
+#   id
+#   afk 0
+#   # Send the original string
+#   true
+# end
+
+# Become invisible.  Good for speedwalks.
+# To be customized by the user.
+conf.local_triggers[/^invis (.*)$/] = Proc.new do |inwin, outwin, match| invis match[1] ; false end
+def invis(w)
+  w = ensure_w w
+  case w
+    when 0, "0", false, "false", "off", "remove" then invis_off
+    when 1, "1", true,  "true",  "on",  "wear"   then invis_on
+    else pprint "ERROR: 'invis' requires valid input.  You said: #{w}"
+  end
+end
+def invis_on  ; pprint "become invisible" end
+def invis_off ; pprint "become visible"   end
+conf.local_triggers[/^vis$/] = Proc.new do vis ; false end
+def vis ; write "visible" end
+
+
+# conf.local_triggers[/^bp (\S+)$/] = Proc.new do |inwin, outwin, match| inwin.send("put #{match[1]} in backpack") end
+
+# Walking through a locked door, then locking it behind you.
+conf.local_triggers[/^oc (.*)$/] = Proc.new do |inwin, outwin, match| oc match[1] ; false end
+def oc(c)
+  c = ensure_c c
+  def openclose(c, c2)
+    c = ensure_c c
+    c2 = ensure_c c2
+#     write "open #{c} ; run #{c} ; close #{c2} ; lock #{c2}"
+    open c ; run c ; close c2 ; lock c2
+  end
+  case c
+    when n then openclose(n, s)
+    when e then openclose(e, w)
+    when s then openclose(s, n)
+    when w then openclose(w, e)
+    when u then openclose(u, d)
+    when d then openclose(s, n)
+    else pprint "ERROR: 'oc' requires a valid direction.  You said: #{c}"
+  end
+end
+
+
+
+# A portal helper, to automatically get, use and return a portal from a container.
+# This can be easily modified to have a default container, or to automatically re-wield or wear+hold.
+conf.local_triggers[/^portal (.*)$/] = Proc.new do |inwin, outwin, match| portal(match[1], match[2]) ; false end
+
+# Portal should be updated so that the procedure uses one parameter, and it cuts things apart to get $1 $2 etc, so that my procedures can use 1 or 2 parameters.
+def portal(*string)
+  gag_all 7
+#   pprint portal + container
+#   Muby::InputWindow.pprint(myportal + container)
+  # I'd like to ensure_s(string[0]) etc, but it generates warnings!
+  myportal  = string[0]
+  container = string[1]
+  if myportal == "" then return nil end
+  if container == "" or container == nil then container = $bag end
+  if container == "bag" then container = $bag end
+  asleep 0
+  afk 0
+  if $dual != "" then dual "remove" end
+  getfrom myportal, container
+  hold myportal
+  enter
+  # TODO: if "You can't enter THAT", abort -- bounces.. etc.. ungh.
+  write "remove #{myportal}"
+  putin myportal, container
+  if $dual != "" then dual $dual end
+end
+
+
+
+conf.local_triggers[/^door (.+)|gate (.+)$/] = Proc.new do |inwin, outwin, match|
+   # TODO: Check class and level, and allow one spell to work like the other.. allow people to use either command..
+  write "cast #{match}"
+  false
+end
+
+$questing = false
+def f5
+  if $questing == false then
+    pprint "Requesting a quest.."
+    afk 0
+    _questor
+    gag_all 2
+    write "quest request;quest info"
+    # TODO: This should be based on a trigger:
+    $questing = true
+  else
+    pprint "Completing this quest.."
+    afk 0
+    _questor
+    gag_all 2
+    write "quest complete"
+    # TODO: This should be based on a trigger:
+    $questing = false
+  end
+end
+
+
+# kludge to fix 'p', while afk.
+conf.local_triggers[/^p$/] = :p
+def p
+  if $afk == 1 then
+    # TODO: I could gag the two strings:
+    # AFK mode removed. There are no tells waiting for you.
+    # You are now in AFK mode.
+    # but damn that's annoying to do.
+    afk 0
+    afk 1
+  else
+    # I could also write \n
+#     write "\n"
+    write "p"
+  end
+  false
+end
+
+# make sure that note reading / writing works correctly:
+# TODO: Highlight item descriptions.. especially if something is a clanned item:
+# | Clan Item  : From The Hook Clan                                 |
+conf.local_triggers[/^note(.*)$/] = Proc.new do
+  # Remove all gags and triggers until I get the prompt or afk:
+  disable_gags_and_triggers 1
+  # write out whatever I typed:
+  true
+end
+# TODO: Implement an external editor.. or I could even implement an inline Ruby editor which is intelligent about line-wrapping..
+#   nohup kedit [mmucl rc_dir]/_note.temp&
+# # exec xterm -e nohup kwrite [mmucl rc_dir]/_note.temp\&
+# }
+
+
+
+# # Quest request:
+# You ask Questor for a quest.
+# Questor tells you 'You're very brave SySy, but let someone else have a chance.'
+# Questor tells you 'Come back later.'
+
+# # Quest complete
+# You inform Questor that you have completed your quest.
+# Questor tells you 'You're not on a quest right now SySy.'
+# Questor tells you 'You still have to wait 23 minutes to request one.'

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

@@ -0,0 +1,182 @@
+#
+# Godlike block-gagging routines!
+#
+
+# Note, this stuff will make your ears bleed if you don't have proper $prompt1 and $prompt2 regexes set.  See aardwolf_helpers.rb
+
+# Gag everything from now until the prompt.
+# Note that triggers are still viable, even if they're gagged from the user's view.
+# This is automatically undone by the prompt as n elapses.
+def gag_blocks(n)
+  n = ensure_n(n)
+#   pprint "the next #{n} blocks will be deleted\n"
+  $gag_blocks += n
+  conf.gags << '^(.*)$'
+  conf.anti_gags << $prompt1
+  conf.anti_gags << $prompt2
+  conf.anti_gags << $bprompt1
+  conf.anti_gags << $bprompt2
+end
+$gag_blocks = 0
+def ungag_blocks
+  # Ungagging blocks:
+#   if $gag_block == true then conf.gags.delete('^(.*)$') end
+  if $gag_blocks > 0 then
+    $gag_blocks -= 1
+#     pprint "You have #{$gag_blocks} blocks left\n"
+    if $gag_blocks == 0 then
+      conf.gags.delete '^(.*)$'
+      conf.anti_gags.delete $prompt1
+      conf.anti_gags.delete $prompt2
+      conf.anti_gags.delete $bprompt1
+      conf.anti_gags.delete $bprompt2
+    end
+  end
+end
+
+# Gag n prompts
+def gag_prompts(n)
+  n = ensure_n(n)
+#   pprint "the next #{n} prompts will be deleted\n"
+  $gag_prompts += n
+  conf.gags << $prompt1
+  conf.gags << $prompt2
+  conf.gags << $bprompt1
+  conf.gags << $bprompt2
+end
+$gag_prompts = 0
+def ungag_prompts
+  if $gag_prompts > 0 then
+    $gag_prompts -= 1
+#     pprint "You have #{$gag_prompts} prompts left\n"
+    if $gag_prompts == 0 then
+      conf.gags.delete $prompt1
+      conf.gags.delete $prompt2
+      conf.gags.delete $bprompt1
+      conf.gags.delete $bprompt2
+    end
+  end
+end
+
+# Gag absolutely everything, for n prompts.
+# The n'th prompt will appear.
+def gag_all(n)
+  n = ensure_n(n)
+  gag_blocks(n)
+  conf.anti_gags.delete $prompt1
+  conf.anti_gags.delete $prompt2
+  conf.anti_gags.delete $bprompt1
+  conf.anti_gags.delete $bprompt2
+end
+
+def ungag
+  pprint "ungagging.."
+  $gag_prompts = 0
+  $gag_blocks = 0
+  conf.gags.delete $prompt1
+  conf.gags.delete $prompt2
+  conf.gags.delete $bprompt1
+  conf.gags.delete $bprompt2
+  conf.anti_gags.delete $prompt1
+  conf.anti_gags.delete $prompt2
+  conf.anti_gags.delete $bprompt1
+  conf.anti_gags.delete $bprompt2
+  p
+end
+
+# Anti-gagging.  Useful for note-related things.
+$disable_gags = []
+$disable_gags_blocks = 0
+def disable_gags_blocks(n)
+#   pprint "disabling gags"
+  $disable_gags = conf.gags
+  conf.gags = []
+  $disable_gags_blocks += n
+end
+
+# Note that this will overwrite any gags which were set up in the meantime.
+def undisable_gags_blocks
+  if $disable_gags_blocks > 0 then
+    $disable_gags_blocks -= 1
+#     pprint "You have #{$disable_gags_blocks} blocks left\n"
+    if $disable_gags_blocks == 0 then
+      if $gags_blocks != []
+#         pprint "restoring gags"
+        conf.gags = $disable_gags
+        $disable_gags = []
+      end
+    end
+  end
+end
+
+
+# Untested:
+$disable_triggers = {}
+$disable_triggers_blocks = 0
+def disable_triggers_blocks(n)
+#   pprint "disabling triggers"
+  $disable_triggers = conf.remote_triggers
+  conf.remote_triggers = {}
+  conf.remote_triggers[$prompt1] = :undisable_triggers_blocks
+  # Another essential:
+  conf.remote_triggers[/You cannot .* while (afk|AFK)\.$/] = Proc.new do $afk = 1 ; afk 0 ; repeat_history end
+  $disable_triggers_blocks += n
+end
+
+# Note that this will overwrite any triggers which were set up in the meantime.
+def undisable_triggers_blocks
+  if $disable_triggers_blocks > 0 then
+    $disable_triggers_blocks -= 1
+#     pprint "You have #{$disable_triggers_blocks} blocks left\n"
+    if $disable_triggers_blocks == 0 then
+      if $disable_triggers != {}
+#         pprint "restoring triggers"
+        conf.remote_triggers = $disable_triggers
+        $disable_triggers = {}
+      end
+    end
+  end
+end
+
+
+def disable_gags_and_triggers(n)
+  disable_gags_blocks n
+  disable_triggers_blocks n
+  conf.remote_triggers[$prompt1] = Proc.new do
+    undisable_gags_blocks
+    undisable_triggers_blocks
+  end 
+  conf.remote_triggers[/\*\[AFK\]\*/] = conf.remote_triggers[$prompt1]
+  # Doing this allows the reviving of the trigger which continues to read a note on the next board:
+  conf.remote_triggers[/^Changed to board .* unread note(|s) for you on this board\.$/] = Proc.new do
+    undisable_gags_blocks
+    undisable_triggers_blocks
+    write "note"
+  end
+end
+
+
+__END__
+
+Here are some gag examples:
+
+conf.gags << '^There are few things in this world as breathtaking as the Aylorian skyline at dawn\.$'
+conf.gags << '^The citizens of the world awaken to a new day\.$'
+conf.gags << '^\w+ calls the justice of \w+ to strike \w+ foes!$'
+conf.gags << '^\w+ directs a jet of Marbu poison from (\w|\W)+ sleeves\.$'
+conf.gags << '^Waves of energy emanate from \w+\.'
+
+You can delete gags like this:
+
+conf.gags.delete '^Waves of energy emanate from \w+\.'
+
+# Imm global-spam:
+# Dirtworm's globalspam
+conf.gags << '^\.::\. '
+
+# Obyron's karaoke
+conf.gags << '^:::.*(K|k)araoke.*:::$'
+
+# Poker-spam
+# I'd love to put "poker" in there, but it seems that this isn't always written..
+conf.gags << '^\*\* .* \*\*$'

data/contrib/aardmud.org_4000/misc/aard-affects.rb

@@ -0,0 +1,252 @@
+#
+# Affects-script
+#
+# Intelligently spellup and skillup.  Self-only.
+
+# TODO: Adapt to make it workable on others.  Do it the easy way.. and get bunches of "you cannot cast this on another.." (gag that message..)
+#   check out "spells spellup other"
+# TODO: Provide intelligent exceptions.  i.e. if intertial barrier is on, don't try to cast protection good.
+#       This should be easy to implement.
+
+# To make it efficient, it only works with the names of the spells (and not the number).  This works very well when looking at saffects, casting the spell of that name, or removing an existing spell from the array of spell to be cast.
+
+
+# TODO: Gag saffects to reduce spam?
+
+# IDEA: I could count the number of spells/skills which need to be used.  I could even generate a progress bar on-screen or in the status bar!
+# Maybe I could make an ETA for the spellup.. that'd be neat.
+
+def autospellup(b)
+  b = ensure_b(b)
+  if b == true then
+    if $autospellup == false then $autospellup = true ; pprint " # Autospellup is now on" end
+  elsif b == false then
+    if $autospellup == true then $autospellup = false ; pprint " # Autospellup is now off" end
+  end
+end
+
+def f11
+  autospellup true
+end
+def shift_f11
+  autospellup false
+end
+
+def f12 ; _spellup end
+
+def _affects_cleanup
+  # Automatically re-attempt spells if one of them fails during casting (i.e. "lost concentration")
+  $recasting = false
+  conf.remote_triggers.delete(/^You can already see invisible\.$/)
+  conf.remote_triggers.delete(/^You don't have enough mana to cast .*\.$/)
+  conf.remote_triggers.delete(/^You are not affected by any skills or spells\.$|^You are affected by \d+ skill(|s) and \d+ spell(|s)\.$/)
+  conf.remote_triggers.delete(/^You lost your concentration while trying to cast/)
+  conf.remote_triggers.delete(/^You don't have enough .*\.$|^A powerful force quenches your magic\.|You can\'t concentrate enough\.$/)
+  conf.remote_triggers.delete(/^You are already protected\.$|^You can already /)
+  conf.remote_triggers.delete(/^ \* Recasting\.\.\.$/)
+  conf.gags.delete('^You are affected by the following:$')
+  conf.gags.delete('^You are affected by \d+ skill(s|) and \d+ spell(s|)\.$')
+  conf.gags.delete('^ * Recasting...')
+  conf.gags.delete('^Spell: ')
+  conf.gags.delete('^Skill: ')
+  # All the variables automatically get destroyed when all of this is complete.
+end
+# On load, clean things up.. just in case:
+_affects_cleanup
+
+
+#Just in case something goes wonky:
+conf.local_triggers[/^aff$/] = Proc.new do
+  _affects_cleanup
+  write "aff"
+  false
+end
+conf.local_triggers[/^saff$/] = Proc.new do
+  _affects_cleanup
+  write "saff"
+  false
+end
+
+
+# Automatically discover what spellup spells you have access to:
+# Example: _affects_build_array("spellup") will create the $spells_spellup array.
+# NOTE: Do not run this multiple times back-to-back!
+# TODO: Fix this so that the code is more universal (do that '$' + foo + bar trick)
+def _affects_build_array(type)
+  pprint " # Building an array from spells #{type}"
+  # Gag the output of the list.  It's rough, but it works.
+  conf.remote_triggers[/^Level: /] = Proc.new do
+    conf.gags << '.*'
+    # NOTE: There is no safe way to gag the dashed line and extended help.. something has to un-gag everything.
+  end
+  # ACTION
+  conf.remote_triggers[/^(Level:\s+\d+ |\s+)(.*)Mana:.*\d+.*Learned:\s+(\d+)% \(.*\)$/] = Proc.new do |inwin, outwin, match|
+    # IDEA: In theory, I could capture the entire list.. and put it all into a multi-dimensional array.. boy would that be tough.
+    #    ([level, spell name, learned], [level, spell name, learned])
+    # Any spellup spells which are learned over 60% will be considered:
+    if match[3].to_i > 60 then
+#       pprint match[2].rstrip.downcase.inspect
+      case type
+        when "spellup" then $spells_spellup << match[2].rstrip.downcase
+        when "healing" then $spells_healing << match[2].rstrip.downcase
+        when "combat"  then $spells_combat  << match[2].rstrip.downcase
+      end
+    end
+  end
+  # TEARDOWN
+  conf.remote_triggers[/^-----------------------------------------------------------------------$/] = Proc.new do
+    conf.remote_triggers.delete(/^(Level:\s+\d+ |\s+)(.*)Mana:.*\d+.*Learned:\s+(\d+)% \(.*\)$/)
+    conf.remote_triggers.delete(/^-----------------------------------------------------------------------$/)
+    conf.gags.delete('.*')
+    conf.remote_triggers.delete(/^Level: /)
+    case type
+      when "spellup" then
+        $spells_spellup.uniq!
+        if $spells_spellup == nil then pprint "you don't have any spellup spells!" end
+      when "healing" then
+        $spells_healing.uniq!
+        if $spells_healing == nil then pprint "you don't have any healing spells!" end
+      when "combat"  then
+        $spells_combat.uniq!
+        if $spells_combat == nil then pprint "you don't have any combat spells!" end
+    end
+  end
+
+  # SETUP
+  case type
+    when "spellup" then $spells_spellup = []
+    when "healing" then $spells_healing = []
+    when "combat" then $spells_combat  = []
+  end
+  write "spells #{type}"
+end # _affects_build_array
+
+
+# Copy this method to your user scripting, and you can remove or add affects.
+def _affects_extras
+#   $spells.delete("underwater breathing")
+#   $skills << "clanskill"
+end
+
+def _spellup
+  if $spells_spellup == nil then pprint "healing this routine.." ; _affects_build_array("spellup") ; return nil end
+
+  afk 0
+  asleep 0
+  # Prevent multiple simultaneous recasts.  $recasting is unset by recast_cleanup
+  # This is to stop dumbasses like me from double-tapping their spellup hotkey.
+  if $recasting == true then pprint "## I'm already recasting!" ; return nil ; end
+  $recasting = true
+
+  # $spells_spellup is automatically populated on startup and levelup.
+  $spells = $spells_spellup.dup
+  $skills = []
+  # User scripting to add/remove spells from $spells and $skills :
+  _affects_extras
+  $spells = $spells.uniq
+  $skills = $skills.uniq
+  # Based on saffects, learn what I'm affected with and remove them from the array of possibilities.
+  _affects_qualify_array
+
+  # SETUP:
+  # Avoid seeing the entire list spammed every time.
+  conf.gags << '^You are affected by the following:$'
+  conf.gags << '^You are affected by \d+ skill(s|) and \d+ spell(s|)\.$'
+  # I don't know why the $ at the end won't work..
+  conf.gags << '^ * Recasting...'
+  conf.gags << '^Spell: '
+  conf.gags << '^Skill: '
+  # Stuff attained from permanent items don't appear in saffects anymore.. =(
+  conf.remote_triggers[/^You can already see invisible\.$/] = Proc.new do $spells.delete("detect invis") end
+  conf.remote_triggers[/^You don't have enough mana to cast .*\.$/] = Proc.new do $spells.clear end
+  # FIXME: Handle all the spells individually, and just remove the spell from the array and continue on with the other spells..
+  # protection good, protection evil, FIXME
+  conf.remote_triggers[/^You are already protected\.$|^You can already /] = Proc.new do $spells.clear end
+#   conf.remote_triggers[/^You can already see magic\.$/] = Proc.new do $spells.delete("detect magic") end
+  conf.remote_triggers[/^You are not affected by any skills or spells\.$|^You are affected by \d+ skill(|s) and \d+ spell(|s)\.$/] = Proc.new do
+    # ACTION:
+    _affects_act_on_array
+  end
+
+  write "saffects"
+end
+
+# Catch the output of "saffects", and remove spells from $spells_spellup
+def _affects_qualify_array
+  # When the saffects list has been displayed, clean up:
+  conf.remote_triggers[/^-----------------------------------------------------------------------$/] = Proc.new do
+    conf.remote_triggers.delete(/^Spell: (.*) \(.*\)$/)
+    conf.remote_triggers.delete(/^Skill: (.*) \(.*\)$/)
+    conf.remote_triggers.delete(/^-----------------------------------------------------------------------$/)
+  end
+  # Spells:
+  conf.remote_triggers[/^Spell: (.*) \(.*\)$/] = Proc.new do |inwin, outwin, match|
+#     pprint "Working with spell: #{match[1]}"
+    $spells.delete(match[1])
+  end
+  # Skills:
+  conf.remote_triggers[/^Skill: (.*) \(.*\)$/] = Proc.new do |inwin, outwin, match|
+#     pprint "Working with skill: #{match[1]}"
+    $skills.delete(match[1])
+  end
+
+  if $spells.include?("protection evil") then $spells_spellup.delete("protection good") end
+  if $spells.include?("protection good") then $spells_spellup.delete("protection evil") end
+  # TODO: That other spell which conflicts with these..
+
+  # anything cast on me has been removed from the arrays
+  # The arrays are now lists of spells which I _don't_ have.
+end # _affects_qualify_array
+
+def _affects_act_on_array
+  # Spell failures will get re-inserted back into the spells array.
+  conf.remote_triggers[/^You lost your concentration while trying to cast (.+)\.$/] = Proc.new do |inwin, outwin, match|
+    $spells << match[1].downcase
+  end
+
+  # Prevent infinite recasting loops:
+  conf.remote_triggers[/^You don't have enough .*\.$|^A powerful force quenches your magic\.|You can\'t concentrate enough\.$/] = Proc.new do
+    $spells.clear
+  end
+
+  # Upon completion:
+  conf.remote_triggers[/^ \* Recasting\.\.\.$/] = Proc.new do
+#     pprint $spells.inspect
+    if $spells == [] then
+      write "echo @C * @WRecasting is complete.@w"
+      _affects_cleanup
+    else
+      _affects_cleanup
+      _spellup
+    end
+  end
+#   pprint $spells.inspect
+  $spells.each_index { |i|
+    pprint "Spell: #{$spells[i]}"
+    case $spells[i]
+    # Exceptions:
+    # TODO: Integrate my exceptions list:
+    when "example" then
+      write "echo example"
+    else
+      write "cast '#{$spells[i]}'"
+      $spells.delete $spells[i]
+    end
+  }
+#   pprint $skills.inspect
+  $skills.each_index { |i|
+    pprint "Skill: #{$skills[i]}"
+    case $skills[i]
+    # Exceptions:
+    # TODO: Integrate my exceptions list:
+    when "example" then
+      write "echo example"
+    else
+      write "#{$skills[i]}"
+      $skills.delete $skills[i]
+    end
+  }
+  # Get the server to tell me when I've completed spamming all the skills and spells:
+  # It would be nice if this were avoidable.. but I don't see a way unless I have the scripting understand what spells have what messages, and have it listen for the last message.  That'd be annoying to script.
+  write "echo @C * @WRecasting...@w"
+end ; # _affects_act_on_array