[VX] Skrypt na listę potworów

[Nexter]

~ Bestiarnia V1.0 ~

Krótki opis:
Skrypt tworzy w grze nowe menu, w którym wyświetla wszystkich pokonanych wrogów i związane z nimi statystyki takie jak: zdrowie, mana, siła, nagrody pieniężne i łupy. Poza tym wyświetla postęp pokonanych przeciwników w procentach oraz wylicza trudność walki na podstawie statystyk.

Autor:
Falcao

Tłumaczenie:
Nexter

Skrypt:

Spoiler: (Otwórz)

Kod: (Zaznacz wszystko)

#====================================================================#
#  #*****************#           Lista potworów V 1 by Falcao        #
#  #*** By Falcao ***#           Tłumaczenie: Nexter                 #
#  #*****************#                                               #
#         RMVX                                                       #
# makerpalace.onlinegoo.com      Data publikacji: 10/29/2009         #
#====================================================================#

#---------------------------------------------------------------------
# *Instrukcje
#
# Wklej skrypt nad "Main" w edytorze skryptów Ruby.
# Aby wywołać okno podczas gry wciśnij klawisz A (domyślnie).
# Możesz edytować skrypt wedle uznania poniżej.
#
# Licencja: Skrypt może być stosowany w grach komercyjnych lub niekomercyjnych.
#---------------------------------------------------------------------

module Falcao
#======================================================================#
# Opis przeciwnika
# ID PRZECIWNIKA=>  'OPIS',
# Przykład:
# 4=>  'Pozornie słodki, ale może wyrządzić wiele szkód!'
#======================================================================#
Description = {

1=>  '...',
2=>  '...',
3=>  '...',
4=>  '...',
5=>  '...',
6=>  '...',
  
}
#======================================================================#
# Klawisz do wywołania okna
# Możesz wybrać następujące klawisze:
# Z, A, S, D, Q, W, ALT
#======================================================================#
TeclaBestiary = 'A'

#======================================================================#
# Przełącznik włączający/wyłączający możliwość wywołania okna
#======================================================================#
KeyDisable_Switch = 100

#======================================================================#
# Muzyka (true/false)
#======================================================================#
PlayMusic = true

#======================================================================#
# Deklaracja tablic
#======================================================================#
$derrotados = []  
$enemy_counter = []
EnemyLevel = []
#======================================================================#
# Słownictwo
#======================================================================#
FalVocab = ['Brak informacji',  # Brak informacji
            'Nagroda',          # Łupy
            'Łupy',             # Łupy
            'Brak',             # Brak łupów
            '???',              # Nie znany przeciwnik
            'Lista potworów',   # Tytuł okna
            'Pokonany',         # Pokonany
            'Trudność',         # Klasa przeciwnika
            'Siła',             # Siła
            'Pokonano',         # Ilość pokonań
            'Postęp']           # Postęp
#======================================================================#
# Klasa/trudność przeciwnika
# Bazowane na podstwie statystyk potwora (siła, obrona, szybkość itp.)
#======================================================================#
EnemyLevel[1] = "Bardzo łatwy"              
EnemyLevel[2] = "Łatwy"
EnemyLevel[3] = "Normalny"
EnemyLevel[4] = "Trudny"
EnemyLevel[5] = "Bardzo trudny"

#-----------------------------------------------------------------------------
# Kiedy pokonasz potwora zostanie on automatycznie dodany,
# ale możesz go ręcznie dodać lub usunąć. Za pomocą komend:
#
# Falcao.add_enemy(X)       Dodaje przeciwnika 'x'. W miejsce 'x' wpisz ID.
#                          
# Falcao.remove_enemy(X)    Usuwa przeciwnika 'x'. W miejsce 'x' wpisz ID.
#
# Falcao.fill_bestiary      Dodaje wszystkich przeciwników.
#                          
# Aby wywołać skrypt ręcznie użyj:
#
#-----------------------------------------------------------------------------

def self.fill_bestiary
   for enemy in $data_enemies
     next if enemy == nil
     unless $derrotados.include?(enemy.id)
       $derrotados.push(enemy.id)
       $enemy_counter.push(enemy.id)
     end
    end
  end
  
  def self.add_enemy(id)
    unless $derrotados.include?(id)
      $derrotados.push(id)
      $enemy_counter.push(id)
    end
  end
  
  def self.remove_enemy(id)
    if $derrotados.include?(id)
      $derrotados.delete(id)
      $enemy_counter.push(id)
    end
  end
end

#--------------------------------------------------------------------------
# * Tworzenie parametrów,  ogólnych informacji i wrogów
#--------------------------------------------------------------------------
class Moster_Info < Window_Base
  include Falcao
  def initialize(x, y)
    super(x, y, 385, 380)
    self.opacity = 0
  end
  
  def refresh(enemy_id)
    self.contents.clear
    @enemigo = $data_enemies[enemy_id]
    if $derrotados.include?(@enemigo.id)
      contents.font.size = 20
      draw_enemy_hp(0, 205)
      draw_enemy_mp(0, 230)
      enemy_parametros
      draw_drop_item1
      draw_drop_item2
    else
      contents.font.size = 30
      contents.draw_text(100, 100, 500, 92, FalVocab[0])
    end
  end
  
  def enemy_parametros
    y1 = 0; y2 = 0; y3 = 0; y4 = 0
    terms = $data_system.terms
    param1={1=>@enemigo.maxhp,2=>@enemigo.maxmp,3=>@enemigo.spi,4=>@enemigo.exp}
    name1 = {1=> terms.hp, 2=> terms.mp, 3=> terms.spi, 4=> "Exp"}
    param2={1=>@enemigo.atk,2=>@enemigo.def,3=>@enemigo.agi,4=> @enemigo.gold}
    name2 = {1=> terms.atk, 2=> terms.def, 3=> terms.agi, 4=> terms.gold}
    param1.sort.each do |keys, values|
      y1 += 25
      contents.draw_text(100, y1 + 134, 92, 92, values)
    end
    param2.sort.each do |keys, values|
      y2 += 25
      contents.draw_text(300, y2 + 134, 92, 92, values)
    end
    name1.sort.each do |keys, values|
      y3 += 25
      contents.draw_text(0, y3 + 134, 102, 92, values)
    end
    name2.sort.each do |keys, values|
      y4 += 25
      contents.draw_text(200, y4 + 134, 102, 92, values)
    end
  end
  
  def draw_drop_item1
    item = @enemigo.drop_item1
    contents.draw_text(35, 260, 92, 92, FalVocab[1])
    if item.kind == 0
      contents.draw_text(0, 284, 92, 92, FalVocab[3])
      return
    end
    case item.kind
    when 1; drop_item = $data_items[item.item_id]
    when 2; drop_item = $data_weapons[item.item_id]
    when 3; drop_item = $data_armors[item.armor_id]
    end
    draw_icon(drop_item.icon_index,94, 318)
    contents.draw_text(0, 284, 92, 92, drop_item.name)
  end
  
  def draw_drop_item2
    item = @enemigo.drop_item2
    contents.draw_text(226, 260, 92, 92, FalVocab[2])
    if item.kind == 0
      contents.draw_text(200, 284, 92, 92, FalVocab[3])
      return
    end
    case item.kind
    when 1; drop_item = $data_items[item.item_id]
    when 2; drop_item = $data_weapons[item.item_id]
    when 3; drop_item = $data_armors[item.armor_id]
    end
    draw_icon(drop_item.icon_index,300, 318)
    contents.draw_text(200, 284, 92, 92, drop_item.name)
  end
  
  def draw_enemy_hp(x, y)
    self.contents.fill_rect(x, y, 102, 10, Color.new(0,0,0))
    self.contents.fill_rect(x+1, y+1, 100*@enemigo.maxhp/@enemigo.maxhp, 4,
    Color.new(205,255,205))
    self.contents.fill_rect(x+1, y+5, 100*@enemigo.maxhp/@enemigo.maxhp, 4,
    Color.new(10,220,45))
  end
  
  def draw_enemy_mp(x, y)
    if @enemigo.maxmp != 0
      self.contents.fill_rect(x, y, 102, 10, Color.new(0,0,0))
      self.contents.fill_rect(x+1, y+1, 100*@enemigo.maxmp/@enemigo.maxmp, 4,
      Color.new(180,225,245))
      self.contents.fill_rect(x+1, y+5, 100*@enemigo.maxmp/@enemigo.maxmp, 4,
      Color.new(20,160,225))
    else
      self.contents.fill_rect(x, y, 102, 10, Color.new(0,0,0))
    end
  end
end

#--------------------------------------------------------------------------
# * Tworzenie opisów i postęp w procętach
#--------------------------------------------------------------------------
class Moster_Description < Window_Base
  include Falcao
  def initialize(x, y, ancho = 544, alto = 56)
    super(x, y, ancho, alto)
    @tiempo = 0
    @scroll = 0
  end
  
  def set_texto(texto)
    self.contents.clear
    self.contents.draw_text(0, -4, 92, 32, texto)
    for i in 0...$derrotados.size
      number = i + 1
    end
    texto2 = "#{FalVocab[10]}   #{number * 100/$all_mosnters}%" rescue texto2 =
    "#{FalVocab[10]}   0 %"
    self.contents.draw_text(0, 24, self.width, 32, texto2)
  end
  
  def refresh(enemy_id)
    self.contents.clear
    @enemigo = $data_enemies[enemy_id]
    if $derrotados.include?(@enemigo.id)
      draw_descriptions
    else
      self.contents.draw_text(-130, -4, 600, 32 , FalVocab[0],1)
    end
  end
  
  def draw_descriptions
    if Description.has_key?(@enemigo.id)
      Description.each do |id, value|
        if id == @enemigo.id
          cx = contents.text_size(value).width
          scroll_text(value)
          self.contents.draw_text(@scroll, -4, cx + 10, 32 , value)
        end
      end
    else
    text = ["                                             ",
            "                                             ",
            "Description no available                     ",
            "Falcao script Bestiary V 1.5        "
            ]
      scroll_text(text,false)
      cx = contents.text_size(text).width
      self.contents.draw_text(@scroll, -4, cx + 10, 32, text )
    end
  end
  
  def scroll_text(texto, result_ok=true)
    cx = contents.text_size(texto).width
    if cx > 350
      @tiempo += 1
      if @tiempo > 60
        @scroll -= 1 if @result == nil
        if @scroll == -cx
          @result = true
        end
      end
    end
    if @result
      result_ok ? @scroll += 10 :  @scroll = 0
      if @scroll >= 0
        @scroll = 0;  @tiempo = 0
        @result = nil
      end
    end
    if Input.press?(Input::UP) or Input.press?(Input::DOWN)
      @scroll = 0; @tiempo = 0; @result = nil
    end
  end
end

#--------------------------------------------------------------------------
# * Obrazek wroga i obiekt indeksu z nazwą
#--------------------------------------------------------------------------
class Monster_indice < Window_Selectable
  def initialize(y)
    super(0, y, 160, 334)
    @column_max = 1
    refresh
    self.index = 0
  end
  
  def refresh
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    @data = []
    for i in 1...$data_enemies.size
      @data.push($data_enemies[i])
    end
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 26)
      for i in 0...@item_max
        draw_item(i)
        $all_mosnters = i + 1
      end
    end
  end
  
  def draw_item(index)
    enemy = @data[index]
    self.contents.font.color = normal_color
    x, y = 4, index * 24
    rect = Rect.new(x, y, self.width / @column_max - 32, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    opacity = self.contents.font.color == normal_color ? 255 : 128
    if $derrotados.include?(index+1)
      contents.draw_text(x, y, 212, 24, enemy.name)
    else
      contents.draw_text(x, y, 212, 24, Falcao::FalVocab[4])
    end
  end
end

#--------------------------------------------------------------------------
# * Liczenie pokonanych potworów
#--------------------------------------------------------------------------
class Adicional_Data < Window_Base
  include Falcao
  attr_accessor :number
  attr_accessor :counter
  def initialize
    super(0, 0, 160, 334)
    @number = 0.0
    @counter = 0.0
    @color = [Color.new(180,225,245), Color.new(20,160,225)]
  end
  
  def refresh(enemy_id)
    self.contents.clear
    @enemigo = $data_enemies[enemy_id]
    if $derrotados.include?(@enemigo.id)
      draw_enemy_counter
      draw_enemy_power(0,186)
      contents.font.color = Color.new(255, 140, 0)
      contents.draw_text(30, 0, 212, 24, @enemigo.name)
    else
      contents.font.color = normal_color
      self.contents.draw_text(2, 50, 600, 32 , FalVocab[0])
    end
  end
  
  def draw_enemy_counter
    i = 0
    for c in $enemy_counter
      if c == @enemigo.id
        i += 1
        number = i
      end
    end
    contents.font.color = normal_color
    contents.draw_text(0, 40, 212, 24, FalVocab[6])
    contents.draw_text(80, 70, 212, 24, number.to_s)
    contents.draw_text(0, 70, 212, 24, FalVocab[9])
  end
  
  def get_power(enemy)
    add = 0
    number1 = enemy.spi + enemy.agi
    number2 = enemy.atk + enemy.def
    case enemy.maxhp
    when 1...400
      add = 60
    when 400...1000
      add = 100
    when 1000...10000
      add = 140
    when 10000...999999
      add = 200
    end
    @number = number1 + number2 + add
    @counter = @number
    @number = 1
  end
  
  def draw_enemy_power(x,y)
    case @counter
    when 1...150
      value = 150; add = 1; level = EnemyLevel[1]
      @color = [Color.new(180,225,245), Color.new(20,160,225)]
    when 150...350
      value = 350; add = 3;  level = EnemyLevel[2]
      @color = [Color.new(255, 120, 0), Color.new(255, 80, 50)]
    when 350...600
      value = 600; add = 6; level = EnemyLevel[3]
      @color = [Color.new(205,255,205), Color.new(10,220,45)]
    when 600...1000
      value = 1000; add = 10; level = EnemyLevel[4]
      @color = [Color.new(255,255,100), Color.new(255,200,0) ]
    when 1000...4196
      value = 3996; add = 20; level = EnemyLevel[5]
      @color = [Color.new(255,255,100), Color.new(255,200,0) ]
    end
    @number = @counter if @number >= @counter
    @number += add if @number < @counter
    contents.font.color = Color.new(255, 140, 0)
    contents.draw_text(30, 120, 212, 24, FalVocab[7])
    contents.font.color = normal_color
    contents.draw_text(0, 150, 212, 24, level)
    self.contents.fill_rect(x, y, 128, 14, Color.new(0,0,0))
    self.contents.fill_rect(x+1, y+1, 126*@number/value, 6, @color[0])
    self.contents.fill_rect(x+1, y+7, 126*@number/value, 6, @color[1])
    contents.draw_text(0, 210, 212, 24, FalVocab[8])
    contents.draw_text(80, 210, 212, 24, @number.to_s)
  end
end

#--------------------------------------------------------------------------
# * Clase que agrega los enemigos al bestiario automaticamente
#--------------------------------------------------------------------------
class Game_Enemy < Game_Battler
  alias falcao_collapse  perform_collapse
  def perform_collapse
    falcao_collapse
    unless $derrotados.include?(enemy.id)
      $derrotados.push(enemy.id)
    end
    if $game_temp.in_battle and dead?
      $enemy_counter.push(enemy.id)
    end
  end
end

#--------------------------------------------------------------------------
# * Czcionka okna
#--------------------------------------------------------------------------
class Font
  alias falcaoBest_font initialize
  def initialize
    falcaoBest_font
    if $scene.is_a?(Scene_Monsters)
      self.name = "Georgia"
      self.size = 20
    end
  end
end

#-----------------------------------------------------------------------------
# * Scena organizująca działanie skryptu NIE TYKAĆ! CHYBA, ŻE WIESZ CO ROBISZ!
#-----------------------------------------------------------------------------
class Scene_Monsters < Scene_Base
  def start
    super
    @spriteset = Spriteset_Bestiary.new
    @mostruos_index = Monster_indice.new(84)
    @info_mosters = Moster_Info.new(160,56)
    @help = Moster_Description.new(160,0, 386)
    @title = Moster_Description.new(0,0, 160, 84)
    @title.set_texto(Falcao::FalVocab[5])
    @info_mosters.refresh(@mostruos_index.index + 1)
    @help.refresh(@mostruos_index.index + 1)
    @extra_data = Adicional_Data.new
    @extra_data.y = 84
    @extra_data.visible = false
    @moster_graphic = Sprite.new
    @moster_graphic.bitmap = Cache.battler("",0)
    @moster_graphic.z = 99
    @moster_graphic.y = 65
    @time = 0
    if Falcao::PlayMusic
      $game_temp.map_bgm = RPG::BGM.last
      $game_temp.map_bgs = RPG::BGS.last
      $game_system.battle_bgm.play
    end
    create_enemy_graphics
  end
  def terminate
    super
    @mostruos_index.dispose
    @info_mosters.dispose
    @help.dispose
    @spriteset.dispose
    @title.dispose
    @moster_graphic.dispose
  end
  def update
    super
    @spriteset.update
    @mostruos_index.update
    @help.refresh(@mostruos_index.index + 1)
    animate_graphic
    if Input.press?(Input::DOWN) or Input.press?(Input::UP)
      @info_mosters.refresh(@mostruos_index.index + 1)
      create_enemy_graphics
      if @extra_data.visible
        @extra_data.get_power($data_enemies[@mostruos_index.index + 1])
      end
    end
    if Input.trigger?(Input::C) and @extra_data.visible == false
      Sound.play_decision
      @extra_data.get_power($data_enemies[@mostruos_index.index + 1])
      @extra_data.refresh(@mostruos_index.index + 1)
      @extra_data.visible = true
      @mostruos_index.y = 600
    end
    if @extra_data.visible
      if @extra_data.number < @extra_data.counter
        @extra_data.refresh(@mostruos_index.index + 1)
      end
    end
    if Input.trigger?(Input::B)
      if @extra_data.visible
        Sound.play_cancel
        @extra_data.visible = false
        @mostruos_index.y = 84
      else
        Sound.play_cancel
        if Falcao::PlayMusic
          $game_temp.map_bgm.play
          $game_temp.map_bgs.play
        end
        $scene = Scene_Map.new
      end
    end
  end
  
  def create_enemy_graphics
    enemy = $data_enemies[@mostruos_index.index + 1]
    if $derrotados.include?(enemy.id)
      @moster_graphic.bitmap = Cache.battler(enemy.battler_name,
      enemy.battler_hue)
      cw = @moster_graphic.width
      @moster_graphic.x = 360 - cw / 2
      @moster_graphic.visible = true
    else
      @moster_graphic.visible = false
   end
end

def animate_graphic
   if Input.trigger?(Input::UP) or Input.trigger?(Input::DOWN)
     @moster_graphic.zoom_x = 1
     @moster_graphic.zoom_y = 1
     @time = 0
   end
   h = 240; @time += 1
   if @time < 40
     if @moster_graphic.height <= h
       @moster_graphic.zoom_x += 0.002
       @moster_graphic.zoom_y += 0.002
     elsif @moster_graphic.height > h
       @moster_graphic.zoom_x += 0.001
       @moster_graphic.zoom_y += 0.001
     end
   elsif @time > 40
     if @moster_graphic.height <= h
       @moster_graphic.zoom_x -= 0.002
       @moster_graphic.zoom_y -= 0.002
     elsif @moster_graphic.height > h
       @moster_graphic.zoom_x -= 0.001
       @moster_graphic.zoom_y -= 0.001
     end
     if @time == 80
       @moster_graphic.zoom_x = 1
       @moster_graphic.zoom_y = 1
       @time = 0
     end
   end
end
end

#--------------------------------------------------------------------------
# * Klawisze dostępu do okna
#--------------------------------------------------------------------------
class Scene_Map
  alias falcao_bestiary_update update
  def update
    falcao_bestiary_update
    update_finput
  end
  def update_finput
    return if $game_switches[Falcao::KeyDisable_Switch]
    case Falcao::TeclaBestiary
    when 'Z';    key = Input::C    #C
    when 'A';    key = Input::X    #X
    when 'S';    key = Input::Y    #Y    
    when 'D';    key = Input::Z    #Z
    when 'Q';    key = Input::L    #L  
    when 'W';    key = Input::R    #R
    when 'ALT';  key = Input::ALT  #alt  
    end
    if Input.trigger?(key)
      $scene = Scene_Monsters.new
    end
  end
end

#--------------------------------------------------------------------------
# * Zapisywanie zmiennych pokonywanych wrogów
#--------------------------------------------------------------------------
class Scene_File < Scene_Base
  alias falcaosave_data write_save_data
  def write_save_data(file)
    falcaosave_data(file)
    Marshal.dump($derrotados,   file)
    Marshal.dump($enemy_counter,   file)
  end
end

#--------------------------------------------------------------------------
# * Zmienne obciążenia pokonanych wrogów
#--------------------------------------------------------------------------
class Scene_File < Scene_Base
  alias falcaoload_data read_save_data
  def read_save_data(file)
    falcaoload_data(file)
    $derrotados    = Marshal.load(file)
    $enemy_counter = Marshal.load(file)
  end
end

#--------------------------------------------------------------------------
# * Tworzenie animowanego tła używając mapy
#--------------------------------------------------------------------------
class Spriteset_Bestiary
  def initialize
    create_battleback
    update
  end
  def create_battleback
    @viewport1 = Viewport.new(0, 0, 544, 416)
    source = $game_temp.background_bitmap
    bitmap = Bitmap.new(640, 480)
    bitmap.stretch_blt(bitmap.rect, source, source.rect)
    bitmap.radial_blur(90, 12)
    @battleback_sprite = Sprite.new(@viewport1)
    @battleback_sprite.bitmap = bitmap
    @battleback_sprite.ox = 320
    @battleback_sprite.oy = 240
    @battleback_sprite.x = 272
    @battleback_sprite.y = 176
    @battleback_sprite.wave_amp = 8
    @battleback_sprite.wave_length = 240
    @battleback_sprite.wave_speed = 120
  end
  def dispose
    @battleback_sprite.bitmap.dispose
    @battleback_sprite.dispose
    @viewport1.dispose
  end
  def update
    @battleback_sprite.update
    @viewport1.update
  end
end

Screeny:

Spoiler: (Otwórz)

Dodatkowe informacje:
Skrypt był napisany po hiszpańsku i może zawierać błędy w tłumaczeniu spowodowane tym, że korzystałem z tłumacza. Oczywiście zdania są przekształcone na normalną polszczyznę. Niektóre słowa mogły zostać przetłumaczone zbyt dosłownie. Nie powinno to wpłynąć na działanie skryptu.

[ShiroĒsu]

Wszystko fajnie i w ogóle, ale jak już to "bestiariusz" a nie "bestiarnia". ;)

[Homer Simpson]

Przeniesiesz go do XP? Przydał by mi się :)

[ShiroĒsu]

(24-10-15 20:51)Homer Simpson napisał(a):  Przeniesiesz go do XP? Przydał by mi się :)

Bestiariuszy jest pełno na każdą wersję, wystarczy trochę poszukać...
http://lmgtfy.com/?q=bestiary+rpg+maker+xp