Ruby Quellcode

#==============================================================================
#
$SLOTS = 10
$MAX_STELLEN = 4
$BILD_BREITE = 15
#
#==============================================================================
# * Erweiterung der Klasse um den Scheinspeichers für Bilder 
#   auf der Karte zu erweitern.
#==============================================================================
class Game_Screen
  attr_reader   :numbers
  attr_accessor :number_slot
  #--------------------------------------------------------------------------
  # * Erweiterung des Scheinspeichers für Bilder auf der Karte
  #--------------------------------------------------------------------------
  alias initialize_thndrblt23 :initialize
  def initialize
    initialize_thndrblt23
    @numbers = []
    @number_slot = {}
    for i in 0..($SLOTS*$MAX_STELLEN-1)
      @numbers.push(Game_Picture.new(i+1))
    end
  end
  #--------------------------------------------------------------------------
  # * Update des erweiterten Scheinspeichers
  #--------------------------------------------------------------------------
  alias update_thndrblt23 :update
  def update
    update_thndrblt23
    for i in 0...@numbers.size
      @numbers[i].update
    end
  end
  #--------------------------------------------------------------------------
  #   type 
  #   0 = left with 0
  #   1 = left without 0
  #   2 = right with 0
  #   3 = right without 0 
  #--------------------------------------------------------------------------
  def show_number(x, y, var_id, slot, type)
    value = $game_variables[var_id]
    digits = stellen(value)
    if type == 0 or type == 2
      limit = $MAX_STELLEN
    elsif type == 1 or type == 3
      limit = digits
    end
    for i in 0...limit
      place = 10**((type<=1)?limit-i-1:i)
      n = value / place % 10
      set_at(x+i*$BILD_BREITE*((type<=1)?1:-1)-$BILD_BREITE*((type<=1)?0:1), 
          y, i+$MAX_STELLEN*slot, n)
    end
    @number_slot[slot] = [x, y, var_id, type]
  end
  #--------------------------------------------------------------------------
  def refresh(slot=nil)
    @numbers.each_index{|i| @numbers[i].erase}
    @number_slot.each_pair do |key, value|
      if slot == key
        show_number(value[0], value[1], value[2], key, value[3])
        break
      else
        show_number(value[0], value[1], value[2], key, value[3])
      end
    end
  end
  #--------------------------------------------------------------------------
  def stellen(zahl)
    for i in 1..9
      return i if (zahl % 10**i) == zahl
    end
    return 1
  end
  #--------------------------------------------------------------------------
  def set_at(x, y, nr, value)
    @numbers[nr].show(value.to_s, 0, x, y, 100, 100, 255, 0)
  end
  #--------------------------------------------------------------------------
  def hide_number(slot=nil)
    if slot.nil? == true
      @number_slot = {}
      @numbers.each_index{|i| @numbers[i].erase}
    else
      for i in ($MAX_STELLEN*slot)...($MAX_STELLEN*(slot+1))
        @numbers[i].erase
      end
      @number_slot[slot] = nil
    end
  end
end
#==============================================================================
class Spriteset_Map
  #--------------------------------------------------------------------------
  alias initialize_thndrblt23 :initialize
  def initialize
    initialize_thndrblt23
    for i in 0...$game_screen.numbers.size
      @picture_sprites.push(Sprite_Picture.new(@viewport2,
            $game_screen.numbers[i]))
    end
  end
end
 
#==============================================================================
class Interpreter
  #--------------------------------------------------------------------------
  alias command_122thndrblt23 command_122
  def command_122
    for i in @parameters[0]..@parameters[1]
      $game_screen.number_slot.each_pair do |key, value|
        if value[2] == i
          $nr_need_refresh = true
          break
        end
      end
    end
    command_122thndrblt23
  end
end
#==============================================================================
class Scene_Map
  alias update_thndrblt23 update
  def update
    if $nr_need_refresh == true
      $game_screen.refresh
      $nr_need_refresh = false
    end
    update_thndrblt23    
  end
end
#==============================================================================
#                                                   scripted by thunderbolt256
#==============================================================================