equal
deleted
inserted
replaced
549 begin |
549 begin |
550 inc(Gear.Timer); |
550 inc(Gear.Timer); |
551 if Gear.Timer > 64 then |
551 if Gear.Timer > 64 then |
552 begin |
552 begin |
553 Gear.Timer:= 0; |
553 Gear.Timer:= 0; |
554 dec(Gear.Tag) |
554 dec(Gear.State) |
555 end; |
555 end; |
556 Gear.dX:= Gear.dX + cWindSpeed; |
556 Gear.dX:= Gear.dX + cWindSpeed; |
557 Gear.X:= Gear.X + Gear.dX; |
557 Gear.X:= Gear.X + Gear.dX; |
558 if Gear.Tag = 0 then DeleteGear(Gear) |
558 if Gear.State = 0 then DeleteGear(Gear) |
559 end; |
559 end; |
|
560 |
|
561 //////////////////////////////////////////////////////////////////////////////// |
|
562 procedure doStepExplosion(Gear: PGear); |
|
563 begin |
|
564 inc(Gear.Timer); |
|
565 if Gear.Timer > 75 then |
|
566 begin |
|
567 inc(Gear.State); |
|
568 Gear.Timer:= 0; |
|
569 if Gear.State > 5 then DeleteGear(Gear) |
|
570 end; |
|
571 end; |