how can i make the sprites dissapear?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Mortiis

Just a quick messy example with types.I don't have the chance to try it now so there may be errors.I have to run take care cya :)

Type tDirt
    field sprite$
    sprite fadeout#
end type

global sDirt.tDirt = new tDirt

sDirt\fadeout# = 1

sDirt\sprite = LoadSprite("dirt.bmp", 4)
ScaleSprite sDirt\sprite,0.5, 1

hideentity sDirt\sprite

while not keyhit(1)

    if mousehit(1)
        CameraPick(camera1, siktx + 15, sikty + 15)
    
        sDirt2.tDirt = new tDirt
        sDirt2\sprite = copyentity(sDirt\sprite)

        sDirt2\fadeout = 1.0
        
        positionentity sDirt2\sprite, pickedx(), pickedy()+f1, pickedz()
    endif

    for sDirt2.tDirt = each tDirt
        entityalpha sDirt2\tDirt, sDirt2\fadeout
        sDirt2\fadeout = sDirt2\fadeout -.5

        if sDirt2\fadeout = 0 then
            freentity sDirt2\sprite
            delete(sDirt2)
        endif
    next

wend