Inserire VIDEO iniziale in RPG Maker XP

[Dogez]

Inserire un video iniziale in RPG Maker XP _{by me}

 

Ragazzi... avete presente tutti gli script video che ci sono in circolazione??

 

Immagino di sì...

 

E avete presente che non ne funziona uno? (o almeno non a schermo intero)

 

Bene...

 

Io devo dire che sono riuscito a inserire un video iniziale (intendo prima della shermata del titolo) scrivendo un programma in Visual Basic 6 (lo sò che potevo farlo con il 2008 ma non trovavo i comandi giusti xD)...

 

Praticamente il programma mostra il video (contenuto nella cartella principale) e finito qusto fa partire il file Game.exe (il gioco).

 

Purtroppo non sono ancora riuscito a metterlo a schermo intero ma appena mi rispondono su un altro forum aggiorno il programma.

 

Per adesso vi posto il tutto (senza codice sorgente, che posterò più avanti).

 

Per aprirlo basta estrarre il tutto e aprire Video.exe

 

Appena ho finito tutto vi posto la versione completa con il codice sorgente.

 

VEDI LINK IN FIRMA

E' sconsigliato scaricare questa versione in quanto non compatibile su alcuni computer.

 

Ciao.

Edited March 25, 2008 by Dogez

[Kenshin]

Beh, simpatico... però... così mi fa mettere solo il filmato iniziale ^^;;

[Satsume]

Molto bravo,quindi in teoria un "utente" dovrebbe far partire il video invece che il game.exe? oppure si riesce anche a farlo andare dal game?

[Dogez]

Molto bravo,quindi in teoria un "utente" dovrebbe far partire il video invece che il game.exe? oppure si riesce anche a farlo andare dal game?

 

Innanzitutto grazie.

 

Comunque si può rinominare il file Video.exe in Game.exe e il file Game.exe in qualcosaltro, ma allora devo modificare il codice, senno non lo apre.

Per inserire il mio programma nel file Game.exe si dovrebbe far aprire il programma Video.exe scrivendo qualcosa in Ruby (ma non so cosa)

 

@Kenshin

 

Sì, lo so... è che per metterlo dentro al gioco ci vuole lo script.

Edited March 24, 2008 by Dogez

[REu]

E avete presente che non ne funziona uno? (o almeno non a schermo intero)

 

io ne ho uno perfettamente funzionante, per mettere lo schermo intero non ci vuole molto io l'ho fatto , comunque megaupload non me lo vuole scaricare,maledetto

[Dogez]

io ne ho uno perfettamente funzionante, per mettere lo schermo intero non ci vuole molto io l'ho fatto , comunque megaupload non me lo vuole scaricare,maledetto

 

Posta, posta lo script.

 

Riguardo a megaupload devi mettere il codice di tre lettere, aspettare 45 secondi e fae click su free download.

 

Se non riesci ti metto un altro link in firma.

Edited March 24, 2008 by Dogez

[REu]

Riguardo a megaupload devi mettere il codice di tre lettere, aspettare 45 secondi e fae click su free download.

 

no più che altro mi dice download limit exceeded o come cavolo si scrive anche se non sto scaricando nient'altro da lui,a quanto pare è un problema degli utenti fastweb

 

per quanto riguarda lo script è questo , lo scene movie

 

crea sopra main la classe scene_movie

 

class Scene_Movie

def initialize(movie,length,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
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)
$scene = Scene_Map.new
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)','')

 

 

per chiamare lo script usa il codice

 

$scene = Scene_Movie.new("4",7)

 

4 sarebbe il nome del filmato in questione (da mettere senza l'estensione del file) e 7 sarebbero i secondi,infatti il filmato lo calcola in secondi

es. un filmato di 1h 22m e 34s sarebbero 4954 secondi

 

perchè non si vedeva a schermo intero?Tutti quelli che hanno avuto a che fare con sto script se lo sono chiesti,bè io mi sono chiesto invece, "ma perchè l'estensione dei filmati deve essere per forza .avi e non .wmv o .mpg?"

 

decisi di cambiare l'estensione dei filmati cambiando opportunamente anche la stringa dello script

 

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

 

e incredibilmente il filmato si vedeva a schermo intero!

[Dogez]

no più che altro mi dice download limit exceeded o come cavolo si scrive anche se non sto scaricando nient'altro da lui,a quanto pare è un problema degli utenti fastweb

 

per quanto riguarda lo script è questo , lo scene movie

 

crea sopra main la classe scene_movie

 

class Scene_Movie

def initialize(movie,length,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
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)
$scene = Scene_Map.new
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)','')

per chiamare lo script usa il codice

 

$scene = Scene_Movie.new("4",7)

 

4 sarebbe il nome del filmato in questione (da mettere senza l'estensione del file) e 7 sarebbero i secondi,infatti il filmato lo calcola in secondi

es. un filmato di 1h 22m e 34s sarebbero 4954 secondi

 

perchè non si vedeva a schermo intero?Tutti quelli che hanno avuto a che fare con sto script se lo sono chiesti,bè io mi sono chiesto invece, "ma perchè l'estensione dei filmati deve essere per forza .avi e non .wmv o .mpg?"

 

decisi di cambiare l'estensione dei filmati cambiando opportunamente anche la stringa dello script

 

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

 

e incredibilmente il filmato si vedeva a schermo intero!

 

appena accendo win xp ti dico (ora sono su linux)

 

ah, ho messo il link in firma.

[REu]

win zip e win rar mi dicono che l'archivio project1 è danneggiato o comunque non può essere aperto,in effetti pesa 40 kb vedi cosa c'è che non va

[Dogez]

AGGIORNAMENTO DELLE 21.59 xD

 

Ora è fullscreen e funziona (quasi) tutto alla perfezione.

 

Il problema è che su alcuni PC non gira (credo di averlo compilato male) così aspetto che un amico lo ricompili e poi vi posto il tutto.

Edited March 24, 2008 by Dogez

[Dogez]

scusate doppio post...

 

il tuo script mi da errore alla 11esima riga.

[Dogez]

HUHUUUUUU!!!!

 

DINUOVO ONLINE xDDDDD

 

ERA CASCATO UN FULMINE SULLA LINEA TELEFONICA E IL MODEM ERA SALTATO... COSì HO COMPRATO UN RUTER xDDDD (e un monitor da 22 pollici, tutto alla fireda dell'elettronica di Pordenone:sisi:)

 

DUE SETTIMANE DA INCUBOOOOOO!!! xDDD

 

Ah... devo dire che il progetto che avevo creato con VisualBasic6 non era compatibile su molti pc...

 

così lo sot rifacendo in VisualBasic 2008.

 

Ho provato con

 

Microsoft.DirectX.AudioVideoPlayBack.Video.FromFile...

 

poi gli dico ("PERCORSO")

 

e dice BlocLoc rilevata... tentativo di esecuziona da parte della dll....... lookaround.gif lookaround.gif

 

Insomma... cercherò supporto in un forum di informatica e poi quando avrò finito il progetto lo posto.

[dark_house]

ame anche da errore nella riga 11 aiuto plz mi piace un saco mettere sto video