tweaked T98-Next Module

[craiganderson]

I HAVE NO IDEA HOW THIS WILL ALTER     TOUHOU    SO MAKE A BACKUP


while setting up NEC PC-9801 i noticed the module does not load .fdi games

so i tweaked it

and it also will load .fdi games with two disks into drive 0 and drive 1

as long as naming is as follows

 

 

 

Goofy Game (Disk 1).fdi   ---- will go into drive 00

Goofy Game (Disk 2).fdi   ---- will go into drive 01

 

also tweaked it so it exits fullscreen and closes (at least for me)

just sharing..

thanks

iCRC = 1E716C97
MEmu = T98-Next
MEmuV = v13.1th Beta
MURL = http://www.geocities.jp/t98next/
MAuthor = djvj
MVersion = 2.0.5
MCRC = 2096D52F
MID = 635038268927083194
MSystem = "NEC PC-9801","Touhou","Touhou Project"
;----------------------------------------------------------------------------
; Notes:
; This is only needed for games 1th through 5th, so make sure in your Games.ini, you have this Emulator set to load this module
; In order to autolaunch the game, we have to write the game's name in the MAIN.ini before launching the emu
; 3th - Phantasmagoria of Dim Dream uses different keys then the other 4 games. We need to remap keys to get 2-players 
 
working, so make sure you setup a keymapper profile to change them
; 
; Default PC-98 keys are:
; player 1
; RTY
; FGH
; VBN
; shot - z
; bomb - X
; player 2
; 789
; 456
; 123
; shot - left arrow
; bomb - right arrow
;----------------------------------------------------------------------------
StartModule()
BezelGUI()
FadeInStart()
 
settingsFile := modulePath . "\" . moduleName . ".ini"
fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1)
BezelStart("fixResMode")
 
hideEmuObj := Object("Emulation Window ahk_class T98-Next",1) ; Hide_Emu will hide these windows. 0 = will never unhide, 1 = will unhide later
7z(romPath, romName, romExtension, 7zExtractPath)
 
; Setting Fullscreen setting in ini if it doesn't match what user wants above
t98INI := emuPath . "\MAIN.INI"
IniRead, currentFullScreen, %t98INI%, CRT, FULLSCREEN
If (fullscreen != "true" && currentFullScreen = 1)
IniWrite, 0, %t98INI%, CRT, FULLSCREEN
Else If (fullscreen = "true" && currentFullScreen = 0)
IniWrite, 1, %t98INI%, CRT, FULLSCREEN
 
IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK00
IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK01
IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK02
IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK03
 
If romExtension = .fdi
{
If InStr(romName, "(Disk")
{
; simulwar (disk 1)
StringTrimRight, trimmedromName, romName, 9
IniWrite, %romPath%\%trimmedromName% (Disk 1)%romExtension%, %emuPath%\MAIN.INI, DISK, DISK00
IniWrite, %romPath%\%trimmedromName% (Disk 2)%romExtension%, %emuPath%\MAIN.INI, DISK, DISK01
}
else
{
Sleep, 100
IniWrite, %romPath%\%romName%%romExtension%, %emuPath%\MAIN.INI, DISK, DISK00 
}
}
else If romExtension = .hdi
IniWrite, %romPath%\%romName%%romExtension%, %emuPath%\MAIN.INI, DISK, DISK02
 
 
IniWrite, 1, %emuPath%\MAIN.INI, Control, AutoRun ; required for games to start on emu launch
 
HideEmuStart()
 
Run(executable, emuPath, "Hide")
 
WinWait("Emulation Window ahk_class T98-Next")
WinWaitActive("Emulation Window ahk_class T98-Next")
Sleep, 1000 ; need this otherwise mouse doesn't move off screen
MouseMove 0,2000,0  ;Move mouse off screen
 
HideEmuEnd()
BezelDraw()
FadeInExit()
Process("WaitClose", executable)
 
7zCleanUp()
BezelExit()
FadeOutExit()
ExitModule()
 
CloseProcess:
FadeOutStart()
 
; IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK00
; IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK01
; IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK02
; IniWrite, %A_Space%, %emuPath%\MAIN.INI, DISK, DISK03
 
WinClose("ahk_class T98-Next")
Sleep, 100
Process, Close, Next.exe
Return