alchemist-server 0.0.1

data/lib/alchemist-server/commands/appear.rb

@@ -0,0 +1,13 @@
+module Alchemist
+  module Commands
+    class Appear < Base
+      pattern "app(ear)?"
+
+      def run
+        outcome "appeared",
+                history.world.new_avatar(avatar_name),
+                Commands::Who
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/base.rb

@@ -0,0 +1,31 @@
+module Alchemist
+  module Commands
+    class Base
+      def self.pattern(arg = nil)
+        if arg
+          @pattern = arg
+        end
+
+        @pattern
+      end
+
+      attr_reader :avatar_name, :history
+
+      def initialize(avatar_name, history)
+        @avatar_name = avatar_name
+        @history = history
+      end
+
+      def outcome(response = nil, new_world = nil, command = nil)
+        Outcome.new response: response,
+                    new_world: new_world,
+                    nearby_avatar_command: command
+      end
+
+      def self.run(avatar_name, history, *args)
+        new(avatar_name, history).run *args
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/basics.rb

@@ -0,0 +1,12 @@
+module Alchemist
+  module Commands
+    class Basics < Base
+      pattern "basics"
+
+      def run
+        elements = history.world.basic_elements
+        outcome "basics #{elements.map(&:symbol).join('')}"
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/compounds.rb

@@ -0,0 +1,13 @@
+module Alchemist
+  module Commands
+    class Compounds < Base
+      pattern "compounds"
+
+      def run
+        elements = history.world.compound_elements
+        outcome "compounds #{elements.map(&:symbol).join('')}"
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/create.rb

@@ -0,0 +1,15 @@
+module Alchemist
+  module Commands
+    class Create < Base
+      pattern "create"
+
+      def run(resource)
+        world = history.world.create avatar_name, resource
+        a = world.avatar avatar_name
+
+        outcome "inventory #{a.try :inventory}", world
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/describe.rb

@@ -0,0 +1,18 @@
+module Alchemist
+  module Commands
+    class Describe < Base
+      pattern "describe"
+
+      def run(symbol)
+        element = history.world.element symbol
+
+        if element
+          outcome "element #{element.symbol} #{element.name} #{element.hex_code}"
+        else
+          outcome "noelement #{symbol}"
+        end
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/directions.rb

@@ -0,0 +1,48 @@
+module Alchemist
+  module Commands
+    class DirectionCommand < Base
+      def run
+        world = history.world.move avatar_name, direction
+        x, y = world.location avatar_name
+
+        outcome "location #{x} #{y}",
+                world,
+                Commands::Who
+      end
+    end
+
+    class North < DirectionCommand
+      pattern 'north'
+
+      def direction
+        Direction::North
+      end
+    end
+
+    class South < DirectionCommand
+      pattern 'south'
+
+      def direction
+        Direction::South
+      end
+    end
+
+    class East < DirectionCommand
+      pattern 'east'
+
+      def direction
+        Direction::East
+      end
+    end
+
+    class West < DirectionCommand
+      pattern 'west'
+
+      def direction
+        Direction::West
+      end
+    end
+  end
+end
+
+

data/lib/alchemist-server/commands/element.rb

@@ -0,0 +1,16 @@
+module Alchemist
+  module Commands
+    class Element < Base
+      pattern "el(ement)?"
+
+      def run(char, *name)
+        world = history.world.new_element char, name.join(' ')
+
+        outcome nil,
+                world,
+                Commands::Basics
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/forge.rb

@@ -0,0 +1,18 @@
+module Alchemist
+  module Commands
+    class Forge < Base
+      pattern "forg(e)?"
+
+      def run(elem_1, elem_2, novel_elem)
+        world = history.world.forge avatar_name,
+                                    elem_1,
+                                    elem_2,
+                                    novel_elem
+        a = world.avatar avatar_name
+
+        outcome "inventory #{a.inventory}",
+                world
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/formulate.rb

@@ -0,0 +1,20 @@
+module Alchemist
+  module Commands
+    class Formulate < Base
+      pattern "form(ulate)?"
+
+      def run(elem_1, elem_2, novel_elem, *name)
+        world = history.world.formulate avatar_name,
+                                        elem_1,
+                                        elem_2,
+                                        novel_elem,
+                                        name.join(' ')
+        a = world.avatar avatar_name
+
+        outcome "inventory #{a.inventory}",
+                world,
+                Commands::Compounds
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/inventory.rb

@@ -0,0 +1,12 @@
+module Alchemist
+  module Commands
+    class Inventory < Base
+      pattern "inv(entory)?"
+
+      def run
+        outcome "inventory #{history.world.avatar(avatar_name).inventory}"
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/location.rb

@@ -0,0 +1,13 @@
+module Alchemist
+  module Commands
+    class Location < Base
+      pattern "location"
+
+      def run
+        x, y = history.world.location avatar_name
+        outcome "location #{x} #{y}"
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/lock.rb

@@ -0,0 +1,12 @@
+module Alchemist
+  module Commands
+    class Lock < Base
+      pattern "lock"
+
+      def run
+        outcome "locked", history.world.lock
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/look.rb

@@ -0,0 +1,14 @@
+module Alchemist
+  module Commands
+    class Look < Base
+      pattern "look"
+
+      def run
+        outcome [
+                  "see #{World::LOOK_RANGE*2}",
+                  history.world.look(avatar_name)
+                ].join("\n")
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/message.rb

@@ -0,0 +1,15 @@
+module Alchemist
+  module Commands
+    class Message < Base
+      pattern "message|msg"
+
+      def run(key, *words)
+        world = history.world.put_message avatar_name,
+                                          key,
+                                          words.join(' ')
+
+        outcome nil, world, Commands::Read
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/put.rb

@@ -0,0 +1,16 @@
+module Alchemist
+  module Commands
+    class Put < Base
+      pattern "put"
+
+      def run(resource)
+        world = history.world.put avatar_name, resource
+        a = world.avatar avatar_name
+
+        outcome "inventory #{a.inventory}",
+                world,
+                Commands::Look
+      end
+    end
+  end
+end

data/lib/alchemist-server/commands/read.rb

@@ -0,0 +1,18 @@
+module Alchemist
+  module Commands
+    class Read < Base
+      pattern "read"
+
+      def run
+        messages = history.world.messages_for avatar_name
+
+        lines = messages.flat_map do |name, messages|
+          ["#{name}:"] + messages + ['']
+        end
+
+        outcome((["messages #{lines.length}"] + lines + ['']).join("\n"))
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/take.rb

@@ -0,0 +1,17 @@
+module Alchemist
+  module Commands
+    class Take < Base
+      pattern "take"
+
+      def run
+        world = history.world.take(avatar_name)
+        a = world.avatar avatar_name
+
+        outcome "inventory #{a.inventory}",
+                world,
+                Commands::Look
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/commands/who.rb

@@ -0,0 +1,18 @@
+module Alchemist
+  module Commands
+    class Who < Base
+      pattern "who"
+
+      def run
+        a = history.world.avatar avatar_name
+        avatars = history.world.nearby_avatars a
+
+        locations = avatars.map do |avatar|
+          "#{avatar.name} #{avatar.x} #{avatar.y}\n"
+        end
+
+        outcome (["avatars #{locations.length}\n"] + locations).join('')
+      end
+    end
+  end
+end

data/lib/alchemist-server/curses/geography_window.rb

@@ -0,0 +1,63 @@
+module Alchemist
+  module Curses
+    class GeographyWindow
+      include FFI::NCurses
+
+      def initialize(line, col, avatar_color_num = nil)
+        @win = newwin 20, 43, line, col
+        @avatar_color_num = avatar_color_num
+        @avatars = {}
+        @loc_x, @loc_y = nil
+        @data = ''
+      end
+
+      def draw
+        wclear @win
+        wmove @win, 0, 0
+        draw_colored_data @data.force_encoding Encoding::UTF_8
+        move_to_avatar_position
+      end
+
+      def draw_colored_data(data)
+        data.each_line.with_index do |line, y|
+          line.each_char.with_index do |c, x|
+            if @avatar_color_num && avatar_at?(x, y)
+              wattr_set @win, A_NORMAL, @avatar_color_num, nil
+            else
+              wattr_set @win, A_NORMAL, 0, nil
+            end
+
+            wprintw @win, c.pad_to_unicode_monospace
+          end
+        end
+      end
+
+      def avatar_at?(x,y)
+        @avatars.values.include? [x + (@loc_x - 10),
+                                  y + (@loc_y - 10)]
+      end
+
+      def update(location, data)
+        @loc_x, @loc_y = location
+        @data = data
+        draw
+      end
+
+      def update_avatar(name, x, y)
+        @avatars[name] = [x,y]
+        draw
+      end
+
+      def update_avatars(avatars)
+        @avatars = avatars.dup
+        draw
+      end
+
+      def move_to_avatar_position
+        wmove @win, 10, 20
+        wrefresh @win
+      end
+    end
+  end
+end
+

data/lib/alchemist-server/curses/glyph_window.rb

@@ -0,0 +1,89 @@
+module Alchemist
+  module Curses
+    class GlyphWindow
+      include FFI::NCurses
+
+      ROWS = 21
+      COLS = 48
+
+      def initialize(line,col)
+        @width = (COLS + 2)*2
+        @win = newwin ROWS, @width, line, col
+        @starting_char = 0
+        @cursor_offset = 0
+      end
+
+      def draw
+        wmove @win, 0, 0
+        wclear @win
+        wprintw @win, rows.pad_to_unicode_monospace
+        reset_cursor
+      end
+
+      def reset_cursor
+        y,x = @cursor_offset.divmod COLS
+        wmove @win, y, x*2
+        wrefresh @win
+      end
+
+      def characters
+        Glyphs.strings[range_start..range_end] || []
+      end
+
+      def rows
+        characters
+        .each_slice(COLS)
+        .map { |slice| slice.join('') }
+        .join("\n")
+        .force_encoding(Encoding::UTF_8)
+      end
+
+      def range_start
+        @starting_char
+      end
+
+      def range_end
+        @starting_char + ROWS*COLS
+      end
+
+      def have_user_select
+        draw
+        wmove @win, 0, 0
+        wrefresh @win
+
+        while (c = getch) != KEY_RETURN
+          y,x = getyx @win
+
+          case c
+          when KEY_ESCAPE
+            return nil
+          when KEY_LEFT
+            @cursor_offset = [@cursor_offset - 1, 0].max
+            reset_cursor
+          when KEY_RIGHT
+            @cursor_offset = [@cursor_offset + 1, (ROWS*COLS)].min
+            reset_cursor
+          when KEY_UP
+            @cursor_offset = [@cursor_offset - COLS, 0].max
+            reset_cursor
+          when KEY_DOWN
+            @cursor_offset = [@cursor_offset + COLS, (ROWS*COLS)].min
+            reset_cursor
+          when '0'.ord
+            @starting_char += ROWS*COLS
+            draw
+          when '9'.ord
+            @starting_char = [@starting_char-ROWS*COLS,0].max
+            draw
+          end
+        end
+
+        characters[@cursor_offset]
+      ensure
+        wclear @win
+        wrefresh @win
+      end
+    end
+  end
+end
+