AccueilAccueil  MumbleMumble  Évènements  WIPs Team PP  RechercherRechercher  MembresMembres  S'enregistrerS'enregistrer  ConnexionConnexion  Liens  








Partagez | 
 

 [MÉDIAS] Palettes

Aller en bas 
AuteurMessage
gech

avatar

Messages : 1380
Département : 29

MessageSujet: [MÉDIAS] Palettes    29/2/2016, 22:24

Mes Palettes Pin2Dmd.. 


Big buck Hunter
https://dl.dropboxusercontent.com/u/98865673/BigBuckHunter.rar
http://vpuniverse.com/forums/files/file/4138-big-buck-hunter/

Rolling Stones Stern
https://dl.dropboxusercontent.com/u/98865673/RollingStones.zip
http://vpuniverse.com/forums/files/file/4137-the-rolling-stones/

Walking Dead
https://dl.dropboxusercontent.com/u/98865673/walking%20dead.rar




https://dl.dropboxusercontent.com/u/98865673/walking%20dead.rar


J'ai créé un dossier "twd_156" dans mon dossier rom.
Dans ce dossier j'y ai mis la rom fournie que j'ai renommé "twd_156.bin"

ensuite mettre au tout début du script de la table:

Code:
'************ BEGIN PIN2DMD PALETTE LOADING **************
'************* thanks to Rascal and gtxjoe ***************
Const PIN2DMD = True
Const PIN2DMDDIR = "C:\PIN2DMD-master\tools\vc++\Binary"

Dim oShell
Dim WScript
Dim ORIGDIR
Set oShell = CreateObject("WScript.Shell")
ORIGDIR = oShell.CurrentDirectory
oShell.CurrentDirectory = PIN2DMDDIR
If PIN2DMD = True then oShell.run "pin2dmd.exe /b TWD_156.dat",,TRUE
oShell.CurrentDirectory = ORIGDIR
Set oShell = Nothing

Dim DelayTime, StartTime
DelayTime = 0
StartTime = Timer
Do While DelayTime < 1
    DelayTime = Timer - StartTime
Loop
'************* END PIN2DMD PALETTE LOADING ***************

mon fichier palette se trouve dans
C:\PIN2DMD-master\tools\vc++\Binary
editer la ligne en fonction..

et tout a la fin du script de la table.
Code:
'************ BEGIN PIN2DMD PALETTE RESET **************
'************ thanks to Rascal and gtxjoe **************
Sub ResetPalette
Dim rShell
Dim WScript
Set rShell = CreateObject("WScript.Shell")
rShell.CurrentDirectory = PIN2DMDDIR
If PIN2DMD = True then rShell.run "pin2dmd.exe /c",,TRUE
Set rShell = Nothing
End Sub

Sub table1_exit():Controller.Stop:ResetPalette:End Sub
'************* END PIN2DMD PALETTE RESET ***************


Sources :
http://vpuniverse.com/forums/topic/2270-pin2dmd-table-support/


Dernière édition par peskopat le 1/1/2017, 19:26, édité 1 fois (Raison : rajout balise [MÉDIAS])
Revenir en haut Aller en bas
Sharkky

avatar

Messages : 269
Département : 54

MessageSujet: Re: [MÉDIAS] Palettes    29/2/2016, 23:03

Je testerai tes palettes demain, merci gech pour le taff et le partage
A la tienne A la tienne
Revenir en haut Aller en bas
vulbas

avatar

Messages : 3625
Département : villebon sur yvette

MessageSujet: Re: [MÉDIAS] Palettes    4/3/2016, 19:41

merci m'sieur  A la tienne
Revenir en haut Aller en bas
 
[MÉDIAS] Palettes
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
 :: Créations et partages médias :: Médias & créations :: Pin2Dmd-
Sauter vers: