Model 2 module

MEmu := "Sega Model 2 Emulator"
MEmuV := "v1.0"
MURL := ["http://nebula.emulatronia.com/"]
MAuthor := ["djvj","ghutch92"]
MVersion := "2.0.9"
MCRC := "14EECBD4"
iCRC := "3732EFE4"
MID := "635175648125374429"
MSystem := ["Sega Model 2"]
;----------------------------------------------------------------------------
; Notes:
; Manually launch the Sega Model 2 Emulator.
; Under Video enable "auto switch to fullscreen".
; model2.zip must exist in your rom path which contains the needed bios files for the system.
; Module settings overwrite what you have set in the emulator itself.
;
; For Multiplayer Support:
; To enable the linked games support, set Link_Enabled to true in the module settings in RocketLauncherUI
; The module has an internal list of games that it will only enable it for. Not all of the games work in this emu. See below for more info.
;
; 1.) Multiplayer does not work when the emulator is launched using the same executable in the same path.
; 2.) Multiplayer only works if player 1 is set to be in master mode and players 2-4 are set to be in slave mode. (this info is stored in the emupath\NVDATA folder, press F2 to set in game)
; 3.) Singleplayer only works if player 1 is set to be in single mode. (this info is stored in the emupath\NVDATA folder, press F2 to set in game)
; 4.) Only the active window accepts keyboard input.
;
; Fixed Issue 1 by having folders in the emupath named Player 2, Player 3, and Player 4  and within each of these folsers there are separate installs of sega model 2 emulator.
; Fixed Issue 2 and 3 for Player 1 by having a folder named "Multi" in the NVDATA folder for multiplayer dat files and a folder name "Single" in the NVDATA folder for single player dat files.
; Fixed Issue 4 by activating the first player window so first player always has the keyboard and players 2-4 have to use a joystick(gamepad).
;
;Games that have a working link:
; daytona,daytonagtx,daytonam,daytonas,daytonat,indy500,indy500d,manxtt,motoraid,skisuprg,srallyc,srallycb,srallyp,stcc,stcce,von,vonj,waverunr
;
; overrev and sgt24h both look like they can support link but I couldn't get it working, because I think m2emulator uses a linking hack to get these games to work in stand alone mode.
; Still need to see if waverunr, stcc, stcce, von, and vonj can link, I couldn't get these working, I think my processor is the issue here. Saw video of stcc & waverunr link working though.
; von and vonj can only do a 2 player link
;----------------------------------------------------------------------------
StartModule()
BezelGUI()

settingsFile := modulePath . "\" . moduleName . ".ini"
linkEnabled := IniReadCheck(settingsFile, "Settings|" . romName, "Link_Enabled", "false",,1)
demulShooterEnabled := IniReadCheck(settingsFile, "Settings|" . romName, "DemulShooterEnabled", "false",,1)

SplitScreen2PlayersMode := IniReadCheck(settingsFile, "Settings", "SplitScreen_2_Players","Vertical",,1) ;horizontal or vertical
SplitScreen3PlayersMode := IniReadCheck(settingsFile, "Settings", "SplitScreen_3_Players","P1top",,1) ; For Player1 screen to be on left: P1left. For Player1 screen to be on top: P1top. For Player1 screen to be on bottom: P1bottom. For Player1 screen to be on right: P1right.

If romName in daytona,daytonagtx,daytonam,daytonas,daytonat,indy500,indy500d,manxtt,motoraid,skisuprg,srallyc,srallycb,srallyp,stcc,stcce,von,vonj,waverunr
    If (linkEnabled = "true") {
        Log("Module - Link mode enabled")
        linkEnabledGame := 1
    }

If linkEnabledGame
    If (romName = "von") or (romName = "vonj")
        SelectedNumberofPlayers := NumberOfPlayersSelectionMenu(2)
    Else
        SelectedNumberofPlayers := NumberOfPlayersSelectionMenu(4)

FadeInStart()

fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1)
fullScreenWidth := IniReadCheck(settingsFile, "Settings", "FullScreenWidth",A_ScreenWidth,,1)
fullScreenHeight := IniReadCheck(settingsFile, "Settings", "FullScreenHeight",A_ScreenHeight,,1)
emupath2 := IniReadCheck(settingsFile, "Settings", "Player2_EmulatorPath",emupath . "\Player 2",,1) ;must be a unique path to same version of the emulator
emupath3 := IniReadCheck(settingsFile, "Settings", "Player3_EmulatorPath",emupath . "\Player 3",,1) ;must be a unique path to same version of the emulator
emupath4 := IniReadCheck(settingsFile, "Settings", "Player4_EmulatorPath",emupath . "\Player 4",,1) ;must be a unique path to same version of the emulator

CheckFile(romPath . "\model2.zip","Could not locate ""model2.zip"" which contains the bios files for this emulator. Please make sure it exists in the same folder as your roms.")

m2Ini := CheckFile(emuPath . "\EMULATOR.INI")
m2RomDir1 := IniReadCheck(m2Ini, "RomDirs", "Dir1",,,1)
If (m2RomDir1 != romPath)
    IniWrite, %romPath%, %m2Ini%, RomDirs, Dir1 ; write the correct romPath to the emu's ini so the user does not need to define this

If SelectedNumberofPlayers > 1
    BezelStart(SelectedNumberofPlayers)
Else
    BezelStart()

hideEmuObj := Object("AHK_class MYWIN",1)   ; Hide_Emu will hide these windows. 0 = will never unhide, 1 = will unhide later
7z(romPath, romName, romExtension, 7zExtractPath)

; Write settings to m2's ini file - this needs to change also
IniWrite, % (If fullscreen = "true" ? 1 : 0), %m2Ini%, Renderer, AutoFull
IniWrite, %fullScreenWidth%, %m2Ini%, Renderer, FullScreenWidth
IniWrite, %fullScreenHeight%, %m2Ini%, Renderer, FullScreenHeight

If (demulShooterEnabled = "true") { ; If demulshooter is enabled for this game, launch it with relevant options
    demulShooterTarget := StringUtils.Contains(executable,"multicpu") ? "model2m" : "model2"
    DemulShooterExe := New DemulShooter()
    DemulShooterExe.Launch(demulShooterTarget,romName,"-noresize")
}

If (SelectedNumberofPlayers = 1 || !linkEnabledGame) {
    ; Changing Cabinent Settings for player 1 this is because we will need to switch between master controller mode and single mode
    ; this info is stored in the NVDATA folder
    ; store single player settings in the NVDATA\Single folder and the Multiplayer Settings in the NVDATA\Multi folder
    If (FileExist(emupath . "\NVDATA\Single\" . romName . ".DAT") && linkEnabledGame) {
        Log("Overwriting " . emupath . "\NVDATA\" . romName . ".DAT with " . emupath . "\NVDATA\Single\" . romName . ".DAT")
        FileCopy,%emupath%\NVDATA\Single\%romName%.DAT,%emupath%\NVDATA,1
    }

    HideEmuStart()  ; This fully ensures windows are completely hidden even faster than winwait

    Run(executable . A_Space . romName, emuPath, "Hide")    ; Hides the emulator on launch. When bezel is enabled, this helps not show the emu before the rom is loaded
    WinWait("ahk_class MYWIN",,,"Model 2 Emulator")
    ;WinWaitActive("ahk_class MYWIN",,,"Model 2 Emulator") ;this line only works if fade in is enabled
    Sleep, 1000 ; Increase if your Front End is getting a quick flash in before the game loads
} Else {
    ;screen positions
    If (SelectedNumberofPlayers = 2)
        If SplitScreen2PlayersMode = Vertical
            X1 := 0 , Y1 := 0 , W1 := A_ScreenWidth//2 , H1 := A_ScreenHeight , X2 := A_ScreenWidth//2 , Y2 := 0 ,  W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight
        Else
            X1 := 0 , Y1 := 0 , W1 := A_ScreenWidth , H1 := A_ScreenHeight//2 , X2 := 0 , Y2 := A_ScreenHeight//2 , W2 := A_ScreenWidth , H2 := A_ScreenHeight//2
    Else If (SelectedNumberofPlayers = 3)
        If SplitScreen3PlayersMode = P1left
            X1 := 0 , Y1 := 0 , W1 := A_ScreenWidth//2 , H1 := A_ScreenHeight , X2 := A_ScreenWidth//2 , Y2 := 0 ,  W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight//2 , X3 := A_ScreenWidth//2 , Y3 := A_ScreenHeight//2 ,   W3 := A_ScreenWidth//2 , H3 := A_ScreenHeight//2
        Else If SplitScreen3PlayersMode = P1bottom
            X1 := 0 , Y1 := A_ScreenHeight//2 , W1 := A_ScreenWidth , H1 := A_ScreenHeight//2 , X2 := 0 , Y2 := 0 , W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight//2 , X3 := A_ScreenWidth//2 , Y3 := 0 ,   W3 := A_ScreenWidth//2 , H3 := A_ScreenHeight//2
        Else If SplitScreen3PlayersMode = P1right
            X1 := A_ScreenWidth//2 , Y1 := 0 ,  W1 := A_ScreenWidth//2 , H1 := A_ScreenHeight , X2 := 0 , Y2 := 0 , W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight//2 , X3 := 0 , Y3 := A_ScreenHeight//2 ,  W3 := A_ScreenWidth//2 , H3 := A_ScreenHeight//2
        Else    ; top
            X1 := 0 , Y1 := 0 , W1 := A_ScreenWidth , H1 := A_ScreenHeight//2, X2 := 0 , Y2 := A_ScreenHeight//2 ,  W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight//2, X3 := A_ScreenWidth//2 , Y3 := A_ScreenHeight//2 , W3 := A_ScreenWidth//2 , H3 := A_ScreenHeight//2
    Else
        X1 := 0 , Y1 := 0 , W1 := A_ScreenWidth//2 , H1 := A_ScreenHeight//2 , X2 := A_ScreenWidth//2 , Y2 := 0 ,   W2 := A_ScreenWidth//2 , H2 := A_ScreenHeight//2 , X3 := 0 , Y3 := A_ScreenHeight//2 ,  W3 := A_ScreenWidth//2 , H3 := A_ScreenHeight//2 , X4 := A_ScreenWidth//2 , Y4 := A_ScreenHeight//2 ,   W4 := A_ScreenWidth//2 , H4 := A_ScreenHeight//2

    HideEmuStart()  ; This fully ensures windows are completely hidden even faster than winwait

    ;this loop is for error checking since this emulator needs multiple instances of the emulator starting from different locations to run
    Loop, %SelectedNumberofPlayers%
    {
        LinkedEmuPath := (A_Index = 1) ? (emupath) : (emupath%A_Index%)
        CheckFile(LinkedEmuPath . "\" . executable)
        CheckFile(LinkedEmuPath . "\EMULATOR.INI")
    }
    ; Changing Cabinent Settings for player 1 this is because we will need to switch between master controller mode and single mode
    ; this info is stored in the NVDATA folder
    ; store single player settings in the NVDATA\Single folder and the Multiplayer Settings in the NVDATA\Multi folder
    If FileExist(emupath . "\NVDATA\Multi\" . romName . ".DAT") {
        Log("Overwriting " . emupath . "\NVDATA\" . romName . ".DAT with " . emupath . "\NVDATA\Multi\" . romName . ".DAT")
        FileCopy,%emupath%\NVDATA\Multi\%romName%.DAT,%emupath%\NVDATA,1
    }

    Loop, %SelectedNumberofPlayers%
    {
        LinkedEmuPath := (A_Index = 1) ? (emupath) : (emupath%A_Index%)
        m2ini := LinkedEmuPath . "\EMULATOR.INI"        ;no need to checkfile it here since it's already been done
        m2RomDir1 := IniReadCheck(m2Ini, "RomDirs", "Dir1",,,1)
        If (m2RomDir1 != romPath)
            IniWrite, %romPath%, %m2Ini%, RomDirs, Dir1 ; write the correct romPath to the emu's ini so the user does not need to define this
        ; Removing Fullscreen
        IniWrite, 0, %m2Ini%, Renderer, AutoFull
        ; Creating the link
        IniWrite,127.0.0.1,%LinkedEmuPath%\m2network.ini,network,NextIp     ;127.0.0.1 is local address
        IniWrite,% (1978 + A_Index - 1),%LinkedEmuPath%\m2network.ini,network,RxPort        ;Recieving port
        ;the last player sends information to the first player completing the circle
        IniWrite,% (If (A_Index = SelectedNumberofPlayers) ? 1978 : (1978 + A_Index)),%LinkedEmuPath%\m2network.ini,network,NextPort    ;Sending Port
        Run(executable . A_Space . romName, LinkedEmuPath, "Hide",Screen%A_Index%PID)
        WinWait("ahk_pid " . Screen%A_Index%PID)
        WinGet, Screen%A_Index%ID, ID, % "ahk_pid " . Screen%A_Index%PID
        If Fullscreen = true
        {   WinSet, Style, -0xC00000, % "ahk_id " . Screen%A_Index%ID
            ToggleMenu(Screen%A_Index%ID)
            WinSet, Style, -0xC40000, % "ahk_id " . Screen%A_Index%ID
            currentScreen := A_Index
            Log("Moving window " . currentScreen . " to " .  X%currentScreen% . "`," . Y%currentScreen% . " with W" . W%currentScreen% . " H" . H%currentScreen%)
            WinMove,  % "ahk_id " . Screen%currentScreen%ID, , % X%currentScreen%, % Y%currentScreen%, % W%currentScreen%, % H%currentScreen%
            ;check If window moved
            timeout := A_TickCount
            Loop
            {   WinGetPos, X, Y, W, H, % "ahk_id " . Screen%currentScreen%ID
                If (X=X%currentScreen%) and (Y=Y%currentScreen%) and (W=W%currentScreen%) and (H=H%currentScreen%)
                    break
                If (timeout<A_TickCount-2000)
                    Break
                Sleep, 50
                WinMove, % "ahk_id " . Screen%currentScreen%ID, , % X%currentScreen%, % Y%currentScreen%, % W%currentScreen%, % H%currentScreen%
            }
        }
        Sleep, 50
    }
}

BezelDraw()
HideEmuEnd()

If (SelectedNumberofPlayers = 1 || !linkEnabledGame) {
    WinShow, ahk_class MYWIN    ; Show the emulator
} Else {
    Loop %SelectedNumberofPlayers%
        WinShow, % "ahk_id " . Screen%a_index%ID    ; Show the emulator
    WinActivate, ahk_id %Screen1ID%     ; activate first player window so that first player can use keyboard instead of last player
}

;I find that the fade in exit looks better after the winshow lines
FadeInExit()

Process("WaitClose", executable)
BezelExit()
FadeOutExit()
ExitModule()

CloseProcess:
    FadeOutStart()
    If (demulShooterEnabled = "true") {
        DemulShooterExe.Close()
    }
    If (SelectedNumberofPlayers>1) {
        Loop, %SelectedNumberofPlayers%
        {   WinClose("ahk_id " . Screen%A_Index%ID)
            WinWaitClose("ahk_id " . Screen%A_Index%ID)
        }
    } Else
        WinClose("AHK_class MYWIN")
Return