[pax]

Используй технологию твининга, в примерах блитца есть пример Mak->Castle, там как раз то что тебе нужно
или можешь просто:

timer = Millisecs()
While Not KeyDown(1)
         if  Millisecs() - timer >=100 then
             UpdateParticles()
             timer = Millisecs()
         end if
Wend