alchemist-server 0.0.1

data/.gitignore

@@ -0,0 +1,5 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+tmp/*

data/Gemfile

@@ -0,0 +1,5 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in alchemist-server.gemspec
+gemspec
+

data/README.md

@@ -0,0 +1,118 @@
+alchemist-server
+================
+
+welcome!
+--------
+
+`alchemist` is a sandbox that uses unicode characters to represent objects in a persistent world that multiple users may interact with.
+
+`alchemist` has few commands for interacting with the server. Here they are with some helpful tips for using them.
+
+other than these commands below, all that needs doing is opening a TCP socket to the server with a unicode-supported client.
+
+you can start a local server with `./bin/alchemist-server`
+
+after you connect, you will be greeted with…
+
+`Welcome, alchemical friend. What is your name?`
+
+…after which you can enter your name and continue with commands below. (Parenthesized characters are optional.)
+
+commands!
+=========
+
+app(ear)
+--------
+adds your avatar into the world! (this is important if you want to interact with people and other things.)
+
+it also returns the any local avatars nearby with the following format:
+
+	avatars N
+	AVATARNAME X Y
+	AVATARNAME2 X Y
+	appeared
+	
+
+example:
+
+	> appear
+	avatars 2
+	qxjit -8 6
+	moob 0 0
+	appeared	
+	
+basics
+------
+returns a string that identifies the basic elements that exist in alchemist
+
+example:
+
+	> basics
+	basics 火░〃〰
+	
+basics include:
+
+		name   unicode
+	火  fire   \u706b
+	〰  water  \u3030
+	░   earth  \u2591
+	〃  wind   \u3003
+
+
+compounds
+---------
+returns a string that identifies the compound elements that (currently) exist in alchemist
+
+example:
+
+	> compounds
+	compounds ʬㄒㄘ〝
+
+create ABX
+----------
+allows you to create new compounds in alchemist. they are created by providing two basic characters and a currently unused unicode character that will represent the compound in alchemist
+
+example:
+
+	> create 火░ㄒ
+	
+!!! incomplete !!!
+
+read
+----
+returns the messages of all nearby avatars. this command is automatically called after a successful `message` call
+
+	> read
+	messages 10
+	Alchemistasaur:
+	
+	Ryan:
+	
+	moob:
+	"pants"
+	
+	
+	
+    qxjit:
+
+message|msg N MSG
+-----------------
+
+allows you to add messages to your avatar where N is 0-9 and MSG is a string to attach to that position
+
+the server will respond as if you had called `read` immediately after
+
+example:
+
+	> message 0 "hi"
+	messages 10
+	Alchemistasaur:
+	
+	Ryan:
+	
+	moob:
+	"pants"
+	
+	
+	
+	qxjit:

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/alchemist-server.gemspec

@@ -0,0 +1,29 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "alchemist-server/version"
+
+Gem::Specification.new do |s|
+  s.name        = "alchemist-server"
+  s.version     = Alchemist::Server::VERSION
+  s.authors     = ["David Vollbracht"]
+  s.email       = ["david@flipstone.com"]
+  s.homepage    = "https://github.com/flipstone/alchemist-server"
+  s.summary     = %q{Server process for the Alchemist game}
+  s.description = %q{}
+
+  s.rubyforge_project = "alchemist-server"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  # specify any dependencies here; for example:
+  # s.add_development_dependency "rspec"
+  s.add_development_dependency "ffi-ncurses", ">= 0.4.0"
+
+  s.add_runtime_dependency "rb-readline"
+  s.add_runtime_dependency "hamster"
+  s.add_runtime_dependency "eventmachine", ">= 1.0"
+  s.add_runtime_dependency "alchemist-core", ">= 0.0.1"
+end

data/bin/alchemist-repl

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+#
+require 'readline'
+
+world_file = ARGV.first || "tmp/dev_world.alc"
+
+puts "Using world file: #{world_file}"
+
+loop do
+   line = Readline::readline('> ')
+   break if line.nil? || line == 'quit'
+   Readline::HISTORY.push(line)
+
+   rd, wr = IO.pipe
+
+   if fork
+     wr.close
+     result = rd.read
+     rd.close
+     Process.wait
+
+     puts result
+   else
+     rd.close
+     require 'alchemist-server'
+
+     result = Alchemist::Server.one_shot world_file, line
+
+     wr.write result.to_s.pad_to_unicode_monospace
+     wr.flush
+     wr.close
+     exit! 0
+   end
+end
+
+puts
+

data/bin/alchemist-server

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+#
+require 'alchemist-server'
+
+world_file = ARGV.first || "tmp/dev_world.alc"
+
+EventMachine.run do
+  Alchemist::Server.run world_file
+end
+

data/lib/alchemist-server.rb

@@ -0,0 +1,151 @@
+require "time"
+require "hamster"
+require "socket"
+require "eventmachine"
+require "benchmark"
+require "em/protocols/line_protocol"
+
+require "alchemist-core"
+require "alchemist-server/version"
+require "alchemist-server/record"
+
+require "alchemist-server/avatar"
+require "alchemist-server/direction"
+require "alchemist-server/element"
+require "alchemist-server/event"
+require "alchemist-server/formula"
+require "alchemist-server/geography"
+require "alchemist-server/outcome"
+require "alchemist-server/server_handler"
+require "alchemist-server/world"
+require "alchemist-server/world_history"
+
+require "alchemist-server/commands/base"
+
+require "alchemist-server/commands/appear"
+require "alchemist-server/commands/basics"
+require "alchemist-server/commands/compounds"
+require "alchemist-server/commands/create"
+require "alchemist-server/commands/describe"
+require "alchemist-server/commands/directions"
+require "alchemist-server/commands/element"
+require "alchemist-server/commands/forge"
+require "alchemist-server/commands/formulate"
+require "alchemist-server/commands/inventory"
+require "alchemist-server/commands/location"
+require "alchemist-server/commands/lock"
+require "alchemist-server/commands/look"
+require "alchemist-server/commands/message"
+require "alchemist-server/commands/put"
+require "alchemist-server/commands/read"
+require "alchemist-server/commands/take"
+require "alchemist-server/commands/who"
+
+class Object
+  def try(sym, *args)
+    send sym, *args
+  end
+end
+
+class NilClass
+  def try(*args)
+
+  end
+end
+
+module Alchemist
+  module Server
+    SERVER_PORT = 79 * 100
+
+    def self.run(world_file)
+      ::EventMachine.start_server "", SERVER_PORT, ServerHandler.new(world_file)
+      puts "Listening on #{SERVER_PORT}"
+    end
+
+    def self.one_shot(world_file, command_string_ascii)
+      command_string = command_string_ascii.force_encoding Encoding::UTF_8
+      avatar_name, command, *args = command_string.split /\s+/
+
+      if command_mod = COMMANDS.detect { |c| match_command? command, c }
+        run_command_module command_string, world_file
+      else
+        run_special_command world_file, command, *args
+      end
+    end
+
+    def self.run_command_module(command_string, world_file)
+      history = load_history world_file
+      outcome = run_append command_string, world_file, history
+      outcome.try :response
+    end
+
+    def self.run_append(command_string_ascii, world_file, history)
+      command_string = command_string_ascii.force_encoding Encoding::UTF_8
+      event = Event.new command_string, Time.now
+      outcome = event.happen history
+
+      if outcome.try :new_world
+        new_history = WorldHistory.new event, history
+
+        File.open(world_file,'a') do |f|
+          f.write event.to_s
+          f.write "\n"
+        end
+      end
+
+      outcome.update new_history: new_history
+    end
+
+    def self.run_special_command(world_file, command_string, *args)
+      case command_string
+      when /^show_raw_file$/
+        File.read(world_file)
+      when /^show_history$/
+        load_history(world_file).to_s
+      when /^dim(ensions)?$/
+        load_history(world_file).world.dimensions(*args).to_s
+      when /^geo(graphy)?$/
+        load_history(world_file).world.geography.to_s
+      else
+        "Unknown Command: #{command_string}"
+      end
+    end
+
+    def self.load_history(file_name)
+      if File.exist? file_name
+        WorldHistory.parse File.read(file_name)
+      else
+        WorldHistory.genesis
+      end
+    end
+
+    def self.match_command?(command_name, command)
+      command_name =~ /^#{command.pattern}/
+    end
+  end
+
+  COMMANDS = [
+    Commands::Appear,
+    Commands::Basics,
+    Commands::Compounds,
+    Commands::Create,
+    Commands::Describe,
+    Commands::North,
+    Commands::South,
+    Commands::East,
+    Commands::West,
+    Commands::Element,
+    Commands::Inventory,
+    Commands::Forge,
+    Commands::Formulate,
+    Commands::Location,
+    Commands::Lock,
+    Commands::Look,
+    Commands::Message,
+    Commands::Put,
+    Commands::Read,
+    Commands::Take,
+    Commands::Who,
+  ]
+end
+

data/lib/alchemist-server/avatar.rb

@@ -0,0 +1,82 @@
+# encoding: utf-8
+module Alchemist
+  class Avatar
+    INVENTORY_SIZE = 64
+
+    include Record
+    record_attr :name, :x, :y, :inventory, :messages
+
+    def move(direction)
+      new_x, new_y = direction.move_from(x, y)
+      update x: new_x, y: new_y
+    end
+
+    def location
+      Geography::Loc.new x, y
+    end
+
+    def near?(location, range)
+      location.distance(self.location) <= range
+    end
+
+    def add_to_inventory(additions)
+      a = update inventory: (inventory + additions).gsub(' ','')
+
+      if a.inventory.length > INVENTORY_SIZE
+        raise "You can only carry #{INVENTORY_SIZE} items"
+      end
+
+      a
+    end
+
+    def remove_from_inventory(*removals)
+      remover = removals.join('').split('').reduce(-> x { x }) do |r, c|
+        -> x { r[x].sub(c,'') }
+      end
+
+      update inventory: remover[inventory]
+    end
+
+    def put_message(key, message)
+      if key.to_s =~ /^[0-9]$/
+        update messages: messages.put(key.to_s.to_i, message)
+      else
+        raise "Only 0 through 9 may be used as message keys"
+      end
+    end
+
+    def message_list
+      messages.keys.sort.map { |k| messages[k] }
+    end
+
+    def has?(*items)
+      items.all? do |i|
+        inventory.include? i
+      end
+    end
+
+    def hash
+      name.hash
+    end
+
+    def ==(other)
+      other.class == self.class &&
+      other.name == name
+    end
+
+    def eql?(other)
+      self == other
+    end
+
+    def to_s
+      "⚲ #{name} #{x} #{y} #{inventory}"
+    end
+
+    def self.parse(string)
+      if string =~ /^⚲ (.*)$/
+        new *$1.split(" ")
+      end
+    end
+  end
+end
+