#=============================================================
#--------------------------------------------------------------------------------------------------------------------------

module SC
RXSC_RADI = "PokéRadio"
end

class Radio

def play(channel) # Joue une chanson s'il y a une chaîne
if channel == "none"
$chan_name = "Aucune chaîne"
else
Audio.bgm_play("Audio/BGM/" + channel, 100, 100)
end
end

def search(hz) # Identifie les chaînes + joue les fichiers BGM associés
if hz == 1
$chan_name = "Radio 1" # Nom de la chaîne
Audio.bgm_stop # Stoppe la chanson active
play("DL_Azalea") # Joue le fichier BGM
elsif hz == 2
$chan_name = "Radio 2"
Audio.bgm_stop
play("Follow_Me_Around")
elsif hz == 3
$chan_name = "Radio 3"
Audio.bgm_stop
play("GSCRival")
elsif hz == 4
$chan_name = "Radio 4"
Audio.bgm_stop
play("Mom")
elsif hz == 5
$chan_name = "Radio 5"
Audio.bgm_stop
play("pkgsc_azalea")
elsif hz == 6
$chan_name = "Radio 6"
Audio.bgm_stop
play("pk_gs_newbarktown")
elsif hz == 7
$chan_name = "Radio 7"
Audio.bgm_stop
play("lost")
elsif hz == 8
$chan_name = "Radio 8"
Audio.bgm_stop
play("pkgroute30")
elsif hz == 9
$chan_name = "Radio 9"
Audio.bgm_stop
play("PkmRS_Battle_5")
# elsif hz == (votre numéro de chaîne)
# $chan_name = "Le nom de votre chaîne"
# Audio.bgm_stop = "Stoppe la chanson active"
# play("Le fichier BGM à jouer")
else
Audio.bgm_stop
play("none")
end
end
end

class Window_RadioScreen < Window_Base

def initialize
super(0, 0, 320, 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $fontface
self.contents.font.size = $fontsize
refresh
end

def refresh
self.contents.clear
rect1 = Rect.new(0, 0, 303, 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)) # Couleur de remplissage du rectangle de gauche
self.contents.fill_rect(rect2, Color.new(255, 0, 0)) # Couleur de la ligne du rectangle de gauche
self.contents.fill_rect(rect3, Color.new(0, 0, 255)) # Couleur du curseur (le " | " )
self.contents.draw_text(0, 0, self.width - 40, 32, $x.to_s + " FM", 1) # L'espace avant le FM est important sinon il est collé sur le numéro de la chaîne
end
end

class Window_RadioName < Window_Base

def initialize
super(320, 0, 320, 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $fontface
self.contents.font.size = $fontsize
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, "Aucune chaîne", 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
$game_system.map_interpreter.update
# Si vous voulez être capable de bouger tout en choisissant une chaîne,
# supprimez le "#" devant $game_player.update (ligne 136)
# Si vous faites cela, modifiez les lignes marquées de ##^
# $game_player.update
$game_system.update
$game_screen.update
if Input.repeat?(Input::RIGHT) ##^ (Assignez une autre touche à la place de RIGHT, R par exemple)
if $x == 287 # Nombre de chaînes potentiellement disponibles.
$x = 0
else
$x += 1
end
$radio.search($x)
end
if Input.repeat?(Input::LEFT) ##^ (Assignez une autre touche à la place de LEFT, L par exemple)
if $x < 1
$x = 287
else
$x -= 1
end
$radio.search($x)
end
if Input.trigger?(Input::B) # Si "B" est enfoncée (en fait c'est la touche "X"), vous quittez la PokéRadio
$scene = Scene_Map.new
$game_system.bgm_restore
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

class Scene_Save

def write_save_data(file)
characters = []
for i in 0...$game_party.actors.size
actor = $game_party.actors
characters.push([actor.character_name, actor.character_hue])
end
Marshal.dump(characters, file)
Marshal.dump(Graphics.frame_count, file)
$game_system.save_count += 1
$game_system.magic_number = $data_system.magic_number
Marshal.dump($game_system, file)
Marshal.dump($game_switches, file)
Marshal.dump($game_variables, file)
Marshal.dump($game_self_switches, file)
Marshal.dump($game_screen, file)
Marshal.dump($game_actors, file)
Marshal.dump($game_party, file)
Marshal.dump($game_troop, file)
Marshal.dump($game_map, file)
Marshal.dump($game_player, file)
Marshal.dump($radio, file)
end
end

class Scene_Load
def read_save_data(file)
characters = Marshal.load(file)
Graphics.frame_count = Marshal.load(file)
$game_system = Marshal.load(file)
$game_switches = Marshal.load(file)
$game_variables = Marshal.load(file)
$game_self_switches = Marshal.load(file)
$game_screen = Marshal.load(file)
$game_actors = Marshal.load(file)
$game_party = Marshal.load(file)
$game_troop = Marshal.load(file)
$game_map = Marshal.load(file)
$game_player = Marshal.load(file)
$radio = Marshal.load(file)
if $game_system.magic_number != $data_system.magic_number
$game_map.setup($game_map.map_id)
$game_player.center($game_player.x, $game_player.y)
end
$game_party.refresh
end
end

#============================================================
# FINAL UPDATE: 17:44, May 20th 2005 [Please leave this unchanged and undeleted] (SID:002)

s1 = "POKéDEX"
s2 = "POKéMON"
s3 = "POKéRADIO"
s4 = "SAC"
s5 = $trainer_name
s6 = "SAUVER"
s7 = "QUITTER"
@command_window = Window_Command.new(160, )

if $game_system.save_disabled
@command_window.disable_item(5)
end

when 2 # PokéRadio
$game_system.se_play($data_system.decision_se)
$scene = Scene_Radio.new
when 3 # Sac
$game_system.se_play($data_system.decision_se)
$scene = Pokemon_Item_Bag.new
when 4 # Carte dresseur
$game_system.se_play($data_system.decision_se)
$game_temp.common_event_id = 19
$scene = Scene_Map.new
when 5 # Sauvegarde
if $game_system.save_disabled
$game_system.se_play($data_system.buzzer_se)
return
end
$game_system.se_play($data_system.decision_se)
$scene = POKEMON_S::Pokemon_Save.new
when 6 # Quitter le menu
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new

Arf . il faut peut-etre que le script prene un sreen-shot avant d'affiché le menu nan ?

Rentrer un nombre dans la variable "radio"
Condition: si la variable radio est egale a 3, joué le fond musical 3.
Condition: si la variable radio est egale a 7, joué le fond musical 7.
Condition:...
Condition: si la variable radio est egale a X ou +, affiché un message:
"La radio n'as que X de chaines!"