animationen laufen nach wenigen sekunden nicht mehr Syncron

Übersicht

BlitzBasic

Allgemein

	WEBLink Betreff: animationen laufen nach wenigen sekunden nicht mehr Syncron	Mo, Okt 30, 2006 15:09 Antworten mit Zitat
Hallo, meine Animationtiles laufen nach einigen sekunden nicht mehr syncron sondern einige Tiles laufen aus der bahn und und werden auf einmal schneller. Code: [AUSKLAPPEN] [EINKLAPPEN] For ani4 = 0 To ani3 - 1 If syncron = 1 Then animtimer(ani4) = 0 animframes(ani4) = 0 frames2(ani4) = 0 EndIf DrawImage ani(animaussehen(ani4)),Tileanisetzenx(ani4) - scrollx , Tileanisetzeny(ani4) + scrolly , animframes(ani4) frames2(ani4) = framespixelx(animaussehen(ani4)) / 32 If framespixelx(animaussehen(ani4)) =< 32 Then frames2(ani4) = 1 If MilliSecs() > animtimer(ani4) + animationszeit(ani4) Then animtimer(ani4)=MilliSecs() animframes(ani4)=(animframes(ani4) + 1) Mod frames2(ani4) End If Next

WEBLink

Betreff: animationen laufen nach wenigen sekunden nicht mehr Syncron

Mo, Okt 30, 2006 15:09
Antworten mit Zitat

Hallo,

meine Animationtiles laufen nach einigen sekunden nicht mehr syncron sondern einige Tiles laufen aus der bahn und und werden auf einmal schneller.

Code: [AUSKLAPPEN]

For ani4 = 0 To ani3 - 1

If syncron = 1 Then
animtimer(ani4) = 0
animframes(ani4) = 0
frames2(ani4) = 0
EndIf

DrawImage ani(animaussehen(ani4)),Tileanisetzenx(ani4) - scrollx , Tileanisetzeny(ani4) + scrolly , animframes(ani4)

frames2(ani4) = framespixelx(animaussehen(ani4)) / 32
If framespixelx(animaussehen(ani4)) =< 32 Then frames2(ani4) = 1

If MilliSecs() > animtimer(ani4) + animationszeit(ani4) Then
animtimer(ani4)=MilliSecs()
animframes(ani4)=(animframes(ani4) + 1) Mod frames2(ani4)
End If

Next