Script pour intro vidéo random au lancement d'Hyperspin

La Box proposée par la communauté HFS prévue pour tourner avec un écran CRT.

Modérateur : Modérateurs

Avatar de l’utilisateur
Vovo
Amateur
Amateur
Messages : 59
Inscription : 21 janv. 2016 - 16:37
A remercié : 22 fois
A été remercié : 12 fois

Script pour intro vidéo random au lancement d'Hyperspin

Message par Vovo » 01 mai 2021 - 18:22

Il y a des années de ça, j 'avais trouvé sur le net un truc afin de varier les intro vidéo du lancement d'HS.
Bien que j ai ouvert le topic dans la section 15k , c est en fait utilisable avec toutes autres installations d'HS.


L'idée etait qu a chaque lancement, l'intro soit différente.
Comme je m'étais mis de coté les pubs SEGA avec le punk; j'avais envie de les voir se lancer indifféremment a chaque fois que je démarrais ma borne.
Si ce n'est que je n'ai jamais pris le temps de faire les choses, et que depuis des années c est le spot "Alors petit, tu veux jouer à Shinobi ?" qui me servait d'intro.

Bref, je viens de m'y pencher et ça fonctionne.

Pour ce faire, il vous faut :

1: laisser le fichier "intro" dans le répertoire
\Media\Frontend\Video

2: Creer un répertoire "RandomIntros"
\Media\Frontend\Video\RandomIntros

3: placez dans de répertoire toutes vos vidéos avec des noms simples

Le script se présente comme suit :

'---[ General Settings ]---'

HyperSpinPath = "C:\HFSBox15K"
HyperSpinExe = "Hyperspin.exe"
LaunchOther=""

'---[ Random Section ]---'

' Select a random intro each time. TRUE/FALSE
' To use this, create the folder HyperSpin\Media\Frontend\Video\RandomIntros
' and put your intro files (in .flv or .mp4 format) in there.
' Do not put anything else in there as any file can be selected for copying.
' WARNING: Will overwrite your current HyperSpin\Media\Frontend\Video\Intro.flv or .mp4 file so copy it into RandomIntros before running.
RandomIntro = "TRUE"

'--[ Script Start ]-------------------------------------------------------------------------------------------

' Version 1.0

' Set up script.
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")
ScriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set objDictionary = CreateObject("Scripting.Dictionary")

WshShell.Run "CMD /C TASKKILL /IM HYPERSPIN.EXE /F"
WScript.Sleep(200)

' Check if the Hyperspin exe exists. Toss upp an error message if it does not.
If Not (fso.FileExists(HyperSpinPath & "\" & HyperSpinExe)) Then
WScript.Echo "Error. Could not find hyperspin."
WScript.Quit
Else
' Copy a random intro if set.
If RandomIntro = "TRUE" Then

If Not (fso.FolderExists(HyperSpinPath & "\Media\Frontend\Video\RandomIntros")) Then
WScript.Echo "Error. RandomIntro is TRUE but " & HyperSpinPath & "\Media\Frontend\Video\RandomIntros does not exist."
WScript.Quit
End If

Set oFl = fso.GetFolder(HyperSpinPath & "\Media\Frontend\Video\RandomIntros")
set Files = oFL.Files
Filecount = 0

For Each File In Files
Filecount = Filecount + 1
objDictionary.Add Filecount, File.Name
Next

Randomize
For i=1 To objDictionary.Count
objNbr = Int(objDictionary.Count * Rnd + 1)
Next

RandomFile = objDictionary.Item(objNbr)
RandomFileExt = fso.getextensionname(RandomFile)
fso.DeleteFile HyperSpinPath & "\Media\Frontend\Video\Intro.*"
fso.CopyFile HyperSpinPath & "\Media\Frontend\Video\RandomIntros" & "\" & RandomFile, HyperSpinPath & "\Media\Frontend\Video\Intro." & RandomFileExt
End If

If ForceDelay <> "" Then
WScript.Sleep(ForceDelay)
End If

If LaunchOther <> "" Then
arrPath = Split(LaunchOther, "\")
For i = 0 to Ubound(arrPath) - 1
strAppPath = strAppPath & arrPath(i) & "\"
Next
WshShell.CurrentDirectory = strAppPath
WshShell.Run LaunchOther, 0, false
End If

' Launch hyperspin.
If HyperSpinExe <> "" Then
WshShell.Run HyperSpinPath & "\" & HyperSpinExe, 0, false
End If

End If
4: Ouvrez un fichier texte sous blocnote afin de copier le contenu et de l enregistrer en.vbs
Assurez vous d'indiquer le chemin exact de votre repertoire d'Hyperspin en debut de script.

5: il suffit d'executer le script pour que Hyperspin se lance.
Quelque soit le repertoire où vous avez enregistré votre script.

Sous Win10, pour que le script se lance au démarrage de windows; tapez le raccourci clavier Windows+R. La fenêtre Exécuter s'ouvre.
Dans le champ de saisie, tapez shell:startup, puis appuyez sur la touche Entrée ou cliquez sur OK pour valider.
Collez le script dans le répertoire qui viens de s'ouvrir.

Voila.
Le script n'est pas de moi. Je n en n'ai pas les compétences. :mrgreen:

Répondre

Revenir à « HFSBox 15k »