Code: Select all
Type TIMANTIT
Field obj
End Type
SCREEN 320,240,0,cbsizable
FrameLimit 40
alkuperäinen=LoadAnimObject("Media\ts3.png",8,8,0,6)
'ShowObject alkuperäinen,OFF
Repeat
LoopObject alkuperäinen,0,6,.5,ON
kopiokivet.TIMANTIT= New(TIMANTIT)
kopiokivet\obj=CloneObject(alkuperäinen)
For kopiokivet.TIMANTIT = Each TIMANTIT
PositionObject kopiokivet\obj, 10,10
Next kopiokivet
DrawScreen
Until EscapeKey()