Dim Controller
 LoadController
 Sub LoadController()
 Set Controller = CreateObject("B2S.Server")
 Controller.B2SName = "Distant_World"  ' *****!!!!This must match the name of your directb2s file!!!!
 Controller.Run()
 End Sub

     Controller.B2SSetScore(Value)

     Controller.B2SSetScore 1, Score
     Controller.B2SSetScore 2, Score
     Controller.B2SSetScore 3, Score
     Controller.B2SSetScore 4, Score

     Controller.B2SSetScorePlayer1 1, (Value)
     Controller.B2SSetScorePlayer2
     Controller.B2SSetScorePlayer3
     Controller.B2SSetScorePlayer4

     Controller.B2SSetCredits Credits
     Controller.B2SSetscore 6, Credits

     Controller.B2SSetScore 1,(Playerscore(0))
     Controller.B2SSetScore 2,(Playerscore(1))
     Controller.B2SSetScore 3,(Playerscore(2))
     Controller.B2SSetScore 4,(Playerscore(3))

     Controller.B2SSetScoreRollover 25, 1

     Controller.B2SSetScoreRolloverPlayer1 ,1
     Controller.B2SSetScoreRolloverPlayer2
     Controller.B2SSetScoreRolloverPlayer3
     Controller.B2SSetScoreRolloverPlayer4

     Controller.B2SSetPlayerUp 30,Player

     Controller.B2SSetCanPlay 31, Players

     Controller.B2SSetBallInPlay 32, Ball

     Controller.B2SSetTilt 33,0

     Controller.B2SSetMatch 34,1

     Controller.B2SSetGameOver 35,1

     Controller.B2SSetShootAgain 36, 1
       
     Controller.B2SStartAnimation "Name"

     Controller.B2SStopAnimation "Name"

     Controller.B2SStopAllAnimations

          Controller.B2ssetscore 1, INT((Score(1) MOD 1000) /100)
          Controller.B2ssetscore 2, INT((Score(1) MOD 100) /10)
          Controller.B2ssetscore 3,      Score(1) MOD 10
          Controller.B2ssetscore 4, INT((Score(2) MOD 1000) /100)
          Controller.B2ssetscore 5, INT((Score(2) MOD 100) /10)
          Controller.B2ssetscore 6,      Score(2) MOD 10
    If Score(1) >1000 Then Controller.B2ssetdata 10, 1
    If Score(1) <1000 Then Controller.B2ssetdata 10, 0
    If Score(2) >1000 Then Controller.B2ssetdata 11, 1
    If Score(2) <1000 Then Controller.B2ssetdata 11, 0