Author Topic: Another missing system  (Read 10055 times)

Aeliss

  • Hero Member
  • *****
  • Posts: 900
Re: Another missing system
« Reply #6 on: July 15, 2014, 11:44:07 AM »
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
« Last Edit: July 15, 2014, 12:16:38 PM by Aeliss »

Aeliss

  • Hero Member
  • *****
  • Posts: 900
Re: Another missing system
« Reply #5 on: July 14, 2014, 01:05:36 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]
Atari800Win.exe -5200 "F:\emulateur\Atari\5200\rom\Ballblazer (1984) (Atari-Lucasfilm Games).a52
other command
Quote
-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 Edit: July 14, 2014, 01:12:49 PM by Aeliss »

Aeliss

  • Hero Member
  • *****
  • Posts: 900
Re: Another missing system
« Reply #4 on: July 14, 2014, 12:23:17 PM »
:) 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.

« Last Edit: July 14, 2014, 12:25:03 PM by Aeliss »

mgalaxy

  • Administrator
  • Hero Member
  • *****
  • Posts: 1186
    • Email
Re: Another missing system
« Reply #3 on: July 14, 2014, 07:18:42 AM »
And here's the Atari 5200 one!!

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

mgalaxy

  • Administrator
  • Hero Member
  • *****
  • Posts: 1186
    • Email
Re: Another missing system
« Reply #2 on: July 14, 2014, 06:56:40 AM »
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

  • Hero Member
  • *****
  • Posts: 900
Another missing system
« Reply #1 on: July 14, 2014, 04:27:14 AM »
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.