TGC Codebase Backup



Fake Spinning Cube. by Steve Ancell

7th Oct 2011 18:54
Summary

A fake spinning cube, using the SetSpriteUVOffset(iSprite, u#, v#) and SetSpriteAngle(iSprite, angle) commands. Additional info: Download the attached "sprite.PNG" file and place i



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    SetVirtualResolution(320, 480)

sprite1_u# = 0
sprite1_v# = 0
sprite1_angle = 0

Initialise()

do
    if GetRawKeyPressed(27) = 1 or GetPointerState() = 1
        CleanUp()
        exit
    endif

    UpdateSprite()

    sync()
loop


function Initialise()
    LoadImage(1, "sprite.PNG")
    CreateSprite(1, 1)
    SetSpriteAnimation(1, 50, 50, 4)
    SetSpriteOffset(1, GetSpriteWidth(1) / 2, GetSpriteHeight(1) / 2)
    SetSpritePositionByOffset(1, GetVirtualWidth() / 2, GetVirtualHeight() / 2)
endfunction


function UpdateSprite()
    SetSpriteUVOffset(1, sprite_u#, sprite_v#)
    sprite_u# = sprite_u# + 0.01
    if sprite_u# > 0.60 then sprite_u# = 0.00

    SetSpriteAngle(1, sprite_angle)
    sprite_angle = sprite_angle + 5
    if sprite_angle > 359 then sprite_angle = 0
endfunction


function CleanUp()
    DeleteSprite(1)
    DeleteImage(1)
endfunction