SCROLL OBJECT TEXTURE This command will scroll the UV data of the specified object.
Syntax
    SCROLL OBJECT TEXTURE Object Number, X, Y
    SCROLL OBJECT TEXTURE Object Number, Stage, X, Y
Parameters
    Object Number
Integer The object number
    Stage
Integer The U value controls the horizontal shift of the data
    X
Float The V value controls the vertical shift of the data
    Y
Float Specify the Y position value.
Returns
This command does not return a value.
Description
The UV data controls how a texture is mapped onto your object. By scrolling the UV data, you can effectively scroll the texture over your object. The U value controls the horizontal shift of the data. The V value controls the vertical shift of the data. The scroll effect is permanent. Ensure that the image you use fills the whole texture, so using a texture flag of one with LOAD IMAGE will cause visual artefacts!
Example Code
    hide mouse:cls 0:autocam off

    ObjectNumber=1

    SecondObject=2

    ImageNumber=1

    make object sphere SecondObject,1

    load object "models\model.x",ObjectNumber

    load image "iron.jpg",ImageNumber

    append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1

    set object interpolation ObjectNumber,50

    position object ObjectNumber,0,0,0

    position object SecondObject,0,0,0

    position camera 0,2,4

    point camera 0,0,0

    while mouseclick()=0

    set cursor 0,0

    print "press f to scroll object texture"

    if inkey$()="f" then scroll object texture ObjectNumber, 0.1,0.2

    print "press up arrow key"

    if upkey()=1 then move camera  1:while scancode()<>0:endwhile

    print "press down arrow key"

    if downkey()=1 then move camera -1:while scancode()<>0:endwhile

    print "press left arrow key"

    if leftkey()=1 then turn camera left 1

    print "press right arrow key"

    if rightkey()=1 then turn camera right 1

    endwhile

    while mouseclick()=1:endwhile

    if object exist(ObjectNumber)=1 then delete object ObjectNumber

    if object exist(SecondObject)=1 then delete object SecondObject

    if image exist(ImageNumber)=1 then delete image ImageNumber

    end
See also
BASIC3D Commands Menu Index