Page 1 sur 1

[DEV] Random Game Launcher

Publié : 21 févr. 2021 - 11:55
par camarade35
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