changeset 1034 | 05f003ad3caa |
parent 1033 | 622c5de38d72 |
child 1035 | 6f5842bc481b |
1033:622c5de38d72 | 1034:05f003ad3caa |
---|---|
486 inc(Gear^.Timer); |
486 inc(Gear^.Timer); |
487 if Gear^.Timer = 125 then |
487 if Gear^.Timer = 125 then |
488 begin |
488 begin |
489 Gear^.Timer:= 0; |
489 Gear^.Timer:= 0; |
490 inc(Gear^.Pos); |
490 inc(Gear^.Pos); |
491 if Gear^.Pos = 12 then |
491 if Gear^.Pos = Wavez[TWave(Gear^.Tag)].FramesCount then |
492 Gear^.State:= Gear^.State and not gstAnimation |
492 Gear^.State:= Gear^.State and not gstAnimation |
493 end; |
493 end; |
494 exit |
494 exit |
495 end; |
495 end; |
496 |
496 |