Latest version is available here:
http://forum.thegamecreators.com/?m=forum_view&t=74762&b=5
I would consider using some other scaling code before setting the object up like this:
function scaleobject(ObjID, scX#,scY#,scZ#)
`you must loop through each limb adding to the existing vertex count
for xx = 0 to GetTotalLimbs( ObjID ) -1
LOCK VERTEXDATA FOR LIMB ObjID,xx,2
VertexCount =GET VERTEXDATA VERTEX COUNT()
for v = 0 to VertexCount -1
X# =GET VERTEXDATA POSITION X( v )
Y# =GET VERTEXDATA POSITION Y( v )
Z# =GET VERTEXDATA POSITION Z( v )
SET VERTEXDATA POSITION v, X#*scX#, Y#*scY#, Z#*scZ#
next v
next xx
UNLOCK VERTEXDATA
CALCULATE OBJECT BOUNDS ObjID
endfunction
function GetTotalLimbs( ObjID )
`check number of limbs on object
while limb exist(ObjID,LimbCount) = 1
LimbCount = LimbCount + 1
endwhile
endfunction LimbCount
(not my code)...