Posted 26 May 2012 - 05:41 AM
Search for the following parts of the respective scripts and make changes as highlighted in
REDHigh Roller Casino (HIGH ROLLER CASINO VP912
FS UVP by bmiki75)...
CODE
Sub HRC_Init
'ResetB2SData 0, 49, 0 'B2S
'LaunchBackGlass "HRC", true 'B2S
Controller.GameName = "hirolcas" 'German game-rom is not supported by pinmame yet
Controller.SplashInfoLine = "High Roller Casino - Stern 2001"
Controller.ShowTitle = 0
Controller.ShowDMDOnly = 1
Controller.ShowFrame = 0
Controller.Games("hirolcas").Settings.Value("rol") = 1
Controller.HandleMechanics=0
On Error Resume Next
Controller.Run
If Err Then MsgBox Err.Description
On Error Goto 0Cyclone (Cyclone VP91.X
FS by melon)...
CODE
Sub Cyclone_Init()
'Iniciamos el pinmame
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game " & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine = "Cyclone. Based on the Williams Table 1988" & vbNewLine & "by melon"
'DMD position and size 1400x1050
'.Games(cGameName).Settings.Value("dmd_pos_x")=500
'.Games(cGameName).Settings.Value("dmd_pos_y")=2
'.Games(cGameName).Settings.Value("dmd_width")=400
'.Games(cGameName).Settings.Value("dmd_height")=92
.Games(cGameName).Settings.Value("rol")=1 '<-Uncomment and change to 1 to rotate to left, or change rol to ror to rotate to right
.HandleKeyboard = 0 And I don't see a
FS version of RCT, but if it were to be modded and the dmd needed to be rotated...
Roller Coaster Tycoon (RollerCoaster Tycoon
VP9 by jpsalas)
CODE
Sub Table1_Init
vpmInit Me
With Controller
.GameName = cGameName
If Err Then MsgBox "Can't start Game " & cGameName & vbNewLine & Err.Description:Exit Sub
.SplashInfoLine = "RollerCoaster Tycoon - Stern 2002" & vbNewLine & "VP9 by JPSalas v 2.0"
'DMD position screensize 1400x1050
'.Games(cGameName).Settings.Value("dmd_pos_x") = 500
'.Games(cGameName).Settings.Value("dmd_pos_y") = 2
'.Games(cGameName).Settings.Value("dmd_width") = 400
'.Games(cGameName).Settings.Value("dmd_height") = 92
.Games(cGameName).Settings.Value("rol") = 1 '<-Uncomment and change to 1 to rotate to left, or change rol to ror to rotate to right
.HandleKeyboard = 0
.ShowTitle = 0
.ShowDMDOnly = 1