gambit 0.1.0

data/examples/cli/space_trader2/space_trader2.rb

@@ -0,0 +1,248 @@
+#!/usr/local/bin/ruby -w
+# space_trader2.rb
+#
+#  Created by Gregory Brown on 2005-06-01
+#  Copyright 2005 smtose.org.  All rights reserved.
+
+$:.unshift(File.join(File.dirname(__FILE__), "..", "..", "..", "lib"))
+$:.unshift(File.dirname(__FILE__))
+require "gambit/tools"
+require "gambit/viewable"
+require "world"
+include Gambit::Tools
+
+World.generate_galaxy(File.join(File.dirname(__FILE__), "planet_data"))
+World.generate_board(20,20)
+
+@solar_system = nil
+
+Currency["cash"] = 1
+Currency["lazers"] = 0
+player_holdings = Hash.new(0)
+player_holdings["cash"] = 500
+player_holdings["lazers"] = 2
+@player_health = 100
+@player = Currency.new(player_holdings)
+
+def show_galaxy
+	puts World.new(nil).view(:galaxy_view)
+end
+
+def show_planet(planet_name)
+	puts World.galaxy[planet_name].view(:world_view)
+end
+
+def select_world()
+	if @solar_system.nil?
+		select_solar_system()
+	else
+		puts "Worlds in System #{@solar_system}: "
+		puts World.board[@solar_system].join(" | ")
+		print "\n> "
+		choice = gets.chomp
+		choice = World.board[@solar_system].find { |wor| wor =~ /^#{choice}/ }
+
+		if choice.nil?
+			puts "Either you suck with the keyboard or " +
+			     "that isn't in this system."
+			select_world()
+		else
+			World.set_current_planet(choice)	
+		end
+		
+	end
+end
+
+def select_solar_system()
+	print "Enter Solar System Coordinates to Warp: (i.e. e8 b6 etc.)\n"
+	show_galaxy
+	print "> "
+	choice = gets.chomp
+	if World.board.valid?(choice)
+		@solar_system = choice
+		World.set_current_planet(
+			World.board[choice][rand(World.board[choice].size)] )
+		select_world
+	else
+		puts "Invalid choice"
+		select_solar_system()
+	end
+end
+
+def random_events(  )
+	value = 1.d(6).sum
+	combat() if value == 2 or value == 4
+	police() if value == 3
+end
+
+def combat(police = false )
+	multiplier = police ? 2 : 1
+	pirate_health = 1.d(100).sum * multiplier
+	puts "You have been attacked by pirates!"
+	puts "your health: #{@player_health} pirate health #{pirate_health}"
+	pirate_lazers = Dice.new(1,3).sum * multiplier
+	while pirate_health > 0 && @player_health > 0
+		print "(a)ttack (f)lee: "
+		case gets.chomp.downcase
+			when /^a/
+				pirate_health -= Dice.new(@player["lazers"],6).sum
+			when /^f/
+				if Dice.new(1,6).sum % 2 == 0
+					@player.withdraw(@player["cash"]/2,"cash")
+					puts "You got away but lost half your cash in the process"
+					return
+				end
+			else
+				puts "Schwa?"
+		end
+		@player_health -= Dice.new(pirate_lazers,5).sum if pirate_health > 0
+		if @player_health > 0 && pirate_health > 0
+			puts "your health: #{@player_health} " + 
+			     "pirate health #{pirate_health}"
+		elsif @player_health <= 0
+			puts "The pirates gunned the crap out of you!"
+		else
+			puts "You destroyed the pirate fools!"
+		end
+	end
+end
+
+def police(  )
+	puts "You have been stopped by the police!"
+	puts "You may let them (i)nspect, try to (f)lee, (a)ttack " + 
+	      "or (b)ribe them for 500 cash"
+    print "\n> "
+	case gets.chomp.downcase
+		when /^a/
+			puts "The police were really a band of pirates!" +
+			     "( Not really, but we havent made police fights yet :) )"
+			combat(police = true)
+			
+		when /^i/
+			if @player.holdings.keys.any? { |item| World.illegal?(item) }
+				@player_health = 0
+				puts "You've been busted for transporting illegal substances!"
+				return
+			else
+				puts "The police inspect and find nothing unusual"
+			end
+		when /^f/
+			if Dice.new(1,10).sum % 3 == 0
+				puts "Good job, you stuck it to the man and got away!"
+				return
+			else
+				puts "You should never run from the police! BUSTED!"
+				@player_health = 0
+				return
+			end
+		when /^b/
+			if Dice.new(1,10).sum % 9 == 0
+				puts "You've come across the one in ten cops " + 
+				     "who can't be bribed. Bummer"
+				@player_health = 0
+				return
+			elsif @player["cash"] < 500
+				puts "You don't have enough to bribe the cops. BUSTED!"
+				@player_health = 0
+				return
+			else
+				puts "The cop looks the other way once the cash " + 
+				     "is in his hands."
+				@player.withdraw(500,"cash")
+				return
+			end
+		else
+			puts "Shiggity Schwa?"
+	end
+end
+
+def show_player_commodities(  )
+	puts "You have: "
+	@player.holdings.each do |key, value|
+		puts key.to_s + " [" + value.to_s + "]" if value > 0
+	end
+end
+
+def make_purchase( )
+	print "\n(quantity item): "
+	quantity, item = gets.chomp.split(/ /)
+	available = World.resources
+	item = available.find { |name| name =~ /^#{item}/ }
+	
+	if item.nil?
+		puts "Unknown item."
+		return
+	end
+	
+	cost = World.cash_value(quantity.to_i,item)
+	
+	if ( @player["cash"] >= cost)
+		@player.withdraw(cost,"cash")
+		World.galaxy[World.get_current_planet].export(quantity.to_i, item)
+		@player.deposit(quantity.to_i,item)
+	else
+		puts "Insufficient funds."
+	end
+end
+
+def make_sale()
+	print "\n(quantity item): "
+	quantity, item = gets.chomp.split(/ /)
+	available = World.resources
+	item = available.find { |name| name =~ /^#{item}/ }
+
+	if item.nil?
+		puts "Unknown item."
+		return
+	end
+
+	if @player[item] >= quantity.to_i
+		World.galaxy[World.get_current_planet].import(quantity.to_i, item)
+		@player.deposit( World.cash_value(quantity.to_i,item),"cash")
+		@player.withdraw(quantity.to_i,item)
+	else
+		puts "You don't have that much, bonehead!"
+	end
+end
+		
+select_solar_system()
+alive =true
+while alive
+	show_planet(World.get_current_planet)
+	puts "------------------------------------------"
+	show_player_commodities()
+	puts "\nWelcome to #{World.get_current_planet}!"
+	puts "(b)uy (s)ell (h)eal (m)ove (w)arp (q)uit     " +
+	     "Health: #{@player_health}" 
+	print "\n>"
+	case gets.chomp.downcase
+		when /^m/
+			random_events()
+			select_world()
+		when /^w/
+			if @player["boosters"] > 0
+				@player.withdraw(1,"boosters")
+				select_solar_system()
+			else
+				puts "You need a booster to warp!"
+			end
+		when /^q/
+			exit
+		when /^b/
+			make_purchase()
+		when /^s/
+			make_sale()
+		when /^h/
+			if @player["medicine"] > 0
+				@player.withdraw(1,"medicine")
+				@player_health + 20 < 100 ? @player_health += 20 :
+				                            @player_health = 100
+			else
+				puts "No medicine to use!"
+			end
+		else
+			puts "DAMN!"
+	end
+
+	alive = false unless @player_health > 0
+end

data/examples/cli/space_trader2/world.rb

@@ -0,0 +1,127 @@
+#!/usr/local/bin/ruby -w
+
+# world.rb
+#
+#  Created by Gregory Brown on 2005-06-01
+#  Copyright 2005 smtose.org.  All rights reserved.
+
+$:.unshift(File.join(File.dirname(__FILE__), "..", "..", "..", "lib"))
+require "gambit/tools"
+require "gambit/viewable"
+include Gambit::Tools
+
+class World
+	include Gambit::Viewable
+	register_view(:world_view, <<-END_WORLD_VIEW.gsub(/^\t/, ""))
+	<%= @name %> resources:
+	% self.class.resources.each do |resource|
+	%	if @exchange_rates[resource] > 0
+	* <%= resource %>: $<%= @exchange_rates[resource]%> [<%=
+	      @currency_hold[resource] %> Available]
+	%	end
+	% end
+	END_WORLD_VIEW
+	register_view(:galaxy_view, <<-END_GALAXY_VIEW.gsub(/^\t/, ""))
+	% self.class.board.each_row do |row|
+	<%= row.map { |solar_system| solar_system.any? { |planet|
+	              self.class.galaxy[planet].visited } ? '#' : '-' }.
+	              join('  ') %>
+	% end
+	END_GALAXY_VIEW
+				     
+	def self.generate_galaxy(filename)
+		@@galaxy = Hash.new(0)
+		puts "Loading galaxy file, patience my son..."
+		File.open(filename) do |file|
+			while planet_name = file.gets
+				@@galaxy[planet_name.chomp] = World.new(planet_name.chomp)
+			end
+		end
+
+		puts "Loaded!"
+	end
+
+	def self.generate_board(xSize, ySize)
+		names = @@galaxy.keys
+		@@galaxy_board = Board.new(xSize, ySize, [])
+		@@galaxy_board.each_location do |loc|
+			(2+rand(8)).times do	
+				planet_name = names[ rand(names.size) ]
+				@@galaxy_board[loc] << planet_name
+			end
+		end
+	end
+	
+	def self.illegal?(resource)
+		@@illegal_commodities.include?(resource) ? true : false
+	end
+
+	def self.resources
+		return @@commodities
+	end
+	
+	def self.galaxy
+		return @@galaxy
+	end
+
+	def self.board
+		return @@galaxy_board
+	end
+
+	def self.set_current_planet(planet)
+		@@planet = planet
+		@@galaxy[planet].visited = true
+		@@galaxy[planet].update_exchange_rates()
+	end
+	
+	def self.get_current_planet()
+		return @@planet
+	end
+
+	def self.cash_value(quantity, resource)
+		return quantity * Currency[resource]
+	end
+	
+	@@commodities = %w[ machinery liquor narcotics livestock computers food
+	                    weapons lazers medicine boosters ]
+	@@illegal_commodities = %w[ liquor narcotics weapons ]
+	
+	def initialize(name)
+		my_commodities = Hash.new(0);
+		@exchange_rates = Hash.new(0);
+		@name = name
+		@@commodities.each do |resource|
+			unless (1.d(10).sum % 3 == 0)
+				my_commodities[resource] = Dice.new(500).sum
+				@exchange_rates[resource] = Dice.new(5,100).sum
+			end
+		end
+
+		@exchange_rates["boosters"] = 1000
+		
+		@currency_hold = Currency.new(my_commodities) 
+		
+		@visited = false
+	end
+
+	attr_reader :name
+	attr_accessor :visited
+
+	def update_exchange_rates()
+		@exchange_rates.each do |resource,rate|
+			Currency[resource] = rate
+		end
+	end
+
+	def export(quantity, resource)
+		@currency_hold.withdraw(quantity, resource)
+	end
+
+	def import(quantity, resource)
+		@currency_hold.deposit(quantity, resource)	
+	end
+
+	def available?(quantity, resource)
+		@currency_hold[resource] >= quantity ? true : false
+	end
+end

data/examples/cli/spacetrader.rb

@@ -0,0 +1,262 @@
+#!/usr/local/bin/ruby -w
+
+# spacetrader.rb
+#
+#  Created by Gregory Brown on 2005-05-30
+#  Copyright 2005 smtose.org.  All rights reserved.
+
+$:.unshift(File.join(File.dirname(__FILE__), "..", "..", "lib"))
+require "gambit/tools/dice"
+require "gambit/tools/currency"
+include Gambit::Tools
+
+Currency[:cash] = 1
+Currency[:lazer] = 0
+player_holdings = Hash.new(0)
+player_holdings[:cash] = 500
+player_holdings[:lazers] = 2
+@player = Currency.new(player_holdings);
+@player_health = 100;
+@world_holdings = Hash.new(0);
+@world_exchange_rates = Hash.new(0);
+
+@world_holdings[:mercury] = Currency.new( { :medicine     => 50,
+                                            :alien_liquor => 0,
+                                            :machinery    => 15 } )
+@world_exchange_rates[:mercury] = { :medicine     => Dice.new(5,10).sum,
+                                    :alien_liquor => Dice.new(5, 20).sum,
+                                    :machinery    => Dice.new(10,10).sum }
+@world_holdings[:venus] = Currency.new( { :medicine     => 0, 
+                                          :alien_liquor => 100,
+                                          :machinery    => 30 } )
+@world_exchange_rates[:venus] = { :medicine     => Dice.new(20,5).sum,
+                                  :alien_liquor => Dice.new(5,10).sum,
+                                  :machinery    => Dice.new(8,15).sum }
+@world_holdings[:mars] = Currency.new({:lazers	=> 20})
+@world_exchange_rates[:mars] = {:lazers => 500}
+
+Currency.register_view(:player, <<END_PLAYER)
+% resources = @holdings.keys
+% resources = resources.sort_by { |res| res.to_s }
+% res_width = resources.max { |a, b| a.to_s.length <=>
+%                                    b.to_s.length }.to_s.length
+% amt_width = @holdings.values.max { |a, b| a.to_s.length <=>
+%                                           b.to_s.length }.to_s.length
+% resources.each do |resource|
+<%= "%\#{res_width}s" % resource.to_s.capitalize %> [<%=
+	"%\#{amt_width}d" % @holdings[resource] %>]
+% end
+END_PLAYER
+Currency.register_view(:world, <<END_WORLD)
+% resources = @holdings.keys
+% resources = resources.sort_by { |res| res.to_s }
+% res_width = resources.max { |a, b| a.to_s.length <=>
+%                                    b.to_s.length }.to_s.length
+% val_width = resources.map { |r| self.class[r] }.
+%                       max { |a, b| a.to_s.length <=> b.to_s.length }.
+%                       to_s.length
+% amt_width = @holdings.values.max { |a, b| a.to_s.length <=>
+%                                           b.to_s.length }.to_s.length
+% resources.each do |resource|
+<%= "%\#{res_width}s" % resource.to_s.capitalize %>: $<%=
+    "%\#{val_width}.2f" % self.class[resource] %> [<%=
+    "%\#{amt_width}d" % @holdings[resource] %>]
+% end
+END_WORLD
+
+def random_events(  )
+	value = Dice.new(1,6).sum
+	
+	combat() if value == 2 or value == 4
+	police() if value == 3
+end
+
+def go_to_world( world )
+	@world_exchange_rates[world].each do |key,value|
+		Currency[key] = value
+	end
+end
+
+def show_world_commodities( world )
+	puts
+	puts "#{world.to_s.capitalize} has: "
+	puts @world_holdings[world].view(:world)
+end
+
+def show_player_commodities(  )
+	puts "You have: "
+	puts @player.view(:player)
+end
+
+def select_world( current_world )
+	puts "Please select a destination: "
+	worlds = @world_holdings.keys.map { |s| s.to_s }
+	worlds.each { |world| puts "- #{world}" if world != current_world }
+	print "\n> "
+
+	choice = gets.chomp
+	choice = worlds.find { |world| world =~ /^#{choice}/ }
+
+	if choice.nil?
+		puts "Stick to this galaxy, Buck Rogers!"
+		select_world(current_world)
+	else
+		go_to_world(choice.to_sym)
+		return choice.to_sym
+	end
+end
+
+def make_purchase( current_world )
+	print "\n(quantity item): "
+	quantity, item = gets.chomp.split(/ /)
+	available = @world_holdings[current_world].holdings.keys.map { |s| s.to_s }
+	item = available.find { |name| name =~ /^#{item}/ }
+	
+	if item.nil?
+		puts "Unknown item."
+		return
+	end
+	
+	if ( @player[:cash] *
+	     Currency.relative_value(:cash,item.to_sym) >= quantity.to_i )
+		@player.withdraw( 
+			@world_holdings[current_world].withdraw( quantity.to_i,item.to_sym,
+			                                         :cash ),
+			:cash )
+		@player.deposit(quantity.to_i,item.to_sym)
+	else
+		puts "Insufficient funds."
+	end
+end
+
+def make_sale( current_world )
+	print "\n(quantity item): "
+	quantity, item = gets.chomp.split(/ /)
+	available = @world_holdings[current_world].holdings.keys.map { |s| s.to_s }
+	item = available.find { |name| name =~ /^#{item}/ }
+
+	if item.nil?
+		puts "Unknown item."
+		return
+	end
+
+	if @player[item.to_sym] >= quantity.to_i
+		@world_holdings[current_world].deposit(quantity.to_i, item.to_sym)
+		@player.deposit( @player.withdraw(quantity.to_i,item.to_sym, :cash),
+		                 :cash )
+	else
+		puts "You don't have that much, bonehead!"
+	end
+end
+
+def combat(  )
+	pirate_health = Dice.new(1,100).sum
+	puts "You have been attacked by pirates!"
+	puts "your health: #{@player_health} pirate health #{pirate_health}"
+	pirate_lazers = Dice.new(1,3).sum
+	while pirate_health > 0 && @player_health > 0
+		print "(a)ttack (f)lee: "
+		case gets.chomp.downcase
+			when /^a/
+				pirate_health -= Dice.new(@player[:lazers],6).sum
+			when /^f/
+				if Dice.new(1,6).sum % 2 == 0
+					@player.withdraw(@player[:cash]/2,:cash)
+					puts "You got away but lost half your cash in the process"
+					return
+				end
+			else
+				puts "Schwa?"
+		end
+		@player_health -= Dice.new(pirate_lazers,5).sum if pirate_health > 0
+		if @player_health > 0 && pirate_health > 0
+			puts "your health: #{@player_health} " + 
+			     "pirate health #{pirate_health}"
+		elsif @player_health <= 0
+			puts "The pirates gunned the crap out of you!"
+		else
+			puts "You destroyed the pirate fools!"
+		end
+	end
+end
+
+def police(  )
+	puts "You have been stopped by the police!"
+	puts "You may let them (i)nspect, try to (f)lee, " + 
+	      "or (b)ribe them for 500 cash"
+    print "\n> "
+	case gets.chomp.downcase
+		when /^i/
+			if @player[:alien_liquor] > 0
+				@player_health = 0
+				puts "You've been busted for transporting illegal substances!"
+				return
+			else
+				puts "The police inspect and find nothing unusual"
+			end
+		when /^f/
+			if Dice.new(1,10).sum % 3 == 0
+				puts "Good job, you stuck it to the man and got away!"
+				return
+			else
+				puts "You should never run from the police! BUSTED!"
+				@player_health = 0
+				return
+			end
+		when /^b/
+			if Dice.new(1,10).sum % 9 == 0
+				puts "You've come across the one in ten cops " + 
+				     "who can't be bribed. Bummer"
+				@player_health = 0
+				return
+			elsif @player[:cash] < 500
+				puts "You don't have enough to bribe the cops. BUSTED!"
+				@player_health = 0
+				return
+			else
+				puts "The cop looks the other way once the cash " + 
+				     "is in his hands."
+				@player.withdraw(500,:cash)
+				return
+			end
+		else
+			puts "Shiggity Schwa?"
+	end
+end	
+				
+alive = true
+my_world = select_world(my_world)
+show_world_commodities(my_world)
+show_player_commodities()
+while alive
+	puts "\n Welcome to #{my_world}!\n (h)eal (b)uy (s)ell (m)ove (q)uit  " +
+	     "[Health: #{@player_health}]"
+    print "\n> "
+	case gets.chomp.downcase
+		when /^h/
+			if @player[:medicine] > 0
+				@player.withdraw(1,:medicine)
+				@player_health + 20 < 100 ? @player_health += 20 :
+				                            @player_health = 100
+			else
+				puts "No medicine to use!"
+			end
+		when /^b/
+			make_purchase(my_world)
+		when /^s/
+			make_sale(my_world)
+		when /^m/
+			random_events()
+			my_world = select_world(my_world) if (@player_health > 0)
+		when /^q/
+			exit
+		else
+			puts "WTF MAN!"
+	end
+	if @player_health <= 0
+		alive = false 
+	else
+		show_world_commodities(my_world)
+		show_player_commodities()
+	end
+end