-BlackJack

[makgyver]

Descrizione:

Questo script, correlato di immagini, vi permetterà di inserire nel vostro RPG uno dei giochi più famosi del mondo, il Blackjack con tanto di regole ufficiali.

 

Autore:

IO (makgyver)

 

Screen:

Ecco come si presenta graficamente(non è perfetto ma sono uno scripter non un grafico!!):

Versione 1.1 :

http://i35.tinypic.com/2hp29ds.jpg

 

Versione 2.1

http://i34.tinypic.com/f00qz4.jpg

 

Allegati:

Questa cartella ke si chiama Cards deve essere messa nella cartella Pictures:

Versione 1.1 (Il file da 3 MB):

http://www.mediafire.com/?sharekey=f7d49b1...2db6fb9a8902bda

 

Versione 2.0 (Il file con data 29/09):

http://www.mediafire.com/?sharekey=f7d49b1...2db6fb9a8902bda

 

Script:

Versione 1.1:

 

 

class Card < Sprite
 attr_accessor :face_up
 def initialize(sign, num, fup)
super(Viewport.new(0,0,640,480))
@value = num
@sign = sign
@name = sign+num.to_s 
@face_up = (fup)? false : true
turn
move(0,0)
self.z = 100000
self.opacity = 255
 end
 
 def turn
@face_up = (@face_up)? false : true
self.bitmap = RPG::Cache.picture("Cards/"+((@face_up)? @name : "retro"))
 end
 
 def real_value
return @value
 end
 
 def value
return @value if @value <= 10
return 10
 end
 
 def move(x, y)
self.x = x
self.y = y
 end
 
 def clone
card = Card.new(@sign, @value, @face_up)
card.x = self.x
card.y = self.y
return card
 end
end

class BJ_Table < Sprite
 def initialize(bet = 0)
super(Viewport.new(0,0,640,480))
self.bitmap = RPG::Cache.picture("Cards/table")
self.x = 0
self.y = 0
self.z = 1
 end
end

class BJ_Table_text < Window_Base
 attr_accessor :bet
 attr_accessor :done
 def initialize(bet = 0)
super(0,0,640,480)
self.contents = Bitmap.new(640,480)
self.windowskin = nil
self.z = 1
@bet = bet
 end
 
 def fiches
x = 73
y = 364
bitmap = RPG::Cache.picture("Cards/fiches")
cw = bitmap.width 
ch = bitmap.height 
src_rect = Rect.new(0, 0, cw, ch)
self.contents.blt(x -cw/2 , y -ch/2 , bitmap, src_rect)
self.contents.font.color = Color.new(255,255,255)
self.contents.draw_text(50, 390, 100, 32, @bet.to_s+" "+$data_system.words.gold)
 end
 
 def update(tv, pv1, pv2 = -1)
self.contents.clear
self.contents.font.color = Color.new(0,0,255)
self.contents.draw_text(128, 300, 50, 32, pv1.to_s)
self.contents.draw_text(440, 256, 50, 32, pv2.to_s) if pv2 != -1
self.contents.font.color = Color.new(255,0,0)
self.contents.draw_text(263, 12, 50, 32, tv.to_s)
fiches if @done
 end
end

class Window_Bet < Window_Base
 attr_accessor :done
 attr_accessor :bet
 def initialize(min, max = 0, inc_min = 10, inc_max = 100)
super(-250,155,250,140)
self.contents = Bitmap.new(width-32, height-32)
@min_bet = min
@max_bet = max
@can_play = can_play
@inc_min = inc_min
@inc_max = inc_max
@bet = @min_bet
@done = false
#enter
refresh
 end
 
 def can_play
return $game_party.gold >= @min_bet
 end 
 
 def new_game
@done = false
@bet = @min_bet
@can_play = can_play
enter
refresh
 end
 
 def refresh
self.contents.clear
if (@can_play)
  self.contents.draw_text(20, 10, 220, 32, "Quanto punti?")
  self.contents.draw_text(80, 50, 200, 32, @bet.to_s+" "+$data_system.words.gold)
else
  self.contents.draw_text(20, 10, 220, 32, "Non hai abbastanza soldi!!")
end
 end
 
 def exit
div = 10
for i in 0...div
  self.x -= 250 / div
  Graphics.update
end
 end
 
 def enter
div = 10
for i in 0...div
  self.x += 250 / div
  Graphics.update
end
 end
 
 def update
if Input.trigger?(Input::B)
  $game_system.se_play($data_system.cancel_se)
  $scene = Scene_Map.new
end
if Input.trigger?(Input::C)
  $game_system.se_play($data_system.decision_se)
  if @can_play
	$game_party.lose_gold(@bet)
	@done = true
	exit
  else
	$scene = Scene_Map.new
  end
end
if Input.repeat?(Input::RIGHT)
  $game_system.se_play($data_system.cursor_se)
  if ($game_party.gold - @inc_min - @bet >= 0)
	if @bet + @inc_min <= @max_bet or @max_bet == 0
	  @bet += @inc_min
	else
	  @bet = @max_bet
	end
  end
end
if Input.repeat?(Input::LEFT)
  $game_system.se_play($data_system.cursor_se)
  if (@bet - @inc_min > @min_bet)
	@bet -= @inc_min
  else
	@bet = @min_bet
  end
end
if Input.repeat?(Input::UP)
  $game_system.se_play($data_system.cursor_se)
  if ($game_party.gold - @inc_max - @bet >= 0)
	if @bet + @inc_max <= @max_bet or @max_bet == 0
	  @bet += @inc_max
	else
	  @bet = @max_bet
	end
  end
end
if Input.repeat?(Input::DOWN)
  $game_system.se_play($data_system.cursor_se)
  if (@bet - @inc_max > @min_bet)
	@bet -= @inc_max
  else
	@bet = @min_bet
  end
end
refresh
 end
end

class Window_Player < Window_Selectable
 attr_accessor :entered
 def initialize
super(-170, 155, 170, 160)
@commands = ["Carta!", "Mi fermo!", "Sdoppio", "Raddoppio."]
@item_max = @commands.size
self.contents = Bitmap.new(width - 32, @item_max * 32 )
refresh
self.index = 0
 end
 
 def enter
div = 10
for i in 0...div
  self.x += 170/div
  Graphics.update
end
 end
 
 def exit
div = 10
for i in 0...div
  self.x -= 170 / div
  Graphics.update
end
 end
 
 def refresh
self.contents.clear
for i in 0...@item_max
  draw_item(i, normal_color)
end
 end
 
 def draw_item(index, color)
self.contents.font.color = color
rect = Rect.new(18, 32 * index, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index])
 end
 
 def disabled_option(index)
draw_item(index, disabled_color)
 end
end

class Window_Result < Window_Base
 attr_accessor :blackjack
 attr_accessor :winner
 def initialize
super(150,150,300,130)
self.contents = Bitmap.new(width-32, height-32)
self.visible = false
@blackjack = false
@winner = -1
self.y = 100
 end
 
 def refresh
self.contents.clear
if @winner == 0
  text = "Il banco vince!!"
elsif @winner == 2
  text = "Pareggio!!"
else
  text = "Hai vinto!!"
end
if @blackjack == false
  self.contents.draw_text(20, 30, 150, 32, text)
else
  text1 = (@winner == 0)? "Il banco fa BlackJack!!" : "Hai fatto BlackJack!!"
  self.contents.draw_text(20, 20, 200, 32, text1)
  self.contents.draw_text(20, 60, 200, 32, text)
end
 end
end

class BlackJack
 def initialize(min = 10, max = 1000, inc_min = 10, inc_max = 100, bmax = 16)
@min_bet = min
@max_bet = max
@inc_min = inc_min
@inc_max = inc_max
@bank_max = bmax
 end
 
 def init_deck
@cards = {}
@cards.default = nil
x = 20
count = 0
for s in ["c","f","p","q"]
  for i in 1..13
	index = s.to_s+i.to_s
	@cards[index] = Card.new(s, i, false)
	@cards[index].move(20+count*3, 18)
	count += 1
  end
end
 end
 
 def new_game(bool = true)
Graphics.transition
discard_deck if bool
init_deck
@player_window.exit
@player_window.dispose
@window_bet.new_game if bool
@result_window.visible = false
@player_window = Window_Player.new
@player_cards1 = []
@player_cards2 = []
@table_cards = []
@player_value1 = 0
@player_value2 = -1
@table_value = 0
@double = 0
@entered = false
@split = false
@hands = 1
@BJ = false
@winner = -1
 end
 
 def main
@table = BJ_Table.new
@table_text = BJ_Table_text.new
@window_bet = Window_Bet.new(@min_bet, @max_bet, @inc_min, @inc_max)
@player_window = Window_Player.new
@result_window = Window_Result.new
new_game(false)
Graphics.transition
@window_bet.enter
loop do
  Graphics.update
  Input.update
  update
  if $scene != self
	break
  end
end
@window_bet.dispose
@player_window.dispose
@result_window.dispose
@table_text.dispose
@table.dispose
 end
 
 def control_value
@table_value = 0
@player_value1 = 0
@player_value2 = 0 if @split
for c in @table_cards
  @table_value += c.value if c.face_up
end
for c in @player_cards1
  @player_value1 += c.value
end
if (@split)
  for c in @player_cards2
	@player_value2 += c.value
  end
end
#
for c in @table_cards
  if c.value == 1 and @table_value + 10 <= 21
	@table_value += 10 if c.face_up
  end
end
for c in @player_cards1
  if c.value == 1 and @player_value1 + 10 <= 21
	@player_value1 += 10
  end
end
if (@split)
  for c in @player_cards2
	if c.value == 1 and @player_value2 + 10 <= 21
	@player_value2 += 10
  end
  end
end
 end
 
 def update
control_value
@table_text.bet = ((@split)? 2 : 1)*@window_bet.bet + @double*@window_bet.bet
@table_text.done = @window_bet.done
@table_text.update(@table_value, @player_value1, @player_value2)
if @result_window.visible
  result_update
elsif @window_bet.done
  if @entered == false
	give_card(1, true)
	put_card(1)
	refresh
	Graphics.transition
	give_card(0, true)
	put_card(0)
	refresh
	Graphics.transition
	give_card(1, true)
	put_card(1)
	refresh
	Graphics.transition
	give_card(0, false)
	put_card(0)
	refresh
	Graphics.transition
	@player_window.enter 
	@entered = true
  else
  player_update
end
else
@window_bet.update
end
 end
 
 def give_card(who, face_up)
if who == 0
  bool = false
  while not bool
	sign = ""
	case random(4)
	  when 1
	sign = "c"
	  when 2
	sign = "f"
	  when 3
	sign = "p"
	  when 4
	sign = "q"
	end
	index = sign+random(13).to_s
	bool = @cards[index] != nil
	card = @cards[index].clone if bool
  end
  @cards[index] = nil
  card.turn if face_up
  @table_cards[@table_cards.size] = card
  @table_value += card.value if face_up
else
  bool = false
  while not bool
	case random(4)
	  when 1
	sign = "c"
	  when 2
	sign = "f"
	  when 3
	sign = "p"
	  when 4
	sign = "q"
	end
	index = sign+random(13).to_s
	bool = @cards[index] != nil
	card = @cards[index].clone if bool
  end
  @cards[index].dispose
  @cards[index] = nil
  card.turn if face_up
  if @hands == 1
	@player_cards1[@player_cards1.size] = card
	@player_value1 += card.value
  else
	@player_cards2[@player_cards2.size] = card
	@player_value2 += card.value
  end
end
refresh
put_card(who)
 end

 def discard_deck
for i in 0...@player_cards1.size
  @player_cards1[i].dispose
end
for i in 0...@player_cards2.size
  @player_cards2[i].dispose
end
for i in 0...@table_cards.size
  @table_cards[i].dispose
end
for s in ["c","f","p","q"]
  for i in 1..13
	index = s.to_s+i.to_s
	@cards[index].dispose if @cards[index] != nil
  end
end
 end
 
 def refresh
count = 0
for s in ["c","f","p","q"]
  for i in 1..13
	if @cards[s.to_s+i.to_s] != nil
	  @cards[s.to_s+i.to_s].move(20+count*3, 18)
	  count += 1
	end
  end
end
 end
 
 def put_card(who)
if who == 0
  @table_cards[@table_cards.size-1].move(318 + (@table_cards.size-1)*30, 22)
else
  if @hands == 1
	@player_cards1[@player_cards1.size-1].move(182 + (@player_cards1.size-1)*30, 309)
  else
	@player_cards2[@player_cards2.size-1].move(422 + (@player_cards2.size-1)*30, 309)
  end
end
 end
 
 def random(n)
times = rand(10)
result = 0
for i in 0...times
  result = rand(n)
end
return result + 1
 end
 
 def player_update
@player_window.disabled_option(2) if not can_split?
@player_window.disabled_option(3) if not can_double?
if (@player_value1 == 21 and @player_cards1.size == 2) or (@hands == 2 and @player_value2 == 21 and @player_cards2.size == 2)
  @BJ = true
end
if ((@hands == 1) and (@split == false) and (@player_value1 >= 21)) or ((@hands == 2) and (@player_value2 >= 21))
  table_turn
end
@player_window.update
if Input.trigger?(Input::B)
end
if Input.trigger?(Input::C)
  case @player_window.index
	when 0
	  give_card(1, true)
	  put_card(1)
	  refresh
	  Graphics.update
	  Graphics.transition
	when 1
	  if (@hands == 2 and @split or @split == false)
		table_turn
	  else
		@hands = 2
	  end
	when 2
	  do_split if can_split?
	when 3
	  do_double if can_double?
  end
end
 end
 
 def do_double
@double += 1
give_card(1, true)
put_card(1)
$game_party.lose_gold(@window_bet.bet)
refresh
Graphics.update
Graphics.transition
if (@hands == 2 or (@hands == 1 and @split == false))
  table_turn
else 
  @hands = 2
end
 end
 
 def table_turn
if (@hands == 1 and @player_value1 > 21) or (@hands == 2 and @player_value1 > 21 and @player_value2 > 21)
  @player_window.exit
  @result_window.blackjack = false
  @result_window.winner = 0
  @result_window.refresh
  @result_window.visible = true
  return
end
@table_cards[1].turn
refresh
Graphics.transition
control_value
stop = @table_value >= @bank_max
while not stop
  give_card(0, true)
  put_card(0)
  refresh
  Graphics.transition
  control_value
  stop = @table_value >= @bank_max
end
if @table_value > 21
  @winner = 1
  $game_party.gain_gold((@window_bet.bet*1.5).floor) 
  $game_party.gain_gold((@window_bet.bet*1.5).floor) if (@hands == 2 and @player_value2 < 21)
else
  if (@hands == 1 and @player_value1 < @table_value)
	@winner = 0
  elsif (@hands == 2 and @player_value1 < @table_value and @player_value2 < @table_value)
	@winner = 0
  elsif (@hands == 1 and @player_value1 == @table_value)
	@winner = 2
  elsif (@hands == 2 and @player_value1 == @table_value and @player_value2 == @table_value)
	@winner = 2
  else
	@winner = 1
  end
  $game_party.gain_gold((@window_bet.bet*(1.5+((@BJ and @winner==1)? 0.5 : 0))).floor) if (@player_value1 > @table_value)
  $game_party.gain_gold((@window_bet.bet*(1.5+((@BJ and @winner==1)? 0.5 : 0))).floor) if (@hands == 2 and @player_value2 > @table_value)
  $game_party.gain_gold(@window_bet.bet) if (@player_value1 == @table_value)
  $game_party.gain_gold(@window_bet.bet) if (@hands == 2 and @player_value2 == @table_value)
end
if @winner == 0
  @BJ = ((@table_cards.size == 2)and(@table_value == 21))
end
@player_window.exit
@result_window.blackjack = @BJ
@result_window.winner = @winner
@result_window.refresh
@result_window.visible = true
 end
 
 def do_split
@player_cards2[0] = @player_cards1.pop
@player_cards2[0].move(420, 309)
@player_value2 = @player_cards2[0].value
@player_value1 -= @player_cards2[0].value
$game_party.lose_gold(@window_bet.bet)
@split = true
 end
 
 def can_split?
if ((has_money?) and (@split == false) and (@player_cards1.size == 2) and (@player_cards1[0].real_value == @player_cards1[1].real_value))
  return true
end
return false
 end
 
 def has_money?
return $game_party.gold - @window_bet.bet >= 0
 end
 
 def can_double?
return ($game_party.gold - @window_bet.bet) >= 0
 end
 
 def result_update
if Input.trigger?(Input::C) or Input.trigger?(Input::B)
  $game_system.se_play($data_system.decision_se)
  @result_window.visible = false
  new_game
end
 end
end

 

 

 

Versione 2.1

 

module BJ_MODULE
 NO_MONEY = ["Non hai abbastanza soldi.","Non puoi più giocare.","Arrivederci!"]
 DRAW = ["Pareggio.","Nessuno la spunta.","Facciamone un altra!?","Per un pelo..."]
 LOSE = ["Il banco vince.","Hai perso.","Ti è andata male.","Riprova, sarai più fortunato."]
 WIN = ["Hai vinto!", "Complimenti!", "Oggi si festeggia!","E' il tuo giorno fortunato!"]
 BJ_LOSE = ["Il banco fa BlackJack.","Oggi non è giornata."]
 BJ_WIN = ["Hai fatto BlackJack!","21 vittoria grande baldoria!", "21, 21 e ancora 21!!","La fortuna?Me la sono portata da casa!"]
end

class Card < Sprite
 attr_accessor :face_up
 def initialize(sign, num, fup)
super(Viewport.new(0,0,640,480))
@height = 95
@width = 72
@value = num
@sign = sign
@name = sign+num.to_s 
@face_up = (fup)? false : true
turn
move(0,0)
self.z = 100000
self.opacity = 255
 end

 def turn
@face_up = (@face_up)? false : true
if @face_up == true
  self.bitmap = RPG::Cache.picture("Cards/"+@sign+"littlecards")
  start = (@value % 2 == 1)? 0 : @width+1
  self.src_rect.set(start, (((@value-1)/2).floor)*@height, @width, @height)
else
  self.bitmap = RPG::Cache.picture("Cards/"+"littleretro")
end
 end
 
 def real_value
return @value
 end
 
 def value
return @value if @value <= 10
return 10
 end
 
 def move(x, y, bool = false)
if bool
  div = 5
  incx = (x-self.x)/div
  incy = (y-self.y)/div
  for i in 0...div
	self.x += incx
	self.y += incy
	Graphics.update
  end
end
self.x = x
self.y = y
 end
 
 def clone
card = Card.new(@sign, @value, @face_up)
card.x = self.x
card.y = self.y
return card
 end
end

class BJ_Table < Sprite
 def initialize(s = "")
super(Viewport.new(0,0,640,480))
self.bitmap = RPG::Cache.picture("Cards/table"+s)
self.x = 0
self.y = 0
self.z = 1
 end
end

class BJ_Help < Window_Base
 def initialize
super(-200,36,200, 64)
self.contents = Bitmap.new(width-32, height-32)
#refresh
 end
 
 def refresh(bool = true)
if bool == false
  self.width = 400
  self.contents = Bitmap.new(width-32, height-32)
  self.contents.draw_text(18, 0, 400, 32, random_choise(BJ_MODULE::NO_MONEY))
else
  self.width = 200
  self.contents = Bitmap.new(width-32, height-32)
  self.contents.draw_text(18, 0, 200, 32, "Quanto punti?")
end
 end
 
 def random_choise(vett)
return vett[random(vett.size)]
 end
 
 def random(n)
times = rand(10)
result = 0
for i in 0...times
  result = rand(n)
end
return result
 end
 
 def exit
div = 10
for i in 0...div
  self.x -= 200 / div
  Graphics.update
end
self.x = -200
 end
 
 def enter
div = 10
for i in 0...div
  self.x += 200 / div
  Graphics.update
end
self.x = 0
 end
end

class BJ_Table_text < Window_Base
 attr_accessor :gold_start
 attr_accessor :bet
 attr_accessor :done
 attr_accessor :fiches_num
 attr_accessor :arrow_pos
 def initialize(bet = 0)
super(0,0,640,480)
self.contents = Bitmap.new(640,480)
self.windowskin = nil
self.z = 1
@bet = bet
@fiches_num = {}
@fiches_num.default = 0
@arrow_pos = -1
@gold_start = -1
 end
 
 def fiches
x = 63
y = 346
count = 0
bitmap = RPG::Cache.picture("Cards/fiches")
cwh = 40 
for index in [10, 25, 50, 100, 500]
  if fiches_num[index] != 0
  for i in 0...fiches_num[index]
	src_rect = Rect.new(count*40, 0, cwh, cwh)
	incx = (count <= 1)? 40*count : 40*(count-2)-20
	incy = (count >= 2)? 50 : 0
	self.contents.blt(x -cwh/2+incx, y -cwh/2 -i*2 + incy, bitmap, src_rect)
  end
  end
  count += 1
end
self.contents.font.color = Color.new(255,255,255)
self.contents.draw_text(52, 413, 100, 32, @bet.to_s+" "+$data_system.words.gold)
 end
 
 def arrow
return if (arrow_pos == -1)
bitmap = RPG::Cache.picture("Cards/arrow")
cw = bitmap.width
ch = bitmap.height
src_rect = Rect.new(0, 0, cw, ch)
y = 234
if (arrow_pos == 1)
  x = 205
  self.contents.blt(x -cw/2, y -ch/2, bitmap, src_rect)
else
  x = 409
  self.contents.blt(x -cw/2, y -ch/2, bitmap, src_rect)
end
 end
 
 def gold_bar
bitmap = RPG::Cache.picture("Cards/goldbar_empty")
cw = bitmap.width
ch = bitmap.height
src_rect = Rect.new(0, 0, cw, ch)
x = 155
y = 378
self.contents.blt(x -cw/2, y -ch/2, bitmap, src_rect)
if (@gold_start < $game_party.gold)
  bitmap = RPG::Cache.picture("Cards/goldbar_full")
  cw = bitmap.width
  ch = bitmap.height
else	
  bitmap = RPG::Cache.picture("Cards/goldbar")
  cw = bitmap.width
  ch = bitmap.height*$game_party.gold/@gold_start
end
src_rect = Rect.new(0, 88-ch, cw, ch)
self.contents.blt(x -cw/2, y+44-ch, bitmap, src_rect)
self.contents.font.color = Color.new(255,255,0)
self.contents.draw_text(148, 420, 30, 32, $data_system.words.gold)
 end
 
 def update(tv, pv1, pv2 = -1)
self.contents.clear
self.contents.font.color = Color.new(0,0,255)
self.contents.draw_text(253, 248, 50, 32, pv1.to_s)
self.contents.draw_text(460, 248, 50, 32, pv2.to_s)  if pv2 != -1
self.contents.font.color = Color.new(255,0,0)
self.contents.draw_text(320, -10, 50, 32, tv.to_s)
arrow 
gold_bar
fiches 
 end
end

class Window_Bet < Window_Selectable
 attr_accessor :done
 attr_accessor :bet
 attr_accessor :fiches_num
 def initialize(min, max = 0)
super(-140,100,140,260)
self.contents = Bitmap.new(width-32, height-32)
s = " "+$data_system.words.gold 
@commands = ["10"+s, "25"+s, "50"+s, "100"+s, "500"+s, "Azzera", "Punta"]
@item_max = @commands.size
@min_bet = min
@max_bet = max
@can_play = can_play
@fiches_num = {}
@fiches_num.default = 0
@bet = 0
@done = false
self.index = 0
#enter
refresh
 end
 
 def can_play
return $game_party.gold >= @min_bet
 end 
 
 def new_game
@fiches_num = {}
@fiches_num.default = 0
@done = false
@bet = 0
@can_play = can_play
enter
refresh
 end
 
 def refresh
self.contents.clear
gold = $game_party.gold - @bet
if (@can_play)
  for i in 0...@item_max
	draw_item(i, normal_color)
  end
else
  exit
end
draw_item(0, disabled_color) if ((gold - 10) < 0)
draw_item(1, disabled_color) if ((gold - 25) < 0)
draw_item(2, disabled_color) if ((gold - 50) < 0)
draw_item(3, disabled_color) if ((gold - 100) < 0)
draw_item(4, disabled_color) if ((gold - 500) < 0)
draw_item(6, disabled_color) if (@bet < @min_bet)
 end
 
 def draw_item(index, color)
self.contents.font.color = color
rect = Rect.new(18, 32 * index, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index])
 end
 
 def disabled_option(index)
draw_item(index, disabled_color)
 end
 
 def exit
div = 10
for i in 0...div
  self.x -= 140 / div
  Graphics.update
end
 end
 
 def enter
div = 10
for i in 0...div
  self.x += 140 / div
  Graphics.update
end
 end
 
 def fiches_x2
for i in [10, 25, 50, 100, 500]
  @fiches_num[i] *= 2
end
 end
 
 alias update_old update
 def update
if Input.trigger?(Input::B)
  $game_system.se_play($data_system.cancel_se)
  $scene = Scene_Map.new
end
if Input.trigger?(Input::C)
  gold = $game_party.gold - @bet
  if @can_play
	case @index
	  when 0
		if gold - 10 < 0
		  $game_system.se_play($data_system.buzzer_se)
		  return
		end
		$game_system.se_play($data_system.decision_se)
		@fiches_num[10] += 1
		@bet += 10
	  when 1
		if gold - 25 < 0
		  $game_system.se_play($data_system.buzzer_se)
		  return
		end
		$game_system.se_play($data_system.decision_se)
		@fiches_num[25] += 1
		@bet += 25
	  when 2
		if gold - 50 < 0
		  $game_system.se_play($data_system.buzzer_se)
		  return
		end
		$game_system.se_play($data_system.decision_se)
		@fiches_num[50] += 1
		@bet += 50
	  when 3
		if gold - 100 < 0
		  $game_system.se_play($data_system.buzzer_se)
		  return
		end
		$game_system.se_play($data_system.decision_se)
		@fiches_num[100] += 1
		@bet += 100
	  when 4
		if gold - 500 < 0
		  $game_system.se_play($data_system.buzzer_se)
		  return
		end
		$game_system.se_play($data_system.decision_se)
		@fiches_num[500] += 1
		@bet += 500
	  when 5
		$game_system.se_play($data_system.decision_se)
		@fiches_num = {}
		@fiches_num.default = 0
		@bet = 0
	  when 6
		$game_system.se_play($data_system.decision_se)
		$game_party.lose_gold(@bet)
		@done = true
		exit
	  end
  else
	$scene = Scene_Map.new
  end
end
update_old
refresh
 end
end

class Window_Player < Window_Selectable
 attr_accessor :entered
 def initialize
super(-170, 155, 170, 160)
@commands = ["Carta!", "Mi fermo!", "Sdoppio", "Raddoppio"]
@item_max = @commands.size
self.contents = Bitmap.new(width - 32, @item_max * 32 )
refresh
self.index = 0
 end
 
 def enter
div = 10
for i in 0...div
  self.x += 170/div
  Graphics.update
end
 end
 
 def exit
div = 10
for i in 0...div
  self.x -= 170 / div
  Graphics.update
end
 end
 
 def refresh
self.contents.clear
for i in 0...@item_max
  draw_item(i, normal_color)
end
 end
 
 def draw_item(index, color)
self.contents.font.color = color
rect = Rect.new(18, 32 * index, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index])
 end
 
 def disabled_option(index)
draw_item(index, disabled_color)
 end
end

class Window_Result < Window_Base
 attr_accessor :blackjack
 attr_accessor :winner
 def initialize
super(150,150,300,130)
self.contents = Bitmap.new(width-32, height-32)
self.visible = false
@blackjack = false
@winner = -1
self.y = 100
 end
 
 def refresh
self.contents.clear
if @winner == 0
  text = random_choise(BJ_MODULE::LOSE)
elsif @winner == 2
  text = random_choise(BJ_MODULE::DRAW)
else
  text = random_choise(BJ_MODULE::WIN)
end
if @blackjack == false
  self.contents.draw_text(18, 30, 250, 32, text)
else
  text1 = (@winner == 0)? random_choise(BJ_MODULE::BJ_LOSE) : random_choise(BJ_MODULE::BJ_WIN)
  self.contents.draw_text(18, 16, 250, 32, text1)
  self.contents.draw_text(18, 60, 250, 32, text)
end
 end
 
 def random_choise(vett)
return vett[random(vett.size)]
 end
 
 def random(n)
times = rand(10)
result = 0
for i in 0...times
  result = rand(n)
end
return result
 end
end

class BlackJack
 def initialize(min = 10, max = 1000, bmax = 16, green = true)
@min_bet = min
@max_bet = max
@bank_max = bmax
@green = green
 end
 
 def init_deck
@cards = {}
@cards.default = nil
x = 20
count = 0
for s in ["c","f","p","q"]
  for i in 1..13
	index = s.to_s+i.to_s
	@cards[index] = Card.new(s, i, false)
	@cards[index].move(20+count*2, 18)
	count += 1
  end
end
 end
 
 def new_game(bool = true)
Graphics.transition
discard_deck if bool
init_deck
@player_window.exit
@player_window.dispose
@help.enter
@help.refresh(@window_bet.can_play)
@window_bet.new_game if bool
#@window_bet.active = true
@result_window.visible = false
@player_window = Window_Player.new
@table_text.fiches_num = @window_bet.fiches_num
@player_cards1 = []
@player_cards2 = []
@table_cards = []
@player_value1 = 0
@player_value2 = -1
@table_value = 0
@double = 0
@entered = false
@split = false
@hands = 1
@BJ = false
@winner = -1
 end
 
 def main
@table = BJ_Table.new((@green)? "" : "1")
@table_text = BJ_Table_text.new
@table_text.gold_start = $game_party.gold
@window_bet = Window_Bet.new(@min_bet, @max_bet)
@player_window = Window_Player.new
@result_window = Window_Result.new
@help = BJ_Help.new
new_game(false)
Graphics.transition
@window_bet.enter
loop do
  Graphics.update
  Input.update
  update
  if $scene != self
	break
  end
end
@help.exit
@window_bet.exit if @window_bet.can_play 
@help.dispose
@window_bet.dispose
@player_window.dispose
@result_window.dispose
@table_text.dispose
@table.dispose
 end
 
 def control_value
@table_value = 0
@player_value1 = 0
@player_value2 = 0 if @split
for c in @table_cards
  @table_value += c.value if c.face_up
end
for c in @player_cards1
  @player_value1 += c.value
end
if (@split)
  for c in @player_cards2
	@player_value2 += c.value
  end
end
#
for c in @table_cards
  if c.value == 1 and ((@table_value + 10) <= 21)
	@table_value += 10 if c.face_up
  end
end
for c in @player_cards1
  if c.value == 1 and @player_value1 + 10 <= 21
	@player_value1 += 10
  end
end
if (@split)
  for c in @player_cards2
	if c.value == 1 and @player_value2 + 10 <= 21
	@player_value2 += 10
  end
  end
end
 end
 
 def update
@table_text.fiches_num = @window_bet.fiches_num
control_value
@table_text.bet = ((@split)? 2 : 1)*@window_bet.bet + @double*@window_bet.bet
@table_text.done = @window_bet.done
@table_text.update(@table_value, @player_value1, @player_value2)
if @result_window.visible
  @table_text.arrow_pos = -1
  result_update
elsif @window_bet.done
  @table_text.arrow_pos = @hands
  if @entered == false
	@help.exit
	give_card(1, true)
	put_card(1)
	refresh
	Graphics.transition
	give_card(0, true)
	put_card(0)
	refresh
	Graphics.transition
	give_card(1, true)
	put_card(1)
	refresh
	Graphics.transition
	give_card(0, false)
	put_card(0)
	refresh
	Graphics.transition
	@player_window.enter 
	@entered = true
  else
  player_update
end
 else
@table_text.arrow_pos = -1
  @window_bet.update
end
 end
 
 def give_card(who, face_up)
if who == 0
  bool = false
  while not bool
	sign = ""
	case random(4)
	  when 1
	sign = "c"
	  when 2
	sign = "f"
	  when 3
	sign = "p"
	  when 4
	sign = "q"
	end
	index = sign+random(13).to_s
	bool = @cards[index] != nil
	card = @cards[index].clone if bool
  end
  @cards[index] = nil
  card.turn if face_up
  @table_cards[@table_cards.size] = card
  @table_value += card.value if face_up
else
  bool = false
  while not bool
	case random(4)
	  when 1
	sign = "c"
	  when 2
	sign = "f"
	  when 3
	sign = "p"
	  when 4
	sign = "q"
	end
	index = sign+random(13).to_s
	bool = @cards[index] != nil
	card = @cards[index].clone if bool
  end
  @cards[index].dispose
  @cards[index] = nil
  card.turn if face_up
  if @hands == 1
	@player_cards1[@player_cards1.size] = card
	@player_value1 += card.value
  else
	@player_cards2[@player_cards2.size] = card
	@player_value2 += card.value
  end
end
refresh
put_card(who)
 end

 def discard_deck
for i in 0...@player_cards1.size
  @player_cards1[i].dispose
end
for i in 0...@player_cards2.size
  @player_cards2[i].dispose
end
for i in 0...@table_cards.size
  @table_cards[i].dispose
end
for s in ["c","f","p","q"]
  for i in 1..13
	index = s.to_s+i.to_s
	@cards[index].dispose if @cards[index] != nil
  end
end
 end
 
 def refresh
count = 0
for s in ["c","f","p","q"]
  for i in 1..13
	if @cards[s.to_s+i.to_s] != nil
	  @cards[s.to_s+i.to_s].move(20+count*2, 18)
	  count += 1
	end
  end
end
 end
 
 def put_card(who)
if who == 0
  @table_cards[@table_cards.size-1].move(251 + (@table_cards.size-1)*17, 15+ (@table_cards.size-1)*17, true)
else
  if @hands == 1
	@player_cards1[@player_cards1.size-1].move(185 + (@player_cards1.size-1)*17, 272+ (@player_cards1.size-1)*17, true)
  else
	@player_cards2[@player_cards2.size-1].move(389 + (@player_cards2.size-1)*17, 272+ (@player_cards2.size-1)*17, true)
  end
end
 end
 
 def random(n)
times = rand(10)
result = 0
for i in 0...times
  result = rand(n)
end
return result + 1
 end
 
 def player_update
@player_window.disabled_option(2) if not can_split?
@player_window.disabled_option(3) if not can_double?
if (@player_value1 == 21 and @player_cards1.size == 2) or (@hands == 2 and @player_value2 == 21 and @player_cards2.size == 2)
  @BJ = true
end
if ((@hands == 1) and (@split == false) and (@player_value1 >= 21)) or ((@hands == 2) and (@player_value2 >= 21))
  table_turn
end
@player_window.update
if Input.trigger?(Input::B)
end
if Input.trigger?(Input::C)
  case @player_window.index
	when 0
	  give_card(1, true)
	  put_card(1)
	  refresh
	  Graphics.update
	  Graphics.transition
	when 1
	  if (@hands == 2 and @split or @split == false)
		table_turn
	  else
		@hands = 2
	  end
	when 2
	  do_split if can_split?
	when 3
	  do_double if can_double?
  end
end
 end
 
 def do_double
@double += 1
give_card(1, true)
put_card(1)
@window_bet.fiches_x2
$game_party.lose_gold(@window_bet.bet)
refresh
Graphics.update
if (@hands == 2 or (@hands == 1 and @split == false))
  table_turn
else 
  @hands = 2
end
 end
 
 def table_turn
if (@hands == 1 and @player_value1 > 21) or (@hands == 2 and @player_value1 > 21 and @player_value2 > 21)
  @player_window.exit
  @result_window.blackjack = false
  @result_window.winner = 0
  @result_window.refresh
  @result_window.visible = true
  return
end
@table_cards[1].turn
control_value
refresh
Graphics.transition
stop = @table_value >= @bank_max
while (stop == false)
  give_card(0, true)
  put_card(0)
  refresh
  Graphics.transition
  control_value
  stop = (@table_value >= @bank_max)
end
refresh
Graphics.transition
if @table_value > 21
  @winner = 1
  $game_party.gain_gold((@window_bet.bet*1.5).floor) 
  $game_party.gain_gold((@window_bet.bet*1.5).floor) if (@hands == 2 and @player_value2 < 21)
else
  if (@hands == 1 and @player_value1 < @table_value)
	@winner = 0
  elsif (@hands == 2 and @player_value1 < @table_value and @player_value2 < @table_value)
	@winner = 0
  elsif (@hands == 1 and @player_value1 == @table_value)
	@winner = 2
  elsif (@hands == 2 and @player_value1 == @table_value and @player_value2 == @table_value)
	@winner = 2
  else
	@winner = 1
  end
  $game_party.gain_gold((@window_bet.bet*(1.5+((@BJ and @winner==1)? 0.5 : 0))).floor) if (@player_value1 > @table_value)
  $game_party.gain_gold((@window_bet.bet*(1.5+((@BJ and @winner==1)? 0.5 : 0))).floor) if (@hands == 2 and @player_value2 > @table_value)
  $game_party.gain_gold(@window_bet.bet) if (@player_value1 == @table_value)
  $game_party.gain_gold(@window_bet.bet) if (@hands == 2 and @player_value2 == @table_value)
end
if @winner == 0
  @BJ = ((@table_cards.size == 2)and(@table_value == 21))
end
@player_window.exit
@result_window.blackjack = @BJ
@result_window.winner = @winner
@result_window.refresh
@result_window.visible = true
 end
 
 def do_split
@player_cards2[0] = @player_cards1.pop
@player_cards2[0].move(389, 272)
@player_value2 = @player_cards2[0].value
@player_value1 -= @player_cards2[0].value
@window_bet.fiches_x2
$game_party.lose_gold(@window_bet.bet)
@split = true
 end
 
 def can_split?
if ((has_money?) and (@split == false) and (@player_cards1.size == 2) and (@player_cards1[0].real_value == @player_cards1[1].real_value))
  return true
end
return false
 end
 
 def has_money?
return $game_party.gold - @window_bet.bet >= 0
 end
 
 def can_double?
return ($game_party.gold - @window_bet.bet) >= 0
 end
 
 def result_update
if Input.trigger?(Input::C) or Input.trigger?(Input::B)
  $game_system.se_play($data_system.decision_se)
  @result_window.visible = false
  new_game
end
 end
end

 

 

Istruzioni:

Inserite lo script in una nuova classe sopra il main. Per richiamarlo basta scrivere in un evento nel call script: $scene = BlackJack.new

 

Aggiornamenti:

Aggiornata la versione. Ora disponibile la 1.1. Sono stati sistemati alcuni bug anke se ininfluenti nel gioco e aggiunta flessibilità alla classe. Per gestire il banco del BlackJack in modo differente in differenti chiamate dello script basta settare le variabili ke ora dirò:

$scene = BlackJack.new(bmin, bmax, imin, imax, bstop)

#bmin : puntata minima di default è 10

#bmax : puntata massima di default è 1000

#imin : è di quanto aumenta/diminuisce la puntata premendo sinistra o destra

#imax : è di quanto aumenta/diminuisce la puntata premendo su o giù

#bstop : è il valore ke deve superare il banco per potersi fermare di default è 16 (il minimo

# consentito dalle regole e anke il più usato)

 

Aggiornamento 2.1. In questa versione è possibile rendere le frasi "finali" randomizzate e personalizzate basta modificare le varie liste di frasi presenti in BJ_MODULE all'inizio dello script.

L'aggiornamento inoltre fa visualizzare le carte ke dal mazzo si posizionano nel loro posto.

Il costruttore della classe è diverso ovvero:

$scene = BlackJack.new(bmin, bmax, bstop, green)

le prime 3 variabili hanno lo stesso significato di quello del 1.1 mentre green può essere o true o false, true per il tappeto verde e false per quello rosso.

 

Conflitti:

E' uno script autonomo quindi non dovrebbe avere conflitti di nessun tipo.

 

Altro:

Questo script vorrei inserirlo in una serie di script ke faranno parte di un ipotetico progetto chiamato "Progetto Casinò" ricco di script di giochi che si trovano appunto nei casinò però per alcune cose avrei bisogno di qualche volontario sia in grafica che in script. Beh per chi volesse sapete dove trovarmi. Vi darò dettagli più approfonditi prossimamente!!

Edited September 29, 2008 by makgyver

[Squall_Leonheart]

Mi da un errore con il file table

 

 

Edit:Scusa non avevo letto che la cartella doveva essere spostata dentro picturesXD cmq ci vogliono i soldi per giocareXD?

Edited September 25, 2008 by Squall_Leonheart

[makgyver]

Mi da un errore con il file table

Mmmm ke errore ti da?? strano xke se è nella cartella giusta al posto giusto dovrebbe andare...

 

EDIT: eh si ovvio.. beh crea un evento ke ti da dei soldi e sei a posto per provare!!

Edited September 25, 2008 by makgyver

[Squall_Leonheart]

Ok testato,lo script sembra girare bene,premetto che non so le regole del giocoxD

Comunque riguardo al tuo progetto casinò graficamente forse posso aiutarti

[makgyver]

Ok testato,lo script sembra girare bene,premetto che non so le regole del giocoxD

Comunque riguardo al tuo progetto casinò graficamente forse posso aiutarti

 

Beh le regole sono semplici ki si avvicina più a 21 senza andare oltre vince. Sdoppiare vuol dire ke se le prime 2 carte sono uguali giochi 2 mani contemporaneamente. Raddoppiare vuol dire ke punti il doppio e giri una sola carta in più.

 

Per il progetto ti so dire xke devo ancora decidere ke giocki inserire in questo "set" vorrei anke il poker ma da programmare è un casino...

[Guardian of Irael]

Bello script complimenti e poi il BlackJack mi piace molto^^

[makgyver]

Bello script complimenti e poi il BlackJack mi piace molto^^

 

Grazie mille!! Piace anke a me come gioco specialmente dopo aver visto il film 21!! In effetti mi era venuta la tentazione di creare lo script come se giocasse come in un vero casinò con la possibilità di contare le carte....

 

EDIT: Aggiustato piccolo bug nel girare della carta del banco!!

Edited September 26, 2008 by makgyver

[Linoleum]

Le carte si possono sempre contare, e in un gioco è pure più facile visto che puoi segnarti tutte le carte che escono su un foglio...

Basta che il tuo script non bari (ovvero non venga generato un mazzo nuovo per ogni singola partita ma le carte finiscano in fondo al mazzo) e il gioco è pronto per essere contato...

[makgyver]

Le carte si possono sempre contare, e in un gioco è pure più facile visto che puoi segnarti tutte le carte che escono su un foglio...

Basta che il tuo script non bari (ovvero non venga generato un mazzo nuovo per ogni singola partita ma le carte finiscano in fondo al mazzo) e il gioco è pronto per essere contato...

Eh no a ogni mano il mazzo è nuovo e mischiato quindi contare è impossibile...

[makgyver]

Mi scuso per il doppio post ma l'aggiornamento apportato allo script è notevole.

E' disponibile la versione 2.0 del gioco del blackjack le differenze con la 1.1 sono:

- Le puntate vengono effettuate tramite fiches ke vengono visualizzate a video;

- E' visualizzata una barra dei soldi ke indica se state perdendo (vedendo anke indicativamente quanto) o guadagnando (la barra diventa verde);

- La grafica delle carte è cambiata(migliorata oso dire e ringrazio i grafici di Windows Vista);

- E' stato aggiunto un puntatore "alla mano" ovvero quando si sdoppia si vede a quale mano sono riferite le azioni ke state compiendo;

- Minor pesantezza della grafica (da 3.1 a 1.7 MB di grafica);

- Infine sono cambiate la disposizione di alcune finestre.

 

Per commenti, consigli, critiche o altro io sono qui. Grazie, a presto con un nuovo script o con aggiornamenti!!

Edited September 27, 2008 by makgyver

[Narutofan95]

Mitico! Adoro il minigame del BlackJack! Lo userò nei miei progetti ;)

[makgyver]

Mitico! Adoro il minigame del BlackJack! Lo userò nei miei progetti ;)

 

Tra un pò posto la versione 2.1 con alcune nuove cose, tipo che la frase di vittoria e sconfitta esce a random e non è fissa... Cmq grazie mille!!

 

EDIT: L'aggiornamento è disponibile, lo script V. 2.1 è stato uppato... Buon divertimento!!

Edited September 29, 2008 by makgyver

[shuuchan]

Capolavoro.

Non serve altro.

 

A quando il Poker? XD

Magari un bel Texas Hold'em...

[makgyver]

Eh l'ieda è proprio texas hold'em anke xke almeno li c'è bisogno di abilità oltre ke della fortuna... Solo ke da programmare è un po difficile anke xke qui entrano nel gioco altri giocatori... xò cercherò di fare del mio meglio...

[Kingartur2]

Chiedo scusa se necroposto ma qualcuno ha per caso la immagini perchè sono scadute

[Guardian of Irael]

Intendi quelle del primo post? Prova a ricaricare la pagina a me si vedono ^ ^

Gli indirizzi sono questi prova ad aprirli su una nuova scheda (o pagina):

http://i35.tinypic.com/2hp29ds.jpg

http://i34.tinypic.com/f00qz4.jpg

 

^ ^

[Kingartur2]

Guardian intendo dire le immagini delle carte no gli screen

[Guardian of Irael]

Ops scusami non avevo fatto caso al link con le carte, è tardi forse è meglio che vada a dormire XD

^ ^

[pennaverde]

nessuna notizia ancora sul reload delle immagini su mediafire?

[Guardian of Irael]

L'autore del primo post è da Gennaio che non entra più, non so se qualcuno lo ha salvato e può uplodarlo, magari ti conviene ricercare la grafica su internet (dovrebbe trovarsi facilmente) ed incollare lo script del primo post.

^ ^

[shuji]

ti prego puoi riuppare plss???

[Guardian of Irael]

Quoto il mio messaggio #20.

^ ^"

[Shuraen]

Quoto il mio messaggio #20.

^ ^"

Forse lo avevo io, ricontrollo sul PC e... Lo do a te?

[Guardian of Irael]

Postalo pure qui, mi occupo poi di editare il primo post!

^ ^

[Shuraen]

Mi spiace Guard, ho solo il file di testo =/

Anche se ricordo che le avevo le carte... Diamine...