;helper function to find a cd drive LocateCD(label) { DriveGet, cd_drives, List, CDROM Loop, Parse, cd_drives { drive := A_LoopField DriveGet, drive_label, Label, %drive%: if label = %drive_label% { return drive . ":" } } ; No CD found. FIXME: Give an error message and return failure. } ;find the WA cd cd := LocateCD("WA") ;check the version FileRead, versionstring, *t %cd%\Data\Resource\version.txt if versionstring = V3.00U`n26-5-99`n { ; Original US version. Good. } else { MsgBox, Unknown cd version: `n%versionstring% ; FIXME: Give up. Or handle this correctly. } ;run the installer SetWorkingDir, %cd%\Install Run, %cd%\Install\install.exe WinWait, Welcome WinActivate Send {enter} WinWaitActive, Software License Agreement Send {enter} WinWaitActive, Question ; Wait, you're agreeing to the license? Really? Send {enter} WinWaitActive, Choose Destination Location Send {enter} WinWaitActive, Select Program Folder Send {enter} WinWaitActive, Question ; Install DirectX 6? Send {n} WinWaitActive, Setup Complete Send {enter} ;read the app directory from the registry ;run the patch (1.0 only) ;run the 3.9.26.5 update ;detect wine version (HOW?) ;download/extract appropriate ddraw replacement dll if necessary ;place ddraw.dll in app dir ;fetch devenum.dll and quartz.dll? place in app dir?