gambit 0.1.0

data/examples/cli/yahtzee.rb

@@ -0,0 +1,161 @@
+#!/usr/local/bin/ruby -w
+
+# yahtzee.rb
+#
+#  Created by James Edward Gray II on 2005-05-29.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+$:.unshift(File.join(File.dirname(__FILE__), "..", "..", "lib"))
+require "gambit/tools/dice"
+require "gambit/tools/scorecard"
+
+yahtzee = Gambit::Tools::Scorecard.new("Player")
+yahtzee.use_category("Ones", 0, 6)
+yahtzee.use_category("Twos", [0, 2, 4, 6, 8, 10])
+yahtzee.use_category("Threes", [ 0, 3, 6, 9, 12, 15 ])
+yahtzee.use_category("Fours", [ 0, 4, 8, 12, 16, 20 ])
+yahtzee.use_category("Fives", [ 0, 5, 10, 15, 20, 25 ])
+yahtzee.use_category("Sixes", [ 0, 6, 12, 18, 24, 30 ])
+
+yahtzee.set_total("Bonus", *%w{Ones Twos Threes Fours Fives Sixes}) do |n|
+	if n >= 63 then 35 else 0 end
+end
+yahtzee.set_total("Upper", *%w{Ones Twos Threes Fours Fives Sixes Bonus})
+
+yahtzee.use_category("Three of a Kind", 0, 30)
+yahtzee.use_category("Four of a Kind", 0, 30)
+yahtzee.use_category("Full House", [0, 25])
+yahtzee.use_category("Small Straight", [0, 30])
+yahtzee.use_category("Large Straight", [0, 40])
+yahtzee.use_category("Yahtzee") { |n| n == 0 or n == 50 or (n - 50) % 100 == 0 }
+yahtzee.use_category("Chance", 0, 36)
+yahtzee.require_categories
+
+yahtzee.set_total( "Lower", "Three of a Kind", "Four of a Kind", "Full House",
+                            "Small Straight", "Large Straight", "Yahtzee",
+                            "Chance" )
+yahtzee.set_total("Overall", *%w{Upper Lower})
+yahtzee.set_win("Overall")
+
+def format( score )
+	count = 0
+	score.gsub!(/^-/, "    -")
+	score.gsub!(/^( *\w+)/) do
+		p $1
+		if %w{Player Bonus Upper Lower Overall}.include?($1.strip)
+			"%2s  %s" % ["", $1]
+		else
+			"%2d: %s" % [(count += 1), $1]
+		end
+	end
+end
+
+# Game.
+puts "\nWelcome to Yahtzee!"
+scratches = (1..13).to_a
+13.times do
+	# Rolling...
+	roll = Gambit::Tools::Dice.new(5, 6)
+	rolls = 2
+	while rolls > 0
+		puts "\nYou rolled #{roll.view(:gambit_text)}."
+		print "Action:  (c)heck score, (s)core, (q)uit or #s to reroll?  "
+		choice = STDIN.gets.chomp
+		case choice
+		when /^c/i
+			puts "\nScore:\n#{format(yahtzee.view(:gambit_text))}"
+		when /^s/i
+			break
+		when /^q/i
+			exit
+		else
+			begin
+				pips = choice.gsub(/\s+/, "").split(//).map do |n|
+					Integer(n)
+				end
+				indices = [ ]
+				roll.each_with_index do |die, i|
+					if found = pips.index(die)
+						indices << i
+						pips[found] = -1
+					end
+				end
+				roll.reroll(*indices)
+				rolls -= 1
+			rescue
+				puts "Error:  That not a valid reroll."
+			end
+		end
+	end
+	
+	# Scoring...
+	loop do
+		if roll.matches?(*%w{x x x x x}) and
+		   yahtzee.total("Player", "Yahtzee") == 50
+			bonus_yahtzees += 100
+			
+			if scratches.include?(roll[0])
+				yahtzee.score("Player", roll.sum(roll[0]), categories[roll[0]])
+				scratches.delete(roll[0])
+				puts "Bonus Yahtzee scored in #{categories[roll[0]]}."
+				break
+			end
+			
+			puts "Bonus Yahtzee!  100 points added.  " +
+			     "Score in lower section as a wild-card."
+			bonus_yahtzee = true
+		else
+			bonus_yahtzee = false
+		end
+		
+		print "\nScore:\n#{format(yahtzee.view(:gambit_text))}\n" +
+		      "Where would you like to count your #{roll.view(:gambit_text)} " +
+		      "(# of category)?  "
+		begin
+			categories = %w{ Ones Twos Threes Fours Fives Sixes
+			                 Three\ of\ a\ Kind Four\ of\ a\ Kind
+			                 Full\ House Small\ Straight Large\ Straight
+			                 Yahtzee Chance }
+			choice = Integer(STDIN.gets.chomp)
+			raise "Already scored." unless scratches.include?(choice)
+			case choice
+			when 1..6
+				yahtzee.score( "Player", roll.sum(choice),
+				               categories[choice - 1] )
+			when 7
+				if roll.matches?(*%w{x x x}) or bonus_yahtzee
+					yahtzee.score("Player", roll.sum, categories[choice - 1])
+				end
+			when 8
+				if roll.matches?(*%w{x x x x}) or bonus_yahtzee
+					yahtzee.score("Player", roll.sum, categories[choice - 1])
+				end
+			when 9
+				if roll.matches?(*%w{x x x y y}) or bonus_yahtzee
+					yahtzee.score("Player", 25, categories[choice - 1])
+				end
+			when 10
+				if roll.matches?(1, 2, 3, 4) or bonus_yahtzee
+					yahtzee.score("Player", 30, categories[choice - 1])
+				end
+			when 11
+				if roll.matches?(1, 2, 3, 4, 5) or bonus_yahtzee
+					yahtzee.score("Player", 40, categories[choice - 1])
+				end
+			when 12
+				if roll.matches?(*%w{x x x x x})
+					yahtzee.score("Player", 50, categories[choice - 1])
+				end
+			when 13
+				yahtzee.score("Player", roll.sum, categories[choice - 1])
+			end
+			scratches.delete(choice)
+			break
+		rescue
+			puts "Error:  Invalid category choice."
+		end
+	end
+end
+
+print "\nFinal Score:\n#{format(yahtzee.view(:gambit_text))}\n" +
+      "Thanks for playing.\n\n"

data/examples/galactic_courier/Rakefile

@@ -0,0 +1,9 @@
+require "rake/testtask"
+
+task :default => [:test]
+
+Rake::TestTask.new do |test|
+	test.libs << "test"
+	test.test_files = [ "test/ts_all.rb" ]
+	test.verbose = true
+end

data/examples/galactic_courier/bin/galactic_courier.rb

@@ -0,0 +1,44 @@
+#!/usr/local/bin/ruby -w
+
+# galactic_courier.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+$dir = File.expand_path(File.dirname(__FILE__))
+$:.unshift(File.join($dir, "../../../lib"), File.join($dir, "../lib"))
+
+require "galaxy"
+require "sector"
+require "planet"
+require "station"
+
+require "gambit"
+
+class GalacticCourier < Gambit::Server::Game
+	def initialize(  )
+		super
+		
+		@galaxy = Galaxy.random(10_000)
+		@where  = nil
+	end
+
+	def do_configure( player, details = Hash.new )
+		super
+		"console.rhtml"
+	end
+	
+	def do_event( player, event, details = Hash.new )
+		@where = @galaxy[0] if @where.nil?
+		super
+	end
+	
+	def do_login( player, details = Hash.new )
+		"console.rhtml"
+	end
+	
+	def do_warp( player, details = Hash.new )
+		@where = @galaxy[details["sector"].to_i - 1]
+		"console.rhtml"
+	end
+end

data/examples/galactic_courier/html/console.rhtml

@@ -0,0 +1,15 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+          "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+	<title><%= if @where.is_a? Sector
+	               "Arriving in Sector #{@where.name}..."
+	           else
+	               "Landing on Planet #{@where.name}..."
+	           end %></title>
+</head><body>
+	<h1><%= @where.class.to_s.capitalize %> <%= @where.name %>:</h1>
+	<%= @where.view(:html).gsub(/class="sector">(.+?)</) do
+			">" + event($1, "warp", "sector" => $1) + "<"
+	    end %>
+</body></html>

data/examples/galactic_courier/lib/galaxy.rb

@@ -0,0 +1,64 @@
+#!/usr/local/bin/ruby -w
+
+# galaxy.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+require "sector"
+
+class Galaxy
+	def self.random( size )
+		galaxy = new
+		
+		worm_holes         = size / 100
+		sectors            = [Sector.random]
+		sectors.first.name = sectors.size
+		link_queue         = [sectors.first]
+		size -= 1
+		until size.zero?
+			if link_queue.empty?
+				link_queue << sectors.find { |sec| sec.links.size < 5 }
+			end
+			from       = link_queue.shift
+			link_count = from.links.size
+			
+			create_count = if size < 5 - link_count
+			                   size
+			               else
+				               rand(6 - link_count)
+				           end
+			create_count.times do |num|
+				to         = Sector.random
+				sectors    << to
+				to.name    = sectors.size
+				link_queue << to
+				from.link(to)
+				
+				size -= 1
+			end
+		end
+		worm_holes.times do
+			from = sectors.find { |sec| sec.links.size == 1 } or break
+			to   = sectors.find do |sec|
+				sec.links.size < 5 and not from.links.include?(sec) 
+			end or break
+			from.link(to, true)
+		end
+		galaxy.instance_eval { @sectors = sectors }
+		
+		galaxy
+	end
+	
+	def initialize(  )
+		@sectors = Hash.new
+	end
+	
+	def []( sector )
+		@sectors[sector]
+	end
+	
+	def size(  )
+		@sectors.size
+	end
+end

data/examples/galactic_courier/lib/planet.rb

@@ -0,0 +1,30 @@
+#!/usr/local/bin/ruby -w
+
+# planet.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+require "gambit/viewable"
+
+class Planet
+	include Gambit::Viewable
+	register_view(:html, <<-END_HTML.gsub(/^t/, ""))
+		<div class="sidebar">
+			<img src="<%= @type %>.jpg" width="300" height="300" />
+		</div>
+	END_HTML
+	
+	def self.random(  )
+		new( [ :volcanic, :tundra, :oceanic,
+		       :jungle, :industrial, :barren ][rand(6)] )
+	end
+	
+	def initialize( type )
+		@name = "Unknown"
+		@type = type
+	end
+	
+	attr_accessor :name
+	attr_reader   :type
+end

data/examples/galactic_courier/lib/sector.rb

@@ -0,0 +1,84 @@
+#!/usr/local/bin/ruby -w
+
+# sector.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+require "planet"
+require "station"
+
+class Sector
+	include Gambit::Viewable
+	register_view(:html, <<-END_HTML.gsub(/^\t/, ""))
+		<div class="content">
+			<ul>
+	% @links.each do |l|
+				<li class="sector"><%= l.name %></li>
+	% end
+			</ul>
+		</div>
+	END_HTML
+
+	def self.random(  )
+		sector = new
+		
+		rand(6).times { sector << Planet.random }
+		sector.build_station(Station.random) if rand(2) == 1
+		sector.instance_eval do
+			@feature = [:none, :nebula, :asteroids, :black_hole][rand(4)]
+		end
+		
+		sector
+	end
+	
+	def initialize( feature = :none )
+		@name    = "Unknown"
+		
+		@planets = Array.new
+		@station = nil
+		@feature = feature
+		
+		@links   = Array.new
+	end
+	
+	attr_accessor :name
+	attr_reader   :feature, :links
+	
+	def <<( planet )
+		if @planets.size < 5
+			@planets << planet
+			self
+		else
+			raise RuntimeError, "Sector is full."
+		end
+	end
+	alias_method :create_planet, :<<
+	
+	def []( index )
+		@planets[index]
+	end
+	
+	def build_station( station )
+		if @station.nil?
+			@station = station
+		else
+			raise RuntimeError, "This sector already has a space station."
+		end
+	end
+	
+	include Enumerable
+	
+	def each( &block )
+		@planets.each(&block)
+	end
+
+	def link( other, one_way = false )
+		@links << other
+		other.link(self, true) unless one_way
+	end
+	
+	def size(  )
+		@planets.size
+	end
+end

data/examples/galactic_courier/lib/station.rb

@@ -0,0 +1,18 @@
+#!/usr/local/bin/ruby -w
+
+# station.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+class Station
+	def self.random(  )
+		new
+	end
+
+	def initialize(  )
+		
+	end
+	
+	
+end

data/examples/galactic_courier/test/tc_galaxy.rb

@@ -0,0 +1,24 @@
+#!/usr/local/bin/ruby -w
+
+# tc_galaxy.rb
+#
+#  Created by James Edward Gray II on 2005-06-06.
+#  Copyright 2005 Gray Productions. All rights reserved.
+
+require "test/unit"
+
+require "galaxy"
+require "sector"
+
+class TestGalaxy < Test::Unit::TestCase
+	def test_creation
+		assert_not_nil(galaxy = Galaxy.new)
+		assert_not_nil(galaxy.instance_eval { @sectors[1001] = Sector.new })
+		assert_instance_of(Sector, galaxy[1001])
+		
+		assert_not_nil(galaxy = Galaxy.random(10_000))
+		assert_instance_of(Galaxy, galaxy)
+		assert_equal(10_000, galaxy.size)
+		assert_instance_of(Sector, galaxy[rand(10_000)])
+	end
+end