Queen_Of_Diamonds 0.3-mswin32 → 0.4-mswin32

data/README

@@ -1,6 +1,6 @@
-Queen Of Diamonds v0.3
+Queen Of Diamonds v0.4
 Dirk Meijer
-17th April 2006
+22nd April 2006
 
 Queen Of Diamonds is released under:
 GNU General Public License (GPL) version 3.
@@ -11,11 +11,11 @@ Queen Of Diamonds uses the gosu library v0.62
 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
+./samples/blackjack.rb is an example that uses
 graphics.
 
+./samples/blackjack_no_graphics.rb is an example of a cardgame
+without graphics.
+
 Enjoy it!
 Dirk.

data/lib/Queen_Of_Diamonds.rb

@@ -1,7 +1,7 @@
 =begin
-	name:        Queen of Diamonds v0.3
+	name:        Queen of Diamonds v0.4
 	author:      Dirk Meijer
-	date:        April 17th 2006
+	date:        April 22nd 2006
 	description: The graphic part of the app, almost ready!
 =end
 
@@ -47,6 +47,7 @@ class Table < Gosu::Window
 			card.zoom_y = 1
 			card.angle = 1
 			card.movements=[]
+			card.table=self
 		end
 		true
 	end
@@ -55,12 +56,25 @@ end
 
 
 class Card
-	attr_accessor(:x, :y, :zoom_x, :zoom_y, :z, :angle, :front, :back, :side, :movements)
+	attr_accessor(:x, :y, :zoom_x, :zoom_y, :z, :angle, :front, :back, :side, :movements, :table)
+	attr_reader(:showing)
 	
 	def draw
 		@side.draw_rot(@x, @y, @z, @angle, 0.5, 0.5, @zoom_x, @zoom_y)
 	end
 	
+	def show
+		return false if @showing and @table.visible_cards.include?(self)
+		@table.visible_cards<< self
+		@showing=true
+	end
+	
+	def hide
+		return false if !@showing and !@table.visible_cards.include?(self)
+		@table.visible_cards.delete(self)
+		@showing=false
+	end
+	
 	def action
 		@movements.each do |move|
 			@movements -= [move] if move.step
@@ -83,6 +97,7 @@ end
 
 
 class Slide
+	attr_reader :steps, :steps_done
 	def initialize(card, dest_x, dest_y, steps)
 		@card=card
 		@step_x=(dest_x-@card.x)/steps.to_f
@@ -109,6 +124,7 @@ end
 
 
 class Rotation
+	attr_reader :steps, :steps_done
 	def initialize(card, dest_angle, steps)
 		@card=card
 		@step_angle=(dest_angle-@card.angle)/steps.to_f
@@ -131,6 +147,7 @@ end
 
 
 class Flip
+	attr_reader :steps, :steps_done
 	def initialize(card, x_or_y, steps)
 		@card=card
 		case x_or_y

data/lib/Queen_Of_Diamonds_no_graphics.rb

@@ -1,7 +1,7 @@
 =begin
-	name:        Queen of Diamonds v0.3
+	name:        Queen of Diamonds v0.4
 	author:      Dirk Meijer
-	date:        April 17th 2006
+	date:        April 22nd 2006
 	description: The basis of the app, contains the classes.
 =end
 

data/samples/blackjack.rb

@@ -1,16 +1,13 @@
 =begin
-  name:        BlackJack v0.2
+  name:        BlackJack v0.3
   author:      Dirk Meijer
-  date:        January 31st 2006
+  date:        April 22nd 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.
+               now with graphics! Enjoy!
 =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
@@ -19,20 +16,20 @@ class Hand
 	def calculate_score
 		score=0
 		each do |card|
-			if card.value == :A #if it's an ace
-				score += 11 #add 11 points
+			if card.value == :A
+				score += 11
 				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
+			elsif (2..10).include?(card.value)
+				score += card.value
+			else
+				score += 10
 			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
+		if score>21
+			each do |card|
+				if card.value == :A and card.ace_degraded != true
+					score-=10 if score>21
+					card.ace_degraded = true
 				end
 			end
 		end
@@ -41,187 +38,430 @@ class Hand
 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
+
+class BlackJackTable < Table
+	attr_accessor :status, :next_status
+	def initialize(*args)
+		super(*args)
+		@title=Gosu::Font.new(self,"Times New Roman",50)
+		@instruction=Gosu::Font.new(self,"Century Gothic",20)
+		@money=500
+		@status=:reshuffle
 	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
+	def draw
+		@background.draw(0,0,0)
+		@title.draw_rel(@text1,320,165,0,0.5,0.5,1,1,0xff000000)
+		@title.draw_rel("BlackJack v0.3",320,215,0,0.5,0.5,1,1,0xffffff00)
+		@title.draw_rel(@text2,320,265,0,0.5,0.5,1,1,0xff000000)
+		@title.draw_rel("Money: #{@money}",120,370,0,0.5,0.5,0.5,0.5,0xff000000)
+		@title.draw_rel("Bet: #{@bet}",120,400,0,0.5,0.5,0.5,0.5,0xff000000)
+		@title.draw_rel("Score: #{@player_score}",120,430,0,0.5,0.5,0.5,0.5,0xff000000)
+		@title.draw_rel("Score: #{@dealer_score}",520,75,0,0.5,0.5,0.5,0.5,0xff000000)
+		@visible_cards.reverse.each do |card|
+			card.draw
+		end
+		case @status
+		when :choose
+			@instruction.draw_rel("Hit - Spacebar",140,60,0,0.5,0.5)
+			@instruction.draw_rel("Stand - Escape",140,80,0,0.5,0.5)
+			y=100
+			if @player_hand.size==2 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
+				@instruction.draw_rel("Double - Home",140,y,0,0.5,0.5)
+				y=120
 			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
+			if @player_hand.size==2 and @player_hand[0].value == @player_hand[1].value and @money>=@bet
+				@instruction.draw_rel("Split - End",140,y,0,0.5,0.5)
+				y+=20
 			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
+			if @player_hand.size==2
+				@instruction.draw_rel("Surrender - Delete",140,y,0,0.5,0.5)
 			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
+		when :split1
+			@instruction.draw_rel("Hit - Spacebar",140,60,0,0.5,0.5)
+			@instruction.draw_rel("Stand - Escape",140,80,0,0.5,0.5)
+			y=100
+			if @player_hand.size==2 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
+				@instruction.draw_rel("Double - Home",140,y,0,0.5,0.5)
+				y=120
+			end
+			if @player_hand.size==2
+				@instruction.draw_rel("Surrender - Delete",140,y,0,0.5,0.5)
+			end
+		when :split2
+			@instruction.draw_rel("Hit - Spacebar",140,60,0,0.5,0.5)
+			@instruction.draw_rel("Stand - Escape",140,80,0,0.5,0.5)
+			y=100
+			if @player_hand.size==2 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
+				@instruction.draw_rel("Double - Home",140,y,0,0.5,0.5)
+				y=120
 			end
+			if @player_hand.size==2
+				@instruction.draw_rel("Surrender - Delete",140,y,0,0.5,0.5)
+			end
+		when :bet
+			@instruction.draw_rel("Place your bet!",140,60,0,0.5,0.5)
+			@instruction.draw_rel("Use the arrow keys",140,80,0,0.5,0.5)
+			@instruction.draw_rel("to change the amount.",140,100,0,0.5,0.5)
+			@instruction.draw_rel("Press Return to confirm.",140,120,0,0.5,0.5)
 		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
+	def update
+		case @status
+		when :bet
+			if button_down?(Gosu::Button::KbRight)
+				@bet+=1 unless @bet==@money
+			elsif button_down?(Gosu::Button::KbLeft)
+				@bet-=1 unless @bet==0
+			elsif button_down?(Gosu::Button::KbUp)
+				@bet+=10 unless @bet+10>@money
+			elsif button_down?(Gosu::Button::KbDown)
+				@bet-=10 unless @bet-10<0
+			elsif button_down?(Gosu::Button::KbReturn) and @bet>0 and @bet <= @money
+				@money-=@bet
+				@hand[0].z=1
+				@hand[1].z=2
+				@hand[0].new_slide(295,400,20)
+				@hand[1].new_slide(310,400,20)
+				@hand[0].new_rotation(0,20)
+				@hand[1].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@hand[1].new_flip(:y,20)
+				@player_hand=@hand.stock(2)
+				@next_status=:choose
+				@status=:action
+			end
+			
+		when :choose
+			if @player_score==21 and @player_hand.size==2
+				@money+=(@bet*1.5).to_i
+				@text1="BlackJack!"
+				@text2="You Win!"
+				@status=:end
+			elsif @player_score>21
+				@text1="Bust!"
+				@text2="You Lose!"
+				@status=:end
+			elsif @player_hand.size==5
+				@money+=@bet*2
+				@text1="5 Cards!"
+				@text2="You Win!"
+				@status=:end
+			end
+			if button_down?(Gosu::Button::KbDelete) and @player_hand.size==2
+				@money+=@bet/2
+				@bet=0
+				@status=:end
+			elsif button_down?(Gosu::Button::KbSpace)
+				@hand[0].z=@player_hand.size+1
+				@hand[0].new_slide(310+(15*(@player_hand.size-1)),400,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@player_hand+=@hand.stock(1)
+				@next_status=:choose
+				@status=:action
+			elsif button_down?(Gosu::Button::KbEscape)
+				@status=:cpu_start
+			elsif button_down?(Gosu::Button::KbHome) and @player_hand.size==2 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
+				@money-=@bet
+				@bet*=2
+				@hand[0].new_slide(335,400,20)
+				@hand[0].new_rotation(90,20)
+				@hand[0].new_flip(:y,20)
+				@hand[0].z=3
+				@player_hand+=@hand.stock(1)
+				@next_status=:cpu_start
+				@status=:action
+			elsif button_down?(Gosu::Button::KbEnd) and @player_hand.size==2 and @player_hand[0].value == @player_hand[1].value and @money>=@bet
+				@money-=@bet
+				@player_hand[1].new_slide(500,400,20)
+				@player_hand[1].new_flip(:x,20)
+				@hand[0].z=2
+				@hand[0].new_slide(310,400,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@split_hand1=@player_hand.stock(1)
+				@split_hand1[0].ace_degraded=false
+				@split_hand2=@player_hand.stock(1)
+				@split_hand2[0].ace_degraded=false
+				@split_hand1+=@hand.stock(1)
+				@player_hand=@split_hand1
+				@status=:action
+				@next_status=:split1
+			end
+			
+		when :split1
+			if @player_score==21 and @player_hand.size==2
+				@money+=(@bet*1.5).to_i
+				@text1="BlackJack!"
+				@text2="You Win!"
+				@status=:split1_end
+			elsif @player_score>21
+				@text1="Bust!"
+				@text2="You Lose!"
+				@status=:split1_end
+			elsif @player_hand.size==5
+				@money+=@bet*2
+				@text1="5 Cards!"
+				@text2="You Win!"
+				@status=:split1_end
+			end
+			if button_down?(Gosu::Button::KbDelete) and @player_hand.size==2
+				@money+=@bet/2
+				@bet=0
+				@status=:split1_end
+			elsif button_down?(Gosu::Button::KbSpace)
+				@hand[0].z=@player_hand.size+1
+				@hand[0].new_slide(310+(15*(@player_hand.size-1)),400,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@player_hand+=@hand.stock(1)
+				@next_status=:split1
+				@status=:action
+			elsif button_down?(Gosu::Button::KbEscape)
+				@status=:split1_cpu
+			elsif button_down?(Gosu::Button::KbHome) and @player_hand.size==2 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
+				@money-=@bet
+				@bet*=2
+				@hand[0].new_slide(335,400,20)
+				@hand[0].new_rotation(90,20)
+				@hand[0].new_flip(:y,20)
+				@hand[0].z=3
+				@player_hand+=@hand.stock(1)
+				@next_status=:split1_cpu
+				@status=:action
+			end
+			
+		when :split2
+			if @player_score==21 and @player_hand.size==2
+				@money+=(@bet*1.5).to_i
+				@text1="BlackJack!"
+				@text2="You Win!"
+				@status=:end
+			elsif @player_score>21
+				@text1="Bust!"
+				@text2="You Lose!"
+				@status=:end
+			elsif @player_hand.size==5
+				@money+=@bet*2
+				@text1="5 Cards!"
+				@text2="You Win!"
+				@status=:end
+			end
+			if button_down?(Gosu::Button::KbDelete) and @player_hand.size==2
+				@money+=@bet/2
+				@bet=0
+				@status=:end
+			elsif button_down?(Gosu::Button::KbSpace)
+				@hand[0].z=@player_hand.size+1
+				@hand[0].new_slide(310+(15*(@player_hand.size-1)),400,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@player_hand+=@hand.stock(1)
+				@next_status=:split2
+				@status=:action
+			elsif button_down?(Gosu::Button::KbEscape)
+				@status=:cpu_start
+			elsif button_down?(Gosu::Button::KbHome) and @player_hand.size==2 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
+				@money-=@bet
+				@bet*=2
+				@hand[0].new_slide(335,400,20)
+				@hand[0].new_rotation(90,20)
+				@hand[0].new_flip(:y,20)
+				@hand[0].z=3
+				@player_hand+=@hand.stock(1)
+				@next_status=:cpu_start
+				@status=:action
+			end
+			
+		when :split1_end
+			@player_hand.each do |card|
+				card.new_slide(500,400,20)
+				card.new_flip(:x,20)
+			end
+			if @dealer_hand
+				@dealer_hand.each do |card|
+					card.new_slide(500,80,20)
+					card.new_flip(:x,20)
+				end
+			end
+			@split_hand1=@player_hand
+			@split_dealer_hand=@dealer_hand if @dealer_hand
+			@player_hand=@split_hand2
+			@player_hand[0].z=1
+			@player_hand[0].new_slide(295,400,20)
+			@player_hand[0].new_rotation(0,20)
+			@player_hand[0].new_flip(:y,20)
+			@hand[0].z=2
+			@hand[0].new_slide(310,400,20)
+			@hand[0].new_rotation(0,20)
+			@hand[0].new_flip(:y,20)
+			@player_hand+=@hand.stock(1)
+			@next_status=:split2
+			@status=:action
+			
+		when :split1_cpu
+			@hand[0].z=1
+			@hand[1].z=2
+			@hand[0].new_slide(295,80,20)
+			@hand[1].new_slide(310,80,20)
+			@hand[0].new_rotation(0,20)
+			@hand[1].new_rotation(0,20)
+			@hand[0].new_flip(:y,20)
+			@hand[1].new_flip(:y,20)
+			@dealer_score=0
+			@split_dealer_hand=@hand.stock(2)
+			@dealer_hand=@split_dealer_hand
+			@next_status=:split1_cpu_play
+			@status=:action
+			
+		when :split1_cpu_play
+			if @dealer_score==21 and @dealer_hand.size==2
+				@text1="BlackJack!"
+				@text2="You Lose!"
+				@status=:split1_end
+			elsif @dealer_score>21
+				@money+=@bet*2
+				@text1="Bust!"
+				@text2="You Win!"
+				@status=:split1_end
+			elsif @dealer_hand.size==5
+				@text1="5 Cards!"
+				@text2="You Lose!"
+				@status=:split1_end
+			elsif @dealer_score>=@player_score
+				@text2="You Lose!"
+				@status=:split1_end
+			else
+				@hand[0].z=@dealer_hand.size+1
+				@hand[0].new_slide(310+(15*(@dealer_hand.size-1)),80,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@dealer_hand+=@hand.stock(1)
+				@next_status=:split1_cpu_play
+				@status=:action
+			end
+			
+		when :action
+			stage=0
+			@visible_cards.each do |card|
+				card.action
+				card.movements.each do |m|
+					stage+=(m.steps-m.steps_done)
+				end
+			end
+			if stage==0
+				@status=@next_status
+				@player_score=@player_hand.calculate_score
+				@dealer_score=@dealer_hand.calculate_score if @dealer_hand
+			end
+			
+		when :cpu_start
+			@hand[0].z=1
+			@hand[1].z=2
+			@hand[0].new_slide(295,80,20)
+			@hand[1].new_slide(310,80,20)
+			@hand[0].new_rotation(0,20)
+			@hand[1].new_rotation(0,20)
+			@hand[0].new_flip(:y,20)
+			@hand[1].new_flip(:y,20)
+			@dealer_score=0
+			@dealer_hand=@hand.stock(2)
+			@next_status=:cpu_play
+			@status=:action
+			
+		when :cpu_play
+			if @dealer_score==21 and @dealer_hand.size==2
+				@text1="BlackJack!"
+				@text2="You Lose!"
+				@status=:end
+			elsif @dealer_score>21
+				@money+=@bet*2
+				@text1="Bust!"
+				@text2="You Win!"
+				@status=:end
+			elsif @dealer_hand.size==5
+				@text1="5 Cards!"
+				@text2="You Lose!"
+				@status=:end
+			elsif @dealer_score>=@player_score
+				@text2="You Lose!"
+				@status=:end
+			else
+				@hand[0].z=@dealer_hand.size+1
+				@hand[0].new_slide(310+(15*(@dealer_hand.size-1)),80,20)
+				@hand[0].new_rotation(0,20)
+				@hand[0].new_flip(:y,20)
+				@dealer_hand+=@hand.stock(1)
+				@next_status=:cpu_play
+				@status=:action
+			end
+			
+		when :end
+			if @player_hand
+				@player_hand.each do |card|
+					card.new_slide(50,240,40)
+					card.new_rotation(rand(20)-10,40)
+					card.new_flip(:x,40)
+					@hand<<card
+				end
+			end
+			if @dealer_hand and not @split_dealer_hand
+				@dealer_hand.each do |card|
+					card.new_slide(50,240,40)
+					card.new_rotation(rand(20)-10,40)
+					card.new_flip(:x,40)
+					@hand<<card
+				end
+			end
+			if @split_hand1
+				@split_hand1.each do |card|
+					card.new_slide(50,240,40)
+					card.new_rotation(rand(20)-10,40)
+					@hand<<card
+				end
+			end
+			if @split_dealer_hand
+				@split_dealer_hand.each do |card|
+					card.new_slide(50,240,40)
+					card.new_rotation(rand(20)-10,40)
+					@hand<<card
+				end
+			end
+			@hand.shuffle!
+			@text2="Game Over!" if @money==0
+			@next_status=:reshuffle
+			@status=:action
+			
+		when :reshuffle
+			@bet=0
+			@hand.each do |card|
+				card.hide
+				card.side=card.back
+				card.z=0
+				card.x=50
+				card.y=240
+				card.angle=rand(20)-10
+				card.ace_degraded=false
+				card.show
+			end
+			@status=:bet
+			@text1=""
+			@text2=""
+			@player_hand=nil
+			@dealer_hand=nil
+			@split_hand1=nil
+			@split_hand2=nil
+			@player_score=nil
+			@dealer_score=nil
+			self.close if @money==0
 		end
 	end
 end
 
-BlackJack.new(5000).play #call the game!!
+
+
+table=BlackJackTable.new(Deck.new.shuffle,640,480,false,20,"BlackJack")
+
+table.show

data/samples/blackjack_no_graphics.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_no_graphics"
+
+#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!!

metadata

@@ -3,8 +3,8 @@ 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
+  version: "0.4"
+date: 2006-04-22 00:00:00 +02:00
 summary: A library for creating Windows-like card games.
 require_paths: 
 - lib
@@ -32,7 +32,6 @@ files:
 - lib
 - README
 - samples
-- tests
 - images/back.png
 - images/c10.png
 - images/c2.png
@@ -96,6 +95,7 @@ files:
 - lib/gosu/msvcr71.dll
 - lib/gosu/unicows.dll
 - samples/blackjack.rb
+- samples/blackjack_no_graphics.rb
 - samples/pwnage.rb
 test_files: []