Foros de Emudesc

#_________________________________________________
# MOG_Window Treasure Name V1.0            
#_________________________________________________
# By Moghunter               
#_________________________________________________
module MOG
#Font Name.
MPFONT = "Georgia"
#Fade ON/OFF (True - False).
MPITFD = true
#Fade Time.
MPITTM = 400
#Window Position.
# 0 = Upper.
# 1 = Left.
# 2 = Right.
# 3 = Lower.
MPITPS = 0
# Disable Window Switch.
MPITVIS = 5
# SE.
MPITSE = "056-Right02"
end
#_________________________________________________
###############
# Game_System #
###############
class Game_System
attr_accessor :fdittm
attr_accessor :mpit_x
attr_accessor :mpit_y
attr_accessor :it_id
attr_accessor :item_typ
attr_accessor :item_qua
alias mog25_initialize initialize
def initialize
mog25_initialize
@fdittm = 0
@it_id = 1
@wp_id = 1
@ar_id = 1
@item_typ = 0
@mpit_x = 0
@mpit_y = 0
@item_qua = 1
end
def item_typ
return @item_typ
end
def item_qua
return @item_qua
end
def mpit_x
return @mpit_x
end
def mpit_y
return @mpit_y
end
def fdittm
if @fdittm <= 0
@fdittm = 0 
end
return @fdittm
end
def it_id
return @it_id
end
end 
###############
# Interpreter #
###############
class Interpreter
alias mog25_command126 command_126
def command_126
mog25_command126
$game_system.item_typ = 1
$game_system.fdittm = MOG::MPITTM
$game_system.it_id = @parameters[0]
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
$game_system.item_qua = value
unless $game_switches[MOG::MPITVIS] == true 
Audio.se_play("Audio/SE/" + MOG::MPITSE, 100,100) rescue nil
end
$ref = true
end
alias mog25_command127 command_127
def command_127
mog25_command127
$game_system.item_typ = 2
$game_system.fdittm = MOG::MPITTM
$game_system.it_id = @parameters[0]
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
$game_system.item_qua = value
unless $game_switches[MOG::MPITVIS] == true 
Audio.se_play("Audio/SE/" + MOG::MPITSE, 100,100) rescue nil
end
$ref = true
end
alias mog25_command128 command_128
def command_128
mog25_command128
$game_system.item_typ = 3
$game_system.fdittm = MOG::MPITTM
$game_system.it_id = @parameters[0]
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
$game_system.item_qua = value
unless $game_switches[MOG::MPITVIS] == true 
Audio.se_play("Audio/SE/" + MOG::MPITSE, 100,100) rescue nil
end
$ref = true
end
end  
############
# Game_Map #
############
class Game_Map
attr_reader   :map_id  
def mpitnm
$mpitnm = load_data("Data/Items.rxdata")
$mpitnm[$game_system.it_id].name
end
def mpwpnm
$mpwpnm = load_data("Data/Weapons.rxdata")
$mpwpnm[$game_system.it_id].name
end
def mparnm
$mparnm = load_data("Data/Armors.rxdata")
$mparnm[$game_system.it_id].name
end
end
###############
# Window Base #
###############
class Window_Base < Window
def draw_mpitem(x,y)
mapic = RPG::Cache.picture("Itname")    
cw = mapic.width  
ch = mapic.height 
src_rect = Rect.new(0, 0, cw, ch)
self.contents.blt(x , y - ch + 65, mapic, src_rect)
self.contents.font.name = MOG::MPFONT
self.contents.font.size = 22
if $game_system.item_typ == 1
self.contents.font.color = Color.new(0,0,0,255)
self.contents.draw_text(x + 76, y + 30, 110, 32, $game_map.mpitnm.to_s,1)
self.contents.draw_text(x - 19, y + 19, 110, 32, $game_system.item_qua.to_s + "X",1)
self.contents.font.color = Color.new(255,255,255,255)
self.contents.draw_text(x + 75, y + 29, 110, 32, $game_map.mpitnm.to_s,1)
self.contents.draw_text(x - 20, y + 18, 110, 32, $game_system.item_qua.to_s + "X",1)
elsif $game_system.item_typ == 2
self.contents.font.color = Color.new(0,0,0,255)
self.contents.draw_text(x - 19, y + 19, 110, 32, $game_system.item_qua.to_s + "X",1)
self.contents.draw_text(x + 76, y + 30, 110, 32, $game_map.mpwpnm.to_s,1)
self.contents.font.color = Color.new(255,255,255,255)
self.contents.draw_text(x + 75, y + 29, 110, 32, $game_map.mpwpnm.to_s,1)
self.contents.draw_text(x - 20, y + 18, 110, 32, $game_system.item_qua.to_s + "X",1)
elsif $game_system.item_typ == 3
self.contents.font.color = Color.new(0,0,0,255)
self.contents.draw_text(x + 76, y + 30, 110, 32, $game_map.mparnm.to_s,1)
self.contents.draw_text(x - 19, y + 19, 110, 32, $game_system.item_qua.to_s + "X",1)
self.contents.font.color = Color.new(255,255,255,255)
self.contents.draw_text(x + 75, y + 29, 110, 32, $game_map.mparnm.to_s,1)
self.contents.draw_text(x - 20, y + 18, 110, 32, $game_system.item_qua.to_s + "X",1)
else
end  
end
end
##########
# Mpitem #
##########
class Mpitem < Window_Base
def initialize
super($game_system.mpit_x, $game_system.mpit_y, 250, 100)
self.contents = Bitmap.new(width - 32, height - 32)
self.opacity = 0
refresh
end
def refresh
self.contents.clear
draw_mpitem(10,0)    
end
end
#############
# Scene_Map #
#############
class Scene_Map
alias mog25_main main
def main
@mpit =  Mpitem.new
if  $game_switches[MOG::MPITVIS] == true 
@mpit.visible = false
else
@mpit.visible = true  
end
@mpit.contents_opacity = $game_system.fdittm
mog25_main
@mpit.dispose
end
alias mog25_update update
def update
mog25_update
if $ref == true
@mpit.refresh
if MOG::MPITPS == 0 
@mpit.x = 200
@mpit.y = -150
elsif MOG::MPITPS == 1
@mpit.x = -240
@mpit.y = 200  
elsif MOG::MPITPS == 2
@mpit.x = 640
@mpit.y = 200  
else
@mpit.x = 200
@mpit.y = 480    
end  
$ref = false
end
if  $game_switches[MOG::MPITVIS] == true 
@mpit.visible = false
else
@mpit.visible = true  
end
$game_system.mpit_x = @mpit.x
$game_system.mpit_y = @mpit.y
if MOG::MPITPS == 0
if @mpit.y < 0
@mpit.y += 8
elsif @mpit.x >= 0
@mpit.y = 0
end   
elsif MOG::MPITPS == 1
if @mpit.x < 0
@mpit.x += 10
elsif @mpit.x >= 0
@mpit.x = 0
end 
elsif MOG::MPITPS == 2
if @mpit.x > 400
@mpit.x -= 10
elsif @mpit.x >= 400
@mpit.x = 400
end  
else 
if @mpit.y > 380
@mpit.y -= 8
elsif @mpit.y >= 380
@mpit.y = 380
end 
end
@mpit.contents_opacity = $game_system.fdittm
if MOG::MPITFD == true
$game_system.fdittm -= 3
end
end
end

#_________________________________________________
# MOG_Window Map Name V1.0            
#_________________________________________________
# By Moghunter               
#_________________________________________________
module MOG
#Font Name.
MPFONT = "Georgia"
#Fade ON/OFF(True - False).
MPNMFD = true
#Fade Time.
MPNMTM = 500
#Window Position.
# 0 = Upper Left.
# 1 = Lower Left.
# 2 = Upper Right.
# 3 = Lower Right.
MPNMPS = 0
# Disable Window Switch.
WM_SWITCH_VIS_DISABLE = 20
end
#_________________________________________________
###############
# Game_System #
###############
class Game_System
attr_accessor :fdtm
attr_accessor :mpnm_x
attr_accessor :mpnm_y
alias mog24_initialize initialize
def initialize
mog24_initialize
@fdtm = MOG::MPNMTM
if MOG::MPNMPS == 0 
@mpnm_x = -300
@mpnm_y = 0
elsif MOG::MPNMPS == 1
@mpnm_x = -300
@mpnm_y = 380
elsif MOG::MPNMPS == 2
@mpnm_x = 640
@mpnm_y = 0
else 
@mpnm_x = 640
@mpnm_y = 380
end  
end
def mpnm_x
return @mpnm_x
end
def mpnm_y
return @mpnm_y
end
def fdtm
if @fdtm <= 0
@fdtm = 0 
end
return @fdtm
end
end 
############
# Game_Map #
############
class Game_Map
attr_reader   :map_id  
def mpname
$mpname = load_data("Data/MapInfos.rxdata") 
$mpname[@map_id].name
end
end
###############
# Window Base #
###############
class Window_Base < Window
def draw_mpname(x,y)
mapic = RPG::Cache.picture("Mpname")    
cw = mapic.width  
ch = mapic.height 
src_rect = Rect.new(0, 0, cw, ch)
self.contents.blt(x , y - ch + 65, mapic, src_rect)
self.contents.font.name = MOG::MPFONT
self.contents.font.size = 22
self.contents.font.color = Color.new(0,0,0,255)
self.contents.draw_text(x + 76, y + 27, 110, 32, $game_map.mpname.to_s,1)
self.contents.font.color = Color.new(255,255,255,255)
self.contents.draw_text(x + 75, y + 26, 110, 32, $game_map.mpname.to_s,1)
end
end
##########
# Mpname #
##########
class Mpname < Window_Base
def initialize
super($game_system.mpnm_x, $game_system.mpnm_y, 250, 100)
self.contents = Bitmap.new(width - 32, height - 32)
self.opacity = 0
refresh
end
def refresh
self.contents.clear
draw_mpname(10,0)    
end
end
#############
# Scene_Map #
#############
class Scene_Map
alias mog24_main main
def main
@mpnm = Mpname.new
@mpnm.contents_opacity = $game_system.fdtm
if $game_switches[MOG::WM_SWITCH_VIS_DISABLE] == false
@mpnm.visible = true
else
@mpnm.visible = false  
end  
mog24_main
@mpnm.dispose
end
alias mog24_update update
def update
mog24_update  
$game_system.mpnm_x = @mpnm.x
$game_system.mpnm_y = @mpnm.y
if $game_switches[MOG::WM_SWITCH_VIS_DISABLE] == false
@mpnm.visible = true
else
@mpnm.visible = false  
end 
if MOG::MPNMPS == 0 or MOG::MPNMPS == 1 
if @mpnm.x < 0
   @mpnm.x += 8
elsif @mpnm.x >= 0
   @mpnm.x = 0
end   
else
if @mpnm.x > 400
   @mpnm.x -= 8
elsif @mpnm.x <= 400
   @mpnm.x = 400
end     
end 
@mpnm.contents_opacity = $game_system.fdtm
if MOG::MPNMFD == true
$game_system.fdtm -= 3
end
end
alias mog24_transfer_player transfer_player
def transfer_player
mog24_transfer_player
if MOG::MPNMPS == 0 
$game_system.mpnm_x = -300
$game_system.mpnm_y = 0
elsif MOG::MPNMPS == 1
$game_system.mpnm_x = -300
$game_system.mpnm_y = 380
elsif MOG::MPNMPS == 2
$game_system.mpnm_x = 640
$game_system.mpnm_y = 0
else 
$game_system.mpnm_x = 640
$game_system.mpnm_y = 380
end  
@mpnm.y = $game_system.mpnm_y
@mpnm.x = $game_system.mpnm_x
$game_system.fdtm = MOG::MPNMTM
@mpnm.refresh
end
end

#=============================
#----Scene_Intro-----By JuNa---------------
#=============================

class Scene_Intro

def main
$data_actors = load_data("Data/Actors.rxdata")
$data_classes = load_data("Data/Classes.rxdata")
$data_skills = load_data("Data/Skills.rxdata")
$data_items = load_data("Data/Items.rxdata")
$data_weapons = load_data("Data/Weapons.rxdata")
$data_armors = load_data("Data/Armors.rxdata")
$data_enemies = load_data("Data/Enemies.rxdata")
$data_troops = load_data("Data/Troops.rxdata")
$data_states = load_data("Data/States.rxdata")
$data_animations = load_data("Data/Animations.rxdata")
$data_tilesets = load_data("Data/Tilesets.rxdata")
$data_common_events = load_data("Data/CommonEvents.rxdata")
$data_system = load_data("Data/System.rxdata")
$game_system = Game_System.new
Audio.bgm_stop
Graphics.frame_count = 0
$game_temp = Game_Temp.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
$game_party.setup_starting_members
########[EDITAR_MANUALMENTE]##########
$game_map.setup(017)
$game_player.moveto(1,1)
#########[\EDITAR MANUALMENTE]#########
$game_player.refresh
$game_map.autoplay
$game_map.update
$scene = Scene_Map.new
end
end

#====================================================================
#Cambio de Tono en Batalla según el HP
#Script de: Momomo
# cambia la tonalidad de un ememigo 
# dependiendo de su HP
#====================================================================

module Momo_Change_Tone
# ????????????
ACTOR_CHANGE_TONE = true
# ???????????
ENEMY_CHANGE_TONE = true
# ??????
TONE_RED = 128
# ??????
TONE_GREEN = 0
# ??????
TONE_BLUE = 0
end

class Game_Battler
attr_accessor :tone_change
alias game_battler_change_color_initialize initialize
def initialize
game_battler_change_color_initialize
# ?????????
@tone_change = false
end
end

class Sprite_Battler < RPG::Sprite
alias sprite_battler_change_color_initialize initialize
def initialize(viewport, battler = nil)
sprite_battler_change_color_initialize(viewport, battler)
@change_tone = Tone.new(0, 0, 0)
end
alias sprite_battler_change_color_update update
def update
sprite_battler_change_color_update
tone_update
end
def tone_update
if @battler != nil
if rest_hp_tone_change?
if @battler.tone_change
rest_hp_tone_change_set
@battler.tone_change = false
end
self.tone = @change_tone
end
end
end
# ??????????
def rest_hp_tone_change?
if (Momo_Change_Tone::ACTOR_CHANGE_TONE and @battler.is_a?(Game_Actor)) or
(Momo_Change_Tone::ENEMY_CHANGE_TONE and @battler.is_a?(Game_Enemy))
return true
end
return false
end
# ??HP?????????
def rest_hp_tone_change_set
hp_rate = (@battler.hp.to_f / @battler.maxhp) * 100
rate = 100 - hp_rate
red = Momo_Change_Tone::TONE_RED * rate / 100
green = Momo_Change_Tone::TONE_GREEN * rate / 100
blue = Momo_Change_Tone::TONE_BLUE * rate / 100
@change_tone.set(red, green, blue)
end
end

class Spriteset_Battle
alias spriteset_battle_change_color_initialize initialize
def initialize
spriteset_battle_change_color_initialize
# ????????????
for sprite in @actor_sprites
if !sprite.battler.nil?
sprite.battler.tone_change = true
sprite.update
end
end
end
end

class Scene_Battle
alias scene_battle_change_color_update_phase4_step5 update_phase4_step5
def update_phase4_step5
scene_battle_change_color_update_phase4_step5
# ?????????????????????
for target in @target_battlers
target.tone_change = true
end
end
end

class Scene_Menu
  
  BGM = "Nombre del BGM a Tocar"
  
  alias raz_music_menu_main main
  alias raz_music_menu_uc update_command
  
  def main
    $game_temp.map_bgm = $game_system.playing_bgm
    Audio.bgm_play("Audio/BGM/" + BGM, 100, 100)
    raz_music_menu_main
  end
  
  def update_command
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Map.new
      Audio.bgm_stop
      $game_system.bgm_play($game_temp.map_bgm)
      return
    end
    raz_music_menu_uc
  end
  
end

==============================================================================
# ■ Window_JBliste
#------------------------------------------------------------------------------
# Script permettant d'afficher la liste des musiques du jukebox
# Créateur : Tonyryu
# Date : 12/10/2006
# Version : 1.00
# Version : 1.01 : 06/08/2007 : Tonyryu : Correction méthode fichierMusique
# 
# Attention : Ce script est ma propriété en tant que création et il est donc
# soumis au droit de la propriété intellectuelle ( http://www.irpi.ccip.fr/ ).
# En aucun cas, il ne doit être copié ou publié vers un autre forum sans en
# avoir reçu mon accord au préalable.
#
#==============================================================================
class Window_JBliste < Window_Selectable
  
  #--------------------------------------------------------------------------
  # ● initialize
  #--------------------------------------------------------------------------
  def initialize
    super(0, 100, 640, 380)
    
    # Tableau contenant la liste des musique [ "nom", type, "fichier sans extension"]
    # type : 1 : BGM
    #        2 : BGS
    #        3 : ME
    #        4 : SE
    @tabMusiques = [[ "Pegasus Fantasy" , 1, "08_Pegasus_Fantasy"],
                    [ "Heaven", 1, "034-Heaven01"] ]
                    
    # Spécifier la fenêtre de sélection
    @column_max = 2
    # Récupérer le nombre de musique
    @item_max = @tabMusiques.size
    
    # Initialiser la Zone Bitmap avec une taille adapté au nombre de musique
    self.contents = Bitmap.new(width - 32, row_max * 32)
    # Définir la police d'écriture par défaut
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.index = 0
    
    refresh
  end
  
  #--------------------------------------------------------------------------
  # ● refresh
  #--------------------------------------------------------------------------
  def refresh
    # Effacer la zone Bitmap
    self.contents.clear

    # Pour toutes les musiques
    for i in 0..@item_max - 1
      x = 4 + i % 2 * (288 + 32)
      y = i / 2 * 32
      # Afficher les musique en 2 colonnes
      self.contents.draw_text(x , y, 212, 32, @tabMusiques[i][0], 0)
    end
  end
  
  #--------------------------------------------------------------------------
  # ● fichierMusique
  #--------------------------------------------------------------------------
  def fichierMusique
    return [@tabMusiques[@index][1] , @tabMusiques[@index][2]]
  end

end


#==============================================================================
# ■ Window_JBtitre
#------------------------------------------------------------------------------
# Script permettant d'afficher le titre jukebox
# Créateur : Tonyryu
# Date : 12/10/2006
# Version : 1.00
#==============================================================================
class Window_JBtitre < Window_Base
  
  #--------------------------------------------------------------------------
  # ● initialize
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 640, 100)
    # Initialiser la Zone Bitmap
    self.contents = Bitmap.new(width - 32, height - 32)
    # Définir la police d'écriture
    self.contents.font.name = $fontface
    self.contents.font.size = 30
    self.contents.font.italic = true
    
    refresh
  end
  
  #--------------------------------------------------------------------------
  # ● refresh
  #--------------------------------------------------------------------------
  def refresh
    # Effacer la zone Bitmap
    self.contents.clear
    # Ecrire le titre
    self.contents.draw_text(0, 10, 608, 50, "Titulo de la Jukebox", 1)
  end

end

#==============================================================================
# ■ Scene_Jukebox
#------------------------------------------------------------------------------
# Script permettant de gérer le jukebox
# Créateur : Tonyryu
# Date : 12/10/2006
# Version : 1.00
#==============================================================================
class Scene_Jukebox
  def main
    
    # Prèparation des fenêtre
    @jbtitre_window = Window_JBtitre.new
    @jbliste_window = Window_JBliste.new

    # Boucle de transition, mise à jour graphique et entré clavier
    Graphics.transition
    # boucle
    loop do
      # Mise à jour graphique
      Graphics.update
      # Mise à jour des entrées clavier
      Input.update
      # Mise à jour de la class
      update

      # Si la scene n'existe plus, alors sortir de la boucle
      if $scene != self
        break
      end
    end
    # figer les graphiques
    Graphics.freeze
    # destruction des objets
    @jbtitre_window.dispose
    @jbliste_window.dispose
  end
  
  #--------------------------------------------------------------------------
  # ● update
  #--------------------------------------------------------------------------
  def update

    # Mettre à jour les fenêtres de groupe et de réserve 
    @jbtitre_window.update
    @jbliste_window.update

    # si la touche B est appuyée
    if Input.trigger?(Input::B)
      # Alors, jouer le son "cancel"
      $game_system.se_play($data_system.cancel_se)
      # Revenir soit dans le menu (option 5, changeable), soit sur la map, soit sur le titre
      $scene = Scene_Menu.new(5)
      #$scene = Scene_Map.new
      #$scene = Scene_Title.new

      # Stoper tous les sons
      stopper_audio
      
      return
    end

    # si la touche C est appuyée
    if Input.trigger?(Input::C)
      # Stoper tous les sons
      stopper_audio
      
      # Récuperer le nom du fichier correspondant au choix effectué
      tabFichierMusique = @jbliste_window.fichierMusique
      type = tabFichierMusique[0]
      nomFichier = tabFichierMusique[1]
      
      case type
      when 1
        Audio.bgm_play("Audio/BGM/" + nomFichier,100,100)
      when 2
        Audio.bgs_play("Audio/BGS/" + nomFichier,100,100 )
      when 3
        Audio.me_play("Audio/ME/" + nomFichier,100,100)
      when 4
        Audio.se_play("Audio/SE/" + nomFichier,100,100)
      end
    end
  end
  
  #--------------------------------------------------------------------------
  # ● stopper_audio
  #--------------------------------------------------------------------------
  def stopper_audio
    # Stoper tous les sons
    Audio.bgm_stop
    Audio.bgs_stop
    Audio.me_stop
    Audio.se_stop
  end

  
end

###############################################################################
###### SCRIPT QUE MUESTRA UNA IMAGEN ANTES DEL TITULO A MODO DE LOGOTIPO ######
###############################################################################
#
# Autor: Hyruleoflink 
#
# Version: Beta 1.0
#
###############################################################################

begin
  @logo = Sprite.new
  @logo.bitmap = RPG::Cache.picture("logo")
  Graphics.freeze
  Graphics.transition(50)
  @logo = nil
end