equal
deleted
inserted
replaced
552 |
552 |
553 if (Gear^.State and gstAnimation) <> 0 then |
553 if (Gear^.State and gstAnimation) <> 0 then |
554 begin |
554 begin |
555 Gear^.Message:= 0; |
555 Gear^.Message:= 0; |
556 inc(Gear^.Timer); |
556 inc(Gear^.Timer); |
557 if Gear^.Timer = 125 then |
557 if Gear^.Timer = Wavez[TWave(Gear^.Tag)].Interval then |
558 begin |
558 begin |
559 Gear^.Timer:= 0; |
559 Gear^.Timer:= 0; |
560 inc(Gear^.Pos); |
560 inc(Gear^.Pos); |
561 if Gear^.Pos = Wavez[TWave(Gear^.Tag)].FramesCount then |
561 if Gear^.Pos = Wavez[TWave(Gear^.Tag)].FramesCount then |
562 Gear^.State:= Gear^.State and not gstAnimation |
562 Gear^.State:= Gear^.State and not gstAnimation |