Global m=1,n=1
В главном цыкле:
if m=1 then
animate m\telo,n
m=0
endif
If kakoeto_sobitie then
n=1.5
m=1
endif
Но тут надо проверить, анимация просто ускорится, или начнется заного... если начнется заного, тогда надо как-то выщитывать кадр анимаци... как - хз.
ЗЫ: покапайся в хелпе, может что-то типа AnimTime - то, что нужно.