=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