[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Scripts

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # - Game_Film II - reloaded ^^ # par berka # www.rpgmakervx-fr.com #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # Rgss 1&2 v 1.0 #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # Utilisation # écrivez dans un event, commande insérer un script: # # #minimum requis: # [film] # obligatoire ! # film = monfilm.avi # ou mpg... nom du fichier à lire # # #configuration optionnelle, l'ordre n'est pas important # mettre les 4 coordonnées sinon aucune ! # x = 12 # position horizontale # y = 1 # position verticale # w = 150 # redimensionnement du film: largeur # h = 150 # redimensionnement du film: hauteur # # full = true # active (ou pas) le plein écran dans le mode fenetré # vol = 750 # entre 0 et 1000 volume sonore du film # bass = 999 # entre 0 et 1000 volume des basses: tres faible nuance # aig = 250 # entre 0 et 1000 volume des aigus: tres faible nuance # #commandes: # bouton B pour quitter, C pour interrompre/reprendre la lecture #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # pourquoi un nouveau script de video ? # simplement pour ne plus avoir à répondre à toutes ces questions sur la video ! # ce script est le plus simple possible: j'ai testé toutes les erreurs possibles # l'appel est personalisable # le format de la video est auto-détecté # ajout du plein écran # de la gestion du volume # Un dossier Films est automatiquement créé dans votre projet. # vous y déposez les vidéos à lire ! # Il vaut mieux prendre de petites videos: parce que les démos de 200 Mo... #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- class Game_Film def initialize(hash) hash.has_key?(:film) ? film=hash[:film] : return hash.has_key?(:x) ? @x=hash[:x]+" " : @x="0" hash.has_key?(:y) ? @y=hash[:y]+" " : @y="0" hash.has_key?(:w) ? @w=hash[:w]+" " : @w="" hash.has_key?(:h) ? @h=hash[:h]+" " : @h="" hash.has_key?(:vol) ? @vol=hash[:vol]+" " : @vol="1000" hash.has_key?(:bass) ? @bass=hash[:bass]+" " : @bass="1000" hash.has_key?(:aig) ? @aig=hash[:aig]+" " : @aig="1000" hash.has_key?(:pos) ? @pos="at pos #{hash[:pos].to_i*1000} " : @pos="at pos 0 " @full=hash[:full] if hash.has_key?(:full) @full&&dim_ecran !=[640,480] ? @plee="fullscreen " : @plee="" @type=" " @type=" type mpegvideo" if File.extname(film)==(".mpg"||".mpeg") @type=" type avivideo" if File.extname(film)==".avi" @nom='./Films/'+film (p "fichier #{@nom} non trouvé";return) if !FileTest.exist?(@nom) @film=Win32API.new('winmm','mciSendString','ppll','v') @film.call("close FILE",0,0,0) @status=" "*255 lecture end def handle jeu="\0"*256 ini=Win32API.new('kernel32','GetPrivateProfileStringA','pppplp', 'l') ini.call('Game','Title','',jeu,255,".\\Game.ini") return Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,jeu.delete!("\0")) end def lecture pause=false @film.call("open #{@nom} alias FILE#{@type} style child parent "+handle.to_s,0,0,0) @film.call("put FILE window at #{@x}#{@y}#{@w}#{@h}", @status,0,0) @film.call("setaudio File volume to #{@vol}",@status,0,0) @film.call("setaudio File bass to #{@bass}",@status,0,0) @film.call("setaudio File trebble to #{@bass}",@status,0,0) @film.call("play FILE #{@plee}",@statut,0,0) Graphics.freeze loop do sleep(1.0/24) Input.update @film.call("status FILE mode",@status,255,0) break if @status.unpack("aaaa")=="stop".split(//)||Input.trigger?(Input::B) if Input.trigger?(Input::C) Input.update if !pause;@film.call("pause FILE",@status,0,0);pause=true else;@film.call("play FILE #{@plee}",@statut,0,0);pause=false end end end @film.call("close FILE",0,0,0) $scene=Scene_Map.new end def dim_ecran lw=Win32API.new('user32','GetSystemMetrics','i','i') return lw.call(0),lw.call(1) end end Dir.open("./Films") rescue Dir::mkdir("./Films",0777) class Game_Interpreter #rmvx def eval(script) if script.include?("[film]") hash={} script.gsub!("[film]"){} list=script.split("\n") list.each{|e|e.gsub!(" "){};f=e.split("=");hash[f[0].to_sym]=f[1] if !f[1].nil?} Game_Film.new(hash) else;return Kernel.eval(script) end end end class Interpreter #rmxp def eval(script) if script.include?("[film]") hash={} script.gsub!("[film]"){} list=script.split("\n") list.each{|e|e.gsub!(" "){};f=e.split("=");hash[f[0].to_sym]=f[1] if !f[1].nil?} Game_Film.new(hash) else;return Kernel.eval(script) end end end

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                            -  Game_Film II - reloaded ^^
#  par berka
#                          www.rpgmakervx-fr.com                                          
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#  Rgss 1&2                  v 1.0
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                           -Utilisation-
# écrivez dans un event, commande insérer un script:
#
# #minimum requis:
# [film]                # obligatoire !
# film = monfilm.avi    # ou mpg... nom du fichier à lire
#
# #configuration optionnelle, l'ordre n'est pas important
# mettre les 4 coordonnées sinon aucune !
# x = 12                # position horizontale
# y = 1                  # position verticale
# w = 150                # redimensionnement du film: largeur
# h = 150                # redimensionnement du film: hauteur
# 
# full = true            # active (ou pas) le plein écran dans le mode fenetré
# vol = 750              # entre 0 et 1000 volume sonore du film
# bass = 999            # entre 0 et 1000 volume des basses: tres faible nuance
# aig = 250              # entre 0 et 1000 volume des aigus: tres faible nuance
# #commandes:
# bouton B pour quitter, C pour interrompre/reprendre la lecture
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# pourquoi un nouveau script de video ?
# simplement pour ne plus avoir à répondre à toutes ces questions sur la video !
# ce script est le plus simple possible: j'ai testé toutes les erreurs possibles
# l'appel est personalisable
# le format de la video est auto-détecté
# ajout du plein écran
# de la gestion du volume
# Un dossier Films est automatiquement créé dans votre projet.
# vous y déposez les vidéos à lire ! 
# Il vaut mieux prendre de petites videos: parce que les démos de 200 Mo... 
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 
class Game_Film
  def initialize(hash)
    hash.has_key?(:film) ? film=hash[:film] : return 
    hash.has_key?(:x) ? @x=hash[:x]+" " : @x="0"
    hash.has_key?(:y) ? @y=hash[:y]+" " : @y="0"
    hash.has_key?(:w) ? @w=hash[:w]+" " : @w=""
    hash.has_key?(:h) ? @h=hash[:h]+" " : @h=""
    hash.has_key?(:vol) ? @vol=hash[:vol]+" " : @vol="1000"
    hash.has_key?(:bass) ? @bass=hash[:bass]+" " : @bass="1000"
    hash.has_key?(:aig) ? @aig=hash[:aig]+" " : @aig="1000"
    hash.has_key?(:pos) ? @pos="at pos #{hash[:pos].to_i*1000} " : @pos="at pos 0 "
    @full=hash[:full] if hash.has_key?(:full) 
    @full&&dim_ecran !=[640,480] ? @plee="fullscreen " : @plee=""
    @type=" "
    @type=" type mpegvideo" if File.extname(film)==(".mpg"||".mpeg")
    @type=" type avivideo" if File.extname(film)==".avi"
    @nom='./Films/'+film 
    (p "fichier #{@nom} non trouvé";return) if !FileTest.exist?(@nom)
    @film=Win32API.new('winmm','mciSendString','ppll','v')
    lecture
  end
  def handle
    jeu="\0"*256 
    ini=Win32API.new('kernel32','GetPrivateProfileStringA','pppplp', 'l')
    ini.call('Game','Title','',jeu,255,".\\Game.ini")
    return Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,jeu.delete!("\0"))
  end
  def lecture
    v,t,status,pause=version,Time.now," "*255,false
    loop{@film.call("close FILE",0,0,0) 
    @film.call("open #{@nom} alias FILE#{@type} style child parent "+handle.to_s,0,0,0)
    @film.call("status FILE ready notify",status,255,handle);break if status[0..3]=='true'}
    @film.call("put FILE window at #{@x}#{@y}#{@w}#{@h}",status,255,0)
    @film.call("setaudio File volume to #{@vol}",status,255,0)
    @film.call("setaudio File bass to #{@bass}",status,255,0)
    @film.call("setaudio File trebble to #{@bass}",status,255,0)
    @film.call("play FILE #{@plee} notify",status,255,handle)
    loop{sleep(0.1) 
      Input.update 
      @film.call("status FILE mode notify",status,255,0)
      break if status.unpack("aaaa")=="stop".split(//)||Input.trigger?(Input::B)
      if Input.trigger?(Input::C) 
        if !pause;@film.call("pause FILE notify",status,255,handle);pause=true
        else;@film.call("play FILE #{@plee} notify",status,255,handle);pause=false
        end      
      end
      (t=maj(t))if v=='xp'}
    @film.call("close FILE notify",0,0,handle) 
    $scene=Scene_Map.new
  end
  def dim_ecran
    lw=Win32API.new('user32','GetSystemMetrics','i','i')
    return lw.call(0),lw.call(1)
  end
  def maj(t)
    (Graphics.update;return Time.now)if t.sec<=Time.now.sec-9||t.min !=Time.now.min
    return t
  end 
  def version;FileTest.exist?('./Data/scripts.rvdata') ? 'vx'span style="color:#7cc4f5;"> : 'xp';end
end
Dir.open("./Films") rescue Dir::mkdir("./Films",0777) 
class Game_Interpreter;def eval(script);cmd_eval(script);end;end#rmvx
class Interpreter;def eval(script);cmd_eval(script);end;end#rmxp
def cmd_eval(script)
  if script.include?("[film]")
    hash={}
    script.gsub!("[film]"){}
    list=script.split("\n")
    list.each{|e|e.gsub!(" "){};f=e.split("=");hash[f[0].to_sym]=f[1] if !f[1].nil?}
    Game_Film.new(hash)
  else;return Kernel.eval(script)
  end
end