pas de message d'erreur!
;----------------------------------------------------------------------------
; Tiger Game.com
; GameCom v29/12/1998
; 1.3
;
; Notes:
; Make sure you have ALL the roms on the emulator dir and also the following files: BITMAP2.BIN, MAIN.HEX, MAIN0.HEX, MAIN0S.HEX
; Roms must be unzipped
;
; Keys:
; A,S,Z,X - A,B,C,D (like the console layout)
; F2 - Reset
; F3 - Mute
; F4 - Pause (this seems to reboot the console also)
; Arrows - Digital pad
; Aiming in Resident Evil 2 goes with Z. Then A is shooting
;----------------------------------------------------------------------------
Fullscreen = true
ShowIntro = false ; Show the Tiger Logo before the main menu, cannot autostart games if true
AutoStartGame = true ; Will only work if ShowIntro is false
BlockInput = false ; Set to true if the module works for you and you don't want foreign key presses disturbing the launch process
errorFix = true ; Set to true if you get a windows no disk error after the emu starts. It has been reported to happen on 32-bit OSes. This adds 2 seconds to launch if you don't get the error, so set to false for a quicker launch if you never see the error.
;----------------------------------------------------------------------------
If ( fadeIn = "true" ) {
GUI_ID := FadeInStart()
Gui 5: +LastFound
WinGet GUI_ID5, ID
Gui 5: -AlwaysOnTop -Caption +ToolWindow
Gui 5: Color, %fadeColor%
Gui 5: Show, x0 y0 h%A_ScreenHeight% w%A_ScreenWidth%
}
; Hide Taskbar and Start Button
WinHide, ahk_class Shell_TrayWnd
WinHide, Start ahk_class Button
7z1 := 7z(romPath, romName, romExtension, 7zExtractDir)
Run, %executable%, %emuPath%, UseErrorLevel
If(ErrorLevel != 0){
MsgBox, 48, Exe Error, Error launching emulator`, closing script., 5
ExitApp
}
If ( BlockInput = "true" )
BlockInput, On
If ( errorFix = "true" ) {
DetectHiddenWindows, on
WinWait, Windows - No Disk ahk_class #32770,,2
ControlClick, Button3, Windows - No Disk ahk_class #32770
}
WinWait, Game.Com Emulator ahk_class #32770
Loop { ; What window is active at launch determines how the script will react
IfWinActive, Game.Com Emulator ahk_class #32770
Break
IfWinActive Disassemble Window ahk_class #32770
Goto DisWindow
}
; If disassembly window didn't open, lets open it
IfWinNotExist, Disassemble Window ahk_class #32770
WinMenuSelectItem, Game.Com Emulator ahk_class #32770,, Window, Open Disasm Window
DisWindow:
WinWait, Disassemble Window ahk_class #32770 ; waiting for disassemble window to open
WinWaitActive, Disassemble Window ahk_class #32770
WinMenuSelectItem, Disassemble Window ahk_class #32770,, File, Load BIN File
WinWait, Open ahk_class #32770 ; Waiting for window to open to select the rom
WinWaitActive, Open ahk_class #32770
Loop { ; looping this so we don't need a sleep timer, usually 2nd loop text gets pasted in correctly
ControlGetText, edit1Text, Edit1, Open ahk_class #32770
If ( edit1Text = romPath . romName . romExtension )
Break
Sleep, 100
ControlSetText, Edit1, %romPath%%romName%%romExtension%, Open ahk_class #32770
}
Send {Enter}
WinWait, Input ahk_class #32770 ; waiting for input box to appear
WinWaitActive, Input ahk_class #32770
Send {Enter}
WinWait, Disassemble Window ahk_class #32770 ; waiting for disassemble window to come back into focus
WinWaitActive, Disassemble Window ahk_class #32770
If ( ShowIntro = "true" )
WinMenuSelectItem, Disassemble Window ahk_class #32770,, File, Load Kernel., Full Kernel
Else
WinMenuSelectItem, Disassemble Window ahk_class #32770,, File, Load Kernel., Test Kernel
Control, Check,, Button4, Disassemble Window ahk_class #32770
WinHide, Disassemble Window ahk_class #32770 ; hide the disassemble window so we don't see it in the background
; Remove window elements
If ( Fullscreen = "true" ) {
WinSet, Style, -0xC00000, Game.Com Emulator ahk_class #32770 ; Removes the TitleBar
DllCall("SetMenu", uint, WinActive( "A" ), uint, 0) ; Removes the MenuBar
WinSet, Style, -0x40000, Game.Com Emulator ahk_class #32770 ; Removes the border of the game window
Sleep, 600 ; Need this otherwise the game window snaps back to size, increase if this occurs
}
If ( AutoStartGame = "true" ) {
SetKeyDelay 200 ; increase if keys are not being sent to the main menu
Sleep, 500 ; increase if keys are being sent to early
Send {Right Down}{Right Up}{a Down}{a Up}
}
If ( Fullscreen = "true" )
MaximizeWindow("Game.Com Emulator ahk_class #32770")
GUI_ID2 := FadeInExit()
BlockInput, Off
Process, WaitClose, %executable%
; Restore Taskbar and Start Button
WinShow,ahk_class Shell_TrayWnd
WinShow,Start ahk_class Button
7z2 := 7zCleanUp()
GUI_ID4 := FadeOutExit()
WinActivate, Hyperspin
ExitApp
MaximizeWindow(class) {
WinGetPos, appX, appY, appWidth, appHeight, %class%
widthMaxPercenty := ( A_ScreenWidth / appWidth )
heightMaxPercenty := ( A_ScreenHeight / appHeight )
If ( widthMaxPercenty heightMaxPercenty )
percentToEnlarge := widthMaxPercenty
Else
percentToEnlarge := heightMaxPercenty
appWidthNew := appWidth * percentToEnlarge
appHeightNew := appHeight * percentToEnlarge
Transform, appX, Round, %appX%
Transform, appY, Round, %appY%
Transform, appWidthNew, Round, %appWidthNew%, 2
Transform, appHeightNew, Round, %appHeightNew%, 2
appXPos := ( A_ScreenWidth / 2 ) - ( appWidthNew / 2 )
appYPos := ( A_ScreenHeight / 2 ) - ( appHeightNew / 2 )
WinMove, %class%,, appXPos, appYPos, appWidthNew, appHeightNew
}
CloseProcess:
GUI_ID3 := FadeOutStart()
WinClose, Game.Com Emulator ahk_class #32770
Return
si quelqu'un à une idée
