I have problems with the taito.vbs the last weeks. After installing the last updates of 10.4, all Taito-tables produce the following error-message.
taito-error.jpg 10.36KB
20 downloads
So I test older ones and in the minimal setup I found a script, which works. All Taito-tables run fine with it.
Now I find the different entries in these scripts.
These is the script (excerpt), which doesn't work for me.
' Keyboard handlers
Function vpmKeyDown(ByVal keycode)
On Error Resume Next
vpmKeyDown = True ' assume we handle the key
With Controller
Select Case keycode
Case RightFlipperKey .Switch(swLRFlip) = True : vpmKeyDown = False
Case LeftFlipperKey .Switch(swLLFlip) = True : vpmKeyDown = False
Case keyInsertCoin1 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
Case keyInsertCoin2 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
Case keyInsertCoin3 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
And here is the script, which works for me.
' Keyboard handlers
Function vpmKeyDown(ByVal keycode)
On Error Resume Next
vpmKeyDown = True ' assume we handle the key
With Controller
If keycode = RightFlipperKey Then .Switch(swLRFlip) = True
If keycode = LeftFlipperKey Then .Switch(swLLFlip) = True
Select Case keycode
Case keyInsertCoin1 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
Case keyInsertCoin2 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
Case keyInsertCoin3 vpmTimer.AddTimer 750,"vpmTimer.PulseSw swCoin1'" : Playsound SCoin
In the last 3259 is again the non working vbs. What's the problem? Or is my installation a problem?
Edited by Joey2001, 03 December 2017 - 12:42 PM.