Script Video II reloaded ^^

Voila ! pour fêter la presque fin de mes partiels j'ai entrepris de créer un script video plug'n play.
Pourquoi ? parce que j'ai vu que le nombre de question au sujet de ces scripts...
C'est le script ultime !

fonctionnalité:
plein ecran, gestion du volume, redimensionnement et placement !

j'ai tenté de faire le plus simplement possible... et si vraiment vous n'y arrivez pas, je ne peux plus rien faire pour vous

les instructions sont au début du script !
a coller au dessus de main

Code:

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                            -  Game_Film II - reloaded ^^
#  par berka
#                          rpgmakervx.1fr1.net                                         
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#  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
# ret = Scene_Map
# #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 "
    @ret='$scene='<<hash[:ret]<<'.new' if hash.has_key?(:ret)
    @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
    @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,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 #{@aig}",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)
    @ret.nil? ? $scene=Scene_Map.new : eval(@ret)
  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
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
def version;FileTest.exist?('./Data/scripts.rvdata') ? 'vx': 'xp';end
def call_film(script)
  version=='vx' ? i=Game_Interpreter : i=Interpreter
  i.new.cmd_eval(script)
end

exemple d'appel:

dans un event:

[film]
film = test.avi
aig = 999
bass = 0

dans un script:

script=<<__END__

[film]
film=test.avi
ret=Scene_Map
full=false

__END__
call_film(script)

Wow, c'est vraiment un script utile!
Très facile a comprendre le script quand même

Merci berka

en fait j'essaye d'alterner entre script débiles et utiles !
content que ca te plaise !

Génial, merci beaucoup pour ce script Berka je vais surement l'utiliser ( et te mettre en crédits evidemment ) =)

J'utilisai la première versin, et bien me voilà heureux de cette mise à jour...
C'est génial, magnifique, comme tu as dit c'est LE script ultime^^

en fait j'essaye d'alterner entre script débiles et utiles !

T'est passé du "indispensable parsqu'inutile" au indispensable parsque génial"...^^

Simple question

Est ce que script ouvre une fenêtre d'un lecteur vidéo ou est tous simplement géré par RPG maker ?

tout est géré par rm !

si vous avez des idées d'amélioration

même inutile un script peut s'avéré utile !
On peut toujours y modifier des ligne dans le script ^^
Merci berka !

Merci Berka,très bon script

J'ai testé ton script et j'ai un petit problème j'ai le son mais pas la vidéo.Si c'est une question bête tu peux me bruler vif.

t'es en plein écran ?
t'as mis quoi dans ton event ?

oui et voici ce que j'ai mis dans l'event

Spoiler:

informations sur ton fichier avi :
taille ?
et si possible, une copie de l'onglet Détails des propriétés du fichier !

Spoiler:

les voilas

bizarre... tu as juste le son ? c'est peut etre un probleme d'encodage...

Désolé pour le nécropost
mais ce script ne fonctionne pas chez moi.
lorsque je veux lancer la vidéo
rpg maker se bloque un instant avant de continuer normalement
sans lancer la vidéo

sans plus d'indications, je ne peux pas te repondre :
taille, duree, format de la video
ton appel dans l'event

...

berka

Nouvelle version:

possibilité de choisir la scene de retour,
possibilité de lancer le film depuis un script

Vraiment vraiment désolé pour le necropost T-T mais j'ai un souci

J'ai la video,mais pas de son
,et au lieu de durer 28 sec,elle en dure 2(acceleré o_O)
ah et la video et mal placé (sa ce doit etre a moi de gerer ^^)



je comprendrait parfaitement que vous me mettiez une sanction
mais pouvez vous m'aidez ?