simple Deformed rolling ball

[3DMastermind]

Run this script:
It creates a ball rolling like dough.
It's a good start...
A message box will pop-up click 'ok' then "Play"


'Pillsbury dough by www.3DMASTERMIND.com''''''
''''''''''''''''''''''''''''''''''''''''''''''''
DeselectAll
SelectObj "Scene_Root"
AddProp "Custom_parameter_list", , , "DisplayInfo"
SelectObj "DisplayInfo"
SIAddCustomParameter "DisplayInfo", "Manny Papamanos", siString, "www.3DMastermind.com", 0, 1, , 6, 0, 1
SetValue "Camera.camvis.custominfo", True
CreatePrim "Sphere", "MeshSurface"
SetDisplayMode "Camera", "hiddenline"
Translate , 0, 0, -30.2986881302035, siRelative, siGlobal, siObj, siXYZ, , , , , , , , , , 0
SaveKey "sphere.kine.local.posx,sphere.kine.local.posy,sphe re.kine.local.posz", 1, , , , False
SetValue "PlayControl.Key", 100
SetValue "PlayControl.Current", 100
Translate , 0, 0, 36.2642329434042, siRelative, siGlobal, siObj, siXYZ, , , , , , , , , , 0
SaveKey "sphere.kine.local.posx,sphere.kine.local.posy,sphe re.kine.local.posz", 100, , , , False
SetValue "PlayControl.Key", 1
SetValue "PlayControl.Current", 1
GetPrimLattice
SetValue "lattice.lattice.subdivy", 3
SetValue "lattice.lattice.subdivz", 3
SetValue "lattice.lattice.subdivx", 3
CutObj
ApplyCns "Position", "lattice", "sphere"
ActivateVertexSelTool
AddToSelection "lattice.pnt[(0,0,0),(0,0,1),(0,0,2),(0,0,3),(1,0,0),(1,0,1),(1 ,0,2),(1,0,3),(2,0,0),(2,0,1),(2,0,2),(2,0,3),(3,0 ,0),(3,0,1),(3,0,2),(3,0,3)]", , True
ActivateVertexSelTool
Translate , 0, 1.35690990404812, 0, siRelative, siView, siObj, siXYZ, , , , , , , , , , 0
ActivateVertexSelTool
AddToSelection "lattice.pnt[(0,0,0),(0,0,1),(0,0,2),(0,0,3),(0,1,0),(0,1,1),(0 ,1,2),(0,1,3),(1,0,0),(1,0,1),(1,0,2),(1,0,3),(1,1 ,0),(1,1,1),(1,1,2),(1,1,3),(2,0,0),(2,0,1),(2,0,2 ),(2,0,3),(2,1,0),(2,1,1),(2,1,2),(2,1,3),(3,0,0), (3,0,1),(3,0,2),(3,0,3),(3,1,0),(3,1,1),(3,1,2),(3 ,1,3)]", , True
ActivateVertexSelTool
Translate , 0, 0.932875559033087, 0, siRelative, siView, siObj, siXYZ, , , , , , , , , , 0
ActivateObjectSelTool
DeselectAll
ActivateObjectSelTool
PlayForwardsFromStart
PlaybackStop
SetValue "PlayControl.Key", 1
SetValue "PlayControl.Current", 1
SelectObj "sphere", , True
SaveKey "sphere.kine.local.rotx,sphere.kine.local.roty,sphe re.kine.local.rotz", 1, , , , False
SetValue "PlayControl.Key", 100
SetValue "PlayControl.Current", 100
Rotate , 220, 0, 0, siRelative, siAdd, siObj, siXYZ, , , , , , , , 0
SaveKey "sphere.kine.local.rotx,sphere.kine.local.roty,sphe re.kine.local.rotz", 100, , , , False
PlayForwardsFromStart
Msgbox "click play > at the bottom"

[DAVID:-D]

adding shape jitter will do more interesting effect

Add this VB script behind the original

SetAndToggleSelection "lattice", , True
SetSelFilter "Vertex"
AddToSelection "lattice.pnt[(0,2,0),(0,2,1),(0,2,2),(0,2,3),(0,3,0),(0,3,1),(0 ,3,2),(0,3,3),(1,2,0),(1,2,1),(1,2,2),(1,2,3),(1,3 ,0),(1,3,1),(1,3,2),(1,3,3),(2,2,0),(2,2,1),(2,2,2 ),(2,2,3),(2,3,0),(2,3,1),(2,3,2),(2,3,3),(3,2,0), (3,2,1),(3,2,2),(3,2,3),(3,3,0),(3,3,1),(3,3,2),(3 ,3,3)]", , True
ApplyOp "ShapeJitter", "lattice.pnt[(0,2,0),(0,2,1),(0,2,2),(0,2,3),(0,3,0),(0,3,1),(0 ,3,2),(0,3,3),(1,2,0),(1,2,1),(1,2,2),(1,2,3),(1,3 ,0),(1,3,1),(1,3,2),(1,3,3),(2,2,0),(2,2,1),(2,2,2 ),(2,2,3),(2,3,0),(2,3,1),(2,3,2),(2,3,3),(3,2,0), (3,2,1),(3,2,2),(3,2,3),(3,3,0),(3,3,1),(3,3,2),(3 ,3,3)]", 3, siPersistentOperation, , 0
SelectFilter "object"
SetValue "lattice.lattice.shapejitterop.frequency", 0.05
SetValue "lattice.lattice.shapejitterop.amplx", 2
SetValue "lattice.lattice.shapejitterop.amply", 2
SetValue "lattice.lattice.shapejitterop.amplz", 2