아방스 - 포커(Blackjack) 게임을 도입하는 스크립트

게임상에서 블랙잭(포커?) 게임을 도입하는 스크립트입니다.

이거 만드신 분이 사용법을 자세히 적어놓으시질 않아서 사용하는 방법은 모르겠내요.

예제 게임을 첨부합니다만 예제 게임을 암호화 해노셔서 뜯어볼수가 없습니다.

블랙잭 게임 호출은 $scene = Scene_Blackjack.new 로 부른다고 설명 되어 있내요

=begin
-----------------------------------------------------------------
:A script-x brought to you by LanLanGames,
:www.LanLanGames.tk, its horrendousgusting

:made by lanlan
:special thanks to those who helped at the
:rmxp.net RGSS support thread
:and to the guy who envented blackjack

Am I real? Do the words I speak before you make feel
That the love I've got for you will see no ending?
Well if you look into my eyes then you should know
That you have nothing here to doubt nothing to fear
And you can lay your questions down 'cause if you'll hold me
we can fade into the night and you'll know
CHORUS:
The world would die and everything may lie
Still you shan't cry 'Cause time may pass
But longer than it'll last I'll be by your side
Take my hand And gently close your eyes so you could understand
That there's no greater love tonight than what I've for you
Well if you feel the same way for me then let go
We can journey to a garden no one knows
Life is short my darling tell me that you love me
So we can fade into the night and you'll know
The world could die and everything may lie
But you won't cry 'cause time may pass
And everything won't last but I'll be by your side
Forever by your side so you won't cry

now for the update: V0.5
-----------------------------------------------------------------
=end

class Scene_Blackjack
 
 def main
   $game_system.bgm_memorize
   Audio.bgm_play("Audio/BGM/bar", 100, 100) #insert music here
   @help_window = Window_Help.new
   @table_window = Window_Table.new
   @bet_window = Window_Command.new(128,["25","50","100","500","Done","Quit"])
   @bet_window.x = 512
   @bet_window.y = 64
   @bet_window.index = 0
   @money_window = Window_Money.new
   @hitstay_window = Window_Command.new(128,["Hit","Stay"])
   @hitstay_window.x = 512
   @hitstay_window.y = 384    
   @hitstay_window.active = false
   @yesno_window = Window_Command.new(128,["Yes","No"])
   @yesno_window.active = false
   @yesno_window.visible = false
   @yesno_window.x =  256
   @yesno_window.y =  208
   @yesno_window.z =  9999
   @cards = []
   @graphic = []
   @card_used = 0
   @max_bet = 1000 #maximum bet you can make
   variable_init
   shuffle2
   val_graphic
   shuffle
   Graphics.transition
   loop do
     Graphics.update
     Input.update
     update
     if $scene != self
       break
     end
   end
   Graphics.freeze
   @help_window.dispose
   @table_window.dispose
   @bet_window.dispose
   @money_window.dispose    
   @hitstay_window.dispose
   @yesno_window.dispose
 end
 
 def update
   @table_window.update
   @bet_window.update
   @help_window.update
   @money_window.update    
   @hitstay_window.update
   @yesno_window.update
   if @bet_window.active
     update_bet
     return
   end
   if @hitstay_window.active
     update_hitstay
     return
   end
   if @yesno_window.active
     update_yesno
     return
   end
 end
 
 def update_bet
   @help_window.set_text("Place Bet")
   if Input.trigger?(Input::B)
     $game_system.se_play($data_system.cancel_se)
     @bet_window.index = 5
     return
   end
   if Input.trigger?(Input::C)
     case @bet_window.index
     when 0  
       @dummybet = 25
       if ($game_party.gold >= @dummybet) and ((@currentbet+@dummybet) <= @max_bet)
         $game_system.se_play($data_system.decision_se)
         @bet = 25
         bet
       else
         $game_system.se_play($data_system.buzzer_se)
         return
       end
     when 1
       @dummybet = 50
       if ($game_party.gold >= @dummybet) and ((@currentbet+@dummybet) <= @max_bet)
         $game_system.se_play($data_system.decision_se)
         @bet = 50
         bet
       else
         $game_system.se_play($data_system.buzzer_se)
         return
       end
     when 2
       @dummybet = 100
       if ($game_party.gold >= @dummybet) and ((@currentbet+@dummybet) <= @max_bet)
         $game_system.se_play($data_system.decision_se)
         @bet = 100
         bet
       else
         $game_system.se_play($data_system.buzzer_se)
         return
       end
     when 3
       @dummybet = 500
       if ($game_party.gold >= @dummybet) and ((@currentbet+@dummybet) <= @max_bet)
         $game_system.se_play($data_system.decision_se)
         @bet = 500
         bet
       else
         $game_system.se_play($data_system.buzzer_se)
         return
       end
     when 4
       @dummybet = 25
       if @currentbet > 0
         $game_system.se_play($data_system.decision_se)
         start_blackjack
       else
         $game_system.se_play($data_system.buzzer_se)
       end
     when 5
       $game_system.se_play($data_system.cancel_se)
       $game_party.gain_gold(@currentbet)        
       $scene = Scene_Map.new
       $game_system.bgm_restore
     end
   end
 end
 
 def update_hitstay
   @help_window.set_text("Hit or Stay")
   if Input.trigger?(Input::B)
     $game_system.se_play($data_system.cancel_se)
     @hitstay_window.index = 1
     return
   end
   if Input.trigger?(Input::C)
     case @hitstay_window.index
     when 0
       hit
     when 1
       stay
     end
   end
 end
 
 def update_yesno
   @help_window.set_text("Play Again?")
   if Input.trigger?(Input::B)
     $game_system.se_play($data_system.cancel_se)
     $scene = Scene_Map.new
     return
   end
   if Input.trigger?(Input::C)
     case @yesno_window.index
     when 0
       variable_init
       draw_real_cards
       @money_window.refresh(@currentbet)
       @yesno_window.active = false
       @yesno_window.visible = false
       @bet_window.active = true
       @bet_window.index = 0
     when 1
       $scene = Scene_Map.new
       Audio.bgm_stop
       $game_system.bgm_restore
     end
   end
 end    
 
 def bet
   $game_party.lose_gold(@bet)
   @currentbet += @bet
   @money_window.refresh(@currentbet)
   @bet = 0
 end
 
 def start_blackjack
   @bet_window.active = false
   @m_hand1 = @cards[@card_used]
   @graphic1 = @graphic[@card_used]
   check_cards
   @card_used +=1
   @m_hand2 = @cards[@card_used]
   @graphic2 = @graphic[@card_used]
   check_cards
   @card_used +=1
   @d_hand1 = @cards[@card_used]
   @d_graphic1 = @graphic[@card_used]
   check_cards
   @card_used +=1
   @d_hand2 = @cards[@card_used]
   @d_graphic2 = @graphic[@card_used]
   @m_total = @m_hand1+@m_hand2
   @d_total = @d_hand1+@d_hand2
   if @m_hand1 == 1
     @m_ace =1
     @m_hand1=@m_hand1+10
     @m_total=@m_hand1 + @m_hand2
   end
   if @m_hand2 == 1
     if @m_hand1 != 11
       @m_ace = 1
       @m_hand2 = @m_hand2+10
       @m_total = @m_hand1+@m_hand2
     else
       @m_hand2 = 1
       @m_total = @m_hand1+@m_hand2
     end
   end
   
   if @d_hand1 == 1
     @d_ace =1
     @d_hand1=@d_hand1+10
     @d_total=@d_hand1 + @d_hand2
   end
   if @d_hand2 == 1
     if @d_hand1 != 11
       @d_ace = 1
       @d_hand2 = @d_hand2+10
       @d_total = @d_hand1+@d_hand2
     else
       @d_card2 = 1
       @d_total = @d_hand1+@d_hand2
     end
   end
   draw_cards
   
   check_win

end
 
 def shuffle
   j = 51
   k = 0
   temp = 0
   temp2 = 0
   
   while (j>=0)
     k = rand(j)
     
     temp = @cards[j]
     temp2 = @graphic[j]
     @cards[j] = @cards[k]
     @graphic[j] = @graphic[k]
     @cards[k] = temp
     @graphic[k] = temp2
     
     j-=1
     
   end
     
 end
 
 def shuffle2
   @cards = [1,2,3,4,5,6,7,8,9,10,10,10,10,
                   1,2,3,4,5,6,7,8,9,10,10,10,10,
                   1,2,3,4,5,6,7,8,9,10,10,10,10,
                   1,2,3,4,5,6,7,8,9,10,10,10,10,
                   0,0]
 end
 
 def val_graphic
   for i in 0...53
     @graphic[i] = i
   end
 end
 
 def check_cards
   if @card_used == 51
     shuffle
     @card_used = 0
   end
 end
   
 def draw_cards
   @table_window.refresh(@m_hand1,@graphic1,
                                     @m_hand2,@graphic2,
                                     @m_hand3,@graphic3,
                                     @m_hand4,@graphic4,
                                     @m_hand5,@graphic5,
                                     @d_hand1,52,
                                     @d_hand2,@d_graphic2,
                                     @d_hand3,@d_graphic3,
                                     @d_hand4,@d_graphic4,
                                     @d_hand5,@d_graphic5,
                                     @m_total)
 end
 
 def draw_real_cards
   @table_window.refresh(@m_hand1,@graphic1,
                                     @m_hand2,@graphic2,
                                     @m_hand3,@graphic3,
                                     @m_hand4,@graphic4,
                                     @m_hand5,@graphic5,
                                     @d_hand1,@d_graphic1,
                                     @d_hand2,@d_graphic2,
                                     @d_hand3,@d_graphic3,
                                     @d_hand4,@d_graphic4,
                                     @d_hand5,@d_graphic5,
                                     @m_total)
 end
   
 def variable_init
   @bet = 0
   @dummybet = 0
   @currentbet = 0
   @dummy_gold = 0
   @m_hand1 = 0
   @graphic1 = 53
   @m_hand2 = 0
   @graphic2 = 53
   @m_hand3 = 0
   @graphic3 = 53
   @m_hand4 = 0
   @graphic4 = 53
   @m_hand5 = 0
   @graphic5 = 53    
   @d_hand1 = 0
   @d_graphic1 = 53
   @d_hand2 = 0
   @d_graphic2 = 53
   @d_hand3 = 0
   @d_graphic3 = 53
   @d_hand4 = 0
   @d_graphic4 = 53   
   @d_hand5 = 0
   @d_graphic5 = 53    
   @m_ace = 0
   @d_ace = 0
   @test = 0
 end
 
 def hit
   check_cards
   @card_used +=1
   if @m_hand3 == 0
     @m_hand3 = @cards[@card_used]
     @graphic3 = @graphic[@card_used]      
   elsif @m_hand4 == 0 and @m_hand3 != 0
     @m_hand4 = @cards[@card_used]
     @graphic4 = @graphic[@card_used] 
   elsif @m_hand5 == 0 and @m_hand4 != 0
     @m_hand5 = @cards[@card_used]
     @graphic5 = @graphic[@card_used] 
   end
   
   if @cards[@card_used]  == 1
     if @m_total <=10
       @m_ace = 1
       @m_total += 11
     else
       @m_total += 1
     end
   else
     @m_total += @cards[@card_used]
   end
   check_win2
 end
 
 def stay
   @hitstay_window.active = false
   if @d_total >= @m_total
     check_win3
   end
   while (@d_total<=10
         @d_ace = 1
         @d_total += 11
       else
         @d_total += 1
       end
     else
       @d_total += @cards[@card_used]
     end
     
     if @d_total >= 22 and @d_ace == 1
       @d_total -= 10
       @d_ace = 0
       draw_real_cards
     end
   end
   
   check_win3

end
 
 def check_win
   if @test == 0
     if @m_total == 21 and @d_total != 21
       draw_real_cards
       win
     elsif @m_total != 21 and @d_total == 21
       draw_real_cards
       lose
     elsif @m_total == 21 and @d_total == 21
       draw_real_cards
       tie
     else
       @test = 1
       @hitstay_window.active = true 
       @hitstay_window.index = 0
     end
   end
 end
 
 def check_win2
   if @m_hand5 > 0 and @m_total <= 21
     draw_real_cards
     @hitstay_window.active = false      
     win
   elsif @m_total >= 22 and @m_ace == 1
     @m_total -= 10
     @m_ace = 0
     draw_cards
   elsif @m_total >= 22
     draw_real_cards
     @hitstay_window.active = false
     lose
   elsif @m_total == 21
     draw_real_cards
     @hitstay_window.active = false
     win
   elsif @m_total <=20
     draw_cards
   end
 end
 
 def check_win3
   if @d_hand5 > 0 and @d_total <= 21
     draw_real_cards
     lose
   elsif @d_total >= 22
     draw_real_cards
     win
   elsif @d_total == 21
     draw_real_cards
     lose
   elsif @d_total > @m_total and @d_total <= 20
     draw_real_cards
     lose
   elsif @d_total == @m_total
     draw_real_cards
     tie
   elsif @d_total < @m_total
     draw_real_cards
     win
   end
 end
   
 def win
   $game_party.gain_gold(@currentbet*2)
   @currentbet = 0
   @money_window.refresh(@currentbet)
   @help_window.set_text("Win!")
   $game_system.me_play($game_system.battle_end_me)
   delay(3)
   playagain
 end
 
 def lose
   @currentbet = 0
   @money_window.refresh(@currentbet)    
   @help_window.set_text("Lose!")
   $game_system.me_play($data_system.gameover_me)
   delay(3)
   playagain
 end
 
 def tie
   $game_party.gain_gold(@currentbet)
   @currentbet = 0
   @money_window.refresh(@currentbet)
   @help_window.set_text("Tie!")
   delay(3)
   playagain
 end
 
 def playagain
   @yesno_window.visible = true
   @yesno_window.active = true
   @yesno_window.index = 0
 end

def delay(seconds)
   for i in 0...(seconds * 10)
     sleep 0.1
     Graphics.update
   end
 end
 
end

class Window_Table < Window_Base
 
 def initialize
   super(0, 64, 512, 416)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = $defaultfonttype
   self.contents.font.size = $defaultfontsize
   refresh
 end
#--------------------------------------------------------------------------
 def refresh(hand1 = 0, graphic1 = 53, 
                 hand2 = 0, graphic2 = 53,
                 hand3 = 0, graphic3 = 53, 
                 hand4 = 0, graphic4 = 53,
                 hand5 = 0, graphic5 = 53,
                 d_hand1 = 0, d_graphic1 = 53, 
                 d_hand2 = 0, d_graphic2 = 53,
                 d_hand3 = 0, d_graphic3 = 53,
                 d_hand4 = 0, d_graphic4 = 53,
                 d_hand5 = 0, d_graphic5 = 53,
                 total = 0)
   
   @hand1 = hand1
   @hand2 = hand2
   @hand3 = hand3
   @hand4 = hand4
   @hand5 = hand5
   @d_hand1 = d_hand1
   @d_hand2 = d_hand2
   @d_hand3 = d_hand3
   @d_hand4 = d_hand4
   @d_hand5 = d_hand5
   @graphic1 = graphic1
   @graphic2 = graphic2  
   @graphic3 = graphic3
   @graphic4 = graphic4
   @graphic5 = graphic5
   @d_graphic1 = d_graphic1
   @d_graphic2 = d_graphic2
   @d_graphic3 = d_graphic3
   @d_graphic4 = d_graphic4
   @d_graphic5 = d_graphic5
   @total = total
   
   self.contents.clear
   
   self.contents.draw_text(32, 320, 128, 32, "Your Hand: " + @total.to_s)
   
   graphic
 end

def graphic
   x = 0
   y = 0
   @frame_width = 71
   @frame_height = 96
   if @graphic1 !=nil
     @xpos1 = @graphic1*@frame_width
   else
     @xpos1 = 52
   end
   if @graphic2 !=nil
     @xpos2 = @graphic2*@frame_width
   else
     @xpos2 = 52
   end
   if @graphic3 !=nil
     @xpos3 = @graphic3*@frame_width
   else
     @xpos3 = 52
   end
   if @graphic4 !=nil
     @xpos4 = @graphic4*@frame_width
   else
     @xpos4 = 52
   end
   if @graphic5 !=nil
     @xpos5 = @graphic5*@frame_width
   else
     @xpos5 = 52
   end
   if @d_graphic1 !=nil
     @xposd1 = @d_graphic1*@frame_width
   else
     @xposd1 = 52
   end
   if @graphic2 !=nil
     @xposd2 = @d_graphic2*@frame_width
   else
     @xposd2 = 52
   end
   if @d_graphic3 !=nil
     @xposd3 = @d_graphic3*@frame_width
   else
     @xposd3 = 52
   end
   if @graphic4 !=nil
     @xposd4 = @d_graphic4*@frame_width
   else
     @xposd4 = 52
   end
   if @d_graphic5 !=nil
     @xposd5 = @d_graphic5*@frame_width
   else
     @xposd5 = 52
   end
   bitmap = RPG::Cache.picture("cards")
   src_rect_hand1 = Rect.new(@xpos1, 0, @frame_width, @frame_height)
   src_rect_hand2 = Rect.new(@xpos2, 0, @frame_width, @frame_height)
   src_rect_hand3 = Rect.new(@xpos3, 0, @frame_width, @frame_height)
   src_rect_hand4 = Rect.new(@xpos4, 0, @frame_width, @frame_height)
   src_rect_hand5 = Rect.new(@xpos5, 0, @frame_width, @frame_height)    
   src_rect_d_hand1 = Rect.new(@xposd1, 0, @frame_width, @frame_height)
   src_rect_d_hand2 = Rect.new(@xposd2, 0, @frame_width, @frame_height)
   src_rect_d_hand3 = Rect.new(@xposd3, 0, @frame_width, @frame_height)
   src_rect_d_hand4 = Rect.new(@xposd4, 0, @frame_width, @frame_height)
   src_rect_d_hand5 = Rect.new(@xposd5, 0, @frame_width, @frame_height)
   self.contents.blt(0,192,bitmap,src_rect_hand1)
   self.contents.blt(96,192,bitmap,src_rect_hand2)
   self.contents.blt(96*2,192,bitmap,src_rect_hand3)
   self.contents.blt(96*3,192,bitmap,src_rect_hand4)
   self.contents.blt(96*4,192,bitmap,src_rect_hand5)
   self.contents.blt(0,0,bitmap,src_rect_d_hand1)
   self.contents.blt(96,0,bitmap,src_rect_d_hand2)
   self.contents.blt(96*2,0,bitmap,src_rect_d_hand3)
   self.contents.blt(96*3,0,bitmap,src_rect_d_hand4)
   self.contents.blt(96*4,0,bitmap,src_rect_d_hand5)
   
 end
 
 
end

포커(Blackjack) 게임을 도입하는 스크립트

단축키

Who's 백호