mGalaxy forum
General Discussions => mGalaxy Wishlist => Topic started by: Aeliss on July 14, 2014, 04:27:14 AM
-
Sharp X68000
http://fr.wikipedia.org/wiki/Sharp_X68000 (http://fr.wikipedia.org/wiki/Sharp_X68000)
For the moment I m using XM6 as emulator. I need to update the script to load more than 1 disk, but this one is working.
Opt("WinTitleMatchMode", 1)
;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0
hotkeyset("{esc}", "Terminate")
local $PID = Run ( '"' & $app & '" ' & $command )
;set fullscreen
Sleep(500)
Send("!{Enter}")
While ProcessExists ( $PID )
Sleep(500)
WEnd
exit 0
;functions
Func Terminate()
Winclose("XM6")
Exit 0
EndFunc
Another emulator Winx68, But I prefer XM6.
Like usual I still need the icon ^^
Just for info, it miss atari 5200 system too.
-
Hi Aeliss,
Here's an icon for you ;-)
(not easy to find a good picture to make an icon out of it..this is the best I've found!!)
I'll wait for you to have your updated script prior to add it to the database!
Thanks for the work!!!
BTW: what's the command line for those 2 emulators please?
-
And here's the Atari 5200 one!!
(Same emus, same command line than 2600 or 7800...or something particular?)
-
:) thx for icons. IDK this system existed in black version.
The new version, working up to 2 disc.
Opt("WinTitleMatchMode", 1)
;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0
hotkeyset("{esc}", "Terminate")
;Remove "" from game name
$disk1 = StringTrimLeft ( $command, 1 )
$disk1 = StringTrimRight ( $disk1, 1 )
;try to find a second disk
$disk2 = StringReplace($disk1,"Disk 1", "Disk 2")
$disk2 = StringReplace($disk2,"Disk1", "Disk2")
$disk2 = StringReplace($disk2,"Disc 1", "Disc 2")
$disk2 = StringReplace($disk2,"Disc1", "Disc2")
If FileExists($disk2) then
Iniwrite("xm6g.ini","MRU0","File0", $disk1)
Iniwrite("xm6g.ini","MRU1","File0", $disk2)
Iniwrite("xm6g.ini","Resume","FD", "1")
Iniwrite("xm6g.ini","Resume","FDI0", "1")
Iniwrite("xm6g.ini","Resume","FDI1", "1")
$command = ""
Endif
;load application
local $PID = Run ( '"' & $app & '" ' & $command )
;set fullscreen
Sleep(500)
Send("!{Enter}")
;waiting loop
While ProcessExists ( $PID )
Sleep(500)
WEnd
;exit
exit 0
;*************************************
;functions
Func Terminate()
Winclose("XM6")
Exit 0
EndFunc
But this version work for XM6 type G http://www.emucr.com/2014/07/xm6-312-l50-typeg-v20140713.html (http://www.emucr.com/2014/07/xm6-312-l50-typeg-v20140713.html). For other version like this one http://mijet.eludevisibility.org/XM6%20Pro-68k/XM6%20Pro-68k.html (http://mijet.eludevisibility.org/XM6%20Pro-68k/XM6%20Pro-68k.html) you need to chnage the ini name in the code
Iniwrite("xm6g.ini","MRU0","File0", $disk1)
Iniwrite("xm6g.ini","MRU1","File0", $disk2)
Iniwrite("xm6g.ini","Resume","FD", "1")
Iniwrite("xm6g.ini","Resume","FDI0", "1")
Iniwrite("xm6g.ini","Resume","FDI1", "1")
xm6g.ini become xm6.ini in other version.
Theses emulators have a simple command line "Executable.exe gamename.xxx" for all of them we need to change the ini file to have more options, eg to load HDF file.
For atari 5200 you can use MESS, but it's the worst emul, I m using others emuls (atari800,atari++), but for the moment all of them crash after atari logo ^^, a bad system rom I think. I will take a look this week, I will give you the command line after.
-
Ok it s finally working, idk why ! cosmic alignment ?
Im using Atari800Win http://atariarea.krap.pl/PLus/index_us.htm (http://atariarea.krap.pl/PLus/index_us.htm)
Command line.
Atari800Win.exe -5200 "F:\emulateur\Atari\5200\rom\Ballblazer (1984) (Atari-Lucasfilm Games).a52
other command
-configure Update Configuration File"
-config <file> Specify Alternate Configuration File"
-atari Emulate Atari 800"
-xl Emulate Atari 800XL"
-xe Emulate Atari 130XE"
-320xe Emulate Atari 320XE (COMPY SHOP)"
-rambo Emulate Atari 320XE (RAMBO)"
-5200 Emulate Atari 5200 Games System"
-nobasic Turn off Atari BASIC ROM"
-basic Turn on Atari BASIC ROM"
-pal Enable PAL TV mode"
-ntsc Enable NTSC TV mode"
-osa_rom <file> Load OS A ROM from file"
-osb_rom <file> Load OS B ROM from file"
-xlxe_rom <file> Load XL/XE ROM from file"
-5200_rom <file> Load 5200 ROM from file"
-basic_rom <file> Load BASIC ROM from file"
-cart <file> Install cartridge (raw or CART format)"
-run <file> Run Atari executable file (COM, EXE, XEX)"
-state <file> Load saved-state file"
-refresh <rate> Specify screen refresh rate"
-nopatch Don't patch SIO routine in OS"
-nopatchall Don't patch OS at all, H: device won't work"
-a Use OS A"
-b Use OS B"
-c Enable RAM between 0xc000 and 0xcfff in Atari 800"
-v Show version/release number"
-
A new version for sharp XM6 compatible with all version
Opt("WinTitleMatchMode", 1)
;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0
hotkeyset("{esc}", "Terminate")
;Remove "" from game name
$disk1 = StringTrimLeft ( $command, 1 )
$disk1 = StringTrimRight ( $disk1, 1 )
;try to find a second disk
$disk2 = StringReplace($disk1,"Disk 1", "Disk 2")
$disk2 = StringReplace($disk2,"Disk1", "Disk2")
$disk2 = StringReplace($disk2,"Disc 1", "Disc 2")
$disk2 = StringReplace($disk2,"Disc1", "Disc2")
;find correct ini name
local $inifile = "xm6g.ini"
If not FileExists($inifile) then $inifile = "xm6.ini"
If FileExists($disk2) then
Iniwrite($inifile,"MRU0","File0", $disk1)
Iniwrite($inifile,"MRU1","File0", $disk2)
Iniwrite($inifile,"Resume","FD", "1")
Iniwrite($inifile,"Resume","FDI0", "1")
Iniwrite($inifile,"Resume","FDI1", "1")
$command = ""
Endif
;load application
local $PID = Run ( '"' & $app & '" ' & $command )
;set fullscreen
Sleep(500)
Send("!{Enter}")
;waiting loop
While ProcessExists ( $PID )
Sleep(500)
WEnd
;exit
exit 0
;*************************************
;functions
Func Terminate()
Winclose("XM6")
Exit 0
EndFunc
For Atarin800plus 5200 system
1 - Need to uncheck "confirm on exit"
2- this script only work for *.car (because you will have a popup on other type to select cartridge type).
Opt("WinTitleMatchMode", 1)
;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0
HotKeySet("{ESC}", "Terminate")
$PID = Run ( '"' & $app & '" ' & $command )
;waiting loop
While ProcessExists ( $PID )
Sleep(500)
WEnd
;exit
exit 0
;*************************************
;functions
Func Terminate()
Winclose("Atari800Win")
EndFunc