muby 0.6.6

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

@@ -0,0 +1,147 @@
+#
+# Knowledge-aid
+#
+
+# know <filename>             display the contents of the @file
+# know <filename> -1          delete the last line
+# know <filename> -2          delete the last two lines
+# know <filename> <string>  append <string> to the @file
+#   From the commandline, double-quotes aren't needed and are in fact ignored.
+
+
+# TODO: Allow double-quotes from the commandline.  Somehow.  =/
+# FIXME: This assumes read/write permissions on the directory and @files.
+
+conf.local_triggers[/^know(.*)$/] = Proc.new do |inwin, outwin, match| know match[1..-1] ; false end
+def know (string)
+  string = string.join(' ').lstrip
+  string = string.gsub("\"", "")
+  string = string.split(' ')
+#   pprint string.inspect
+
+  # Get to the right working directory:
+  begin
+    Dir.chdir(ENV["HOME"] + "/mubyrc.d/aardwolf/knowledge/")
+  # If the chdir fails (the directory does not exist), then make the chain of directories.
+  rescue Errno::ENOENT
+    if not File.exists?(ENV["HOME"] + "/mubyrc.d/aardwolf/knowledge/") then
+      if not File.exists?(ENV["HOME"] + "/mubyrc.d/aardwolf/") then
+        if not File.exists?(ENV["HOME"] + "/mubyrc.d/") then
+          if not File.exists?(ENV["HOME"]) then
+            pprint "ERROR: #{ENV["HOME"]} does not exist!"
+            return false
+          end
+            Dir.mkdir(ENV["HOME"] + "/mubyrc.d/")
+        end
+        Dir.mkdir(ENV["HOME"] + "/mubyrc.d/aardwolf/")
+      end
+      Dir.mkdir(ENV["HOME"] + "/mubyrc.d/aardwolf/knowledge/")
+    end
+  end
+
+  if string[0] == nil then
+    # The non-portable version::  pprint `ls -al --sort=time --reverse ./`
+    # Set up an empty hash:
+    directory = {}
+    Dir.glob("*.txt").each { |file|
+      directory.merge!({file, File.stat(file).mtime})
+    } ; nil
+    directory = directory.sort {|a,b| a[1]<=>b[1]} ; nil
+    directory.each_index { |i|
+      pprint "#{directory[i][1]} \t #{directory[i][0]}"
+    } ; nil
+    return false
+  end
+
+  # Do I need the full working path?
+  @file = File.join(Dir.pwd, string[0].downcase + ".txt")
+#   @file = string[0] + ".txt"
+#   pprint @file.inspect
+
+  def make_output
+    @output = []
+    File.open(@file, 'r+').each { |line|
+      @output << line.chomp
+    }
+  end
+
+#   pprint string[1].inspect
+  case string[1]
+  when nil then
+    # The non-portable version:: pprint `more #{@file}`
+    pprint "Displaying #{@file}"
+    File.open(@file, 'r+').each { |line|
+      pprint line.chomp
+    }
+    return false
+  when "-1" then
+    # non-portable version:
+    #   `sed '$d' "#{@file}" > temporary`
+    #   `mv -f temporary #{@file}`
+    make_output
+    pprint "Removing the last line from #{@file}"
+    if @output.length <= 1 then
+      pprint "#{@file} has only one line.  Deleting it."
+      File.delete(@file)
+      return false
+    end
+    File.open(@file, 'w') { |f| # prepare @file for appending content
+      # All of the output, from the first line to the second-last line.
+      f.print(@output[0..-2].join("\n"))
+      f.print("\n")
+    } # @file is automatically closed
+  when "-2" then
+    # non-portable version:
+    #   `sed 'N;$!P;$!D;$d' "#{@file}" > temporary`
+    #   `mv -f temporary #{@file}`
+    make_output
+    pprint "Removing the last two lines from #{@file}"
+    if @output.length <= 2 then
+      pprint "#{@file} has one or two lines.  Deleting it."
+      File.delete(@file)
+      return false
+    end
+    File.open(@file, 'w') { |f| # prepare @file for appending content
+      # All of the output, from the first line to the third-last line.
+      f.print(@output[0..-3].join("\n"))
+      f.print("\n")
+    } # @file is automatically closed
+  else
+    # If @file doesn't exist, make an empty one:
+    if File.exists?(@file) == false then
+      File.open(@file, 'w+') do |f| # open @file for update
+        f.print ""                 # write out nothing
+      end
+    end
+    pprint "Appending to #{@file}"
+    # The non-portable version:: pprint `echo #{Time.now} #{string[1..-1].join(' ')} >> #{@file}`
+    File.open(@file, 'a') do |f| # prepare @file for appending content
+      f.print(
+        # the string without the first word:
+        "#{Time.now} \t #{string[1..-1].join(" ")} \n"
+      ) # insert the string
+    end # @file is automatically closed
+  end
+
+  # Display (some of) the contents of @file:
+  # The non-portable version :: pprint `tail #{@file}`
+  make_output
+  if @output.length > 9 then
+    # If I have a big @file, just output the last 10 lines in it.
+    @output[-10..-1].each { |i|
+      pprint i
+    }
+  else
+    # If I have a small @file, output it all
+    @output.each { |i|
+      pprint i
+    }
+  end
+
+  if File.zero?(@file) == true then
+    pprint "#{@file} is empty, deleting it."
+    File.delete(@file)
+  end
+  # So that the alias does not spit the text out to the server:
+  return false
+end

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

@@ -0,0 +1,191 @@
+#
+# Learn from the score
+#
+# conf.local_triggers[/^score$/] = :score
+
+def score
+  conf.remote_triggers[/^\| Strength     : \[(.+)\/(.+)\] \| Race : (.+)\| Practices    : \[(.+)\] \|$/] = Proc.new do |inwin, outwin, match|
+    $str_now = match[1].lstrip.to_i
+    $str_max = match[2].rstrip.to_i
+    $race    = match[3].rstrip
+    $pracs   = match[4].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Intelligence : \[(.+)\/(.+)\] \| Class: (.+)\| Trains       : \[(.+)\] \|$/] = Proc.new do |inwin, outwin, match|
+    $int_now = match[1].lstrip.to_i
+    $int_max = match[2].rstrip.to_i
+    $class   = match[3].rstrip
+    $trains  = match[4].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Wisdom       : \[(.+)\/(.+)\] \| Sex  : (Male|Female).+\| Trivia       : \[(.+)\] \|$/] = Proc.new do |inwin, outwin, match|
+    $wis_now = match[1].lstrip.to_i
+    $wis_max = match[2].rstrip.to_i
+    $sex     = match[3]
+    $trivia  = match[4].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Dexterity    : \[(.+)\/(.+)\] \| Level: (.+) \| Quest points : \[(.+)\] \|$/] = Proc.new do |inwin, outwin, match|
+    $dex_now = match[1].lstrip.to_i
+    $dex_max = match[2].rstrip.to_i
+    # If my level has changed, then reload
+    # TODO: Don't print this warning on startup..
+    if match[3].rstrip.to_i + ($tier * 10) != $level then pprint " # Warning: Your level has changed.  Consider running /_reload" end
+    $level   = match[3].rstrip.to_i + ($tier * 10)
+    $qps     = match[4].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Constitution : \[(.+)\/(.+)\] \|                   \| Quest time   : \[(.+)\] \|$/] = Proc.new do |inwin, outwin, match|
+    $con_now = match[1].lstrip.to_i
+    $con_max = match[2].rstrip.to_i
+    # $qtimer is also learned through the prompt/bprompt:
+    $qtimer  = match[3].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Luck         : \[(.+)\/(.+)\] \|                   \|                          \|$/] = Proc.new do |inwin, outwin, match|
+    $luc_now = match[1].lstrip.to_i
+    $luc_max = match[2].rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Hit    : \[(.+)\/(.+)\] \| Hitroll  : \[(.+)\] \| Weight :(.+)of(.+)\|$/] = Proc.new do |inwin, outwin, match|
+    $hit_now    = match[1].lstrip.to_i
+    $hit_max    = match[2].rstrip.to_i
+    $hitroll    = match[3].lstrip.rstrip.to_i
+    $weight_now = match[4].lstrip.rstrip.to_i
+    $weight_max = match[5].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Mana   : \[(.+)\/(.+)\] \| Damroll  : \[(.+)\] \| Items  :(.+)of(.+)\|$/] = Proc.new do |inwin, outwin, match|
+    $mana_now  = match[1].lstrip.to_i
+    $mana_max  = match[2].rstrip.to_i
+    $damroll   = match[3].lstrip.rstrip.to_i
+    $items_now = match[4].lstrip.rstrip.to_i
+    $items_max = match[5].lstrip.rstrip.to_i
+  end
+  conf.remote_triggers[/^\| Moves  : \[(.+)\/(.+)\] \| Wimpy    : \[(.+)\] \| Pos    : (.+)\|$/] = Proc.new do |inwin, outwin, match|
+    $mv_now   = match[1].lstrip.to_i
+    $mv_max   = match[2].rstrip.to_i
+    $wimpy    = match[3].lstrip.rstrip.to_i
+    $position = match[4].lstrip.rstrip
+    if $position == "Sleeping" then $asleep = 1 end
+    if $position == "Standing" then $asleep = 0 end
+  end
+  conf.remote_triggers[/^\| Gold   : \[(.+)\] \| Saves    : \[(.+) \] \| Align  : (.+)\s+(\w+)\s+\|$/] = Proc.new do |inwin, outwin, match|
+    $gold      = match[1].lstrip.rstrip.to_i
+    $sv        = match[2].rstrip.to_i
+    $align     = match[3].lstrip.rstrip.to_i
+    $alignment = match[4].lstrip.rstrip
+  end
+  conf.remote_triggers[/^\| Exp    : \[(.+)\] \| Age      : \[(.+)\] \| Hunger :(.+)\/(.+)\((\w+)\)\s*\|$/] = Proc.new do |inwin, outwin, match|
+    $exp           = match[1].lstrip.rstrip.to_i
+    $age           = match[2].lstrip.rstrip.to_i
+    $hunger        = match[3].lstrip.rstrip.to_i
+    $hunger_max    = match[4].lstrip.rstrip.to_i
+    $hunger_status = match[5]
+  end
+  conf.remote_triggers[/^\| To Lvl : \[(.+) \] \| Hours    : \[(.+)\] \| Thirst : (\d+)\s+\((\w+)\)\s+\|$/] = Proc.new do |inwin, outwin, match|
+    $tnl           = match[1].lstrip.rstrip.to_i
+    $hours         = match[2].lstrip.rstrip.to_i
+    $thirst        = match[3].lstrip.rstrip.to_i
+    $thirst_status = match[4]
+  end
+  conf.remote_triggers[/^\| Pierce : (.+) \((.+)\) \[.+\]\|$/] = Proc.new do |inwin, outwin, match|
+    $ac_pierce        = match[1].lstrip.rstrip.to_i
+    $ac_pierce_status = match[2].lstrip.rstrip
+  end
+  conf.remote_triggers[/^\| Bash   : (.+) \((.+)\) \[.+\]\|$/] = Proc.new do |inwin, outwin, match|
+    $ac_bash        = match[1].lstrip.rstrip.to_i
+    $ac_bash_status = match[2].lstrip.rstrip
+  end
+  conf.remote_triggers[/^\| Slash  : (.+) \((.+)\) \[.+\]\|$/] = Proc.new do |inwin, outwin, match|
+    $ac_slash        = match[1].lstrip.rstrip.to_i
+    $ac_slash_status = match[2].lstrip.rstrip
+  end
+  conf.remote_triggers[/^\| Exotic : (.+) \((.+)\) \[.+\]\|$/] = Proc.new do |inwin, outwin, match|
+    $ac_exotic        = match[1].lstrip.rstrip.to_i
+    $ac_exotic_status = match[2].lstrip.rstrip
+  end
+
+
+
+  @tmp = 1
+  conf.remote_triggers[/^\+-------------------------------------------------------------------------\+$/] = Proc.new do
+    conf.gags << '.*'
+    # All of this should fire off on the bottom border of 'score':
+    if @tmp == 2 then
+#       pprint    $str_now.inspect
+#       pprint    $str_max.inspect
+#       pprint       $race.inspect
+#       pprint      $pracs.inspect
+#       pprint    $int_now.inspect
+#       pprint    $int_max.inspect
+#       pprint      $class.inspect
+#       pprint     $trains.inspect
+#       pprint    $wis_now.inspect
+#       pprint    $wis_max.inspect
+#       pprint        $sex.inspect
+#       pprint     $trivia.inspect
+#       pprint    $dex_now.inspect
+#       pprint    $dex_max.inspect
+#       pprint      $level.inspect
+#       pprint        $qps.inspect
+#       pprint    $con_now.inspect
+#       pprint    $con_max.inspect
+#       pprint     $qtimer.inspect
+#       pprint    $luc_now.inspect
+#       pprint    $luc_max.inspect
+#       pprint    $hit_now.inspect
+#       pprint    $hit_max.inspect
+#       pprint    $hitroll.inspect
+#       pprint $weight_now.inspect
+#       pprint $weight_max.inspect
+#       pprint   $mana_now.inspect
+#       pprint   $mana_max.inspect
+#       pprint    $damroll.inspect
+#       pprint  $items_now.inspect
+#       pprint  $items_max.inspect
+#       pprint     $mv_now.inspect
+#       pprint     $mv_max.inspect
+#       pprint      $wimpy.inspect
+#       pprint   $position.inspect
+#       pprint       $gold.inspect
+#       pprint         $sv.inspect
+#       pprint      $align.inspect
+#       pprint  $alignment.inspect
+#       pprint        $exp.inspect
+#       pprint        $age.inspect
+#       pprint     $hunger.inspect
+#       pprint    $hunger_max.inspect
+#       pprint $hunger_status.inspect
+#       pprint        $tnl.inspect
+#       pprint      $hours.inspect
+#       pprint     $thirst.inspect
+#       pprint $thirst_status.inspect
+#       pprint        $ac_pierce.inspect
+#       pprint $ac_pierce_status.inspect
+#       pprint          $ac_bash.inspect
+#       pprint   $ac_bash_status.inspect
+#       pprint         $ac_slash.inspect
+#       pprint  $ac_slash_status.inspect
+#       pprint        $ac_exotic.inspect
+#       pprint $ac_exotic_status.inspect
+
+      conf.remote_triggers.delete(/^\| Strength     : \[(.+)\/(.+)\] \| Race : (.+)\| Practices    : \[(.+)\] \|$/)
+      conf.remote_triggers.delete(/^\| Intelligence : \[(.+)\/(.+)\] \| Class: (.+)\| Trains       : \[(.+)\] \|$/)
+      conf.remote_triggers.delete(/^\| Wisdom       : \[(.+)\/(.+)\] \| Sex  : (Male|Female).+\| Trivia       : \[(.+)\] \|$/)
+      conf.remote_triggers.delete(/^\| Dexterity    : \[(.+)\/(.+)\] \| Level: (.+) \| Quest points : \[(.+)\] \|$/)
+      conf.remote_triggers.delete(/^\| Constitution : \[(.+)\/(.+)\] \|                   \| Quest time   : \[(.+)\] \|$/)
+      conf.remote_triggers.delete(/^\| Luck         : \[(.+)\/(.+)\] \|                   \|                          \|$/)
+      conf.remote_triggers.delete(/^\| Hit    : \[(.+)\/(.+)\] \| Hitroll  : \[(.+)\] \| Weight :(.+)of(.+)\|$/)
+      conf.remote_triggers.delete(/^\| Mana   : \[(.+)\/(.+)\] \| Damroll  : \[(.+)\] \| Items  :(.+)of(.+)\|$/)
+      conf.remote_triggers.delete(/^\| Moves  : \[(.+)\/(.+)\] \| Wimpy    : \[(.+)\] \| Pos    : (.+)\|$/)
+      conf.remote_triggers.delete(/^\| Gold   : \[(.+)\] \| Saves    : \[(.+) \] \| Align  : (.+)\s+(\w+)\s+\|$/)
+      conf.remote_triggers.delete(/^\| Exp    : \[(.+)\] \| Age      : \[(.+)\] \| Hunger :(.+)\/(.+)\((\w+)\)\s*\|$/)
+      conf.remote_triggers.delete(/^\| To Lvl : \[(.+) \] \| Hours    : \[(.+)\] \| Thirst : (\d+)\s+\((\w+)\)\s+\|$/)
+      conf.remote_triggers.delete(/^\| Pierce : (.+) \((.+)\) \[.+\]\|$/)
+      conf.remote_triggers.delete(/^\| Bash   : (.+) \((.+)\) \[.+\]\|$/)
+      conf.remote_triggers.delete(/^\| Slash  : (.+) \((.+)\) \[.+\]\|$/)
+      conf.remote_triggers.delete(/^\| Exotic : (.+) \((.+)\) \[.+\]\|$/)
+      conf.gags.delete('.*')
+      conf.remote_triggers.delete(/^\+-------------------------------------------------------------------------\+$/)
+    end
+    @tmp += 1
+  end
+
+  write "score"
+  false
+end
+

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

@@ -0,0 +1,65 @@
+
+# Put the prompts above and below the text area.
+# TODO: What about double?
+# TODO: List statuses, like afk/invis/regen.
+# in combat, qmob, highlighting
+# TODO: colour the directions: north = blue, east = green, south = red, west = yellow, up = white, down = grey
+# TODO: colour the alignment, hp/mp/vp
+# NOTE: The downside of all of this is that your scrollback buffer does not have the gags anymore.
+# If all of this is too cpu-intensive, then it can be very easily simplified.
+$spinner = "|"
+$doublexp = 0
+$leader_hp = 0
+def update_statuses
+  # Affix the compasspoints in a specific place in the direction-field.
+  directions = "      "
+  if $directions =~ /N/ then directions[0] = "N" end
+  if $directions =~ /E/ then directions[1] = "E" end
+  if $directions =~ /S/ then directions[2] = "S" end
+  if $directions =~ /W/ then directions[3] = "W" end
+  if $directions =~ /U/ then directions[4] = "U" end
+  if $directions =~ /D/ then directions[5] = "D" end
+  alignment = $alignment[0..0] # Just the first char.
+  align = (
+      " " * (           5 - $align.to_s.size)  + $align.to_s
+    )
+  tnl       = " " * (           4 - $tnl.to_s.size)    + $tnl.to_s
+  qtimer    = " " * (           2 - $qtimer.to_s.size) + $qtimer.to_s
+  hp_now    = " " * ($hp_max.size - $hp_now.size)      + $hp_now.to_s
+  mp_now    = " " * ($mp_max.size - $mp_now.size)      + $mp_now.to_s
+  vp_now    = " " * ($vp_max.size - $vp_now.size)      + $vp_now.to_s
+  doublexp = (
+    if $doublexp > 0 then ">> Double: #{$doublexp} "
+    else ""
+    end
+    )
+  leader_hp = (
+    if $leader_hp > 0 then ">> Leader: #{$leader_hp} hp "
+    else ""
+    end
+    )
+  enemy_hp = (
+    if $enemy_hp > 0 then ">> Enemy: #{$enemy_hp}% "
+    else ""
+    end
+    )
+  $spinner = (
+  case $spinner
+    when "|"  : "/"
+    when "\\" : "|"
+    when "-"  : "\\"
+    when "/"  : "-"
+  end
+  )
+
+  Muby::InputWindow.get_instance.set_status_line("#{$spinner}[#{directions}]#{align} (#{alignment}) / #{tnl}tnl / #{qtimer} quest / #{$tells} tells #{doublexp}")
+  Muby::InputWindow.get_instance.set_message_line(" #{hp_now} / #{$hp_max} hp, #{mp_now} / #{$mp_max}m, #{vp_now} / #{$vp_max}v #{leader_hp}#{enemy_hp}")
+  Muby::InputWindow.get_instance.update
+  # This guarantees that the prompt will never reappear:
+  if $gag_prompts == 0 then
+    gag_prompts 1
+    $gag_prompts += 1
+  else
+    $gag_prompts += 1
+  end
+end

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

@@ -0,0 +1,156 @@
+conf.local_triggers[/^afk(.*)/] = Proc.new do |inqin, outwin, match| afk match[1..-1] ; false end
+
+def afk(string)
+  # Remove the space at the beginning of the string.
+  string = ensure_s(string)
+  case string
+  when "" then
+    # TODO: spit out a random tagline.  =)
+    if $afk == 0 then
+      write "afk #{$afk_message}"
+      $afk = 1
+    else # $afk != 0
+      # go unafk
+      write "afk"
+    end
+  when "0", 0 then
+    if $afk == 1 then write "afk" end
+    $afk = 0
+  when "1", 1 then
+    if $afk == 0 then write "afk" end
+    $afk = 1
+#   # IDEA: This can be enhanced to have shortcuts like this:
+#   when "sleeping" then
+#     if $afk == 1 then write "afk" end
+#     write "afk I am sleeping.."
+#     $afk = 1
+  else
+    # If already in afk, then exit afk mode to be able to change the message cleanly
+    if $afk == 1 then write "afk" end
+    # Toggle AFK mode.  This will either go afk with an optional message, or go unafk.
+    write "afk #{string}"
+    # toggle afk:
+    if $afk == 1 then $afk = 0 else $afk = 1 end
+  end
+end
+
+
+
+#
+# autotick
+#
+# Auto-heal:
+conf.remote_triggers[/^You will be informed when the mud 'ticks'\.$/]     = Proc.new do $autotick = 1 end
+conf.remote_triggers[/^You will be not informed when the mud 'ticks'\.$/] = Proc.new do $autotick = 0 end
+conf.remote_triggers[/^--> TICK <--$/] = Proc.new do
+  if $autotick == 0
+  then
+    $autotick = 1
+    autotick 0
+  end
+end
+
+conf.local_triggers[/^autotick (.*)\n$/m] = Proc.new do |inwin, outwin, match| autotick match[1] ; false end
+
+def autotick(c)
+  c = ensure_c(c)
+  case c
+  when "0", 0 then
+    if $autotick == 1
+      write "autotick"
+    end
+    $autotick = 0
+  when "1", 1 then
+    if $autotick == 0
+      write "autotick"
+    end
+    $autotick = 1
+  else
+    pprint "parameters other than 0 or 1 simply toggle the state"
+    if c == "1" or c == 1 then
+      autotick 0
+    else
+      autotick 1
+    end
+  end
+end
+
+
+#
+# Sleep modification, to regenerate faster.
+#
+# Remember that 'sleep' is a Ruby command to pause for a certain length of time.
+# it might be cool to automatically go invisible when I go to sleep, but then I'd have to take into account lfinger.
+# add in: if no argument alongside this, then drop a bed if I have one.
+# boots don't change regeneration rate anymore.  haste/lightspeed probably don't either.
+# TODO: make a sleep alias that will set $asleep, maybe modify the prompt.  Maybe remove the "You go to sleep." comment the mud sends.
+# deal with being woken up because of a fight? because of poison?
+def wake ; asleep 0 ; false end
+conf.remote_triggers[/^You go to sleep\.$/]        = Proc.new do $asleep = 1 end
+conf.remote_triggers[/^You go to sleep on .*\.$/]  = Proc.new do $asleep = 1 end
+conf.remote_triggers[/^You cannot sleep on .*\.$/] = Proc.new do $asleep = 1 ; wake end
+conf.remote_triggers[/^You wake and stand up\.$/]  = Proc.new do $asleep = 0 end
+# Furniture
+conf.remote_triggers[/^You wake up from .* and stand up\.$/] = Proc.new do $asleep = 0 end
+conf.remote_triggers[/^You are already standing\.$/]         = Proc.new do $asleep = 0 end
+
+conf.local_triggers[/^sleep(.*)$/] = Proc.new do |inwin, outwin, match| asleep match[1..-1] ; false end
+conf.local_triggers[/^wake$|^stand$/] = :wake
+
+def _sleep_prep
+  autotick 1
+end
+def _sleep_wake
+  invis 0
+  autotick 0
+end
+
+def asleep(string)
+  string = ensure_s(string)
+  if $afk == 1 then afk 0 end
+
+  case string
+  when "0", 0
+    if $asleep == 1 then
+      if $furniture == "" then
+        write "wake"
+      else
+        write "wake;get #{$furniture};put #{$furniture} #{$bag}"
+      end
+      _sleep_wake
+    else
+      # pprint "already awake"
+      # p
+    end
+    $asleep = 0
+  when "1", 1
+    if $asleep == 0 then
+      _sleep_prep
+      if $furniture != "" then
+        write "get #{$furniture} #{$bag};drop #{$furniture};sleep #{$furniture}"
+      else
+        write "sleep"
+      end
+      $asleep = 1
+    else
+      # pprint "already sleeping"
+      # p
+    end
+  else
+    if $asleep == 0 then
+      if string != "" then
+        _sleep_prep
+        # if a parameter other than 0 or 1 is passed, try to sleep on that object:
+        write "sleep #{string}"
+        # Set this, because the auto-heal cannot catch sleep failure.
+        $asleep = 1
+      else
+        # if no parameter is passed, just sleep:
+        asleep 1
+      end
+    else
+      # pprint "already sleeping"
+      # p
+    end
+  end
+end