module Cmd

# File cmd/teensy/cmd_chat.rb, line 16
def cmd_chat(args)
  case args
  when nil, ""
    sendto("What are you trying to tell everyone?")
  else
    sendto("[COLOR Magenta]You chat, \"#{args}\".[/COLOR]")
    world.connected_characters.each do |pid|
      if id != pid
        add_event(id,pid,:show,
          "[COLOR Magenta]#{name} chats, \"#{args}\".[/COLOR]")
      end
    end
  end
end

# File cmd/teensy/cmd_color.rb, line 16
def cmd_color(args)
  sendto @account.toggle_color
end

# File cmd/teensy/cmd_drop.rb, line 16
def cmd_drop(args)
  objects.each do |q|
    add_event(id,q.id,:drop)
  end
end

# File cmd/teensy/cmd_dumpcache.rb, line 16
def cmd_dumpcache(args)
  sendto(Engine.instance.db.inspect)
end

# File cmd/teensy/cmd_edit.rb, line 20
def cmd_edit(args)
  case args
  when nil, ""
    sendto("What??")
  when %rsysmsg\s+(\w+)/
    @mode = :edit
    @editobj = world.msgs
    @editfield = $1.intern
    @editstr = world.msgs[$1.intern] || ''
    sendto(edit_display(@editstr))
  when %r#(\d+)\s+(\w+)/
    o = get_object($1.to_i)
    case o
    when GameObject, Room, Character, Script, Exit
      if o.respond_to?($2) &&
         o.respond_to?("#$2=") &&
         o.send($2).class == String

        @mode = :edit
        @editobj = o
        @editfield = $2
        @editstr = o.send $2

        sendto(edit_display(@editstr))
      else
        sendto("Field #$2 not found on object.")
      end
    else
      sendto("No object.")
    end
  else
    sendto("What??")
  end
end

# File cmd/teensy/cmd_emote.rb, line 16
def cmd_emote(args)
  case args
  when nil, ""
    sendto("What are you trying to emote?")
  else
    sendto("You #{args}.")
    get_object(location).characters(id).each do |p|
      add_event(id,p.id,:show,"#{name} #{args}.")
    end
  end
end

# File cmd/teensy/cmd_gc.rb, line 16
def cmd_gc(args)
  GC.start
  sendto("Garbage collector run")
end

# File cmd/teensy/cmd_get.rb, line 16
def cmd_get(args)
  get_object(location).objects.each do |q|
    add_event(id,q.id,:get)
  end
end

# File cmd/teensy/cmd_go.rb, line 16
def cmd_go(args)
  case args
  when nil, ""
    sendto("Where do you want to go?")
  else
    ex = []
    ext = nil
    get_object(location).exits.each do |exid|
      ext = get_object(exid)
      ex = ext.name.split(%r;/).grep(%r^#{args}/)
      break if !ex.empty?
    end
    if ex.empty?
      sendto("Can't find that place")
    elsif ex.size > 1
      ln = "Which did you mean, "
      ex.each {|x| ln << "\'" << x << "\' "}
      ln << "?"
      sendto(ln)
    else
      add_event(id,ext.id,:leave, args)
    end
  end
end

# File cmd/teensy/cmd_hello.rb, line 16
def cmd_hello(args)
  parse("say hello")
end

# File cmd/teensy/cmd_help.rb, line 16
def cmd_help(args)
  case args
  when nil, ""
    sendto("====================HELP=======================")
    world.cmds.to_hash.values.each do |h|
      sendto(sprintf("%-10s - %s", h.name, h.help))
    end
  else
    q = world.cmds.find(args)
    if q
      sendto("====================HELP=======================")
      q.each do |h|
        sendto(sprintf("%-10s - %s", h.name, h.help))
      end
    else
      sendto "No help on that."
    end
  end
end

# File cmd/teensy/cmd_inv.rb, line 16
def cmd_inv(args)
  sendto("=== Inventory ===")
  objects.each do |x|
    add_event(id,x.id,:describe)
  end
end

# File cmd/teensy/cmd_kill.rb, line 16
def cmd_kill(args)
  case args
  when nil, ""
    sendto("Who do you want to kill?")
  else
    d = world.all_characters.find {|pid| args == get_object(pid).name }
    if !d
      sendto("Can't find them.")
      return
    end
    d = get_object(d)  # get object
    if rand < 0.3
      sendto("You kill #{d.name}.")
      world.connected_characters.each {|pid|
        if pid != id
          add_event(id,pid,:show,"#{name} kills #{d.name}.")
        end
      }
      d.account.disconnect("You have been pwn3d!")
      # delete_object(d)  Dont delete character, it's annoying
    else
      sendto("You attacks and misses #{d.name}.")
      world.connected_characters.each {|pid|
        if pid != id
          add_event(id,pid,:show,"#{name} attacks and misses #{d.name}.")
        end
      }
    end
  end
end

# File cmd/teensy/cmd_look.rb, line 16
def cmd_look(args)
  place = get_object(location)
  add_event(id,location,:describe)
  place.objects.each do |x|
    add_event(id,x.id,:describe)
  end
  place.characters(id).each do |x|
    add_event(id,x.id,:describe)
  end
  add_event(id,location,:describe_exits)
end

# File cmd/teensy/cmd_memstats.rb, line 16
def cmd_memstats(args)
  sendto(world.memstats)
end

# File cmd/teensy/cmd_object.rb, line 16
def cmd_object(args)
  case args
  when %r(.*)/
    newobj = GameObject.new($1, id, location)
    if newobj.nil?
      log.error "Unable to create object."
      sendto "System error: unable to create object."
      return
    end
    put_object(newobj)
    get_object(location).add_contents(newobj.id)
    sendto "Ok."
  else
    sendto("What!!?")
  end
end

# File cmd/teensy/cmd_quit.rb, line 16
def cmd_quit(args)
  @account.disconnect
end

# File cmd/teensy/cmd_reload.rb, line 16
def cmd_reload(args)
  world.cmds, world.ocmds = Command.load
  sendto("Command table reloaded.")
end

# File cmd/teensy/cmd_room.rb, line 17
def cmd_room(args)
  case args
  when %r(.*) (.*) (.*)/
    d=Room.new($1, id)
    if d.nil?
      log.error "Unable to create room."
      sendto "System error: unable to create room."
      return
    end
    put_object(d)
    curr = get_object(location)
    e1 = Exit.new($2, id, curr.id, d.id)
    curr.exits << e1.id
    put_object(e1)
    e2 = Exit.new($3, id, d.id, curr.id)
    d.exits << e2.id
    put_object(e2)
    sendto("Ok.")
  else
    sendto("say what??")
  end
end

# File cmd/teensy/cmd_say.rb, line 16
def cmd_say(args)
  case args
  when nil, ""
    sendto("What are you trying to say?")
  else
    sendto("You say, \"#{args}\".")
    get_object(location).characters(id).each do |p|
      add_event(id,p.id,:show,"#{name} says, \"#{args}\".")
    end
  end
end

# File cmd/teensy/cmd_script.rb, line 22
def cmd_script(args)
  case args
  when %rdel\s+#(\d+)/
    s = get_object($1.to_i)
    case s
    when Script
      delete_object(s.id)
      sendto("Script #$1 deleted.")
    else
      sendto("No script.")
    end
  when %radd\s+(\w+)\s+(.*)/
    case $1.intern
    when :fart
      s = Script.new($2.strip, id, $1.intern)
      put_object(s)
      sendto("Script #{s.id} added.")
    when :boolexp
      s = Script.new(nil, id, $1.intern)
      s.load($2.strip)
      put_object(s)
      sendto("Script #{s.id} added.")
    else
      sendto("No language.")
    end
  when %rshow\s+#(\d+)/
    s = get_object($1.to_i)
    case s
    when Script
      s.load if !s.src
      sendto(s.src)
    else
      sendto("No script.")
    end
  else
    sendto("What??")
  end
end

# File cmd/teensy/cmd_set.rb, line 21
def cmd_set(args)
  case args
  when nil, ""
    sendto("What??")
  when %rdesc\s+#(\d+)\s+(.*)/
    o = get_object($1.to_i)
    case o
    when nil, 0
      sendto("No object.")
    else
      o.desc = $2
      sendto("Object #" + $1 + " description set.")
    end
  when %rkey\s+#(\d+)\s+(.*)/
    o = get_object($1.to_i)
    case o
    when nil, 0
      sendto("No object.")
    else
      o.key = $2
      sendto("Object #" + $1 + " key set.")
    end
  when %rtimer\s+#(\d+)\s+(on|off)\s+(.*)/
    o = get_object($1.to_i)
    case o
    when nil
      sendto("No object.")
    else
      if $2 == 'on'
        if $3 =~ %r(\w+)\s+(\d+)/
          world.set_timer(o.id, $1.to_sym, $2.to_i)
          sendto("Object ##{o.id} registered with timer.")
        else
          sendto("Bad symbol or missing time")
        end
      else
        if $3 =~ %r(\w+)/
          world.unset_timer(o.id, $1.to_sym)
          sendto("Object ##{o.id} unregistered with timer.")
        else
          sendto("Bad symbol")
        end
      end
    end
  else
    sendto("What??")
  end
end

# File cmd/teensy/cmd_show.rb, line 19
def cmd_show(args)
  case args
  when %r#(\d+)/
    sendto(get_object($1.to_i).inspect)
  when %rme/
    sendto(get_object(id).inspect)
  else
    sendto("What??")
  end
end

# File cmd/teensy/cmd_shutdown.rb, line 16
def cmd_shutdown(args)
  Engine.instance.shutdown = true
end

# File cmd/teensy/cmd_stats.rb, line 16
def cmd_stats(args)
  sendto(Engine.instance.db.stats)
end

# File cmd/teensy/cmd_status.rb, line 16
def cmd_status(args)
  sendto @account.status_rept
end

# File cmd/teensy/cmd_trigger.rb, line 21
def cmd_trigger(args)
  case args
  when nil, ""
    sendto("What??")
  when %rdel\s+#(\d+)\s+(\w+)/
    o = get_object($1.to_i)
    case o
    when GameObject, Room, Character
      if o.get_trigger($2)
        o.delete_trigger($2)
        sendto("Object ##$1 trigger deleted.")
      else
        sendto("Trigger ##$2 not found on object.")
      end
    else
      sendto("No object.")
    end
  when %radd\s+#(\d+)\s+#(\d+)\s+(\w+)/
    o = get_object($1.to_i)
    case o
    when GameObject, Room, Character
      s = get_object($2.to_i)
      case s
      when Script
        o.add_trigger($3, s.id)
        sendto("Object ##$1 trigger added.")
      else
        sendto("No script.")
      end
    else
      sendto("No object.")
    end
  when %rshow\s+#(\d+)/
    o = get_object($1.to_i)
    case o
    when GameObject, Room, Character
      sendto("===========TRIGGERS============")
      sendto(sprintf("%-15s %-15s", "Event", "Program"))
      o.triggers.each do |e, t|
        sendto(sprintf("%-15s #%d", e.id2name, t))
      end
    else
      sendto("No object.")
    end
  else
    sendto("What??")
  end
end

# File cmd/teensy/cmd_who.rb, line 16
def cmd_who(args)
  sendto("=== Who List ===")
  world.connected_characters.each {|pid| sendto(get_object(pid).name)}
end

# File cmd/teensy/cmd_edit.rb, line 55
  def edit_display(str)
    header ="======== Teensy String Editor ========
   Type .h on a new line for help
 Terminate with a @ on a blank line.
======================================
"
    i = 0
    header + str.gsub(%r^/){"#{i+=1}: "}
  end

# File cmd/teensy/cmd_edit.rb, line 73
  def edit_parser(args)
    case args
    when nil
      sendto("What??")
    when %r^\.h/
      sendto "@edit help (commands on blank line):
.r /old/new/     - replace a substring
.h               - get help (this info)
.s               - show string so far
.ww [width]      - word wrap string (width optional)
                   defaults to 76
.c               - clear string so far
.ld <num>        - delete line <num>
.li <num> <txt>  - insert <txt> before line <num>
.lr <num> <txt>  - replace line <num> with <txt>
@                - end string
"
    when %r^\.c/
      @editstr = ""
    when %r^\.s/
      sendto(edit_display(@editstr))
    when %r^\.r\s+\/(.+)?\/(.+)?\//
      @editstr.gsub!($1, '\2')
    when %r^\.ww\s+(\d+)/, %r^\.ww/
      @editstr = word_wrap(@editstr, $1 && $1.to_i > 2 ? $1.to_i : 76 )
    when %r^\.ld\s+(\d+)/
      idx = $1.to_i
      return if idx < 1
      idx -= 1
      lines = @editstr.split("\n")
      lines.delete_at(idx)
      @editstr = lines.join("\n")
    when %r^\.li\s+(\d+)\s+(.*)?$/
      idx = $1.to_i
      return if idx < 1
      idx -= 1
      nl = $2
      lines = @editstr.split("\n")
      lines.insert(idx, nl + "\n")
      @editstr = lines.join("\n")
    when %r^\.lr\s+(\d+)\s+(.*)?$/
      idx = $1.to_i
      return if idx < 1
      idx -= 1
      nl = $2
      lines = @editstr.split("\n")
      lines[idx] = nl + "\n"
      @editstr = lines.compact.join("\n")
    when %r^@/
      @mode = nil
      if @editobj.object_id == world.msgs.object_id  # detect sysmsgs
        @editobj.send("[]=", @editfield, @editstr)
      else
        @editobj.send(@editfield+"=", @editstr)
      end
    when %r^\./
      sendto "Invalid command."
    else
      @editstr << args << "\n"
    end
  end

# File cmd/teensy/cmd_edit.rb, line 66
def word_wrap(s, len)
  str = s
  str.gsub!(%r\n/,' ');str.squeeze!(' ')
  str.gsub!(%r(\S{#{len}})(?=\S)/,'\1 ')
  str.scan(%r(.{1,#{len}})(?:\s+|$)/).flatten.join("\n")
end