Until now I helped me out with this when using DX7:
Code: Select all
Procedure DisplaySpriteEx(Sprite, x, y, width, height)
Protected *Sprite.PB_Sprite = IsSprite(Sprite)
If *Sprite
Protected *BackBuffer.IDirectDrawSurface7
!extrn _PB_DirectX_BackBuffer
!MOV Eax, [_PB_DirectX_BackBuffer]
!MOV [p.p_BackBuffer], Eax
Protected rect.RECT
rect\left = x
rect\right = x + width
rect\top = y
rect\bottom = y + height
*BackBuffer\Blt(rect, *Sprite\Sprite, 0, 0, 0)
EndIf
EndProcedure