MCRC=DF2A7C78
MVersion=1.0.1
; Action: Can be get (get's the drive letter associated to the chosen drive type), mount (mount a disc), unmount (unmount a disc)
; File: Full path to file you want to mount (only need to provide this when using action type "mount"
; Type: Leave blank to use auto mode or what the user has chosen in RLUI for that system. To force a specific drive type, send "dt" or "scsi" in the module
; Drive: A drive number for DT can be sent in the scenario a user has multiple dt or scsi drives and prefers to not use the first one (0). This is not used in any module to date.
VirtualDrive(action,file="",type="",drive=0){
Log("VirtualDrive - Started - action is " . action)
Global vdFullPath,vdUseSCSI,vdAddDrive,vdDriveLetter,7zFormatsNoP,RLObject,DTAllowGDIQuotes
Static vdExe,vdPath,vdFileInfo,vdFileProductName,vdFileProductVersion,vdMode,supportedExtensions
vdMap:=Object(0,"A",1,"B",2,"C",3,"D",4,"E",5,"F",6,"G",7,"H",8,"I",9,"J",10,"K",11,"L",12,"M",13,"N",14,"O",15,"P",16,"Q",17,"R",18,"S",19,"T",20,"U",21,"V",22,"W",23,"X",24,"Y",25,"Z")
If file ; only log file when one is used
Log("VirtualDrive - Received file: " . file,4)
SplitPath, file,,,ext
; First run only checks and determine user's chosen VD application
If !vdFileInfo {
SplitPath, vdFullPath,vdExe,vdPath
CheckFile(vdFullPath, "Could not find " . vdFullPath . "`nPlease fix the Virtual Drive Path key in RocketLauncherUI to point to your preferred Virtual Drive application executable or turn off Virtual Drive support.")
vdFileInfo := FileGetVersionInfo_AW(vdFullPath, "ProductName|ProductVersion", "|")
Loop, Parse, vdFileInfo, |
{ If A_Index = 1
vdFileProductName := RegExReplace(A_Loopfield,"ProductName\s*")
Else
vdFileProductVersion := RegExReplace(A_Loopfield,"ProductVersion\s*")
}
Log("VirtualDrive - Using " . vdFileProductName . " version " . vdFileProductVersion . " found at: " . vdFullPath,4)
If InStr(vdFileProductName,"Daemon")
{
If SubStr(vdFileProductVersion,1,1) = 4
{ vdMode := "DT4"
supportedExtensions := "ape,b5t,b6t,bin,bwt,ccd,cdi,cue,flac,iso,isz,mds,mdx,nrg"
} Else If SubStr(vdFileProductVersion,1,1) = 5
{ vdMode := "DT5"
driveLetterCheck := 1
supportedExtensions := "ape,b5t,b6t,bin,bwt,ccd,cdi,cue,flac,iso,isz,mds,mdx,nrg"
} Else If SubStr(vdFileProductVersion,1,1) = 6 ; so far v6 is the Pro version of DT10 lite
{ vdMode := "DT6"
driveLetterCheck := 1
supportedExtensions := "ape,b5t,b6t,bwt,ccd,cdi,cue,flac,iscsi,iso,isz,mds,mdx,nrg,tc,vdh,vdi,vmdk,wav,zip"
If (InStr(vdFileProductName,"Pro") && vdExe != "DTAgent.exe")
ScriptError(vdFileProductName . " v" . vdFileProductVersion . " requires you to set your Virtual Drive Path to DTAgent.exe, not " . vdExe)
} Else If SubStr(vdFileProductVersion,1,2) = 10
{ vdMode := "DT10"
supportedExtensions := "ape,b5t,b6t,bwt,ccd,cdi,cue,flac,iscsi,iso,isz,mds,mdx,nrg,tc,vdh,vdi,vmdk,wav,zip"
If (vdExe != "DTAgent.exe")
ScriptError(vdFileProductName . " v" . vdFileProductVersion . " requires you to set your Virtual Drive Path to DTAgent.exe, not " . vdExe)
} Else If SubStr(vdFileProductVersion,1,3) = 1.0
ScriptError(vdFileProductName . " v" . vdFileProductVersion . " is a Virtual CloneDrive application. Please set RocketLauncherUI to use VCDMount.exe instead.")
Else
ScriptError("VirtualDrive - This version of " . vdFileProductName . " is untested and may not be supported correctly, please report this to the RocketLauncher Devs",3)
}
Else If InStr(vdFileProductName,"Alcohol")
{
vdMode := "Alcohol"
driveLetterCheck := 1
supportedExtensions := "b5t,b6t,bin,bwt,ccd,cdi,cue,iso,isz,mds,mdx,nrg,pdi"
If (vdExe != "AxCmd.exe")
ScriptError(vdMode . " only works when using ""AxCmd.exe"" as the executable. """ . vdExe . """ will not work. Please set your Virtual Drive Path to point to AxCmd.exe instead.")
deviceCount := RegRead("HKEY_CURRENT_USER", "Software\Alcohol Soft\Alcohol 120%\Basic", "Virtual Device Count") ; first check registered version 120% key
If !deviceCount
deviceCount := RegRead("HKEY_CURRENT_USER", "Software\Alcohol Soft\Alcohol 52%\Basic", "Virtual Device Count") ; check trial 52% key
If deviceCount >= 1
Log("VirtualDrive - " . vdMode . " has " . deviceCount . " virtual drives on your system. Virtual_Drive_Drive_Letter general setting in RocketLauncherUI must match the letter you want to use.",4)
Else
ScriptError(vdMode . " has " . deviceCount . " virtual drives on your system. Please setup a virtual drive first in " . vdMode . " before using Virtual Drive support.")
}
Else If InStr(vdFileProductName,"VCDMount") ; Virtual CloneDrive settings stored in HKEY_CURRENT_USER\Software\Elaborate Bytes\VirtualCloneDrive
{
If SubStr(vdFileProductVersion,1,4) = "5, 4"
{ vdMode := "CloneDrive"
supportedExtensions := "bin,ccd,cdi,dvd,img,iso,udf" ; cue is not supported!
deviceCount := RegRead("HKEY_CURRENT_USER", "Software\Elaborate Bytes\VirtualCloneDrive", "NumberOfDrives")
If !deviceCount {
Log("VirtualDrive - Could not find a device count in the registry for " . vdMode . " which means it was not manually ran first. Running it automatically so it is generated.",2)
Run("VCDPrefs.exe", vdPath)
WinWait("Virtual CloneDrive ahk_class TMainForm")
WinWaitActive("Virtual CloneDrive ahk_class TMainForm")
ControlSend,TButton1, {Enter}, Virtual CloneDrive ahk_class TMainForm ; Ok button
deviceCount := RegRead("HKEY_CURRENT_USER", "Software\Elaborate Bytes\VirtualCloneDrive", "NumberOfDrives")
}
If deviceCount > 1
Log("VirtualDrive - " . vdMode . " has " . deviceCount . " virtual drives on your system. RocketLauncher will only use the first drive.",2)
Else If deviceCount = 0
{ deviceCount = 1
RegWrite("REG_DWORD", "HKEY_CURRENT_USER", "Software\Elaborate Bytes\VirtualCloneDrive", "NumberOfDrives", deviceCount)
Log("VirtualDrive - " . vdMode . " had its device count changed from 0 to 1. You may now use it with RocketLauncher",2)
} Else If !deviceCount
ScriptError("There was a problem finding the device count for " . vdFileProductVersion . ". Make sure a virtual drive exists first.")
}
}
Else If InStr(vdFileProductName,"Virtual CD")
{
If SubStr(vdFileProductVersion,1,2) = 10
{ vdMode := "VirtualCD"
driveLetterCheck := 1
supportedExtensions := "b5i,bin,bwi,c2d,img,iso,mdf,nrg,vc4,xmf"
}
}
Else If (InStr(vdFileProductName,"PowerISO") || foundPIso := (vdFileProductName = "" && vdExe = "piso.exe"))
{
If foundPIso ; must set this because piso contains no info on details and this code will run again on the next VD call
vdFileInfo := 1
If (SubStr(vdFileProductVersion,1,1) = 6 || foundPIso)
{ vdMode := "PowerISO"
vdFileProductName := "PowerISO" ; forcing this because piso.exe has no info on it
driveLetterCheck := 1
supportedExtensions := "ashdisc,b5i,bin,bwi,c2d,cdi,cif,cue,daa,fcd,gi,img,iso,lcd,mdf,mds,ncd,nrg,p01,pdi,pxi,vcd"
vdExe := "piso.exe" ; remapping to this exe as this is the CLI exe
CheckFile(vdPath . "\" . vdExe, "You have PowerISO.exe as your VD application but the CLI utility piso.exe could not be found: " . vdPath . "\" . vdExe)
deviceCount := RegRead("HKEY_CURRENT_USER", "Software\PowerISO\SCDEmu", "DiskCount")
driveLetters := RegRead("HKEY_CURRENT_USER", "Software\PowerISO\SCDEmu", "DriveLetter")
If !driveLetters
ScriptError("Could not find your PowerISO DriveLetters. It appears you have not rebooted since installing PowerISO, so please do that first.")
If (deviceCount = 1) {
vdDriveLetter := SubStr(driveLetters,1,1) ; forcing drive letter set in PowerISO's setting
Log("VirtualDrive - Changing your VD Drive Letter to " . vdDriveLetter . " because you only have one drive active in " . vdMode . ".",4)
} Else If deviceCount > 1
Log("VirtualDrive - " . vdMode . " has " . deviceCount . " virtual drives on your system. Please make sure RocketLauncherUI is set to use the correct drive.",2)
If !InStr(driveLetters,vdDriveLetter)
ScriptError("Please set RocketLauncherUI to use the same drive letter that " . vdMode . " is set to. You can find this in General Settings, Third Party tabs, and under Virtual Drive.")
}
}
Else If InStr(vdFileProductName,"MagicISO")
{
If SubStr(vdFileProductVersion,1,1) = 3
{ vdMode := "MagicDisc"
driveLetterCheck := 1
supportedExtensions := "000,bin,bwi,bwt,c2d,ccd,cdi,cif,dao,ima,img,iso,md1,mdf,mds,nrg,p01,pdi,tao,uif,vaporcd,vc4,vcd,vdi,xa"
} Else If SubStr(vdFileProductVersion,1,1) = 5
ScriptError(vdFileProductName . " is the Maker application for MagicDisc. Point your Virtual Drive Path in RocketLauncherUI to ""miso.exe"" which is the command line utility.")
Else
ScriptError(vdFileProductName . " is an unknown and unsupported version of MagicISO. Only v3.x of miso.exe is supported.")
}
Else If InStr(vdFileProductName,"UltraISO") ; no apparent way to mount an image just through CLI on UltraISO...
{
; If SubStr(vdFileProductVersion,1,2) = "V9"
; {
vdMode := "UltraISO"
supportedExtensions := "000,ashdisc,b5i,b5t,b6i,b6t,bif,bin,bwi,bwt,c2d,ccd,cdi,cif,cue,daa,dao,dmg,dvd,fcd,flp,gcd,gi,hfs,ima,img,iso,isz,ixa,lcd,md1,mdf,mds,ncd,nrg,p01,p2i,pdi,pxi,rdf,rif,tao,timg,uif,vaporcd,vc4,vcd,vdi,xa,xmd,xmf"
ScriptError(vdFileProductName . " is an unsupported virtual drive application as it doesn't support simple mounting via CLI. Please choose another application.")
; }
}
Else
ScriptError(vdFileProductName . " is a Virtual Drive application not supported by RocketLauncher at this time")
If (driveLetterCheck && !vdDriveLetter && vdDriveLetter !=0)
ScriptError(vdFileProductName . " requires that you set the Virtual Drive Drive Letter setting in RocketLauncherUI to the letter of the virtual drive you want to use.")
If vdMode
Log("VirtualDrive - All VirtualDrive calls will use mode " . vdMode,4)
Else
Log("VirtualDrive - There was an error starting VirtualDrive support",3)
}
If action not in get,mount,unmount
ScriptError(action . " is an unsupported use of VirtualDrive. Only get, mount, and unmount actions are supported.")
; Global VD checks
If action = mount
{ If ext in %7zFormatsNoP%
ScriptError("VirtualDrive was sent an archive extension """ . ext . """ which is not a mountable file type. Turn on 7z support or uncompress this game in order to mount it.")
Else If ext not in %supportedExtensions%
ScriptError("VirtualDrive was sent the extension """ . ext . """ which is not a supported file type for " . vdFileProductName . ".")
If ext in cue,gdi
{ cueHasMp3s := RLObject.findCUETracksByExtension(file, "mp3") ; 0 = no mp3s, 1 = found mp3s, 2 = cant find cue, 3 = cue invalid. Multiple extensions can be | serparated
If !cueHasMp3s {
Log("VirtualDrive - This " . ext . " does not contain any mp3s.",4)
If (ext = "cue") {
validateCUE := RLObject.validateCUE(file) ; 0 = cue is invalid, 1 = cue is valid, 2 = cant find cue
If validateCUE = 1
Log("VirtualDrive - This " . ext . " was found valid.",4)
Else {
Log("VirtualDrive - validateCUE returned an error code of " . validateCUE,4)
ScriptError("You have an invalid " . ext . " file. Please check it for errors.")
}
} Else If (ext = "gdi") {
If !DTAllowGDIQuotes ; by default, gdi files can contain double quotes. If a module contains "DTAllowGDIQuotes = false" it will be sent to the dll to error if they exist anywhere in the gdi.
DTAllowGDIQuotes := "true"
Else If DTAllowGDIQuotes not in true,false
ScriptError(DTAllowGDIQuotes . " is an invalid option for DTAllowGDIQuotes. It must either be true or false.")
validateGDI := RLObject.validateGDI(file, DTAllowGDIQuotes) ; 0 = gdi is invalid, 1 = gsi is valid, 2 = cant find gdi, 3 = invalid double quotes were found. DTAllowGDIQuotes when true tells the dll that the GDI can have double quotes. False it cannot have quotes.
If validateGDI = 1
Log("VirtualDrive - This " . ext . " was found valid.",4)
Else If !(validateGDI) {
Log("VirtualDrive - validateGDI returned an error code of " . validateGDI,4)
ScriptError("You have an invalid " . ext . " file. Please check it for errors.")
} Else If (validateGDI = 3) {
Log("VirtualDrive - validateGDI returned an error code of " . validateGDI,4)
ScriptError("Invalid double quotes were found in " . ext . " file.")
}
}
} Else If cueHasMp3s = 1
ScriptError("Your " . ext . " file contains links to mp3 files which is not supported by Virtual Drives. Please download another version of this game without MP3s or turn off Virtual Drive support to use the emulator's built-in image handler if supported.")
Else If cueHasMp3s = 2
ScriptError("There was a problem finding your " . ext . " file. Please check it exists at: " . file)
Else If cueHasMp3s = 3
ScriptError("You have an invalid " . ext . " file. Please check it for errors.")
}
}
; Application-specific commands
option :=
If vdMode = DT4
{
vdFile := If file ? "`, """ . file . """" : ""
type := If type ? type : (If vdUseSCSI = "true" ? "scsi" : "dt")
If type not in dt,scsi
ScriptError(type . " is an unsupported use of VirtualDrive. Only dt and scsi drives are supported.")
If drive not in 0,1,2,3,4
ScriptError(drive . " is an invalid virtual device number. Only 0 through 4 are supported.")
If action != unmount
{ curErr := RunWait(vdExe . " -get_count " . type, vdPath) ; DT4 only. DT5 removes the drive when unmounted, so this will usually return 0
If (curErr = 0 && vdAddDrive = "true"){
Log("VirtualDrive - Did not find a " . type . " drive, creating one now. Please stand by as this can take a bit.",4)
RunWait(vdFullPath . " -add " . type, vdPath) ; DT4 only. Not supported in DT5
Sleep, 500
}Else If curErr = 0
ScriptError("You are trying to mount to a " . type . " virtual drive, yet one does not exist. Add a SCSI drive manually or Enable the General Setting ""Add Drive"" in RocketLauncherUI.")
If action = get
{ curErr := RunWait(vdExe . " -get_letter " . type . "`, " . drive, vdPath) ; DT4 only
vdDriveLetter:=vdMap[curErr] ; we do not use the user's defined drive letter as it's done internally in the DT4 application
If !curErr
ScriptError("A error occured finding the drive letter associated to your " . type . " drive. Please make sure you are using the latest Daemon Tools Lite v4.")
Log("VirtualDrive ended - Retrieved your " . type . " drive letter: " . vdDriveLetter,4)
Return
}
}
Log("VirtualDrive - Running your " . vdMode . " Virtual Drive with: " . vdFullPath . " -" . action . " " . type . ", " . drive . vdFile)
vdCommand := "-" . action . " " . type . "`, " . drive . vdFile
}
Else If vdMode in DT5,DT10
{
If action = mount
{ type := If type ? type : (If vdUseSCSI = "true" ? "scsi" : "dt")
If type not in dt,scsi
ScriptError(type . " is an unsupported use of VirtualDrive. Only dt and scsi drives are supported.")
vdCommand := "-mount " . type . ", " . vdDriveLetter . ", """ . file . """"
} Else If action = unmount
vdCommand := "-unmount " . vdDriveLetter
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode in DT6
{
If action = mount
{ type := If type ? type : (If vdUseSCSI = "true" ? "scsi" : "dt")
If type not in dt,scsi
ScriptError(type . " is an unsupported use of VirtualDrive. Only dt and scsi drives are supported.")
vdCommand := "-mount " . type . ", 0, """ . file . """"
} Else If action = unmount
vdCommand := "-unmount " . type . ", 0"
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode = CloneDrive
{
If action = mount
vdCommand := "/d=0 """ . file . """"
Else If action = unmount
vdCommand := "/u"
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode = VirtualCD
{
If action = mount
vdCommand := "/i """ . file . """ " . vdDriveLetter . ":"
Else If action = unmount
vdCommand := "/e " . vdDriveLetter . ":"
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode = PowerISO
{
option := "Hide"
If action = mount
vdCommand := "mount """ . file . """ " . vdDriveLetter . ":" ; PowerISO pops up a console window if not hidden
Else If action = unmount
vdCommand := "unmount " . vdDriveLetter . ":"
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode = MagicISO
{
If action = mount
vdCommand := "NULL -mnt 1 """ . file . """"
Else If action = unmount
vdCommand := "NULL -umnt 1 " . vdDriveLetter
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else If vdMode = Alcohol
{
If action = mount
vdCommand := vdDriveLetter . ": /M:""" . file . """" ; mounts to drive 0 which is the first configured drive in Alcohol
Else If action = unmount
vdCommand := vdDriveLetter . ": /U"
Else If action = get
Log("VirtualDrive - " . vdMode . " does not require the ""get"" action")
}
Else
ScriptError(vdFileProductName . " v" . vdFileProductVersion . " is not currently supported, please request this application to be supported or stick with Daemon Tools Lite 4 or 5, or Alcohol.")
If action In mount,unmount
{ curErr := RunWait(vdExe . " " . vdCommand, vdPath, option)
If curErr
Log("VirtualDrive - Error reported by " . vdFileProductName . " during a " . action . " operation: " . curErr,2)
}
Log("VirtualDrive - Ended")
}
Comments