RPG OTAKU
¡Hola! te invitamos a que te unas a RPG-OTAKU,
foro de desarrollo de videojuego con RPG MAKER y ademas de que tenemos del infaltable ocio.

Si deseas disfrutar del foro al 100%,
registrate, en poco minutos, sin confirmación de e-mail y totalmente gratis, si ya estas registrado, solamente conectate, y si lo que quieres es observar el foro como invitado, solo ignora este mensaje.
¡Eres libre de escoger lo que tu quieras!

script de músicas MP3 [VX]

Ir abajo

script de músicas MP3 [VX]

Mensaje por Train el Miér Ene 11, 2012 3:37 pm

script de músicas MP3

las instrucciones están en el script

te permite crea un cuadro en donde puedes escuchar las músicas que le pongas, e incluso aplicarlas en tu juego (cambia esa música por la de tu mapa temporalmente):

Código:
#========================================================================#
# #*****************# MP3 Musical 1.0 Falcao script Permite #
# #*** By Falcao ***# tener un reproductor musical para #
# #*****************# escuchar diferentes musicas segun #
# RMXP los gustos #
# makerpalace.onlinegoo.com Date 12/22/2009 #
#========================================================================#

#------------------------------------------------------------------------
# * Instrucciones
#
# Solo copiar y pegar el script encima de main, no se requiere de
# alguna imagen en especial
#
# Para llamar el script basta con pulsar tecla 'ALT' pero puede ser llamado
# manualmente con el siguiente comando $scene = Scene_Song.new
#
# Para agregar una musica a la lista de reproduccion usar el siguiente
# comando
#
# Songs.add(X) En vez de X poner el ID de musica a agregar
# Ejemplo: Songs.add(1) agrega id 1
#
# Comandos opcionales usados desde el comando script del evento
#
# $game_system.fplaying = true Al cambiar a otro mapa el reproductor
# continua sonando, cambiar true o false
# no abusar de su uso en true
#
# Licensia: Puede ser usado en juego no comerciales, para usarlo en juegos
# comerciales favor de contactarme
#-------------------------------------------------------------------------

module Songs

# Listas de reproduccion, para agregar mas seguir la secuencia de IDs
Pistas = {

#ID Musica Nombre Autor Genero
1=> ["Airship", "Dragon song", "Enterbrain", "Pop"],
2=> ["Scene6", "Soul Balad", "Enterbrain", "Romantica"],
3=> ["Town1", "Villa Pinguino", "Enterbrain", "Baladada"],
4=> ["Battle1", "Monte Falcao", "Enterbrain", "Jazz"],
5=> ["Field3", "Valery Field", "Enterbrain", "Pop Rock"],

}

# Incluir los siguientes ID de musicas por defecto
Default_list = [1, 2]

# Color del reproductor visual, escoger entre uno de los siguientes
# 1 = Normal, 2 = Naranja, 3 = Amarillo oro
# 4 = Verde, 5 = Violeta 4 = Rojo
PlayerColor = 1

# Tecla para llamar el script
Call_script = Input::ALT

# Evitar llamar el script con la tecla especificada
Disable_Call = false

# Vacabulario general
Total = "Total"
None = "None"
Command = "A = Parar"
Apply = "Aplicar"
Title = "Titulo"
Author = "Autor"
Genre = "Genero"

Pistas.each do |id, value|
value.push(id)
end

def self.add(song_id)
unless $game_system.fsong.include?(song_id)
$game_system.fsong.push(song_id)
end
end
end

#--------------------------------------------------------------------------
# * Game_System, initialize aliased
#--------------------------------------------------------------------------
class Game_System
attr_accessor :fsong
attr_accessor :fplaying
alias falcaosond_ini initialize
def initialize
falcaosond_ini
@fsong = Songs::Default_list
@fplaying = false
end
end

#--------------------------------------------------------------------------
# * Lista de musicas
#--------------------------------------------------------------------------
class Song_indice < Window_Selectable
def initialize
super(42, 155, 164, 170)
@column_max = 1
refresh
self.index = 0
end

def song
return @data[self.index]
end

def refresh
return if $game_system.fsong.empty?
if self.contents != nil
self.contents.dispose
self.contents = nil
end
@data = []
for i in Songs::Pistas.values
if $game_system.fsong.include?(i[4])
@data.push(i)
end
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)
end
end
end

def draw_item(index)
song_data = @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))
contents.draw_text(x, y, 212, 24, song_data[1])
end
end

#--------------------------------------------------------------------------
# * Informacion de cada cansion
#--------------------------------------------------------------------------
class Song_Info < Window_Base
def initialize
super(204, 155, 302, 170)
end

def refresh(song)
self.contents.clear
if $game_system.fsong.include?(song[4])
draw_song_info(song)
end
end

def draw_song_info(song)
Songs::Pistas.each do |id, value|
if id == song[4]
self.contents.draw_text(0, 0, self.width, 32,
"#{Songs::Title} #{value[1]}")
self.contents.draw_text(0, 30, self.width, 32,
"#{Songs::Author} #{value[2]}")
self.contents.draw_text(0, 60, self.width, 32,
"#{Songs::Genre} #{value[3]}")
end
end
end
end

#--------------------------------------------------------------------------
# * Reproductor visual
#--------------------------------------------------------------------------
class Sprite_Waves < Sprite_Base
include Songs
def initialize(viewport, cx, cy)
super(viewport)
self.bitmap = Bitmap.new(302,200)
self.x = cx + 235
self.y = cy + 270
self.angle = 180
@color = [nil, Color.new(180,225,245), Color.new(255, 120, 0, 255),
Color.new(220, 220, 70, 255), Color.new(128, 255, 128, 255),
Color.new(130, 0, 130, 255), Color.new(255, 0, 0, 255)]
@time_count = 0
draw_waves(20, 120, true)
update
end

def update
super
@time_count += 1
case @time_count
when 4
self.bitmap.clear
for song in Songs::Pistas.values
if song[0] == RPG::BGM.last.name
$falplaying = true
end
end
$falplaying ? draw_waves(20, 120) : draw_waves(20, 120, true)
when 8
@time_count = 0
end
end

def draw_waves(x, y, ini=false)
fx = 0
for i in 1...100
fx += 2
!ini ? self.bitmap.fill_rect(x+fx, y, 1, rand(40), @color[PlayerColor]) :
self.bitmap.fill_rect(x+fx, y, 1, 4, @color[PlayerColor])
end
end
end

#--------------------------------------------------------------------------
# * Multi ventanas, total, info, preg
#--------------------------------------------------------------------------
class Up_windows < Window_Base
include Songs
def initialize(x=0,y=0, ancho=164, alto=56)
super(x, y, ancho, alto)
end

def total
self.contents.clear
text = "#{Total}: #{$game_system.fsong.size}"
self.contents.draw_text(0, -2, self.width, 32, text)
end

def info
self.contents.clear
self.contents.font.size = 20
nada = false
for song in Songs::Pistas.values
if song[0] == RPG::BGM.last.name
self.contents.draw_text(0, -2, self.width, 32, "♪ #{song[1]}")
nada = false
break
else
nada = true
end
end
self.contents.draw_text(0, -2, self.width, 32, "♪ #{None}") if nada
self.contents.font.size = 16
self.contents.draw_text(-40, -2, self.width, 32, Command,2)
end

def preg
self.contents.clear
self.contents.draw_text(0, -2, self.width, 32, "#{Apply} ♪")
end
end

#--------------------------------------------------------------------------
# * Scene_Song
#--------------------------------------------------------------------------
class Scene_Song < Scene_Base
def start
super
create_menu_background
$game_temp.map_bgm = RPG::BGM.last
$game_temp.map_bgs = RPG::BGS.last
@viewport1 = Viewport.new(0, 0, 544, 416)
@viewport1.z = 101
@indice_song = Song_indice.new
@info_song = Song_Info.new
@total_window = Up_windows.new(42,100)
@total_window.total
@info_window = Up_windows.new(204,100, 302, 56)
@info_window.info
@waves = Sprite_Waves.new(@viewport1, @info_song.x, @info_song.y)
@marco = Up_windows.new(204,156,171, 171)
@marco.z = 102
@marco.visible = false
@pregunta = Up_windows.new(204,156,171)
@pregunta.z = 102
@pregunta.preg
@pregunta.visible = false
$falplaying = false
if !$game_system.fsong.empty?
@info_song.refresh(@indice_song.song)
end
$game_system.fsong.empty? ? @waves.visible = false : @waves.visible = true
s1 = "Si"
s2 = "No"
s3 = "Cancelar"
@command_window = Window_Command.new(172, [s1, s2, s3])
@command_window.x = 204
@command_window.y = 211
@command_window.z = 103
@command_window.height = 115
@command_window.visible = false
@command_window.active = false
end

def terminate
super
@indice_song.dispose
@info_song.dispose
@waves.dispose
@viewport1.dispose
@total_window.dispose
@info_window.dispose
@command_window.dispose
@pregunta.dispose
@marco.dispose
end

def update
super
@indice_song.update
@waves.update
@command_window.update
if !$game_system.fsong.empty?
@info_song.refresh(@indice_song.song)
end
update_Selection
update_commands
if Input.trigger?(Input::B)
Sound.play_cancel
if $falplaying and !@command_window.visible
@command_window.index = 0
@command_window.visible = true
@command_window.active = true
@indice_song.active = false
@pregunta.visible = true
@marco.visible = true
elsif @command_window.visible
cancelar
else
salir
end
end
end

def update_Selection
return if $game_system.fsong.empty? or @command_window.visible
if Input.trigger?(Input::C)
Sound.play_decision
$falplaying = true
RPG::BGM.new(@indice_song.song[0]).play
@info_window.info
end
if Input.trigger?(Input::X)
RPG::BGM.stop
$falplaying = false
end
end

def salir
if !$falplaying
$game_temp.map_bgm.play
$game_temp.map_bgs.play
end
$scene = Scene_Map.new
return
end

def update_commands
return if !@command_window.visible
if Input.trigger?(Input::C)
Sound.play_decision
case @command_window.index
when 0; salir
when 1; $falplaying = false; salir
when 2; cancelar
end
end
end

def cancelar
@command_window.visible = false
@command_window.active = false
@indice_song.active = true
@pregunta.visible = false
@marco.visible = false
end
end

#--------------------------------------------------------------------------
# * Fuente
#--------------------------------------------------------------------------
class Font
alias falcaoBest5_font initialize
def initialize
falcaoBest5_font
if $scene.is_a?(Scene_Song)
self.name = "Georgia"
self.size = 20
end
end
end

#--------------------------------------------------------------------------
# * Game_Map, autoplay aliased
#--------------------------------------------------------------------------
class Game_Map
alias falcao13_autoplay autoplay
def autoplay
return if $game_system.fplaying
falcao13_autoplay
end
end

#--------------------------------------------------------------------------
# * Scene_Map, update aliased
#--------------------------------------------------------------------------
class Scene_Map
alias falcao99_update update
def update
if Input.trigger?(Songs::Call_script) and !Songs::Disable_Call
$scene = Scene_Song.new
return
end
falcao99_update
end
end

Creditos: Falcao
X3


¿Quieres saber que pasa si no posteas...?
Spoiler:



bien Te sirvio mi post, agregame a tu lista de amigos [Tienes que estar registrado y conectado para ver este vínculo] d0_<
avatar
Train
Admin
Admin

Edad : 19
Localización : Managua, Nicaragua
Mensajes : 661
Fecha de inscripción : 16/07/2011
Creditos : 1073
Objetos :

Ver perfil de usuario http://rpg-otaku.forolatin.com

Volver arriba Ir abajo

Re: script de músicas MP3 [VX]

Mensaje por Piltrafa97 el Miér Ene 11, 2012 3:41 pm

Es lo que viene a llamarse Jukebox? Igualmente esta guay, ya vere si lo aplico en alguna de mis tontáas... XDDDD

Buen aporte :D
Saludos :)



[Tienes que estar registrado y conectado para ver este vínculo]
avatar
Piltrafa97
Super Moderador
Super Moderador

Edad : 20
Localización : Madrid
Mensajes : 169
Fecha de inscripción : 18/10/2011
Creditos : 161
Objetos :

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.