Sorry your browser is not supported!

#constant whiteCleric 2

sync on : sync rate 60
set image colorkey 255, 0, 255


create animated sprite whiteCleric, get dir$() + "\\white\\ClericWhite.bmp", 4, 4, whiteCleric
make object plane 1, 24, 32, 90

objCount = 1000

create bitmap 1, 24, 32
do
set current bitmap 1

sprite whiteCleric, 5000, 5000, whiteCleric
play sprite whiteCleric, 9, 12, 250

get image whiteCleric+objCount, 0, 0, 24, 32
cls
texture object 1, whiteCleric+objCount
paste sprite whiteCleric, 0, 0
set current bitmap 0

sync
loop

Rem Project: cleric
Rem Created: Tuesday, February 08, 2011

Rem ***** Main Source File *****

sync on : sync rate 0 : autocam off

position camera 0,0,-100
point camera 0,0,0

load image "ClericWhite.bmp", 1
split_image(1,4,4,11,rgb(255, 0, 255))

make object plane 1, 48, 64
set object transparency 1,1
tex=19
texture object 1,tex

do
    rem text
    center text screen width()/2,0,"Use Arrowkeys to walk"
    
    rem Get user input
    u=upkey()
    r=rightkey()
    d=downkey()
    l=leftkey()
    previnpt=inpt
    inpt=u+r+d+l
    
    rem edit animation state based on input
    if inpt<>0
        if previnpt<>inpt
            anim=0
        endif
    else
        sti=20 : fni=20
    endif
    if timer()>anim
        anim=timer()+200
        if u : sti=11 : fni=14 : endif
        if r : sti=15 : fni=18 : endif
        if d : sti=19 : fni=22 : endif
        if l : sti=23 : fni=26 : endif
        inc tex
        if tex<sti then tex=sti
        if tex>fni then tex=sti
    endif
    texture object 1,tex
    
    sync
loop

function split_image(image as integer, numX as integer, numY as integer, start as integer, colourkey)
    if colourkey<>0 then set image colorkey rgbr(colourkey), rgbg(colourkey), rgbb(colourkey)
    iw=image width(image)
    ih=image height(image)
    create bitmap 1,iw,ih
    set current bitmap 1
    paste image image,0,0,0
    w#=iw/numX
    h#=ih/numY
    i=start
    for y=1 to numY
        for x=1 to numX
            sx#=(x-1)*w#
            sy#=(y-1)*h#
            get image i,sx#,sy#,sx#+w#,sy#+h#,1
            inc i
        next x
    next y
    set current bitmap 0
endfunction

global _oldTick as dword
global _newTick as dword : _newTick = timer()
global _delta  as float

sync on : sync rate 0

position camera 0,0,-100
point camera 0,0,0

load image "clericwhite.bmp",1      // change image format for alpha channels
texWidth          = image width(1)
texHeight         = image height(1)
texSubImageCountU = 4
texSubImageCountV = 4

make object plane 1,texWidth/texSubImageCountU,texHeight/texSubImageCountV
texture object 1,0,1
set object light 1,0
set_uvs(1,0,0,texSubImageCountU,texSubImageCountV)

do

    _oldTick = _newTick
    _newTick = timer()
    _delta   = (_newTick-_oldTick)*0.001

    inc frameTick#, _delta
    
    if frameTick# >= 0.2
        frameTick# = 0.0
        tileX = tileX + 1 
        if tileX > (texSubImageCountU-1)
            tileX = 0
            inc tileY
            if tileY > (texSubImageCountV-1) then tileY = 0
        endif
        set_uvs(1,tileX,tileY,texSubImageCountU,texSubImageCountV)
    endif

    sync
loop

`This will re-map a plains UV coordinates to suit a tile sheet
function set_uvs(obj,tx,ty,tw,th)
    
    `Set UV coordinates to suit sprite grid
    tx#=tx : ty#=ty : tw#=tw : th#=th
    xa#=tx#/tw#
    ya#=ty#/th#
    w#=1.0/tw#
    h#=1.0/th#
    
    xb#=xa#+w#
    yb#=ya#+h#
    
    lock vertexdata for limb obj,0,2
        
        for v=0 to 5
            
            if v=1 or v=3 or v=4 then uvx#=xb# else uvx#=xa#
            if v=0 or v=1 or v=3 then uvy#=ya# else uvy#=yb#
            
            set vertexdata uv v,uvx#,uvy#
            
        next v
        
    unlock vertexdata

endfunction