Person verstecken
Verfasst: 16.04.2005 23:41
Hallo habe eine Procedure geschrieben die eine Person verstecken soll aber dann fängt das Bild immer an zu flimmern und auserdem ist es nicht flüssig wie sie sich bewegt.
Ich starte Diese Procedure als Thread mit dem wert 0. Könnt ihr mir helfen?
Code: Alles auswählen
Procedure hidepers(pers.l)
If pers > 3 : pers=Random(3) : EndIf
movetime = ElapsedMilliseconds()
Repeat
If movetime <= ElapsedMilliseconds()
movetime = elapsedMilliseconds() + 25
Select pers
Case 0
If perspos(0,0) < 120
perspos(0,0) = perspos(0,0) + 1
perspos(0,1) = perspos(0,1) - 1
Else
versteckt = 1
EndIf
EndSelect
EndIf
Until versteckt = 1
versteckt = 0
EndProcedure