Setvirtualresolution(640,480)
ResetTimer()
//Create Single multi-frame Image
Swap()
Drawline(16,16,0,0,0,255,0)
Drawline(48,16,63,0,0,255,0)
Drawline(80,16,95,31,0,255,0)
Drawline(112,16,96,31,0,255,0)
Update(0)
Render()
GetImage(11,0,0,128,32)
ClearScreen()
//Create Sprite frames from single image
id=CreateSprite(11)
SetSpriteAnimation(id,32,32,4)
//Set Background
SetClearColor(50,50,100)
SetSpritePosition(id,100,100)
//Start Animation
PlaySprite(id,10)
Do
Print("Sprite playing status:"+Str(GetSpritePlaying(id),0))
Sync()
If Timer()>10 Then StopSprite(id)
If Timer()>20 Then Exit
Loop
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
Setvirtualresolution(640,480) ResetTimer() //Create Single multi-frame Image Swap() Drawline(16,16,0,0,0,255,0) Drawline(48,16,63,0,0,255,0) Drawline(80,16,95,31,0,255,0) Drawline(112,16,96,31,0,255,0) Update(0) Render() GetImage(11,0,0,128,32) ClearScreen() //Create Sprite frames from single image id=CreateSprite(11) SetSpriteAnimation(id,32,32,4) //Set Background SetClearColor(50,50,100) SetSpritePosition(id,100,100) //Start Animation PlaySprite(id,10) Do Print("Sprite playing status:"+Str(GetSpritePlaying(id),0)) Sync() If Timer()>10 Then StopSprite(id) If Timer()>20 Then Exit Loop End