Sistema de radios

por 163ruben Vie 20 Abr 2012, 2:04 pm

crea a partir de un Llamar Script, un sistema de radio, con mas de 60 canales para elegir.

Código:: =begin Sistema de Radio Versión: 1.0 Autores original: X-RPG, RMXP.net, Dubealex, Ryughen, Torama, Vash y Deke Adaptación al español por ZunnerX Crea un sistema de radio con canales de sintonía y así sucesivamente ... Cada estación tiene una canción. Para añadir las estaciones, sólo tiene que añadir a continuación de "def search(hz)" lo siguiente: elsif hz == (canal) $chan_name = "Nombre del Canal" Audio.bgm_stop play("Nombre de la canción a tocar") Siga los ejemplos que figuran a continuación. Para llamar script, use $scene = Scene_Radio.new =end $map_interpreter = Game_Interpreter.new class Radio def play(channel) # No cambiar nada de Aquí (Recomendado) if channel == "none" $chan_name = "Nada" else Audio.bgm_play("Audio/BGM/" + channel, 100, 100) end end # =============================== # Configuración de las Estaciones de Radio #================================ def search(hz) # Numero de la estación de Radio if hz == 5 $chan_name = "Radio ZunnerX" # Nombre del canal Audio.bgm_stop # Para la música actual play("Theme1")# Nombre de la musica elsif hz == 10 $chan_name = "Radio Maker Palace" Audio.bgm_stop play("Dungeon6") #=============================================================================== #Configuraciones Avanzadas de Script #=============================================================================== else Audio.bgm_stop #play("Radio") end end end class Window_RadioScreen < Window_Base def initialize super(0, 0, 300, 64) self.contents = Bitmap.new(width - 32, height - 32) refresh end def refresh self.contents.clear rect1 = Rect.new(0, 0, 304, 64) rect2 = Rect.new(0, 16, 304, 1) rect3 = Rect.new($x, 8, 1, 16) self.contents.fill_rect(rect1, Color.new(0, 0, 0)) self.contents.fill_rect(rect2, Color.new(255, 0, 0)) self.contents.fill_rect(rect3, Color.new(0, 0, 255)) self.contents.draw_text(0, 0, self.width - 40, 32, $x.to_s + " FM", 1) end end class Window_RadioName < Window_Base def initialize super(300, 0, 246, 64) self.contents = Bitmap.new(width - 32, height - 32) refresh end def refresh self.contents.clear if $chan_name != nil self.contents.draw_text(0, 0, self.width - 40, 32, $chan_name, 1) else self.contents.draw_text(0, 0, self.width - 40, 32, "Canal De Radio", 1) end end end class Scene_Radio def main $x = 0 @sprite = Spriteset_Map.new @radio_window = Window_RadioScreen.new @name_window = Window_RadioName.new Graphics.transition loop do Graphics.update Input.update update if $scene != self break end end Graphics.freeze @radio_window.dispose @name_window.dispose @sprite.dispose end def update $game_map.update $map_interpreter.update $game_system.update if Input.repeat?(Input::RIGHT) # Mover la tecla Derecha if $x == 287 $x = 0 else $x += 1 end $radio.search($x) end if Input.repeat?(Input::LEFT) # Mover la Tecla Izquierda if $x < 1 $x = 287 else $x -= 1 end $radio.search($x) end if Input.trigger?(Input::B) # ESC Para sacar el menu de radio y dejar el seleccionado RPG::SE.stop $scene = Scene_Map.new end @radio_window.refresh @radio_window.update @name_window.refresh @name_window.update end end class Scene_Title alias ra_title_command_new_game command_new_game def command_new_game ra_title_command_new_game $radio = Radio.new end end

~ Instrucciones ~

Poner Encima de "Main" y para ejecutarlo, Llamar a Script con el nombre $scene = Scene_Radio.new

Si hos ayudo ponedme un [Tienes que estar registrado y conectado para ver esa imagen] porfa

por HunterXHunter Vie 20 Abr 2012, 2:19 pm

Esto va en Biblioteca de Scripts.. [Tienes que estar registrado y conectado para ver esa imagen]
Mike: See

Buneo, respecto al Script, esta muy bien para segun que tipo de juegos donde la aparicion de la radio ya ha llegado... Pero para mi juego que va un poco mas atrasado temporalmente no me sirve...

Buen aporte

Sistema de radios

Sistema de radios

Re: Sistema de radios