#==============================================================================
# ■ TempsJourNuit
# 13/07/08 -- Version 4
#
# Script mis dans le domaine public
# Aucune licence, aucun crédit requis
#
#-----------------------------------------------------------------------------
# Gérer le jour et la nuit, ainsi que le temps réel (date, heure...)
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
# ● Indiquer les numéros des Variables
#
# VarNomJour contient le nom du jour actuel en Français.
# VarNuitJour définit le type de journée actuelle.
# VarTempsXXXX contient ce qui est demandé avec timesys_time()
# SwiExterieur définit si la map est en exterieure (true) ou pas (false)
#
# Vous devez mettre le numéro de la variable et non pas son contenu !
#-----------------------------------------------------------------------------
VarNomJour = 4994
VarNuitJour = 4995
VarTempsHeure = 4996
VarTempsMinutes = 4997
VarTempsSecondes = 4998
SwiExterieur = 4999
#-----------------------------------------------------------------------------
# ● Définition des fonctions
#-----------------------------------------------------------------------------
class Interpreter
#-----------------------------------------------------------------------------
# ● Fonction de définition des nouvelles musiques pour la nuit
#-----------------------------------------------------------------------------
def timesys_nightmusic(new_music = 0)
if $game_variables[VarNuitJour] == "Nuit"
Audio.bgm_play("Audio/BGM/" + new_music, 100, 100)
end
end
#-----------------------------------------------------------------------------
# ● Fonction d'obtention des heures, minutes, secondes
#-----------------------------------------------------------------------------
def timesys_time(asked = 0)
@clock = Time.new
if asked == "heure"
$game_variables[VarTempsHeure] = @clock.hour.to_s
return $game_variables[VarTempsHeure]
end
if asked == "minutes"
$game_variables[VarTempsMinutes] = @clock.min.to_s
return $game_variables[VarTempsMinutes]
end
if asked == "secondes"
$game_variables[VarTempsSecondes] = @clock.sec.to_s
return $game_variables[VarTempsSecondes]
end
end
end
#-----------------------------------------------------------------------------
# ● Début du Script
#-----------------------------------------------------------------------------
class TempsJourNuit < Window_Base
def initialize
super(440, 420, 200, 60)
self.contents = Bitmap.new(width - 32, height - 32)
self.opacity = 150
self.visible = false
refresh
end
def refresh
@clock = Time.new
@seconde = @clock.sec * Graphics.frame_rate
self.contents.clear
case @clock.strftime("%A")
when "Monday"
jour = "Lundi"
when "Tuesday"
jour = "Mardi"
when "Wednesday"
jour = "Mercredi"
when "Thursday"
jour = "Jeudi"
when "Friday"
jour = "Vendredi"
when "Saturday"
jour = "Samedi"
when "Sunday"
jour = "Dimanche"
end
$game_variables[VarNomJour] = jour
#self.contents.draw_text(0, 0, 200, 24,@clock.hour.to_s + ":" + @clock.min.to_s + ":" + @clock.sec.to_s + " " +jour)
@map = load_data(sprintf("Data/Map%03d.rxdata", $game_map.map_id))
#-----------------------------------------------------------------------------
# Nuit : 20h > 6h du mat inclus
# Matin : 7h du mat > 10h du mat inclus
# Jour : 11h > 16h inclus
# Crépuscule : 17h > 19h inclus
#
# Variable --VarNuitJour--
# "????" = Inconnu
# "Matin" = Matin
# "Jour" = Jour
# "Crépuscule" = Crépuscule
# "Nuit" = Nuit
#-----------------------------------------------------------------------------
if $game_switches[SwiExterieur]
case @clock.hour
when 0
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 1
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 2
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 3
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 4
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 5
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 6
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 7
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Matin"
when 8
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Matin"
when 9
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Matin"
when 10
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Matin"
when 11
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 12
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 13
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 14
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 15
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 16
@tone = Tone.new(0, 0, 0, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Jour"
when 17
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Crépuscule"
when 18
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Crépuscule"
when 19
@tone = Tone.new(34, -17, -34, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Crépuscule"
when 20
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 21
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 22
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
when 23
@tone = Tone.new(-60, -60, -10, 0)
$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = "Nuit"
end
else
#@tone = Tone.new(0, 0, 0, 0)
#$game_screen.start_tone_change(@tone,5)
$game_variables[VarNuitJour] = 0
end
end
def update
refresh
end
end
#-----------------------------------------------------------------------------
# ● Application des tons sur la map
#-----------------------------------------------------------------------------
class Scene_Map
alias old_main main
def main
@timesys = TempsJourNuit.new
old_main
if $game_switches[SwiExterieur]
@timesys.dispose
end
end
alias old_update update
def update
if $game_switches[SwiExterieur]
@timesys.update
end
old_update
end
end