[DEV] Random Game Launcher

Vous trouverez ici les développements et les logiciels faits maison et qui répondent au mieux à nos besoin.

Modérateur : Modérateurs

Avatar de l’utilisateur
camarade35
Maître
Maître
Messages : 4230
Inscription : 05 sept. 2013 - 01:00
Localisation : Chevaigné
A remercié : 619 fois
A été remercié : 739 fois
Contact :

[DEV] Random Game Launcher

Message par camarade35 » 21 févr. 2021 - 11:55

Bonjour à toutes et tous

Si comme nous à la maison, des fois vous ne savez pas à quoi jouer, voici un petit script AHK qui lance, au hasard, un jeu dans tous ceux que vous avez dans vos systèmes


Code : Tout sélectionner

Rom_Path = %A_WorkingDir%\roms\
RL_Exe =  %A_WorkingDir%\RocketLauncher\RocketLauncher.exe

fldrarray := Object()
loop, %Rom_Path%*.*, 0, 1
fldrarray[a_index] := A_LoopFileFullPath
Random, rndm, 1, % fldrarray.MaxIndex()
;~ msgbox % fldrarray[rndm]                          

FileDelete, %A_WorkingDir%\Path_Random_Rom.txt
FileDelete, %A_WorkingDir%\System_Rom.txt
FileAppend, % fldrarray[rndm], %A_WorkingDir%\Path_Random_Rom.txt

FileRead, Path_Random_Rom, %A_WorkingDir%\Path_Random_Rom.txt
StringReplace, Path_Random_Rom, Path_Random_Rom, %Rom_Path%,,all
StringReplace, Path_Random_Rom, Path_Random_Rom, .zip,,all

Infos = %Path_Random_Rom%
InfoArray := StrSplit(Infos, "\")

Loop % InfoArray.MaxIndex()
{
    this_info := InfoArray[a_index]
	FileAppend, %this_info%`n, System_Rom.txt
}

FileReadLine, System, %A_WorkingDir%\System_Rom.txt, 1
FileReadLine, Rom, %A_WorkingDir%\System_Rom.txt, 2

run, %comspec% /c %RL_Exe% -s "%System%" -r "%Rom%",,Hide

FileDelete, %A_WorkingDir%\Path_Random_Rom.txt
FileDelete, %A_WorkingDir%\System_Rom.txt

ExitApp
Le principe est simple, si ça marche avec RocketLauncher, ça marchera.

Placer l'ahk compilé en exe dans le dossier racine de la BOX (peu importe le nom) et lancer l'exe (faites un raccourci où vous le souhaitez).
Good Game
préservation du patrimoine vidéoludique et de notre planète

Répondre

Revenir à « Développements et logiciels maison »