Another missing system

Any ideas about how to improve mGalaxy? Let us know!

This is the poll place too.
Post Reply
Aeliss
Hero Member
Hero Member
Posts: 900
Joined: Thu Apr 04, 2013 5:55 pm

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.

Code: Select all

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.
Top
User avatar
mgalaxy
Administrator
Administrator
Posts: 1192
Joined: Tue Dec 05, 2006 7:46 pm

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?
Top
User avatar
mgalaxy
Administrator
Administrator
Posts: 1192
Joined: Tue Dec 05, 2006 7:46 pm

And here's the Atari 5200 one!!

(Same emus, same command line than 2600 or 7800...or something particular?)
Top
Aeliss
Hero Member
Hero Member
Posts: 900
Joined: Thu Apr 04, 2013 5:55 pm

:) thx for icons. IDK this system existed in black version.

The new version, working up to 2 disc.

Code: Select all

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. For other version like this one http://mijet.eludevisibility.org/XM6%20Pro-68k/XM6%20Pro-68k.html you need to chnage the ini name in the code

Code: Select all

   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.
Last edited by Aeliss on Mon Jul 14, 2014 5:25 pm, edited 1 time in total.
Top
Aeliss
Hero Member
Hero Member
Posts: 900
Joined: Thu Apr 04, 2013 5:55 pm

Ok it s finally working, idk why ! cosmic alignment ?

Im using Atari800Win http://atariarea.krap.pl/PLus/index_us.htm

Command line.

Code: Select all

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"
Last edited by Aeliss on Mon Jul 14, 2014 6:12 pm, edited 1 time in total.
Top
Aeliss
Hero Member
Hero Member
Posts: 900
Joined: Thu Apr 04, 2013 5:55 pm

A new version for sharp XM6 compatible with all version

Code: Select all

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).

Code: Select all

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
Last edited by Aeliss on Tue Jul 15, 2014 5:16 pm, edited 1 time in total.
Top
Post Reply

Return to “mGalaxy Wishlist”