Welcome to the Gamebase 64 forums.                 An attempt to document ALL Commodore 64 gameware before it's too late!

Gamebase APF Imagination

Discuss any other databases that use the GameBase Frontend, whether in pre development, development or publically released.

Moderator: Jimbo

manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re:

Sun Apr 29, 2018 2:02 pm

dax wrote:
Wed Feb 08, 2012 8:00 pm
when I download/preconfigure it, I will add it to my collection of uploads
tnx, bro
Can you upload this? Thanks .mad.
manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re: Gamebase APF Imagination

Fri May 11, 2018 1:25 pm

Someone to upload this? :)
User avatar
OX
Ice Cool Member
Ice Cool Member
Posts: 638
Joined: Thu Jun 24, 2010 9:05 pm

Re: Gamebase APF Imagination

Mon May 14, 2018 6:28 pm

I second that upload request, I seem to have lost this one.
User avatar
.mad.
Honoured Member
Honoured Member
Location: Lancashire
Posts: 2256
Joined: Sun Jun 19, 2005 3:30 pm

Re: Gamebase APF Imagination

Tue May 15, 2018 10:26 am

OX wrote:
Mon May 14, 2018 6:28 pm
I second that upload request, I seem to have lost this one.
i do have it, but it needs updating to get working.
The MESS emulator that came with it (2009), doesn't work or is very buggy.
The other emulator only loads some games manually, and the game files need to be converted to it's own unique format...

I am working on a update and script.

edit:
All the game types are scripted and auto running.
Just need to convert about 20 wav's, so i can sack the other emulator.
The keymap is mental for this system, will need to think what is the best config to use.
User avatar
OX
Ice Cool Member
Ice Cool Member
Posts: 638
Joined: Thu Jun 24, 2010 9:05 pm

Re: Gamebase APF Imagination

Wed May 16, 2018 7:36 pm

Nice one .mad.
User avatar
.mad.
Honoured Member
Honoured Member
Location: Lancashire
Posts: 2256
Joined: Sun Jun 19, 2005 3:30 pm

Re: Gamebase APF Imagination

Thu Jun 07, 2018 4:29 pm

APF - The Imagination Machine GameBase v2 (215 MB)
https://mega.nz/#!z0Y2kI4B!VTPBmL53MRAU ... L4B-CNV8_w

keypads are mapped as follows...

LEFT Joystick (Keypad) - scripted so it's always default for player one.
Cursor keys = north, south, east, west
\ = Fire (ENTER)
¬ = Cancel
1,2,3,4,5,6,7,8,9,0 (main keyboard)

RIGHT Joystick (Keypad) - always mapped for player 2
W,S,D,A = north, south, east, west
Q and NUMPAD PLUS = Fire (enter)
E and NUMPAD MINUS = Cancel
NUMPAD 1,2,3,4,5,6,7,8,9,0 (***Num lock must be ON***)

WARNING!
Mapping ENTER or RETURN has strange results with the sendkeys.
games can skip player select screen.

Inspiration taken from the original GameBase by Sut 2009. ;)
Attachments
splash.gif
splash.gif (39.13 KiB) Viewed 42479 times
manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re: Gamebase APF Imagination

Thu Jun 07, 2018 7:57 pm

Nice .mad. I can't wait to watch it. Thanks.
Last edited by manguan on Sat Jun 09, 2018 9:55 pm, edited 1 time in total.
User avatar
OX
Ice Cool Member
Ice Cool Member
Posts: 638
Joined: Thu Jun 24, 2010 9:05 pm

Re: Gamebase APF Imagination

Thu Jun 07, 2018 9:46 pm

Thanks .mad., awesome work.
manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re: Gamebase APF Imagination

Sat Jun 09, 2018 10:18 am

I map my gamepad to keyboard in VAPF (Configure>Emulated Keyboard). But when I close the emulator and restart it, I see that the changes have not been saved. I have tried to save ram in file menu with no success. Any idea?
User avatar
.mad.
Honoured Member
Honoured Member
Location: Lancashire
Posts: 2256
Joined: Sun Jun 19, 2005 3:30 pm

Re: Gamebase APF Imagination

Sat Jun 09, 2018 12:24 pm

manguan wrote:
Sat Jun 09, 2018 10:18 am
I map my gamepad to keyboard in VAPF (Configure>Emulated Keyboard). But when I close the emulator and restart it, I see that the changes have not been saved.
The script does all the Keyboard / Joystick settings.
*it will overwirite any settings to the working default, everytime a game is run.
Due to most games requiring keypad or keyboard presses.

to use (1) real joystick as the main player one controller change script to this.

Code: Select all

;***************************
;* APF Imagination Machine *
;*  script by .mad. 2018   *
;***************************

;---------------------
If Control = JoyPort1
;---------------------
;map LEFT keypad to CURSORS, "|\" = Fire (EN) "¬`" = Cancel (CL)
;Main keyboard 1-0 for keypad numbers.

;map RIGHT keypad to W,A,S,D Q=Fire, E=Cancel
;NUMPAD 1-0 for keypad number, NUMPAD PLUS+ = Fire, NUMPAD -MINUS = Cancel
;*do not map keypad ENTER to NUMPAD ENTER or RETURN!.

;**** NUMPAD Lock MUST be ON (Light ON)****.

;LEFT Joystick (map as real Joystick and cursor keys)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K40||DCJa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K41||DFJb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K42||26JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K43||28JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K44||27JR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K45||25JL)

;LEFT Keypad (0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K46||30)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K47||31)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K48||32)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K49||33)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4A||34)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4B||35)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4C||36)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4D||37)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4E||38)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4F||39)

;RIGHT Joystick (map only as keyboard W,A,S,D, Q,E)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K50||516B)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K51||456D)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K52||57)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K53||53)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K54||44)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K55||41)

;RIGHT Keypad (NUMPAD 0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K56||60)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K57||61)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K58||62)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K59||63)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5A||64)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5B||65)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5C||66)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5D||67)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5E||68)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5F||69)

;--------------------------
Else If Control = JoyPort2
;--------------------------
;map RIGHT keypad to CURSORS, "|\" = Fire (EN) "¬`" = Cancel (CL)
;Main keyboard 1-0

;map LEFT keypad to W,A,S,D Q=Fire, E=Cancel
;NUMPAD 1-0 for keypad numbers, NUMPAD + = Fire, NUMPAD - = Cancel


;LEFT Joystick (map only as keyboard W,A,S,D Q,E)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K40||516B)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K41||456D)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K42||57)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K43||53)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K44||44)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K45||41)

;LEFT Keypad (NUMPAD 0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K46||60)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K47||61)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K48||62)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K49||63)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4A||64)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4B||65)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4C||66)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4D||67)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4E||68)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4F||69)

;RIGHT Joystick (map as real Joystick and Cursor keys)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K50||DCJa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K51||DFJb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K52||26JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K53||28JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K54||27JR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K55||25JL)

;RIGHT Keypad (0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K56||30)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K57||31)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K58||32)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K59||33)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5A||34)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5B||35)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5C||36)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5D||37)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5E||38)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5F||39)
End If


;Set CPU Speed to 100% (NTSC)
; Loading / Sendkeys will fail if too fast.
Set_INI_Value(%emupath%\default.ini||SPEED||cpuspeedopt||0)
Set_INI_Value(%emupath%\default.ini||SPEED||ntscmultiplierpct||100)
Set_INI_Value(%emupath%\default.ini||SPEED||palmultiplierpct||100)

if key_remap CONTAINS(rattler)
; Remap Rattler keys I,T,R,O to cursor keys and Joystick.
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K0A||5226JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K12||5428JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K1A||4925JL)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K22||4F27JR)
else
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K0A||52)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K12||54)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K1A||49)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K22||4F)
end if

if key_colorfix CONTAINS(yes)
Set_INI_Value(%emupath%\default.ini||COLOR||c29||000064000)
else
Set_INI_Value(%emupath%\default.ini||COLOR||c29||000000000)
end if

Set_INI_Value(%emupath%\default.ini||MEMORY||enhancedflag||0)

Set_INI_Value(%emupath%\default.ini||FILES||quicktype||)
Set_INI_Value(%emupath%\default.ini||PRINTER||filename||%emupath%\LPRINT.TXT)

Set_INI_Value(%emupath%\default.ini||MEMORY||writeROMflag||0)

;filename for saving a CPF tape image.
Set_INI_Value(%emupath%\default.ini||FILES||cassettewr||)

Set_INI_Value(%emupath%\default.ini||MEMORY||usebuiltinromflag||1)

;required gfx mode for blackjack cart.
if key_artifact CONTAINS(yes)
Set_INI_Value(%emupath%\default.ini||VIDEO||useartifact||1)
else
Set_INI_Value(%emupath%\default.ini||VIDEO||useartifact||0)
end if

If GameType CONTAINS(cpf||cas||wav)
;wav file must be converted to 8bit!!

     Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
     Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||S19filename||)
     Set_INI_Value(%emupath%\default.ini||FILES||cassette||%gamepathfile%)
     Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||usebuiltinromflag||1)
     Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||1)

;add 8k mem expander (16k machine)
if key_memory CONTAINS(16k)
Set_INI_Value(%emupath%\default.ini||MEMORY||expandertype||1)
else
Set_INI_Value(%emupath%\default.ini||MEMORY||expandertype||0)
end if
if key_load CONTAINS(special)
Run_Emulator_Send_Keys([1]1[1]1cload{Enter}[1]run{Enter}[1]{enter}[2]{enter}[1]goto100{enter}||50)
     else
     Run_Emulator_Send_Keys([1]1[1]cload{Enter}[1]{Enter}[2]{enter}[1]run{enter}||50)
     End If
End If

;normal cartridge games
If GameType CONTAINS(bin)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||3)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If

;s19 cartridge games
If GameType CONTAINS(s19)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||S19filename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||4)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If

;BIOS game (Trash Truck & Rocket Patrol)
If GameType CONTAINS(rom)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||0)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If
manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re: Gamebase APF Imagination

Sun Jun 10, 2018 10:50 am

Works perfectly. Thanks .mad.

It may sound ridiculous, but now I have the same problem with my second joystick. :(

I've been comparing both scripts in case I could edit it myself, but I'm afraid it's out of my reach.
User avatar
.mad.
Honoured Member
Honoured Member
Location: Lancashire
Posts: 2256
Joined: Sun Jun 19, 2005 3:30 pm

Re: Gamebase APF Imagination

Sun Jun 10, 2018 4:23 pm

ok this version is for (2) joysticks.

Code: Select all

;*****************************
;*  APF Imagination Machine  *
;*   script by .mad. 2018    *
;*  2nd  Joystick Edition     *
;*****************************

;---------------------
If Control = JoyPort1
;---------------------
;map LEFT keypad to CURSORS, "|\" = Fire (EN) "¬`" = Cancel (CL)
;Main keyboard 1-0 for keypad numbers.

;map RIGHT keypad to W,A,S,D Q=Fire, E=Cancel
;NUMPAD 1-0 for keypad number, NUMPAD PLUS+ = Fire, NUMPAD -MINUS = Cancel
;*do not map keypad ENTER to NUMPAD ENTER or RETURN!.

;**** NUMPAD Lock MUST be ON (Light ON)****.

;LEFT Joystick (1st Joystick and Cursor keys)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K40||DCJa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K41||DFJb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K42||26JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K43||28JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K44||27JR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K45||25JL)

;LEFT Keypad (0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K46||30)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K47||31)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K48||32)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K49||33)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4A||34)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4B||35)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4C||36)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4D||37)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4E||38)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4F||39)

;RIGHT Joystick (2nd Joystick and Keyboard W,A,S,D, Q,E)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K50||516BKa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K51||456DKb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K52||57KU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K53||53KD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K54||44KR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K55||41KL)

;RIGHT Keypad (NUMPAD 0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K56||60)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K57||61)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K58||62)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K59||63)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5A||64)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5B||65)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5C||66)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5D||67)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5E||68)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5F||69)

;--------------------------
Else If Control = JoyPort2
;--------------------------
;map RIGHT keypad to CURSORS, "|\" = Fire (EN) "¬`" = Cancel (CL)
;Main keyboard 1-0

;map LEFT keypad to W,A,S,D Q=Fire, E=Cancel
;NUMPAD 1-0 for keypad numbers, NUMPAD + = Fire, NUMPAD - = Cancel


;LEFT Joystick (2nd Joystick and Keyboard W,A,S,D Q,E)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K40||516BKa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K41||456DKb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K42||57KU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K43||53KD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K44||44KR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K45||41KL)

;LEFT Keypad (NUMPAD 0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K46||60)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K47||61)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K48||62)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K49||63)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4A||64)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4B||65)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4C||66)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4D||67)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4E||68)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K4F||69)

;RIGHT Joystick (1st Joystick and Cursor keys)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K50||DCJa)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K51||DFJb)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K52||26JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K53||28JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K54||27JR)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K55||25JL)

;RIGHT Keypad (0-9)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K56||30)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K57||31)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K58||32)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K59||33)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5A||34)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5B||35)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5C||36)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5D||37)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5E||38)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K5F||39)
End If


;Set CPU Speed to 100% (NTSC)
; Loading / Sendkeys will fail if too fast.
Set_INI_Value(%emupath%\default.ini||SPEED||cpuspeedopt||0)
Set_INI_Value(%emupath%\default.ini||SPEED||ntscmultiplierpct||100)
Set_INI_Value(%emupath%\default.ini||SPEED||palmultiplierpct||100)

if key_remap CONTAINS(rattler)
; Remap Rattler keys I,T,R,O to Cursor keys and 1st Joystick.
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K0A||5226JU)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K12||5428JD)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K1A||4925JL)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K22||4F27JR)
else
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K0A||52)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K12||54)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K1A||49)
Set_INI_Value(%emupath%\default.ini||EMUKEYBOARD||K22||4F)
end if

if key_colorfix CONTAINS(yes)
Set_INI_Value(%emupath%\default.ini||COLOR||c29||000064000)
else
Set_INI_Value(%emupath%\default.ini||COLOR||c29||000000000)
end if

Set_INI_Value(%emupath%\default.ini||MEMORY||enhancedflag||0)

Set_INI_Value(%emupath%\default.ini||FILES||quicktype||)
Set_INI_Value(%emupath%\default.ini||PRINTER||filename||%emupath%\LPRINT.TXT)

Set_INI_Value(%emupath%\default.ini||MEMORY||writeROMflag||0)

;filename for saving a CPF tape image.
Set_INI_Value(%emupath%\default.ini||FILES||cassettewr||)

Set_INI_Value(%emupath%\default.ini||MEMORY||usebuiltinromflag||1)

;required gfx mode for blackjack cart.
if key_artifact CONTAINS(yes)
Set_INI_Value(%emupath%\default.ini||VIDEO||useartifact||1)
else
Set_INI_Value(%emupath%\default.ini||VIDEO||useartifact||0)
end if

If GameType CONTAINS(cpf||cas||wav)
;wav file must be converted to 8bit!!

     Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
     Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||S19filename||)
     Set_INI_Value(%emupath%\default.ini||FILES||cassette||%gamepathfile%)
     Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
     Set_INI_Value(%emupath%\default.ini||MEMORY||usebuiltinromflag||1)
     Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||1)

;add 8k mem expander (16k machine)
if key_memory CONTAINS(16k)
Set_INI_Value(%emupath%\default.ini||MEMORY||expandertype||1)
else
Set_INI_Value(%emupath%\default.ini||MEMORY||expandertype||0)
end if
if key_load CONTAINS(special)
Run_Emulator_Send_Keys([1]1[1]1cload{Enter}[1]run{Enter}[1]{enter}[2]{enter}[1]goto100{enter}||50)
     else
     Run_Emulator_Send_Keys([1]1[1]cload{Enter}[1]{Enter}[2]{enter}[1]run{enter}||50)
     End If
End If
;normal cartridge games
If GameType CONTAINS(bin)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||3)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If

;s19 cartridge games
If GameType CONTAINS(s19)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||S19filename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||4)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If


;BIOS game (Trash Truck & Rocket Patrol)
If GameType CONTAINS(rom)
Set_INI_Value(%emupath%\default.ini||FILES||cassette||)
Set_INI_Value(%emupath%\default.ini||MEMORY||ROMfilename||%gamepathfile%)
Set_INI_Value(%emupath%\default.ini||MEMORY||GAMEfilename||)
Set_INI_Value(%emupath%\default.ini||MEMORY||carttype||0)
Set_INI_Value(%emupath%\default.ini||MEMORY||enableromhacksflag||1)
Set_INI_Value(%emupath%\default.ini||MEMORY||BASICfilename||)
run_emulator()
End If
manguan
Cool Member
Cool Member
Location: Spain
Posts: 323
Joined: Mon Jan 22, 2018 9:26 pm

Re: Gamebase APF Imagination

Sun Jun 10, 2018 5:35 pm

Perfect .mad.

Return to “Other GameBase Projects”

Who is online

Users browsing this forum: Ahrefs [Bot] and 55 guests