Exelvision EXL 100 : New Script

Here you can post your ideas, scripts, dats, images, mods, themes, etc...
User avatar
Vicman
PLATINUM member
Posts: 1233
Joined: 17 Jun 2007, 16:12
Location: Germany,Bochum

Exelvision EXL 100 : New Script

Unread post by Vicman » 06 May 2011, 13:14

Hi Phoenix, te_lanus & Co,

i've rewritten the script for the Exelvision EXL 100.
Now, it should work with all extensions :cool:

please test it on your PC
(don't forget to read the Notes in the script...)

Here is it :
Spoiler: show

Code: Select all

; Platform       	: exelvision
; Script for     	: dcexel
; Script version 	: v1.0.0.2
; Last changed   	: 2011.05.06
;
;
; Author :  te_lanus (ECC forum member) & Phoenix ; Vicman (rewritten)
;
; NOTES:
; You need the 'ExelBASIC+ (198x)(Exelvision)(FR).rom' (TOSEC-Name)
; copie the rom into your EXL100 unpack-folder, and rename the rom to 'eb.rom'
;

; ==============================================================================
; You need to implent this block in every script, this changes the workfolder to
; the folder where this script is executed, and loads the 'eccScriptSystem' script.
FileChangeDir(@ScriptDir)
#include "..\eccScriptSystem.au3"
; ==============================================================================

; ------------------------------------------------------------------------------
; BEGIN OF SCRIPT
; ------------------------------------------------------------------------------
Opt("WinTitleMatchMode", 1)
EmuWindowControl(" DCEXEL ")

; Load Image
;
Send("{ALT}")
Send("{DOWN}")
Send("{ENTER}")

If Not WinActive(" DCEXEL périphériques","") Then WinActivate(" DCEXEL périphériques","")
WinWaitActive(" DCEXEL périphériques","")

If $eccFileRomFileIsPacked = "1" Then
	$coord = WinGetPos(" DCEXEL périphériques")
	
	If $eccFileRomExtension = "rom" Then
		If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
    endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 70 )    ; load rom
		Send($RomFile, 1)
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
	

	ElseIf $eccFileRomExtension = "cram" Then
		If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
    endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 75 )    ; unload rom
	    MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 145 )   ; load cram
		Send($RomFile, 1)
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		

	ElseIf $eccFileRomExtension = "fd" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="FFFFFF" Then  ; check if disk drive A: is connected...if not, do it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
	endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 75 )    ; unload rom
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 180 )   ; load disk A
		Send($RomFile, 1)
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		sleep (2000)
		AutoItSetOption("SendKeyDownDelay", 100)  
		Send(StringLower($eccMetaInfoString))          ; type command on emu-screen...example for game soko.fd = exec soko
		Send("{ENTER}")

		
	ElseIf $eccFileRomExtension = "k7" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then  ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
	endif
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 409 ),6)="FFFFFF" Then  ; check if Tape is connected...if not, do it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 409 )
	endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 70 )    ; load exelbasic+.rom (eb.rom)
		sleep (300)
	    Send("eb.rom")                                                
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 250 )   ; load cassette
		Send($RomFile, 1)
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		sleep (1000)
		AutoItSetOption("SendKeyDownDelay", 150)
		Send("load{rshift}31{rshift}3{ENTER}")                        ; type command on emu-screen....command is always : load"1" [enter]
		sleep (2000)
		Send("run")
		Send("{ENTER}")
		
		
	EndIf
Else
	$coord = WinGetPos(" DCEXEL périphériques")
	If $eccFileRomExtension = "rom" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
    endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 70 )    ; load rom
		Send(chr(34) & $eccFileRomPath & $eccFileRomFile & chr(34))
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
	

	ElseIf $eccFileRomExtension = "cram" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
    endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 75 )    ; unload rom
	    MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 145 )   ; load cram
		Send(chr(34) & $eccFileRomPath & $eccFileRomFile & chr(34))
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		

	ElseIf $eccFileRomExtension = "fd" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="FFFFFF" Then  ; check if disk drive A: is connected...if not, do it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
	endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 75 )    ; unload rom
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 180 )   ; load disk A
		Send(chr(34) & $eccFileRomPath & $eccFileRomFile & chr(34))
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		sleep (2000)
		AutoItSetOption("SendKeyDownDelay", 100)  
		Send(StringLower($eccMetaInfoString))          ; type command on emu-screen...example for game soko.fd = exec soko
		Send("{ENTER}")

		
	ElseIf $eccFileRomExtension = "k7" Then
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 370 ),6)="000000" Then  ; check if disk drive A: is connected...if so, disable it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 370 )
	endif
	If Hex(PixelGetColor( $coord[0] + 324, $coord[1]+ 409 ),6)="FFFFFF" Then  ; check if Tape is connected...if not, do it
		MouseClick ( "primary",  $coord[0] + 324, $coord[1]+ 409 )
	endif
	    MouseClick ( "primary",  $coord[0] + 440, $coord[1]+ 145 )   ; unload cram
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 70 )    ; load exelbasic+.rom (eb.rom)
		sleep (300)
	    Send("eb.rom")                                                
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 370, $coord[1]+ 250 )   ; load cassette
		Send(chr(34) & $eccFileRomPath & $eccFileRomFile & chr(34))
		Send("{ENTER}")
		MouseClick ( "primary",  $coord[0] + 345, $coord[1]+ 480 )   ; send hard reset
		MouseClick ( "primary",  $coord[0] + 460, $coord[1]+ 480 )   ; send o.k.
		sleep (1000)
		AutoItSetOption("SendKeyDownDelay", 150)
		Send("load{rshift}31{rshift}3{ENTER}")                        ; type command on emu-screen....command is always : load"1" [enter]
		sleep (2000)
		Send("run")
		Send("{ENTER}")

	EndIf
EndIf

; ------------------------------------------------------------------------------
; END OF SCRIPT
; ------------------------------------------------------------------------------
Exit

imagepacks:
Done: Vic20, N64, Philips VG-5000 G7000 G7400, SordM5, Amstrad GX4000, Enterprise 64/128
Progress: Atari 8bit, Dosbox, Exelvision EXL 100
Vicman's eCC-Clips on You Tube

User avatar
Phoenix
ECC Developer 2006-2016
Posts: 9057
Joined: 27 Aug 2006, 01:17
Location: Deventer, The Netherlands
Contact:

Re: Exelvision EXL 100 : New Script

Unread post by Phoenix » 07 May 2011, 10:37

Hi Vicman!,

Good work, we'll take it in the next update! :yes_head:
Sebastiaan Ebeltjes | ECC Developer 2006-2016 | ECC Forum Admin | Phoenix Interactive WebMaster
[- ECC programs -]
eccUpdate, eccScriptSystem, GtkThemeSelect, DatFileUpdater (DFU), ImagePackCenter (IPC), eccDiagnostics, 3dGallery, iccImageInject
eccKameleonCode, eccCreateStartmenuShotcut, eccThirdPartyConfig (TPC), EmuMoviesDownloader (EMD), eccVideoPlayer
MobyGamesImporter (MGI), ECC Amiga GetGemusConfig.

User avatar
Phoenix
ECC Developer 2006-2016
Posts: 9057
Joined: 27 Aug 2006, 01:17
Location: Deventer, The Netherlands
Contact:

Re: Exelvision EXL 100 : New Script

Unread post by Phoenix » 30 May 2011, 23:25

New script v1.0.0.2 released in update 00465: http://ecc.phoenixinteractive.nl/viewto ... =28&t=4531

closing...
Sebastiaan Ebeltjes | ECC Developer 2006-2016 | ECC Forum Admin | Phoenix Interactive WebMaster
[- ECC programs -]
eccUpdate, eccScriptSystem, GtkThemeSelect, DatFileUpdater (DFU), ImagePackCenter (IPC), eccDiagnostics, 3dGallery, iccImageInject
eccKameleonCode, eccCreateStartmenuShotcut, eccThirdPartyConfig (TPC), EmuMoviesDownloader (EMD), eccVideoPlayer
MobyGamesImporter (MGI), ECC Amiga GetGemusConfig.

Locked

Who is online

Users browsing this forum: Google [Bot] and 1 guest