[VX/VXA Script] GemRoulette VX + ACE

Content Hidden
Code:
# * Gem Roulette XP

#   Scripter : Kyonides-Arkanthos

#   v 1.0.7 - 2017-11-14

#   Llamados a Script

#   Para abrir la Ruleta de Gemas :     $scene = Gem_Roulette.new

#   Para aumentar intentos de girarla : $game_party.roulette_attempts += Número

#   Este script les permitirá hacer girar unas gemas y al detenerse, les

#   permitirá recolectar su premio. Los premios recolectados podrán verlos a la

#   derecha de las gemas en una ventana desplegada especialmente para eso.

#   Los premios son seleccionados aleatoriamente por el script. Uds. pueden

#   configurar qué premios podrían obtener según la ranura seleccionada.

#   La Constante PRIZE_FILENAME guarda el nombre del archivo TXT donde colocarán

#   los premios que prefieran.

#   Si así lo desean, una o más ranuras pueden ser iguales a No Hay Premio.

#   Recuerden que van a necesitar los gráficos de las Gemas-Ranuras.

module GemRouletteSetup

  # Prefijo de los Iconos de Gemas (Sirven como Ranuras)

  ICON_NAME_PREFIX = 'gema'

  # Sonido para Inicio y Final del Giro de la Ruleta

  SE_STARTUP = "056-Right02"

  # Archivo con Configuración de Premios

  PRIZE_FILENAME = 'premios.txt'

  # Etiqueta del Indicador de Posición en el Archivo

  POSITION_LABEL = 'Posición'

  # Etiqueta de Ningún Premio en el Archivo

  NO_PRIZE = 'Nada'

  # Etiqueta de Objeto como Premio en el Archivo

  ITEM_PRIZE   = 'Objeto'

  # Etiqueta de Arma como Premio en el Archivo

  WEAPON_PRIZE = 'Arma'

  # Etiqueta de Armadura como Premio en el Archivo

  ARMOR_PRIZE  = 'Armadura'

  # Etiqueta de Habilidad o Skill como Premio en el Archivo

  SKILL_PRIZE  = 'Habilidad'

  # Etiqueta de Puntos de Vida Perdidos

  HP_LOSS = 'PV'

  # Etiqueta de Puntos de Mana Perdidos

  SP_LOSS = 'PM'

  # Nombre de Icono para Pérdida de Puntos de PV o PM

  STATS_LOSS_ICON = ''

  # Etiqueta de Puntos Obtenidos

  STATS_LOSS_LABEL = ' Obtenidos: '

  # Etiqueta de Girar la Rueda o Ruleta

  SPIN_WHEEL = 'Girar Rueda'

  # Etiqueta de Intentos Restantes

  ATTEMPTS_LEFT = 'Intentos Restantes: '

  # Etiqueta de Recolectar Premio

  COLLECT = 'Recolectar'

  # Etiqueta de Se Quedó Sin Intentos

  RUNOUT = 'No Más Giros'

  # Etiqueta de Lo Sentimos, No Hay Premio Esta Vez

  NEXT_TIME = '¡Suerte para la próxima!'

  # Etiqueta de Puntos

  POINTS = 'Puntos'

  # NO EDITAR LO SIGUIENTE

  PRIZE_RXDATA = 'Data/GemRoulette.rxdata'

  PRIZES = {}

  @prizes = []

  @prize_points = []

  def self.prizes() @prizes end

  def self.prize_points() @prize_points end

  def self.get_prize_data

    if $DEBUG and File.exist?(PRIZE_FILENAME)

      lines = File.readlines(PRIZE_FILENAME)

      10.times{|n| pts = lines[0].scan(/\d+ #{POINTS}/)[0].sub!(/ #{POINTS}/,'')

        @prize_points << pts.to_i

        lines.shift

        PRIZES[n] = []

        regex = /[a-zA-Z]+/

        kinds = lines[0].scan(regex).map {|ln| self.prize_kind(ln) }

        indexes = lines[0].scan(/[0-9\-]+/).map {|ln| self.prize_kind(ln) }

        kinds.size.times {|m| PRIZES[n] << [kinds[m], indexes[m]] }

        lines.shift  }

      File.open(PRIZE_RXDATA, 'wb') {|file|

        Marshal.dump(@prize_points, file)

        Marshal.dump(PRIZES, file)  }

      return

    end

    File.open(PRIZE_RXDATA, 'rb') {|file|

      @prize_points = Marshal.load(file)

      PRIZES.merge!(Marshal.load(file))  }

  end

  def self.prize_kind(kind)

    regexp = /\d+/

    prize = case kind

    when ITEM_PRIZE then :item

    when WEAPON_PRIZE then :weapon

    when ARMOR_PRIZE then :armor

    when SKILL_PRIZE then :skill

    when HP_LOSS then :hp

    when SP_LOSS then :sp

    when regexp then kind.to_i

    end

    return prize

  end

  self.get_prize_data

end

class StatsItem

  attr_reader :name, :points, :icon_name

  def initialize(new_name, new_points)

    @name = new_name.to_s.upcase + ' ' + GemRouletteSetup::STATS_LOSS_LABEL

    @name += new_points.to_s

    @points = new_points

    @icon_name = GemRouletteSetup::STATS_LOSS_ICON

  end

end

class Game_Party

  attr_accessor :roulette_attempts, :roulette_points

  alias kyon_gem_roulette_gm_party_init initialize

  def initialize

    @roulette_attempts = 0

    @roulette_points = 0

    @skills = {}

    kyon_gem_roulette_gm_party_init

  end

  def gain_skill(sid, n)

    return unless sid > 0

    @skills[sid] = [[skill_number(sid) + n, 0].max, 99].min

  end

  def lose_skill(sid, n) gain_skill(sid, -n) end

  def skill_number(sid) @skills.include?(sid)? @skills[sid] : 0 end

end

class Sprite_Blink < Sprite

  def update

    super

    if @_blink

      @_blink_count = (@_blink_count + 1) % 32

      alpha = 6 * (@_blink_count < 16 ? 16 - @_blink_count : @_blink_count - 16)

      self.color.set(255, 255, 255, alpha)

    end

    @@_animations.clear rescue nil

  end

  def blink_on

    return if @_blink

    @_blink = true

    @_blink_count = 0

  end

  def blink_off

    return unless @_blink

    @_blink = false

    self.color.set(0, 0, 0, 0)

  end

end

class Window_Roulette_Prizes < Window_Base

  def initialize

    super(552, 80, 88, 340)

    @column_max = 2

    refresh

  end

  def refresh

    if self.contents != nil

      self.contents.dispose

      self.contents = nil

    end

    @data = GemRouletteSetup.prizes

    @item_max = @data.size

    return if @item_max == 0

    self.contents = Bitmap.new(width - 32, @item_max * 32)

    @item_max.times {|n| draw_item(n) }

  end

  def draw_item(index)

    x = index % 2 * 32

    y = index / 2 * 32

    bitmap = RPG::Cache.icon(@data[index])

    self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)

  end

end

class Window_Command

  def replace_command(index, command)

    @commands[index] = command

    refresh

  end

end

class Window_GRPLabel < Window_Base

  def initialize(w)

    super(0, 0, w, 64)

    self.contents = Bitmap.new(width - 32, height - 32)

    refresh

  end

  def refresh

    self.contents.clear

    self.contents.font.color = system_color

    points = GemRouletteSetup::POINTS

    self.contents.draw_text(0, 0, self.width - 32, 32, points)

    self.contents.font.color = normal_color

    points = $game_party.roulette_points.to_s

    self.contents.draw_text(0, 0, self.width - 32, 32, points, 2)

  end

end

class Gem_Roulette

  def initialize

    path = 'Graphics/Icons/'

    items = Dir[path + GemRouletteSetup::ICON_NAME_PREFIX+'*'].sort

    @items = items.map{|item| item.sub!(path, '') }

    @moving_frames = 15

    @steps = 60

    Audio.se_play("Audio/SE/" + GemRouletteSetup::SE_STARTUP, 80, 100)

    @item_sprites = []

    @cx = 320

    @cy = 240

    if @items.size < 10

      @items += items[0,(10 - @items.size)].dup

    elsif @items.size > 10

      @items = @items[0,10]

    end

    @item_max = @items.size

    @radius = 120

    @d = 2.0 * Math::PI / @item_max

    @item_max.times {|n| @item_sprites << Sprite_Blink.new

                     @item_sprites[n].x = @cx - 20 - (@radius * Math.sin(@d * n)).round

                    @item_sprites[n].y = @cy - 60 + (@radius * Math.cos(@d * n)).round

                    @item_sprites[n].bitmap = RPG::Cache.icon(items[n % items.size]) }

    @blink_index = 0

    @item_sprites[@blink_index].blink_on

    @xy = [@item_sprites[0].x, @item_sprites[0].y]

    @prize_sprites = []

    3.times { @prize_sprites << Sprite.new(@viewport3)

              @prize_sprites[-1].z = 5000 }

    @prize_sprites[0].x = @cx - 12

    @prize_sprites[0].y = @cy - 36

    @prize_sprites[1].x = @prize_sprites[0].x - 78

    @prize_sprites[1].y = @prize_sprites[0].y + 36

    @prize_sprites[2].x = 210

    @prize_sprites[2].y = 344

    make_attempts_left_label

    @option_window = Window_Command.new(160, [GemRouletteSetup::SPIN_WHEEL])

    @option_window.x = 240

    @option_window.y = @prize_sprites[2].y + 36

  end

  def make_attempts_left_label

    @prize_sprites[2].bitmap.clear rescue nil

    @prize_sprites[2].bitmap = bitmap = Bitmap.new(220, 32)

    color = Color.new(25, 25, 25, 180)

    @prize_sprites[2].bitmap.fill_rect(0, 0, 220, 32, color)

    left = GemRouletteSetup::ATTEMPTS_LEFT

    attempts = left + $game_party.roulette_attempts.to_s

    bitmap.draw_text(0, 0, 220, 32, attempts, 1)

  end

  def main

    @spriteset = Spriteset_Map.new

    @points_window = Window_GRPLabel.new(172)

    @points_window.x = 640 - @points_window.width

    3.times {|n| @prize_sprites[n].z = 5000 }

    @item_max.times {|n| @item_sprites[n].z = 5000 }

    @prizes_window = Window_Roulette_Prizes.new

    Graphics.transition

    loop do

      Graphics.update

      Input.update

      update

      break if $scene != self

    end

    Graphics.freeze

    @prizes_window.dispose

    @option_window.dispose

    @xy.clear

    @prize_sprites.each {|sprite| sprite.dispose }

    @prize_sprites.clear

    @item_sprites.each {|sprite| sprite.dispose }

    @item_sprites.clear

    @prize_sprites = @item_sprites = @xy = nil

    @points_window.dispose

    @spriteset.dispose

  end

  def update

    @option_window.update

    @prizes_window.update

    @item_sprites.each {|sprite| sprite.update }

    if @move

      refresh_sprites

      return

    end

    if Input.trigger?(Input::B)

      exit_scene

      return

    elsif Input.trigger?(Input::C)

      if $game_party.roulette_attempts == 0

        if @result

          retrieve_new_prize

          exit_scene

        else

          $game_system.se_play($data_system.buzzer_se)

        end

        return

      end

      $game_system.se_play($data_system.decision_se)

      retrieve_new_prize

    end

  end

  def exit_scene

    $game_system.se_play($data_system.buzzer_se)

    GemRouletteSetup.prizes.clear

    $scene = Scene_Map.new

  end

  def retrieve_new_prize

    if !@move and !@result

      @item_sprites[@blink_index].blink_off

      @option_window.index = -1

      $game_party.roulette_attempts -= 1

      make_attempts_left_label

      @index = rand(@item_max)

      @move = true

      return

    end

    return unless @result

    GemRouletteSetup.prizes << @new_prize.icon_name if @new_prize

    @prizes_window.refresh

    @option_window.index = 0

    case @kind

    when :item then $game_party.gain_item(@new_prize.id, 1)

    when :weapon then $game_party.gain_weapon(@new_prize.id, 1)

    when :armor then $game_party.gain_armor(@new_prize.id, 1)

    when :skill then $game_party.gain_skill(@new_prize.id, 1)

    when :hp then $game_party.actors[0].hp += @new_prize.points

    when :sp then $game_party.actors[0].sp += @new_prize.points

    end

    @prize_sprites[0].bitmap.clear rescue nil

    @prize_sprites[1].bitmap.clear rescue nil

    @result = nil

    spin = $game_party.roulette_attempts > 0

    comm = spin ? GemRouletteSetup::SPIN_WHEEL : GemRouletteSetup::RUNOUT

    @option_window.replace_command(0,comm)

  end

  def refresh_sprites

    d1 = -@d / @moving_frames * 2

    @item_max.times {|n| m = n - @index

                      d = @d * m + d1 * @steps

                    @item_sprites[n].x = @cx - 20 - (@radius * Math.sin(d)).round

                    @item_sprites[n].y = @cy - 60 + (@radius * Math.cos(d)).round }

    @steps -= 1

    if @steps == -1

      if rand(5) == 0

        @steps += 5

        return

      end

      Audio.se_play("Audio/SE/" + GemRouletteSetup::SE_STARTUP, 80, 100)

      @move = nil

      @steps = 1 + @moving_frames * (3 + rand(5))

      results = @item_sprites.map {|sprite| @xy == [sprite.x,sprite.y] }

      @blink_index = @result = results.index(true)

      @item_sprites[@blink_index].blink_on

      check_prize

    end

  end

  def check_prize

    $game_party.roulette_points += GemRouletteSetup.prize_points[@blink_index]

    @points_window.refresh

    prizes = GemRouletteSetup::PRIZES[@result]

    unless prizes[0]

      no_prize

      return

    end

    @new_prize = case prizes.size

    when 1 then prizes[0][0] ? prize_kind(prizes[0][0], prizes[0][1]) : nil

    else

      index = prizes.size > 2 ? rand(prizes.size) : rand(4) % 2

      prize_kind(prizes[index][0], prizes[index][1])

    end

    unless @new_prize

      no_prize

      return

    end

    @prize_sprites[0].bitmap = RPG::Cache.icon(@new_prize.icon_name).dup

    @prize_sprites[1].bitmap = bitmap = Bitmap.new(180, 24)

    bitmap.font.bold = true

    bitmap.font.size = 19

    bitmap.draw_text(0, 0, 180, 24, @new_prize.name, 1)

    @option_window.replace_command(0, GemRouletteSetup::COLLECT)

  end

  def prize_kind(kind, index)

    @kind = kind

    case kind

    when :item then $data_items[index]

    when :weapon then $data_weapons[index]

    when :armor then $data_armors[index]

    when :skill then $data_skills[index]

    when :hp, :sp then StatsItem.new(kind, index)

    end

  end

  def no_prize

    @kind = nil

    @prize_sprites[1].bitmap = bitmap = Bitmap.new(200, 24)

    label = GemRouletteSetup::NEXT_TIME

    bitmap.font.bold = true

    bitmap.font.size = 19

    bitmap.draw_text(0, 0, 200, 24, label, 1)

  end

end