[RGSS2]Emperor and Slave Minigame

#===============================================================================
# How to use:
# - Copy paste to script editor above main
# - Call via event script:
#    $scene = Scene_EmperorAndSlave.new(side, difficulty)
#    - Fill side with 1 to play as Emperor, or 2 to play as Slave.
#    - difficulty: fill with:
#      1 = Easy
#      2 = Normal
#      3 = Hard
#      4 = Impossible
#===============================================================================
module Hart
  module EmperorAndSlave
#===============================================================================
# Variable's ID to determine the result.
# The value of this variable will determine the result as listed below
#  1 = WIN using EMPEROR
#  2 = LOSE using EMPEROR
#  3 = WIN using SLAVE
#  4 = LOSE using SLAVE
#===============================================================================
RESULT_VARIABLE_ID = 1
#===============================================================================
# The card position
# PLAYER_CARD_X and PLAYER_CARD_Y represents the x and y
#  coordinate of player's cards.
# PLAYER_HORIZONTAL. If true, the cards will be displayed horizontally.
#  If false, they will be displayed vertically.
# PLAYER_CARD_DISTANCE is the distance of each card.
# PLAYER_PLAYCARD_X and PLAYER_PLAYCARD_Y are the x and y coordinate of the
#  played player's card.
# Same for the enemy's part and pointer.
# The comment value beside each constant are the ideal value if you want to use
# vertical display.
#===============================================================================
PLAYER_CARD_X = 0
PLAYER_CARD_Y = 234        #0
PLAYER_HORIZONTAL = true  #false
PLAYER_CARD_DISTANCE = -10 #-80
PLAYER_PLAYCARD_X = 400
PLAYER_PLAYCARD_Y = 208
ENEMY_CARD_X = 0          #434
ENEMY_CARD_Y = 0
ENEMY_HORIZONTAL = true    #false
ENEMY_CARD_DISTANCE = -10  #-80
ENEMY_PLAYCARD_X = 400
ENEMY_PLAYCARD_Y = 58

POINTER_X = 39
POINTER_Y = 384            #75
#===============================================================================
# The card's and pointer's sound file name
#===============================================================================
SE_PATH = "Audio/SE/"
CARD_SOUND_FILE = "Attack1.ogg"
POINTER_SOUND_FILE = "Blow1.ogg"
#===============================================================================
# Change the graphic name for each card and the pointer
#===============================================================================
GRAPHICS_PATH = "Graphics/Pictures/"
VILLAGER_FILE = "villager.png"
EMPEROR_FILE = "emperor.png"
SLAVE_FILE = "slave.png"
CARDBACK_FILE = "cardback.png"
POINTER_FILE = "pointer.png"
#===============================================================================
# Don't change the code below this.
#===============================================================================
VILLAGER = 0
EMPEROR = 1
SLAVE = 2
SIDE_ERR_MESSAGE = "Argumen pada pada event anda salah. Secara default, argumen
                  pertama hanya boleh diisi dengan 1 atau 2."
EASY = 1
NORMAL = 2
HARD = 3
IMPOSSIBLE = 4
DIFFICULTY_ERR_MESSAGE = "Argumen kedua dari event script hanya boleh berupa angka
                  1, 2, 3, atau 4"
#===============================================================================
  end
end

class Scene_EmperorAndSlave < Scene_Base
  def initialize(player_side, difficulty = Hart::EmperorAndSlave::NORMAL)
    if player_side != Hart::EmperorAndSlave::EMPEROR && player_side != Hart::EmperorAndSlave::SLAVE
      print(Hart::EmperorAndSlave::SIDE_ERR_MESSAGE)
      $scene = nil
    end
    if difficulty < Hart::EmperorAndSlave::EASY || difficulty > Hart::EmperorAndSlave::IMPOSSIBLE
      print(Hart::EmperorAndSlave::DIFFICULTY_ERR_MESSAGE)
      $scene = nil
    end
   
    @difficulty = difficulty
    @player_side = player_side
    @number_of_cards = 5
    @player_hand = []
    @enemy_hand = []
    @card_sprites = []
    @pointer_sprite = Sprite.new
    @card_sprites[11] = Sprite.new
    @card_sprites[12] = Sprite.new
    @index = 0
  end
 
  def start
    super
    create_menu_background
   
    Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: CARD_SOUND_FILE)
    for i in 0 ... @number_of_cards
      @player_hand[i] = Hart::EmperorAndSlave::VILLAGER
      @enemy_hand[i] = Hart::EmperorAndSlave::VILLAGER
     
      @card_sprites[i] = Sprite.new
      @card_sprites[i + 5] = Sprite.new
    end
   
    case @player_side
    when Hart::EmperorAndSlave::EMPEROR
      @player_hand[rand(5)] = Hart::EmperorAndSlave::EMPEROR
      @enemy_hand[rand(5)] = Hart::EmperorAndSlave::SLAVE
    when Hart::EmperorAndSlave::SLAVE
      @player_hand[rand(5)] = Hart::EmperorAndSlave::SLAVE
      @enemy_hand[rand(5)] = Hart::EmperorAndSlave::EMPEROR
    end
   
    @pointer_sprite.bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::POINTER_FILE)
   
    @card_sprites[11].x = Hart::EmperorAndSlave::ENEMY_PLAYCARD_X
    @card_sprites[11].y = Hart::EmperorAndSlave::ENEMY_PLAYCARD_Y
    @card_sprites[11].z = 1000
    @card_sprites[12].x = Hart::EmperorAndSlave::PLAYER_PLAYCARD_X
    @card_sprites[12].y = Hart::EmperorAndSlave::PLAYER_PLAYCARD_Y
    @card_sprites[12].z = 1000
  end
 
  def terminate
    super
    dispose_menu_background
    for sprite in @card_sprites
      next if sprite == nil
      sprite.dispose
    end
    @pointer_sprite.dispose
  end
 
  def update
    super
    update_menu_background
    update_action
    update_draw
  end
 
  def update_draw
    for i in 0 ... @number_of_cards
      case @player_hand[i]
      when Hart::EmperorAndSlave::VILLAGER
        @card_sprites[i].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::VILLAGER_FILE)
      when Hart::EmperorAndSlave::EMPEROR
        @card_sprites[i].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::EMPEROR_FILE)
      when Hart::EmperorAndSlave::SLAVE
        @card_sprites[i].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::SLAVE_FILE)
      end
      if Hart::EmperorAndSlave::PLAYER_HORIZONTAL
        @card_sprites[i].x = Hart::EmperorAndSlave::PLAYER_CARD_X + i * (@card_sprites[i].bitmap.width + Hart::EmperorAndSlave::PLAYER_CARD_DISTANCE)
        @card_sprites[i].y = Hart::EmperorAndSlave::PLAYER_CARD_Y
      else
        @card_sprites[i].x = Hart::EmperorAndSlave::PLAYER_CARD_X
        @card_sprites[i].y = Hart::EmperorAndSlave::PLAYER_CARD_Y + i * (@card_sprites[i].bitmap.height + Hart::EmperorAndSlave::PLAYER_CARD_DISTANCE)
      end
      @card_sprites[i].visible = true
     
      @card_sprites[i + 5].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::CARDBACK_FILE)
      if Hart::EmperorAndSlave::ENEMY_HORIZONTAL
        @card_sprites[i + 5].x = Hart::EmperorAndSlave::ENEMY_CARD_X + i * (@card_sprites[i + 5].bitmap.width + Hart::EmperorAndSlave::ENEMY_CARD_DISTANCE)
        @card_sprites[i + 5].y = Hart::EmperorAndSlave::ENEMY_CARD_Y
      else
        @card_sprites[i + 5].x = Hart::EmperorAndSlave::ENEMY_CARD_X
        @card_sprites[i + 5].y = Hart::EmperorAndSlave::ENEMY_CARD_Y + i * (@card_sprites[i + 5].bitmap.height + Hart::EmperorAndSlave::ENEMY_CARD_DISTANCE)
      end
      @card_sprites[i + 5].visible = true
    end
   
    if Hart::EmperorAndSlave::PLAYER_HORIZONTAL
      @pointer_sprite.y = Hart::EmperorAndSlave::POINTER_Y
      @pointer_sprite.x = Hart::EmperorAndSlave::POINTER_X + @index * (@card_sprites[i].bitmap.width + Hart::EmperorAndSlave::PLAYER_CARD_DISTANCE) if @index != -1
    else
      @pointer_sprite.y = Hart::EmperorAndSlave::POINTER_Y + @index * (@card_sprites[i].bitmap.height + Hart::EmperorAndSlave::PLAYER_CARD_DISTANCE) if @index != -1
      @pointer_sprite.x = Hart::EmperorAndSlave::POINTER_X
    end
  end
 
  def update_action
    if Input.trigger?(Input::RIGHT)
      if Hart::EmperorAndSlave::PLAYER_HORIZONTAL
        @index = (@index + 1) % @number_of_cards
        Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: POINTER_SOUND_FILE)
      end
    elsif Input.trigger?(Input::LEFT)
      if Hart::EmperorAndSlave::PLAYER_HORIZONTAL
        @index = (@index - 1 + @number_of_cards) % @number_of_cards
        Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: POINTER_SOUND_FILE)
      end
    elsif Input.trigger?(Input::UP)
      if !Hart::EmperorAndSlave::PLAYER_HORIZONTAL
        @index = (@index - 1 + @number_of_cards) % @number_of_cards
        Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: POINTER_SOUND_FILE)
      end
    elsif Input.trigger?(Input::DOWN)
      if !Hart::EmperorAndSlave::PLAYER_HORIZONTAL
        @index = (@index + 1) % @number_of_cards
        Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: POINTER_SOUND_FILE)
      end
    elsif Input.trigger?(Input::C)
      process_card_battle
    end
  end
 
  def process_card_battle
    player_choose = @index
    player_card = @player_hand[player_choose]
   
    case @difficulty
    when Hart::EmperorAndSlave::EASY
      enemy_choose = rand(@number_of_cards)
      rndm = rand(101)
      if player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::EMPEROR
        if rndm > 70
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        else
          enemy_card = Hart::EmperorAndSlave::SLAVE
        end
      elsif player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::SLAVE
        if rndm > 60
          enemy_card = Hart::EmperorAndSlave::EMPEROR
        else
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        end
      elsif player_card == Hart::EmperorAndSlave::EMPEROR
        if rndm > 80
          enemy_card = Hart::EmperorAndSlave::SLAVE
        else
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        end
      elsif player_card == Hart::EmperorAndSlave::SLAVE
        if rndm > 60
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        else
          enemy_card = Hart::EmperorAndSlave::EMPEROR
        end
      end
    when Hart::EmperorAndSlave::NORMAL
      enemy_choose = rand(@number_of_cards)   
      enemy_card = @enemy_hand[enemy_choose]
    when Hart::EmperorAndSlave::HARD
      enemy_choose = rand(@number_of_cards)
      rndm = rand(101)
      if player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::EMPEROR
        if rndm > 30
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        else
          enemy_card = Hart::EmperorAndSlave::SLAVE
        end
      elsif player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::SLAVE
        if rndm > 20
          enemy_card = Hart::EmperorAndSlave::EMPEROR
        else
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        end
      elsif player_card == Hart::EmperorAndSlave::EMPEROR
        if rndm > 40
          enemy_card = Hart::EmperorAndSlave::SLAVE
        else
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        end
      elsif player_card == Hart::EmperorAndSlave::SLAVE
        if rndm > 20
          enemy_card = Hart::EmperorAndSlave::VILLAGER
        else
          enemy_card = Hart::EmperorAndSlave::EMPEROR
        end
      end
    when Hart::EmperorAndSlave::IMPOSSIBLE
      enemy_choose = rand(@number_of_cards)   
      if player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::EMPEROR
        enemy_card = Hart::EmperorAndSlave::VILLAGER
      elsif player_card == Hart::EmperorAndSlave::VILLAGER && @player_side == Hart::EmperorAndSlave::SLAVE
        enemy_card = Hart::EmperorAndSlave::EMPEROR
      elsif player_card == Hart::EmperorAndSlave::EMPEROR
        enemy_card = Hart::EmperorAndSlave::SLAVE
      elsif player_card == Hart::EmperorAndSlave::SLAVE
        enemy_card = Hart::EmperorAndSlave::VILLAGER
      end
    end
   
    @card_sprites[player_choose].visible = false
    @card_sprites[enemy_choose + 5].visible = false
   
    Audio.se_play(Hart::EmperorAndSlave::SE_PATH + Hart::EmperorAndSlave:: CARD_SOUND_FILE)
   
    case player_card
    when Hart::EmperorAndSlave::VILLAGER
      @card_sprites[12].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::VILLAGER_FILE)
      @card_sprites[12].visible = true
    when Hart::EmperorAndSlave::EMPEROR
      @card_sprites[12].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::EMPEROR_FILE)
      @card_sprites[12].visible = true
    when Hart::EmperorAndSlave::SLAVE
      @card_sprites[12].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::SLAVE_FILE)
      @card_sprites[12].visible = true
    end
   
    case enemy_card
    when Hart::EmperorAndSlave::VILLAGER
      @card_sprites[11].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::VILLAGER_FILE)
      @card_sprites[11].visible = true
    when Hart::EmperorAndSlave::EMPEROR
      @card_sprites[11].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::EMPEROR_FILE)
      @card_sprites[11].visible = true
    when Hart::EmperorAndSlave::SLAVE
      @card_sprites[11].bitmap = Cache.load_bitmap(Hart::EmperorAndSlave::GRAPHICS_PATH, Hart::EmperorAndSlave::SLAVE_FILE)
      @card_sprites[11].visible = true
    end
   
    Graphics.wait(120)
   
    if player_card == enemy_card
    elsif player_card == Hart::EmperorAndSlave::VILLAGER && enemy_card == Hart::EmperorAndSlave::EMPEROR
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 4
      card_end
    elsif player_card == Hart::EmperorAndSlave::VILLAGER && enemy_card == Hart::EmperorAndSlave::SLAVE
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 1
      card_end
    elsif player_card == Hart::EmperorAndSlave::EMPEROR && enemy_card == Hart::EmperorAndSlave::VILLAGER
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 1
      card_end
    elsif player_card == Hart::EmperorAndSlave::EMPEROR && enemy_card == Hart::EmperorAndSlave::SLAVE
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 2
      card_end
    elsif player_card == Hart::EmperorAndSlave::SLAVE && enemy_card == Hart::EmperorAndSlave::VILLAGER
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 4
      card_end
    elsif player_card == Hart::EmperorAndSlave::SLAVE && enemy_card == Hart::EmperorAndSlave::EMPEROR
      $game_variables[Hart::EmperorAndSlave::RESULT_VARIABLE_ID] = 3
      card_end
    end
   
    for i in player_choose ... @number_of_cards
      @player_hand[i] = @player_hand[i + 1] if @player_hand[i + 1] != nil
    end
   
    for i in enemy_choose ... @number_of_cards
      @enemy_hand[i] = @enemy_hand[i + 1] if @enemy_hand[i + 1] != nil
    end
   
    @number_of_cards -= 1
    @index = @number_of_cards - 1 if @index == @number_of_cards
    clear_all
  end
 
  def clear_all
    for sprite in @card_sprites
      next if sprite == nil
      sprite.visible = false
    end
  end
 
  def card_end
    $scene = Scene_Map.new
  end
end

$scene = Scene_EmperorAndSlave.new(1, 2)