Another missing system

[Aeliss]

A new version for sharp XM6 compatible with all version

Code: (autoit) [Select]

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: (autoit) [Select]

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


[Aeliss]

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

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

Command line.

Code: [Select]

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"

[Aeliss]

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

The new version, working up to 2 disc.

Code: (autoit) [Select]

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: (autoit) [Select]

   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.

[mgalaxy]

And here's the Atari 5200 one!!

(Same emus, same command line than 2600 or 7800...or something particular?)

[mgalaxy]

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?

[Aeliss]

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: (autoit) [Select]

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.