Minigame Slot Machine

Ally · June 9, 2015

Nome Script: Slot Machine
Versione: N/D
Autore/i: Jet

Informazioni:
Semplice script che permette di avere una semplice slot machine da usare ad esempio per un minigame.

Istruzioni:
Inserite lo script sopra Main.
Per essere richiamato, dovete inserire un call script con questo codice: [c]$scene = Scene_Slots.new[/c]

Script:

#===============================================================================
# Slot Machine
# By Jet10985 (Jet)
#===============================================================================
# This snippet will add a slot machine mini-game, which can be called anytime.
# It has 3 rows, and counts every row and diagonal wins.
# This script has: 7 customization options.
#===============================================================================

=begin

How to call slot machine:

In an event Script... command, use this;
$scene = Scene_Slots.new

=end


module SlotMachine

  # If this switch is off, they will win money. If it is on, it will add to a
  # variable if they win.
  WINNINGS_CONFIG_SWITCH = 99

  # This variable will record the results, in a true/false form.
  # This means, the variable will be an array of true/false,
  # top row being the 0 values, middle being the 1 value, bottom being the 2 value
  # downward diagonal being the 3 value, and upward diagonal being the 4 value.
  # EX: The top row gets a win, and the downward diagonal gets a win, but the
  # other three are loses. The variable would now be
  # [true, false, false, true, false]
  # You can check these values in a conditional branch by checking the value in
  # the Script condition like: $game_variables[below_id][value]
  # EX: $game_variables[5][0] means i set 5 as the variable below, and i am
  # checking the value of the top row of the last game they played.
  RESULTS_VARIABLE = 102

  # If this switch is off, they must pay money to play. If this switch is on,
  # an amount will be taken from the variable to play.
  PLAY_COST_SWITCH = 100

  # If you are using a variable for cost/winnings, this is the id of that variable.
  SLOTS_WINNINGS_VARIABLE = 99

  # This is how much gold is required to play the game if gold is used.
  GOLD_TAKEN_AWAY_PER_TRY = 50

  # This is how much of the variable is needed to play the game, if variable is
  # being used.
  VARIABLE_TAKEN_AWAY_PER_TRY = 10

  # This is what cost/winnings will be called if you use a variable.
  VARIABLE_WINNINGS_NAME = "Tokens"

  # This variable determines how many frames is waited before the slots
  # change icons again.
  SLOT_SPEED_VARIABLE = 101

  # This variable determines which slots will be used. Whatever the variable
  # equals, is what slots are used, as determined below.
  SLOTS_USED_VARIABLE = 100

  SLOT_ICONS = [] # Don't touch

  # These are the icons in every slot. Each slot will have these icons, but
  # in a shuffled order. You may repeat icons so they are more common to appear.
  SLOT_ICONS[0] = [1, 2, 3, 4, 5, 6, 7, 8, 9]

  SLOT_ICONS[1] = [10, 11, 12, 13, 14, 15, 16, 17, 30, 31]

  SLOT_ICONS[2] = [32, 21, 22, 23, 24, 25, 26, 27, 28, 29]

  # This sound effect will play every change.
  CHANGE_SE = "Book"

  # This sound effect will play if you lose.
  LOSER_SE = "Buzzer2"

  # This sound effect will play if you win.
  WINNER_SE = "Applause"

  SLOT_WIN = [] # Don't Touch

  # Below are configurations for win possibilities. The script will check if the
  # middle three icons are the same as the ids you put in below. The fourth
  # number is how much gold they will win for this, if gold is used.
  # The fifth number is how much is added to the variable is they wins, and
  # a variable is being used.

  SLOT_WIN[0] = [6, 6, 6, 7000, 70] # SLOT_WIN[id] = [icon, icon, icon, gold, var]

  SLOT_WIN[1] = [8, 8, 8, 901, 50] # SLOT_WIN[id] = [icon, icon, icon, gold, var]

  SLOT_WIN[2] = [1, 1, 1, 80000, 40] # SLOT_WIN[id] = [icon, icon, icon, gold, var]

  SLOT_WIN[3] = [2, 2, 2, 7000, 21]

  SLOT_WIN[4] = [3, 3, 3, 7000, 98]

  SLOT_WIN[5] = [4, 4, 4, 7000, 90]

  SLOT_WIN[6] = [5, 5, 5, 7000, 34]

  SLOT_WIN[7] = [7, 7, 7, 7000, 11]

  SLOT_WIN[8] = [9, 9, 9, 7000, 5]

end

#===============================================================================
# DON'T EDIT FURTHER UNLESS YOU KNOW WHAT TO DO.
#===============================================================================
class Array

  def shuffle
    na = self.dup
    (na.length-1).downto(1) do |i|        
      s = rand(i)
      na[i], na[s] = na[s], na[i]
    end
    return na
  end
end

class Window_Slots < Window_Base

  include SlotMachine

  def initialize
    super(180, 100, 184, 184)
    @slot1 = SLOT_ICONS[$game_variables[SLOTS_USED_VARIABLE]].shuffle
    @slot2 = @slot1.shuffle
    @slot3 = @slot2.shuffle
    refresh
  end

  def refresh
    draw_icon(@slot1[0], 10, 10)
    draw_icon(@slot1[1], 10, 65)
    draw_icon(@slot1[2], 10, 120)
    draw_icon(@slot2[0], 60, 10)
    draw_icon(@slot2[1], 60, 65)
    draw_icon(@slot2[2], 60, 120)
    draw_icon(@slot3[0], 110, 10)
    draw_icon(@slot3[1], 110, 65)
    draw_icon(@slot3[2], 110, 120)
  end

  def roll
    $game_variables[RESULTS_VARIABLE] = [false, false, false, false, false]
    slot1roll, slot2roll, slot3roll = rand(15) + 5, rand(15) + 5, rand(15) + 5
    slot1moves, slot2moves, slot3moves = 0, 0, 0
    loop do
      self.contents.clear
      slot1moves += 1 unless slot1moves == slot1roll      
      slot2moves += 1 unless slot2moves == slot2roll     
      slot3moves += 1 unless slot3moves == slot3roll
      draw_icon(@slot1[0], 10, 10)
      draw_icon(@slot1[1], 10, 65)
      draw_icon(@slot1[2], 10, 120)
      draw_icon(@slot2[0], 60, 10)
      draw_icon(@slot2[1], 60, 65)
      draw_icon(@slot2[2], 60, 120)
      draw_icon(@slot3[0], 110, 10)
      draw_icon(@slot3[1], 110, 65)
      draw_icon(@slot3[2], 110, 120)
      stuff1 = @slot1[@slot1.size - 1]
      stuff2 = @slot2[@slot2.size - 1]
      stuff3 = @slot3[@slot3.size - 1]
      unless slot1moves == slot1roll
        @slot1.delete_at(@slot1.size - 1)
        @slot1.insert(0, stuff1)
        RPG::SE.new(CHANGE_SE, 80, 100).play
      end
      unless slot2moves == slot2roll
        @slot2.delete_at(@slot2.size - 1)
        @slot2.insert(0, stuff2)
        RPG::SE.new(CHANGE_SE, 80, 100).play
      end
      unless slot3moves == slot3roll
        @slot3.delete_at(@slot3.size - 1)
        @slot3.insert(0, stuff3)
        RPG::SE.new(CHANGE_SE, 80, 100).play
      end
      $game_variables[SLOT_SPEED_VARIABLE] = 5 if $game_variables[SLOT_SPEED_VARIABLE] < 5
      Graphics.wait($game_variables[SLOT_SPEED_VARIABLE])
      break if slot1moves == slot1roll && slot2moves == slot2roll && slot3moves == slot3roll
    end
    $won_gold = 0
    for i in 0...(SLOT_WIN.size - 1)
      next unless SLOT_WIN[i][0] == @slot1[0] and SLOT_WIN[i][1] == @slot2[0] and SLOT_WIN[i][2] == @slot3[0]
      $game_party.gain_gold(SLOT_WIN[i][3]) unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[SLOT_WINNINGS_VARIABLE] += SLOT_WIN[i][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[i][3] unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[I][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[RESULTS_VARIABLE][0] = true
      self.contents.clear
      draw_icon(@slot1[0], 10, 10)
      draw_icon(@slot1[1], 10, 65, false)
      draw_icon(@slot1[2], 10, 120, false)
      draw_icon(@slot2[0], 60, 10)
      draw_icon(@slot2[1], 60, 65, false)
      draw_icon(@slot2[2], 60, 120, false)
      draw_icon(@slot3[0], 110, 10)
      draw_icon(@slot3[1], 110, 65, false)
      draw_icon(@slot3[2], 110, 120, false)
      $resultslot = true
    end
    for i in 0...(SLOT_WIN.size - 1)
      next unless SLOT_WIN[i][0] == @slot1[1] and SLOT_WIN[i][1] == @slot2[1] and SLOT_WIN[i][2] == @slot3[1]
      $game_party.gain_gold(SLOT_WIN[i][3]) unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[SLOT_WINNINGS_VARIABLE] += SLOT_WIN[i][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[i][3] unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[I][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[RESULTS_VARIABLE][1] = true
      self.contents.clear
      draw_icon(@slot1[0], 10, 10, false)
      draw_icon(@slot1[1], 10, 65)
      draw_icon(@slot1[2], 10, 120, false)
      draw_icon(@slot2[0], 60, 10, false)
      draw_icon(@slot2[1], 60, 65)
      draw_icon(@slot2[2], 60, 120, false)
      draw_icon(@slot3[0], 110, 10, false)
      draw_icon(@slot3[1], 110, 65)
      draw_icon(@slot3[2], 110, 120, false)
      $resultslot = true
    end
    for i in 0...(SLOT_WIN.size - 1)
      next unless SLOT_WIN[i][0] == @slot1[2] and SLOT_WIN[i][1] == @slot2[2] and SLOT_WIN[i][2] == @slot3[2]
      $game_party.gain_gold(SLOT_WIN[i][3]) unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[SLOT_WINNINGS_VARIABLE] += SLOT_WIN[i][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[i][3] unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[I][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[RESULTS_VARIABLE][2] = true
      self.contents.clear
      draw_icon(@slot1[0], 10, 10, false)
      draw_icon(@slot1[1], 10, 65, false)
      draw_icon(@slot1[2], 10, 120)
      draw_icon(@slot2[0], 60, 10, false)
      draw_icon(@slot2[1], 60, 65, false)
      draw_icon(@slot2[2], 60, 120)
      draw_icon(@slot3[0], 110, 10, false)
      draw_icon(@slot3[1], 110, 65, false)
      draw_icon(@slot3[2], 110, 120)
      $resultslot = true
    end
    for i in 0...(SLOT_WIN.size - 1)
      next unless SLOT_WIN[i][0] == @slot1[0] and SLOT_WIN[i][1] == @slot2[1] and SLOT_WIN[i][2] == @slot3[2]
      $game_party.gain_gold(SLOT_WIN[i][3]) unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[SLOT_WINNINGS_VARIABLE] += SLOT_WIN[i][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[i][3] unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[I][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[RESULTS_VARIABLE][3] = true
      self.contents.clear
      draw_icon(@slot1[0], 10, 10)
      draw_icon(@slot1[1], 10, 65, false)
      draw_icon(@slot1[2], 10, 120, false)
      draw_icon(@slot2[0], 60, 10, false)
      draw_icon(@slot2[1], 60, 65)
      draw_icon(@slot2[2], 60, 120, false)
      draw_icon(@slot3[0], 110, 10, false)
      draw_icon(@slot3[1], 110, 65, false)
      draw_icon(@slot3[2], 110, 120)
      $resultslot = true
    end
    for i in 0...(SLOT_WIN.size - 1)
      next unless SLOT_WIN[i][0] == @slot1[2] and SLOT_WIN[i][1] == @slot2[1] and SLOT_WIN[i][2] == @slot3[0]
      $game_party.gain_gold(SLOT_WIN[i][3]) unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[SLOT_WINNINGS_VARIABLE] += SLOT_WIN[i][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[i][3] unless $game_switches[WINNINGS_CONFIG_SWITCH]
      $won_gold += SLOT_WIN[I][4] if $game_switches[WINNINGS_CONFIG_SWITCH]
      $game_variables[RESULTS_VARIABLE][4] = true
      self.contents.clear
      draw_icon(@slot1[0], 10, 10, false)
      draw_icon(@slot1[1], 10, 65, false)
      draw_icon(@slot1[2], 10, 120)
      draw_icon(@slot2[0], 60, 10, false)
      draw_icon(@slot2[1], 60, 65)
      draw_icon(@slot2[2], 60, 120, false)
      draw_icon(@slot3[0], 110, 10)
      draw_icon(@slot3[1], 110, 65, false)
      draw_icon(@slot3[2], 110, 120, false)
      $resultslot = true
    end
    $resultslot = false if $result.nil? && $resultslot != true
  end
end

class Window_Variable < Window_Base

  include SlotMachine

  def initialize(x, y)
    super(x, y, 160, WLH + 32)
    refresh
  end

  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    self.contents.draw_text(115, 0, 160, WLH, $game_variables[SLOTS_WINNINGS_VARIABLE])
    self.contents.font.color = system_color
    self.contents.draw_text(0, 0, 120, WLH, VARIABLE_WINNINGS_NAME)
  end
end

class Scene_Slots < Scene_Base

  include SlotMachine

  def start
    super
    create_menu_background
    @slot_window = Window_Slots.new
    @help_window = Window_Help.new
    if !$game_switches[PLAY_COST_SWITCH]
      @help_window.set_text("Press your luck on the slots and win big! Just " + GOLD_TAKEN_AWAY_PER_TRY.to_s + Vocab.gold + "!", 1)
    else
      @help_window.set_text("Press your luck on the slots and win big! Just " + VARIABLE_TAKEN_AWAY_PER_TRY.to_s + " " + VARIABLE_WINNINGS_NAME + "!", 1)
    end
    @play_again = Window_Command.new(150, ["Play", "Quit"])
    @play_again.active = true
    @play_again.x = 196
    @play_again.y = 300
    if $game_switches[PLAY_COST_SWITCH]
      @gold_window = Window_Variable.new(0, 360)
    else
      @gold_window = Window_Gold.new(0, 360)
    end
  end

  def terminate
    super
    dispose_menu_background
    @slot_window.dispose
    @help_window.dispose
    @play_again.dispose
    @gold_window.dispose
  end

  def update
    super
    @play_again.update if @play_again.active
    if Input.trigger?(Input::C)
      if @play_again.active
        case @play_again.index
        when 0
          if !$game_switches[PLAY_COST_SWITCH]
            if $game_party.gold >= GOLD_TAKEN_AWAY_PER_TRY
              $game_party.lose_gold(GOLD_TAKEN_AWAY_PER_TRY)
              @gold_window.refresh
              @play_again.active = false
              @slot_window.roll
              case $resultslot
              when true
                @help_window.set_text("Congratulations, you won " + $won_gold.to_s + Vocab.gold + "!", 1)
                @gold_window.refresh
                RPG::SE.new(WINNER_SE, 80, 100).play
                $resultslot = false
              when false
                @help_window.set_text("Sorry, but you lost!", 1)
                RPG::SE.new(LOSER_SE, 80, 100).play
              end
            else
              @help_window.set_text("You don't have enough " + Vocab.gold + " to play the game!", 1)
            end
          else
            if $game_variables[SLOTS_WINNINGS_VARIABLE] >= VARIABLE_TAKEN_AWAY_PER_TRY
              $game_variables[SLOTS_WINNINGS_VARIABLE] -= VARIABLE_TAKEN_AWAY_PER_TRY
              @gold_window.refresh
              @play_again.active = false
              @slot_window.roll
              case $resultslot
              when true
                @help_window.set_text("Congratulations, you won " + $won_gold.to_s + " " + VARIABLE_WINNINGS_NAME + "!", 1)
                @gold_window.refresh
                RPG::SE.new(WINNER_SE, 80, 100).play
                $resultslot = false
              when false
                @help_window.set_text("Sorry, but you lost!", 1)
                RPG::SE.new(LOSER_SE, 80, 100).play
              end
            else
              @help_window.set_text("You don't have enough " + VARIABLE_WINNINGS_NAME + " to play the game!", 1)
            end
          end
        when 1
          $scene = Scene_Map.new
        end
      else
        if !$game_switches[WINNINGS_CONFIG_SWITCH]
          @help_window.set_text("Press your luck on the slots and win big! Just " + GOLD_TAKEN_AWAY_PER_TRY.to_s + Vocab.gold + "!", 1)
        else
          @help_window.set_text("Press your luck on the slots and win big! Just " + VARIABLE_TAKEN_AWAY_PER_TRY.to_s + " " + VARIABLE_WINNINGS_NAME + "!", 1)
        end
        @play_again.active = true
      end
    elsif Input.trigger?(Input::
      $scene = Scene_Map.new
    end
  end
end

unless $engine_scripts.nil?
  JetEngine.active("Slot Machine", 2)
end

Accedi

Chatbox

Minigame Slot Machine

Recommended Posts

Ally 205

Condividi questo messaggio

Link di questo messaggio

Condividi su altri siti

Crea un account o accedi per lasciare un commento

Crea un account

Accedi

Contenuti simili

Esplora