XProfan

f1&=CreateExtBmp(%HDC,%maxx,%maxy)
f2&=CreateExtBmp(%HDC,%maxx,%maxy)
string bereich#,0="SPRITE.BMP"
spriteplan&=LoadExtImage(bereich#)
sprites&=InitSprite(spriteplan&,%HDC,f1&,f2&,0,0,40,40,spriteindex%,1,10,40,40,1,1)/pre>

declare prospeed&,f1&,f2&,bereich#,spriteplan&,sprites&
dim bereich#,100000
 $I C:PROFANAKTUELLE PROJEKTELOSINCProspeed_Funktionen.inc
prospeed&=usedll("C:PROFANAKTUELLE PROJEKTELOSProspeed.dll")
window 10,10- 300,300
windowtitle "Test"
f1&=CreateExtBmp(%HDC,300,300)
f2&=CreateExtBmp(%HDC,300,300)
string bereich#,0="C:SPRITE.BMP"
spriteplan&=LoadExtImage(bereich#)
sprites&=InitSprite(spriteplan&,%HDC,f1&,f2&,0,0,40,40,4,1,10,10,10,1,1)

while 1

    waitinput

wend

dispose bereich#
freedll prospeed&
FreeExtBmp(f1&)
FreeExtBmp(f2&)
FreeExtBmp(spriteplan&)
FreeExtBmp(sprites&

 $P+
SetErrorLevel 0
Declare bereich#
Declare sprites&
Declare f1&,f2&,pfad$
Declare prospeed&,prospeed$,spriteplan&
DIM bereich#,10000
PFADROUTINEN *******************************
pfad$=getdir$("@")
chdir pfad$
Prospeed$=pfad$;"Prospeed.dll"
 $I C:PROFANAKTUELLE PROJEKTESpeedanimProspeed_Funktionen.inc
*M Init- und Exit-Prozeduren:
SetTrueColor 1
WindowStyle $003F
WindowTitle "Test"
Window 147,40 - 450,479
f1&=CreateExtBmp(%HDC,300,40)
f2&=CreateExtBmp(%HDC,300,40)
string bereich#,0="C:SPRITE.BMP"
spriteplan&=LoadExtImage(bereich#)
sprites&=InitSprite(spriteplan&,%HDC,f1&,f2&,0,0,40,40,4,1,15,100,10,1,1)
CopyExtBmp(f1&,0,0,%maxx,%maxy,%HDC,0,0,0)
CopyExtBmp(f2&,0,0,%maxx,%maxy,%HDC,0,0,0)

WhileNot appexit%

    WaitInput

Wend

freedll prospeed&
freedll hdll%
Dispose Bereich#