[Video] Dilemma Risolto su Rpg Xp {Risolto}

[Lloyd91]

allora. ho usato il tasto cerca. ho trovato script per inserire filmati in game che mi danno o un errore o un altro (specialmente di sintassi) e io non ci capisco una ceppa. Il problema è un altro: io vorrei far partire IL video prima della schermata Title. Per video intendo proprio un filmato AVI, non una sequenza ad eventi.

ho cercato anche questo, ma nei post non ho trovato una risposta. spero di trovarla qua XD grazie

 

 

>_> manco un "ma vai a quel paese" ? ...

Edited September 25, 2008 by Lloyd91

[Lloyd91]

niente niente??

[Eikichi]

putroppo gli script video non funzionano quasi mai.

 

mettiti il cuore in pace

[Black_Dragon]

Dunque per risolvere il tuo problema scarica lo script a qesto idirizzo:

Video

Poi dove trovi:

def initialize(movie,length,x=0,y=0,x2=640,y2=480)

Sostiuisci con:

def initialize(movie,length,title=false,x=0,y=0,x2=640,y2=480)

E poi cerca:

$scene=Scene_Map.new

e sostituisci con

if(title==false)
$scene = Scene_Map.new
else
$scene = Scene_Title.new
end

Poi in Main al posto di

$scene=Scene_Title.new

metti:

$scene=Scene_Movie.new("numero filmato",durata,true)

Penso che dovrebbe andare.

Prova e fammi sapere (anche via mp almeno non sporchiamo il topic)

[Lloyd91]

Dunque per risolvere il tuo problema scarica lo script a qesto idirizzo:

Video

Poi dove trovi:

def initialize(movie,length,x=0,y=0,x2=640,y2=480)

Sostiuisci con:

def initialize(movie,length,title=false,x=0,y=0,x2=640,y2=480)

E poi cerca:

$scene=Scene_Map.new

e sostituisci con

if(title==false)
$scene = Scene_Map.new
else
$scene = Scene_Title.new
end

Poi in Main al posto di

$scene=Scene_Title.new

metti:

$scene=Scene_Movie.new("numero filmato",durata,true)

Penso che dovrebbe andare.

Prova e fammi sapere (anche via mp almeno non sporchiamo il topic)

 

Proverò ( e ti farò sapere via pm grazie lo stesso :*) ma intanto ho trovato uno script in una demo di un game con uno script Video e VA! I VIDEO VANNO!

si ma sorge un altro problema, ovviamente liscio non poteva essere >_>

è possibile che con nero 8 riesca a fare filmati avi 640x480 (sennò non mi vanno) da 1 GB ?? cioè proprio il gigabyte non scende. la grandezza minima è questa. (ovviamente non apro un nuovo topic xD)

[Black_Dragon]

Ma infatti. Lo scirpt che ti ho linkato serve per far andare i video .avi con risoluzione 640*480 (testato e funzionante).

Le modifiche che ti ho inserito servono solamente per farlo partire prima di tutto

[kekkorider]

beh non è necessario che tu i video li faccia con Nero ,io farei così:

 

1-editerei il video con un programmino freeware (tanto dubito che tu debba metterci degli effetti speciali ),anche Windows Movie Maker va benissimo

2-nel caso il programma non ti permettesse di esportarlo in .avi (WMM li esporta solo in .wmv) puoi usare un programma di conversione video,io uso SUPER v2008,ti permette di convertire i video in qualunque formato,perfino in.gif,e poi puoi fare anche conversioni audio...

ah,quasi dimenticavo,non è molto grosso e soprattutto è freeware,poi fai come meglio credi...

[Lloyd91]

beh non è necessario che tu i video li faccia con Nero :rovatfl: ,io farei così:

 

1-editerei il video con un programmino freeware (tanto dubito che tu debba metterci degli effetti speciali :rovatfl: ),anche Windows Movie Maker va benissimo

2-nel caso il programma non ti permettesse di esportarlo in .avi (WMM li esporta solo in .wmv) puoi usare un programma di conversione video,io uso SUPER v2008,ti permette di convertire i video in qualunque formato,perfino in.gif,e poi puoi fare anche conversioni audio...

ah,quasi dimenticavo,non è molto grosso e soprattutto è freeware,poi fai come meglio credi...

faccio come meglio credo sìììì non mi serve il tuo aiuto!!!!! ahaha XD

 

scherzo, grazie millissime

[Lloyd91]

ho provato lo script che mi hai suggerito ma mi da errore alla stringa 11e conseguentemente nn mi fa andare avanti blackdragon. ho provato a vedere se c'era una riga spezzata( può accadere che il forum la spezzi, ma mi da sempre errore di sintassi sulla riga 11). se ci fosse qualche esperto di ruby :Q_ grazie cmnq a tutti quelli che mi stanno aiutando. Eikichi te no >_> XD

 

 

EDIT: scusate il doppio post

Edited September 24, 2008 by Lloyd91

[Black_Dragon]

Uhm ok.

Ma ti da errore in main o nello script dei video?

Scusa se ti faccio queste domande ma non ho rpg maker sul computer da cui ti scrivo.

 

EDIT: il problema è nello script dei video......ne trovo uno che fnziona e ti dico (magari passami quello che si tu)

 

EDIT2: ho sistemato

Per prima incolla questo script sopra main

class Scene_Movie
def initialize(movie,length,title=false,x=0,y=0,x2=640,y2=480)
 @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
 @movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"
 @counter = length
 @title=title
end

def main
 game_name = "\" * 256
 @readini.call('Game','Title','',game_name,255,".\\Game.ini")
 game_name.delete!("\")
 Graphics.transition
 @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
 @temp = @wnd.call(0,0,nil,game_name).to_s
 @movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')
 @movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)
 @message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')
 @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')
 @width = @detector.call(0)
 if @width == 640
  fullscreen
  Graphics.update
  sleep(1)
  Graphics.update
  sleep(1)
  Graphics.update
  sleep(1)
 end
 @movie.call("play FILE",0,0,0)
 loop do
  sleep(1)
  @message.call(@temp.to_i,11,0,0)
  Graphics.update
  @message.call(@temp.to_i,11,1,0)
  Input.update
  if Input.trigger?(Input::B)
break
  end
  @counter = @counter - 1
  if @counter <= 0
break
  end
 end
 @movie.call("close FILE",0,0,0)
 if(@title==true)
  $scene=Scene_Title.new 
 else  
  $scene = Scene_Map.new
 end 
 Graphics.freeze
 if @width == 640
  fullscreen
 end
end
end


def fullscreen()

$full.call(18,0,0,0)
$full.call(13,0,0,0)
$full.call(18,0,2,0)
$full.call(13,0,2,0)
end
$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')

e poi in main sostituisci $scene=Scene_Title

con

$scene=Scene_Movie.new(nome_filmato_senza_estensione,lunghezza,true)

Se poi voi chiamare altri video fai così:

$scene=Scene_Movie.new(nome_filmato_senza_estensione,lunghezza)

Edited September 24, 2008 by Black_Dragon

[Lloyd91]

Uhm ok.

Ma ti da errore in main o nello script dei video?

Scusa se ti faccio queste domande ma non ho rpg maker sul computer da cui ti scrivo.

 

EDIT: il problema è nello script dei video......ne trovo uno che fnziona e ti dico (magari passami quello che si tu)

 

EDIT2: ho sistemato

Per prima incolla questo script sopra main

 

class Scene_Movie

def initialize(movie,length,title=false,x=0,y=0,x2=640,y2=480)

@readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'

@movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"

@counter = length

@title=title

end

 

def main

game_name = "\" * 256

@readini.call('Game','Title','',game_name,255,".\\Game.ini")

game_name.delete!("\")

Graphics.transition

@wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')

@temp = @wnd.call(0,0,nil,game_name).to_s

@movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')

@movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)

@message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')

@detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')

@width = @detector.call(0)

if @width == 640

fullscreen

Graphics.update

sleep(1)

Graphics.update

sleep(1)

Graphics.update

sleep(1)

end

@movie.call("play FILE",0,0,0)

loop do

sleep(1)

@message.call(@temp.to_i,11,0,0)

Graphics.update

@message.call(@temp.to_i,11,1,0)

Input.update

if Input.trigger?(Input::B)

break

end

@counter = @counter - 1

if @counter <= 0

break

end

end

@movie.call("close FILE",0,0,0)

if(@title==true)

$scene=Scene_Title.new

else

$scene = Scene_Map.new

end

Graphics.freeze

if @width == 640

fullscreen

end

end

end

def fullscreen()

 

$full.call(18,0,0,0)

$full.call(13,0,0,0)

$full.call(18,0,2,0)

$full.call(13,0,2,0)

end

$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')[/code]

e poi in main sostituisci $scene=Scene_Title

con

$scene=Scene_Movie.new(nome_filmato_senza_estensione,lunghezza,true)

Se poi voi chiamare altri video fai così:

$scene=Scene_Movie.new(nome_filmato_senza_estensione,lunghezza)

 

 

niente mi da errore di sintassi sulla riga 11 che dovrebbe essere in grassetto. ti metto anche lo script che uso io (che funziona). Ovviamente non poteva esserci la strada libera. E' risorto il problema del video. Mi sono preso i vari opening di Fullmetal Alchemist e li ho inseriti nella cartella. Sento la musica, quando li chiamo nel game, ma non il video. E confontando i miei video, con quelli che ci sono nell'altra demo di FMA (che sostituiti nel MIO game funzionano) ho constatato che si tratta dei codec. Cioè l'avi del filmato che si vuole riprodurre deve essere .avi con codec Intel Indeo Video. Ho supposto sbagliato? Però non trovo un Video COnverter neanche in grado di convertire con questi codec. La mia domanda è, riusciro mai a riprodurre i video XD?

 

 

class Scene_Movie

 

def initialize(movie)

@readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'

@movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"

main

end

 

def main

 

game_name = "\" * 256

@readini.call('Game','Title','',game_name,255,".\\Game.ini")

game_name.delete!("\")

@wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')

@temp = @wnd.call(0,0,nil,game_name).to_s

movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')

movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)

@message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')

 

@detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')

@width = @detector.call(0)

if @width == 640

fullscreen

Graphics.update

sleep(1)

Graphics.update

sleep(1)

Graphics.update

sleep(1)

end

 

status = " " * 255

movie.call("play FILE",0,0,0)

loop do

sleep(0.1)

@message.call(@temp.to_i,11,0,0)

Graphics.update

@message.call(@temp.to_i,11,1,0)

Input.update

movie.call("status FILE mode",status,255,0)

true_status = status.unpack("aaaa")

if true_status.to_s != "play"

break

end

if Input.trigger?(Input::B)

Input.update

break

end

end

movie.call("close FILE",0,0,0)

bail

end

 

def bail

if @width == 640

fullscreen

end

end

end

 

def fullscreen()

 

$full.call(18,0,0,0)

$full.call(13,0,0,0)

$full.call(18,0,2,0)

$full.call(13,0,2,0)

end

$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')

 

 

 

[Black_Dragon]

Guarda Llyod91 lo script che hai messo te con poche modifiche si riesce ad adattare alle tue esigenze.

Per i video. Ho provato AviMaker e i video che metto vanno senza problemi.

Hai controllato la risoluzionde delle opening

[Lloyd91]

Guarda Llyod91 lo script che hai messo te con poche modifiche si riesce ad adattare alle tue esigenze.

Per i video. Ho provato AviMaker e i video che metto vanno senza problemi.

Hai controllato la risoluzionde delle opening

 

 

ahahah allora le cose stanno così. Nella mia immensa rabbia, la quale è stata scatenata da fatto che non potevo visualizzare i miei video (per un problema di codec) e non potevo visualizzare il filmato all'inizio, SONO RIUSCITO A CREARE IL PRIMO SCRIPT VIDEO funzionante (eikichiiiii xPPPP XD)

 

Ricapitolando lo script non è mio, ripeto NON è mio, ma l'ho preso da una'altra demo di FMA che mi ha ispirato.

 

 

class Scene_Movie

 

def initialize(movie)

@readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'

@movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"

main

end

 

def main

 

game_name = "\" * 256

@readini.call('Game','Title','',game_name,255,".\\Game.ini")

game_name.delete!("\")

@wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')

@temp = @wnd.call(0,0,nil,game_name).to_s

movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')

movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)

@message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')

 

@detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')

@width = @detector.call(0)

if @width == 640

fullscreen

Graphics.update

sleep(1)

Graphics.update

sleep(1)

Graphics.update

sleep(1)

end

 

status = " " * 255

movie.call("play FILE",0,0,0)

loop do

sleep(0.1)

@message.call(@temp.to_i,11,0,0)

Graphics.update

@message.call(@temp.to_i,11,1,0)

Input.update

movie.call("status FILE mode",status,255,0)

true_status = status.unpack("aaaa")

if true_status.to_s != "play"

break

end

if Input.trigger?(Input::B)

Input.update

break

end

end

movie.call("close FILE",0,0,0)

bail

end

 

def bail

if @width == 640

fullscreen

end

end

end

 

def fullscreen()

 

$full.call(18,0,0,0)

$full.call(13,0,0,0)

$full.call(18,0,2,0)

$full.call(13,0,2,0)

end

$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')

 

 

 

allora per richiamare un video (che ovviamente va messo nella cartella da creare "Movies") basterà fare

@scene=Scene_Movie.new ("nome_filmato_senza_estensione")

in un evento (con il comando Richiama Script).

 

Se si vuole far partire un filmato all'inizio ( E QUI MI SONO SUPERATO PER LA PRIMA VOLTA facendo una cosa in realtà semplicissima, ma cmnq per me la prima) modificare alcune cose nello Script MAIN.

 

Sostituire

$scene=Scene_title.new

 

con

$scene=Scene_Movie.new ("nome_filmato_senza_estensione")

 

ma non basta e fin qui c'erano arrivati tutti. per non fare in modo che il filmato venga riprodotto fino all'infinito xD e io come uno scemo a vederlo xD

dovremo aggiungere subito sotto $scene=scene_movie.new ("nome_filmato_senza_estensione")

la seguente stringa

end
begin
 $scene=Scene_Title.new

in modo che quando il filmato è finito si arrivi alla schermata.

 

^_^ Modificato da me. Non conosco cmnq chi ha fatto lo script originale

 

Direi che si può chiudere ^_^ grazie a tutti (grazie black per al tua pazienza ad avere seguito un niubbetto come me :D)

 

Se ci fosse necessità di postarlo nella sezione script, fatemelo sapere. non mi sembra il caso visto che ho apportato una piccolissima modifica e lo script non sia mio ^^

[Omix91]

Errore alla riga 12

[Lloyd91]

Errore alla riga 12

hai sbagliato qualcosa te... a me funziona perfettamente

[Rpgmanmakerty]

anche a me dà un errore nella riga 12...ho seguito passo per passo

[Black_Dragon]

Si ma che tipo di errore vi da?

Detto così è un po' generico

[Rpgmanmakerty]

dice Scene_Movie 12 SintaxError

[Lloyd91]

allora bada bene che alla riga 13 vi sia la seguente stringa

 

game_name.delete!("\")

 

con lo ZERO tra ("\") non so perchè ma nello spoiler/code è stato Omesso.

 

e guarda l'immagine per come devono essere posizionate le stringhe. Ti dà un errore molto probabilmene perchè non riconosce sotto quale begin/main devono essere (perdonatemi scripter se ho sparato qualche grossa cavolata xD)

 

http://img91.imageshack.us/img91/3531/scriptcorrettoiq4.jpg

[Amos_MHF]

Anche con lo 0, dà errore alla riga 12, quella con il call.

[mikb89]

@readini.call('Game','Title','',game_name,255,".\\Game.ini")

la riga è questa?

però io non ne vedo errori di sintassi... al massimo potete tentare queste varianti:

@readini.call('Game','Title','',game_name,255,'\Game.ini')

@readini.call('Game','Title','',game_name,255,'.\Game.ini')

@readini.call('Game','Title','',game_name,255,"\\Game.ini")

@readini.call('Game','Title','',game_name,255,".\Game.ini")

@readini.call('Game','Title','',game_name,255,"/Game.ini")

@readini.call('Game','Title','',game_name,255,"./Game.ini")

 

XD avrete capito che non mi convince quel puntino lì

[Omix91]

Niente, l'errore c'è in tutti i modi.. E non ho sbagliato nulla.. pace, non metterò video..

[mikb89]

ma sicuri che è Sintax Error?

[Lloyd91]

ma sicuri che è Sintax Error?

si han ragione.. anche a me copiandolo da forum dà l'errore... avete provato a sistemarlo come nella foto? tutti ammodino sotto spostati (con il rientro)?

[5!m0]

e per eseguire mantenendo lo schermo intero?

[Logum]

e per eseguire mantenendo lo schermo intero?

Non credo sia possibile, anni fa quando tentavo inesorabilmente di mettere un video su un progetto il massimo che riuscii ad ottenere fu con gioco in visualizzazione finestra, appena passavo a schermo intero con alt+invio iniziava ad andare a tratti video e a tratti schermo nero =\