Pincab Passion
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.



 
AccueilAccueil  PortailPortail  ÉvènementsÉvènements  WIPs Team PP  S'enregistrerS'enregistrer  ConnexionConnexion  Dons  








 

 [PARTAGE] Palettes

Aller en bas 
3 participants
AuteurMessage
gech

gech


Messages : 1379
Département : 29

[PARTAGE] Palettes Empty
MessageSujet: [PARTAGE] Palettes   [PARTAGE] Palettes EmptyLun 29 Fév 2016 - 22:24

Mes Palettes Pin2Dmd.. 
[PARTAGE] Palettes 722859262

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 Shadow_SHD le Jeu 24 Jan 2019 - 12:12, édité 2 fois
Revenir en haut Aller en bas
Sharkky

Sharkky


Messages : 269
Département : 54

[PARTAGE] Palettes Empty
MessageSujet: Re: [PARTAGE] Palettes   [PARTAGE] Palettes EmptyLun 29 Fév 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

vulbas


Messages : 3629
Département : villebon sur yvette

[PARTAGE] Palettes Empty
MessageSujet: Re: [PARTAGE] Palettes   [PARTAGE] Palettes EmptyVen 4 Mar 2016 - 19:41

merci m'sieur  A la tienne
Revenir en haut Aller en bas
 
[PARTAGE] Palettes
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] Pin2Dmd Editor , Export Palettes As Palettes.dat
» [WIP] Pincab Mikaël
» [TUTO] Roms colorisées/Palettes V3
» [PARTAGE] Wheeler FX3
» [PARTAGE] db2s

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Pincab Passion :: Centralisation , Créations & Partages médias :: Centralisation des Médias :: Pin2DMD-
Sauter vers: