Download Animal Crossing Pinball V1.1

This table is awesome!!! World of Virtual Pinball.

Hi. My kid loves this table as well as my wife. Is there a way to see the high scores on this table? Great work.

SAME! I CAN REGISTER HIGHSCORE BUT I CAN'T NEVER SEE IT!

Getting controller error

Table will not run in VPX Standalone. It launches, shows on the screen for a second and crashes.

I get the following erros from the log:

eViewer::OnScriptError@1212] Script Error at line 1549 : Description unavailable
2025-05-23 15:18:21.210 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1549, Character: 8, Description unavailable
2025-05-23 15:18:21.210 ERROR [1335381] [CodeViewer::OnScriptError@1212] Script Error at line 1653 : VBSE_ACTION_NOT_SUPPORTED
2025-05-23 15:18:21.210 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1653, Character: 12, VBSE_ACTION_NOT_SUPPORTED
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::OnScriptError@1212] Script Error at line 1549 : Description unavailable
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1549, Character: 8, Description unavailable
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::OnScriptError@1212] Script Error at line 1653 : VBSE_ACTION_NOT_SUPPORTED
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1653, Character: 12, VBSE_ACTION_NOT_SUPPORTED
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::OnScriptError@1212] Script Error at line 1549 : Description unavailable
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1549, Character: 8, Description unavailable
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::OnScriptError@1212] Script Error at line 1653 : VBSE_ACTION_NOT_SUPPORTED
2025-05-23 15:18:21.211 ERROR [1335381] [CodeViewer::AppendLastErrorTextW@3987] Runtime error: Line: 1653, Character: 12, VBSE_ACTION_NOT_SUPPORTED

 

Runtime error

-------------

Line: 899

Object required: 'Controller'

Runtime error

-------------

Line: 1549

Variable is undefined: 'rolling'

Runtime error

-------------

Line: 1653

Type mismatch: 'BallShadow'

 

followed the instructions,getting these errors. tyia

 

anyone>?

I know **nothing!!** about table scripting but I was able to get this to load in VPX standalone on a 14 year old laptop (running Mint Linux). The table still seems to error out or lock up randomly - but that might also be caused by the age of my laptop.

I commented out some of the DMD section (things that referred to windows registry keys)

Then replaced two sections with updated code from a different (working) table script.

No idea if these changes will cause other problems but at least it now loads on my laptop. Perhaps someone with actual scripting knowledge can create a better fix.

The changes are:

1) Line 221 (might not be necessary but I changed it from "True" to "False")

UseFullColor = "False"       '          "True" / "False"

2) Commented out the following lines (Line 234 to Line 249)

'GetDMDColor

'Sub GetDMDColor
'    Dim WshShell,filecheck,directory
'    Set WshShell = CreateObject("WScript.Shell")
'    If DMDSize then
'        WshShell.RegWrite "HKCU\Software\UltraDMD\w",DMDWidth,"REG_DWORD"
'        WshShell.RegWrite "HKCU\Software\UltraDMD\h",DMDHeight,"REG_DWORD"
'    End if
'    If DMDPosition then
'        WshShell.RegWrite "HKCU\Software\UltraDMD\x",DMDPosX,"REG_DWORD"
'        WshShell.RegWrite "HKCU\Software\UltraDMD\y",DMDPosY,"REG_DWORD"
'    End if
'    WshShell.RegWrite "HKCU\Software\UltraDMD\fullcolor",UseFullColor,"REG_SZ"
'    WshShell.RegWrite "HKCU\Software\UltraDMD\color",DMDColorSelect,"REG_SZ"
'End Sub

3) Replaced JP's VP10 Rolling Sounds old code with an updated version (starts at line 1528)
'*****************************************
'      JP's VP10 Rolling Sounds
'*****************************************

Const tnob = 6 ' total number of balls
Const lob = 0   'number of locked balls
ReDim rolling(tnob)
InitRolling

Sub InitRolling
    Dim i
    For i = 0 to tnob
        rolling(i) = False
    Next
End Sub

Dim BallDrop
Sub RollingUpdate()
    Dim BOT, b, ballpitch
    BOT = GetBalls

    ' stop the sound of deleted balls
    For b = UBound(BOT) + 1 to tnob
        rolling(b) = False
        StopSound("fx_ballrolling" & b)
    Next

    ' exit the sub if no balls on the table
    If UBound(BOT) = lob - 1 Then Exit Sub 'there no extra balls on this table

    ' play the rolling sound for each ball and draw the shadow
    For b = lob to UBound(BOT)

        aBallShadow(b).X = BOT(b).X
        aBallShadow(b).Y = BOT(b).Y

        If BallVel(BOT(b))> 1 Then
            If BOT(b).z <30 Then
                ballpitch = Pitch(BOT(b))
            Else
                ballpitch = Pitch(BOT(b)) + 15000 'increase the pitch on a ramp or elevated surface
            End If
            rolling(b) = True
            PlaySound("fx_ballrolling" & b), -1, Vol(BOT(b)), Pan(BOT(b)), 0, ballpitch, 1, 0
        Else
            If rolling(b) = True Then
                StopSound("fx_ballrolling" & b)
                rolling(b) = False
            End If
        End If
            If BOT(b).VelZ < -2.3 and BOT(b).z < 56 and BOT(b).z > 30 Then 'height adjust for ball drop sounds
                PlaySound "fx_ball_drop" & b, 0, ABS(BOT(b).velz)/17, Pan(BOT(b)), 0, Pitch(BOT(b)), 1, 0, 0 ', ABS(BOT(b).velz)/17, 0, 1, 0: End If
        End If
    Next
End Sub

4) Replaced ninuzzu's BALL SHADOW code with the following updated code (starts at Line 1649)
'*****************************************
'    ninuzzu's    BALL SHADOW
'*****************************************
Dim BallShadowArray
BallShadowArray = Array (BallShadow1, BallShadow2, BallShadow3)
Const anglecompensate = 15

Sub GraphicsTimer_Timer()
  Dim BOT, b
    BOT = GetBalls

  ' switch off glowlight for removed Balls
  IF GlowBall Then
    For b = UBound(BOT) + 1 to 2
      If GlowBall and Glowing(b).state = 1 Then Glowing(b).state = 0 End If
    Next
  End If

    For b = 0 to UBound(BOT)
    ' *** move ball shadow for max 3 balls ***
    If BallShadow and b < 3 Then
      If BOT(b).X < Diner.Width/2 Then
        BallShadowArray(b).X = ((BOT(b).X) - (50/6) + ((BOT(b).X - (Diner.Width/2))/7)) + 10
      Else
        BallShadowArray(b).X = ((BOT(b).X) + (50/6) + ((BOT(b).X - (Diner.Width/2))/7)) - 10
      End If
      BallShadowArray(b).Y = BOT(b).Y + 20 : BallShadowArray(b).Z = 1
      If BOT(b).Z > 20 Then BallShadowArray(b).visible = 1 Else BallShadowArray(b).visible = 0 End If
    End If
    ' *** move glowball light for max 3 balls ***
    If GlowBall and b < 3 Then
      If Glowing(b).state = 0 Then Glowing(b).state = 1 end if
      Glowing(b).BulbHaloHeight = BOT(b).z + 51
      Glowing(b).x = BOT(b).x : Glowing(b).y = BOT(b).y + anglecompensate
    End If
  Next
  If ChooseBats = 1 Then
    ' *** move primitive bats ***
    batleft.objrotz = LeftFlipper.CurrentAngle + 1
    batleftshadow.objrotz = batleft.objrotz
    batright.objrotz = RightFlipper.CurrentAngle - 1
    batrightshadow.objrotz  = batright.objrotz
  Else
    If ChooseBats > 1 Then
      ' *** move glowbats ***
      GlowBatLightLeft.y = 1720 - 121 + LeftFlipper.CurrentAngle
      glowbatleft.objrotz = LeftFlipper.CurrentAngle
      GlowBatLightRight.y =1720 - 121 - RightFlipper.CurrentAngle
      glowbatright.objrotz = RightFlipper.CurrentAngle
    End If
  End If
End Sub