The only code I have is for mini playfield (creation and moveto).
Dim MiniPlayField_0 ' Xmin Xmax Ymin Ymax Zmin Zmax CenX CenY CenZ
Set MiniPlayField_0 = xBAM.CreateMiniPlayfield( -700, -20, 0, 640, -0, 32, -360, 320, 0)
Dim MF ' X Y Z Range Strength
Set MF = xBAM.CreateMagneticField( 329.6, 3.5, 174.8, 20, 0)
' DstX DstY DstZ RotX RotY RotZ Scale Time
Call MiniPlayField_0.MoveTo( 257, -11.5, 422.6, -90, 0, 0, 1, 0)
Call MiniPlayField_0.SetGravity( 90, 0, 1)