Queen_Of_Diamonds 0.3-mswin32

data/README

@@ -0,0 +1,21 @@
+Queen Of Diamonds v0.3
+Dirk Meijer
+17th April 2006
+
+Queen Of Diamonds is released under:
+GNU General Public License (GPL) version 3.
+
+Queen Of Diamonds uses the gosu library v0.62
+(http://www.raschke.de/julian/gosu/).
+
+Queen Of Diamonds is a library that makes it easy
+to create Windows-like card games.
+
+./samples/blackjack.rb is an example of a cardgame
+without graphics (at the moment).
+
+./samples/pwnage.rb is an example that does use
+graphics.
+
+Enjoy it!
+Dirk.

data/lib/Queen_Of_Diamonds.rb

@@ -0,0 +1,174 @@
+=begin
+	name:        Queen of Diamonds v0.3
+	author:      Dirk Meijer
+	date:        April 17th 2006
+	description: The graphic part of the app, almost ready!
+=end
+
+require "gosu/gosu"
+require "Queen_Of_Diamonds_no_graphics"
+
+class Table < Gosu::Window
+	attr_accessor(:hand, :visible_cards)
+	
+	def initialize(hand=Deck.new, width=640, height=480, fullscreen=false , framerate=20, caption="Queen of Diamonds", background="#{File.dirname(__FILE__)}/../images/table.png")
+		raise TypeError.new unless caption.respond_to?(:to_s)
+		raise TypeError.new unless background.respond_to?(:to_s)
+		super(width, height, fullscreen, framerate)
+		self.caption=caption.to_s
+		@background=Gosu::Image.new(self, background, false)
+		@visible_cards=[]
+		@hand=hand
+		assign_images
+	end
+	
+	def draw
+		@background.draw(0,0,0)
+		@visible_cards.each do |card|
+			card.draw
+		end
+	end
+	
+	def update
+		@visible_cards.each do |card|
+			card.action
+		end
+	end
+	
+	def assign_images
+		@hand.each do |card|
+			card.front=Gosu::Image.new(self, "#{File.dirname(__FILE__)}/../images/#{card.suit.to_s.downcase}#{card.value.to_s.downcase}.png", false)
+			card.back=Gosu::Image.new(self, "#{File.dirname(__FILE__)}/../images/back.png", false)
+			card.side=card.front
+			card.x = 0
+			card.y = 0
+			card.z = 1
+			card.zoom_x = 1
+			card.zoom_y = 1
+			card.angle = 1
+			card.movements=[]
+		end
+		true
+	end
+end
+
+
+
+class Card
+	attr_accessor(:x, :y, :zoom_x, :zoom_y, :z, :angle, :front, :back, :side, :movements)
+	
+	def draw
+		@side.draw_rot(@x, @y, @z, @angle, 0.5, 0.5, @zoom_x, @zoom_y)
+	end
+	
+	def action
+		@movements.each do |move|
+			@movements -= [move] if move.step
+		end
+	end
+	
+	def new_slide(*args)
+		@movements<<Slide.new(self, *args)
+	end
+	
+	def new_rotation(*args)
+		@movements<<Rotation.new(self, *args)
+	end
+	
+	def new_flip(*args)
+		@movements<<Flip.new(self, *args)
+	end
+end
+
+
+
+class Slide
+	def initialize(card, dest_x, dest_y, steps)
+		@card=card
+		@step_x=(dest_x-@card.x)/steps.to_f
+		@step_y=(dest_y-@card.y)/steps.to_f
+		@dest_x=dest_x
+		@dest_y=dest_y
+		@steps=steps
+		@steps_done=0
+	end
+	
+	def step
+		@card.x+=@step_x
+		@card.y+=@step_y
+		@steps_done+=1
+		if @steps_done==@steps
+			@card.x=@dest_x
+			@card.y=@dest_y
+			return true
+		end
+		return false
+	end
+end
+
+
+
+class Rotation
+	def initialize(card, dest_angle, steps)
+		@card=card
+		@step_angle=(dest_angle-@card.angle)/steps.to_f
+		@dest_angle=dest_angle
+		@steps=steps
+		@steps_done=0
+	end
+	
+	def step
+		@card.angle+=@step_angle
+		@steps_done+=1
+		if @steps_done==@steps
+			@card.angle=@dest_angle
+			return true
+		end
+		return false
+	end
+end
+
+
+
+class Flip
+	def initialize(card, x_or_y, steps)
+		@card=card
+		case x_or_y
+		when :x
+			@step_zoom_x=-2/steps.to_f
+		when :y
+			@step_zoom_y=-2/steps.to_f
+		end
+		@x_or_y=x_or_y
+		@steps=steps
+		@steps_done=0
+	end
+	
+	def step
+		case @x_or_y
+		when :x
+			@card.zoom_x+=@step_zoom_x
+		when :y
+			@card.zoom_y+=@step_zoom_y
+		end
+		@steps_done+=1
+		if @steps_done==@steps/2
+			case @card.side
+			when @card.front
+				@card.side=@card.back
+			when @card.back
+				@card.side=@card.front
+			end
+			case @x_or_y
+			when :x
+				@step_zoom_x=2/@steps.to_f
+			when :y
+				@step_zoom_y=2/@steps.to_f
+			end
+		elsif @steps_done==@steps
+			@card.zoom_x=@card.zoom_y=1
+			return true
+		end
+		return false
+	end
+end

data/lib/Queen_Of_Diamonds_no_graphics.rb

@@ -0,0 +1,220 @@
+=begin
+	name:        Queen of Diamonds v0.3
+	author:      Dirk Meijer
+	date:        April 17th 2006
+	description: The basis of the app, contains the classes.
+=end
+
+
+class Game
+	attr_accessor(:window, :hand)
+	
+	def initialize(window=Window.new, hand=Deck.new)
+		window.verify_class(Window)
+		hand.verify_class(Hand, Deck)
+		@window=window
+		@hand=hand
+	end
+	
+	def play
+		@window.show
+	end
+end
+
+
+class Card
+	@@value_order="2345678910JQKAX"
+	@@suit_order="CDSHJ"
+	@@suits_over_values=false
+	include Comparable
+	attr_reader(:value, :suit)
+	
+	def initialize(value, suit)
+		value.verify_class(Fixnum, Symbol, String)
+		suit.verify_class(Symbol, String)
+		if (2..10).include?(value.to_i)
+			@value=value.to_i
+		elsif value.to_s =~ /^[JQKA]$/i
+			@value=value.to_s.upcase.to_sym
+		else
+			raise "invalid card value"
+		end
+		raise "invalid card suit" if suit.to_s !~ /^[HSDC]$/i
+		@suit=suit.to_s.upcase.to_sym
+	end
+	
+	def to_s
+		outp=""
+		if (2..10).include?(@value.to_i)
+			outp << @value.to_s
+		elsif @value==:J
+			outp << "Jack"
+		elsif @value==:Q
+			outp << "Queen"
+		elsif @value==:K
+			outp << "King"
+		elsif @value==:A
+			outp << "Ace"
+		end
+		outp << " of "
+		if @suit==:H
+			outp << "Hearts"
+		elsif @suit==:S
+			outp << "Spades"
+		elsif @suit==:D
+			outp << "Diamonds"
+		elsif @suit==:C
+			outp << "Clubs"
+		end
+	end
+	
+	def <=>(other)
+		other.verify_class(Card, Joker)
+		compare_suits=(@@suit_order =~ /#{suit.to_s}/)<=>(@@suit_order =~ /#{other.suit.to_s}/)
+		compare_values=(@@value_order =~ /#{value.to_s}/)<=>(@@value_order =~ /#{other.value.to_s}/)
+		case @@suits_over_values
+		when true
+			return compare_suits if compare_suits != 0
+			compare_values
+		when false
+			return compare_values if compare_values != 0
+			compare_suits
+		end
+	end
+	
+	def inspect
+		"{Card##{to_s}}"
+	end
+end
+
+
+class Joker < Card
+	def initialize
+		@suit=:J
+		@value=:X
+	end
+	
+	def to_s
+		"Joker"
+	end
+end
+
+
+class Hand
+	attr_reader(:cards)
+	
+	def initialize(*cards)
+		@cards=cards.flatten
+		@cards.each do |item|
+			item.verify_class(Card, Joker)
+		end
+	end
+	
+	def +(hand)
+		hand.verify_class(Hand, Deck)
+		Hand.new(@cards+hand.cards)
+	end
+	
+	def -(hand)
+		hand.verify_class(Hand, Deck)
+		Hand.new(@cards-hand.cards)
+	end
+	
+	def each &block
+		@cards.each &block
+		self
+	end
+	
+	def each_with_index &block
+		@cards.each_with_index &block
+		self
+	end
+	
+	def to_a
+		@cards
+	end
+	
+	def <<(*cards)
+		cards.each do |item|
+			item.verify_class(Card, Joker)
+		end
+		@cards << cards
+		@cards.flatten!
+		self
+	end
+	
+	def [](index)
+		@cards[index]
+	end
+	
+	def sort
+		Hand.new(@cards.sort)
+	end
+	
+	def sort!
+		@cards.sort!
+		self
+	end
+	
+	def shuffle
+		Hand.new(@cards.sort_by {rand})
+	end
+	
+	def shuffle!
+		@cards = @cards.sort_by {rand}
+		self
+	end
+	
+	def stock(amount)
+		raise "not enough cards" if amount > @cards.length
+		new = Hand.new(@cards[0...amount])
+		@cards -= @cards[0...amount]
+		new
+	end
+	
+	def size
+		@cards.length
+	end
+	
+	def to_s
+		@cards.join("\n")
+	end
+	
+	def inspect
+		"{Hand#size:#{@cards.length}}"
+	end
+	
+	def ==(other)
+		@cards==other.cards
+	end
+end
+
+
+class Deck < Hand
+	def initialize
+		@cards=[]
+		values=[2,3,4,5,6,7,8,9,10,:J,:Q,:K,:A]
+		suits=[:C,:D,:S,:H]
+		values.each do |v|
+			suits.each do |s|
+				@cards << Card.new(v,s)
+			end
+		end
+	end
+end
+
+
+class Object
+	def verify_class(*classes)
+		if classes.include?(self.class)
+			return true
+		else
+			if classes.length>2
+				class_names="#{classes[0..-2].join(', ')} or #{classes[-1]}"
+			else
+				class_names=classes.join(" or ")
+			end
+			raise TypeError.new("can't convert #{self.class} into #{class_names}")
+		end
+	end
+end

data/samples/blackjack.rb

@@ -0,0 +1,227 @@
+=begin
+  name:        BlackJack v0.2
+  author:      Dirk Meijer
+  date:        January 31st 2006
+  description: A simple BlackJack game using the Queen of Diamonds library,
+               it uses a simple terminal window, until I have finished the
+               graphic part. I'm probably about half-way through.
+=end
+
+require "Queen_Of_Diamonds"
+
+#addition to the Card class, an ace can only be degraded once,
+#otherwise certain situations would keep a player (or dealer) from losing
+class Card
+	attr_accessor :ace_degraded
+end
+
+class Hand
+	def calculate_score
+		score=0
+		each do |card|
+			if card.value == :A #if it's an ace
+				score += 11 #add 11 points
+				score -= 10 if card.ace_degraded
+			elsif (2..10).include?(card.value) #if it's a 2 upto a 10
+				score += card.value #add that value
+			else #if it's something else
+				score += 10 #add 10 points
+			end
+		end
+		if score>21 #if your hand is more than 21
+			each do |card| #each card
+				if card.value == :A and card.ace_degraded != true #if an ace hasn't been degraded yet
+					score-=10 if score>21 #turn 11 points from ace into 1 point if your score still > 21
+					card.ace_degraded = true #tell the ace that it has been degraded
+				end
+			end
+		end
+		score
+	end
+end
+
+
+#the BlackJack class, which holds all the methods required to play blackjack
+class BlackJack
+	attr_reader :player_score, :dealer_score, :player_hand, :dealer_hand, :winner, :money, :bet
+	
+	def initialize(money=50)
+		@money=money
+	end
+	
+	
+	#the play methods, call this method to start a game
+	def play
+		loop do
+			@deck = Deck.new.shuffle #create a new (and shuffled) deck
+			@player_score=0 #your score is nullified
+			@dealer_score=0
+			@turn=0
+			puts "---------------------------\n Money: #{@money}\n How much money would you like to bet?"
+			bet=gets.to_i
+			until (1..@money).include?(bet)
+				puts "---------------------------\n Money: #{@money}\n How much money would you like to bet?"
+				bet=gets.to_i
+			end
+			@bet=bet
+			@money-=@bet
+			@player_hand=@deck.stock(2).sort #you get two cards
+			@player_score=@player_hand.calculate_score
+			puts "---------------------------\n Player's hand:",@player_hand," Score: #{@player_score}" #show your score
+			if @player_score==21 #if your score = 21
+				puts " Blackjack!" #tell player he has a blackjack
+				@winner=:player #player wins
+				@money+=(@bet*1.5).to_i
+				next #tell game to end
+			end
+			option= :choose #the first option is choose
+			loop do #until the game exits
+				option=__send__(option) #each method will return a symbol that is a method name, which will be evaluated, when the game is supposed to end, this will be :exit
+				break if option == :play
+			end
+		end
+	end
+	
+	private
+	#choose gives you four options, only the first two currently have effect
+	def choose
+		@turn+=1
+		puts "---------------------------\n Hit/Stand#{"/Double" if @turn==1 and ((9..11).include?(@player_score) or ([19,20].include?(@player_score) and (@player_hand[0].value==:A or @player_hand[1].value==:A))) and @money>=@bet}#{"/Split" if @turn==1 and @player_hand[0].value == @player_hand[1].value and @money>=@bet}#{"/Surrender" if @turn==1}?" #show options
+		g=gets #get string
+		if g=~/^h/i #if string starts with 'h'
+			return :hit #tell program to hit
+		elsif g=~/^st/i #if string starts with 'st'
+			return :dealer_move #tell program your done
+		elsif g=~/^d/i and @turn==1 and ((9..11).include?(@player_score) or ([19,20].include?(@player_score) and (@player_hand[0].value==:A or @player_hand[1].value==:A))) and @money>=@bet #if string starts with 'd'
+			return :double #double
+		elsif g=~/^sp/i and @turn==1 and @player_hand[0].value == @player_hand[1].value and @money>=@bet #if string starts with 'sp'
+			return :split #split cards
+		elsif g=~/^su/i and @turn==1
+			return :surrender
+		else #if no option was chosen
+			@turn-=1
+			return :choose #choose again
+		end
+	end
+	
+	
+	#you get another card
+	def hit
+		card=@deck.stock(1) #pop a card from the deck
+		(@player_hand+=card).sort! #add the popped card to hand
+		@player_score=@player_hand.calculate_score
+		puts "---------------------------\n Player's hand:",@player_hand," Score: #{@player_score}" #show your score
+		if @player_score>21 #if the player's score > 21
+			puts " Bust!" #tell the player that
+			@winner=:dealer #dealer wins
+			return :stop #tell game to end
+		end
+		if @player_hand.size==5 #if player has 5 cards
+			puts " Five cards!" #tell player
+			@winner=:player #player wins
+			return :stop #tell game to end
+		end
+		return :choose #if the game hasn't ended, tell the game you can choose again
+	end
+	
+	
+	#the dealers turn
+	def dealer_move
+		@dealer_score=0 #dealer score is nullified
+		@dealer_hand=@deck.stock(2).sort #deal 2 cards
+		@dealer_score=@dealer_hand.calculate_score
+		puts "---------------------------\n Dealer's hand:",@dealer_hand," Score: #{@dealer_score}" #show dealer score
+		if @dealer_score==21 #if blackjack
+			puts " Blackjack!" #tell player
+			@winner=:dealer #dealer wins
+			return :stop #end the game
+		end
+		while @dealer_score<@player_score #dealer will continue to hit himself, until his score is no longer less than player score
+			`pause`  #game will pause, so the player can see what's going on
+			card=@deck.stock(1) #pop a card
+			@dealer_hand+=card #add the card to dealer hand
+			@dealer_score=@dealer_hand.calculate_score
+			puts "---------------------------\n Dealer's hand:",@dealer_hand," Score: #{@dealer_score}" #show dealers score
+			if @dealer_score>21 #if dealer score exceeds 21
+				puts " Bust!" #tell player
+				@winner=:player #player wins
+				return :stop #end the game
+			end
+			if @dealer_hand.size==5 #if dealer holds 5 cards
+				puts " Five cards!" #tell player
+				@winner=:dealer #dealer wins
+				return :stop #end game
+			end
+		end
+		@winner=:dealer #when dealer score equal or is more than player score, dealer wins
+		return :stop #end game
+	end
+	
+	
+	def double
+		@money-=@bet
+		@bet*=2
+		if @player_hand[0].value==:A
+			@player_score-=10
+			@player_hand[0].ace_degraded=true
+		elsif @player_hand[1].value==:A
+			@player_score-=10
+			@player_hand[1].ace_degraded=true
+		end
+		card=@deck.stock(1) #pop a card from the deck
+		(@player_hand+=card).sort! #add the popped card to hand
+		@player_score=@player_hand.calculate_score
+		puts "---------------------------\n Player's hand:",@player_hand," Score: #{@player_score}" #show your score
+		if @player_score>21 #if the player's score > 21
+			puts " Bust!" #tell the player that
+			@winner=:dealer #dealer wins
+			return :stop #tell game to end
+		end
+		return :dealer_move
+	end
+	
+	
+	def split
+		@money-=@bet
+		hand1=@player_hand.stock(1)
+		hand2=@player_hand.stock(1)
+		[hand1,hand2].each do |hand|
+			@player_hand=hand
+			(@player_hand+=@deck.stock(1)).sort! #you get two cards
+			@player_score=@player_hand.calculate_score
+			puts "---------------------------\n Player's hand:",@player_hand," Score: #{@player_score}" #show your score
+			option= :choose #the first option is choose
+			loop do #until the game exits
+				option=__send__(option) #each method will return a symbol that is a method name, which will be evaluated, when the game is supposed to end, this will be :exit
+				break if option == :play
+			end
+		end
+		:play
+	end
+	
+	
+	def surrender
+		@money+=(@bet*0.5).to_i
+		return :play
+	end
+	
+	
+	#what to do when the game ends
+	def stop
+    puts "---------------------------\n Player's score: #{@player_score}\n Dealer's score: #{@dealer_score}" #show scores
+		if @winner==:player #tell player who's won
+			puts " You win!"
+			@money+=@bet*2
+		else
+			puts " You lose!"
+		end
+		if @money>0
+			return :play
+		else
+			puts "---------------------------\n Game Over!\n No money left!\n---------------------------\n Blackjack\n Queen of Diamonds\n Dirk Meijer" #give credit to me
+			return :exit
+		end
+	end
+end
+
+BlackJack.new(5000).play #call the game!!

data/samples/pwnage.rb

@@ -0,0 +1,43 @@
+require "Queen_Of_Diamonds"
+$a=Table.new
+$a.hand.cards<<Joker.new
+$a.assign_images
+$a.hand.shuffle!
+$n=0
+$card=$a.hand[0]
+$tekst1=Gosu::Font.new($a,"Times New Roman",100)
+$tekst2=Gosu::Font.new($a,"Century Gothic",50)
+
+
+class Table
+  def draw
+		@background.draw(0,0,0)
+    $tekst1.draw_rel("PWN!!!",320,400,0,0.5,0.5,1,1,4278190080+rand(16777215))
+    $tekst2.draw_rel($card.to_s,320,100,0,0.5,0.5,1,1,0xffffff00) if $card
+		@visible_cards.each do |card|
+			card.draw
+		end
+	end
+  
+  def update
+    @visible_cards.each do |card|
+			card.action
+		end
+    if $card.x==0
+      $card.x=-40
+      $card.angle=rand(720)-360
+      $card.y=rand(480)
+      $card.side=[$card.front,$card.back][rand(2)]
+      $a.visible_cards<<$card
+      $card.new_slide(680,rand(480),50)
+      $card.new_rotation(rand(720)-360,50)
+      $card.new_flip(:x,50)
+    elsif $card.x==680
+      $a.visible_cards-=[$card]
+      $n+=1
+      $card=$a.hand[$n]
+    end
+  end
+end
+
+$a.show

metadata

@@ -0,0 +1,113 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: Queen_Of_Diamonds
+version: !ruby/object:Gem::Version 
+  version: "0.3"
+date: 2006-04-17 00:00:00 +02:00
+summary: A library for creating Windows-like card games.
+require_paths: 
+- lib
+email: hawkman@gelooft.nl
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: Queen_Of_Diamonds
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: mswin32
+signing_key: 
+cert_chain: 
+authors: 
+- Dirk Meijer
+files: 
+- images
+- lib
+- README
+- samples
+- tests
+- images/back.png
+- images/c10.png
+- images/c2.png
+- images/c3.png
+- images/c4.png
+- images/c5.png
+- images/c6.png
+- images/c7.png
+- images/c8.png
+- images/c9.png
+- images/ca.png
+- images/cj.png
+- images/ck.png
+- images/cq.png
+- images/d10.png
+- images/d2.png
+- images/d3.png
+- images/d4.png
+- images/d5.png
+- images/d6.png
+- images/d7.png
+- images/d8.png
+- images/d9.png
+- images/da.png
+- images/dj.png
+- images/dk.png
+- images/dq.png
+- images/h10.png
+- images/h2.png
+- images/h3.png
+- images/h4.png
+- images/h5.png
+- images/h6.png
+- images/h7.png
+- images/h8.png
+- images/h9.png
+- images/ha.png
+- images/hj.png
+- images/hk.png
+- images/hq.png
+- images/jx.png
+- images/s10.png
+- images/s2.png
+- images/s3.png
+- images/s4.png
+- images/s5.png
+- images/s6.png
+- images/s7.png
+- images/s8.png
+- images/s9.png
+- images/sa.png
+- images/sj.png
+- images/sk.png
+- images/sq.png
+- images/table.png
+- lib/gosu
+- lib/Queen_Of_Diamonds.rb
+- lib/Queen_Of_Diamonds_no_graphics.rb
+- lib/gosu/gosu.so
+- lib/gosu/msvcp71.dll
+- lib/gosu/msvcr71.dll
+- lib/gosu/unicows.dll
+- samples/blackjack.rb
+- samples/pwnage.rb
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+