equal
deleted
inserted
replaced
673 dec(Gear.Timer); |
673 dec(Gear.Timer); |
674 end; |
674 end; |
675 |
675 |
676 //////////////////////////////////////////////////////////////////////////////// |
676 //////////////////////////////////////////////////////////////////////////////// |
677 procedure doStepCase(Gear: PGear); |
677 procedure doStepCase(Gear: PGear); |
678 var i: integer; |
678 var i, x, y: integer; |
679 begin |
679 begin |
680 if (Gear.Message and gm_Destroy) > 0 then |
680 if (Gear.Message and gm_Destroy) > 0 then |
681 begin |
681 begin |
682 DeleteGear(Gear); |
682 DeleteGear(Gear); |
683 exit |
683 exit |
684 end; |
684 end; |
685 |
685 |
686 if Gear.Damage > 0 then |
686 if Gear.Damage > 0 then |
687 begin |
687 begin |
688 DeleteGear(Gear); |
688 x:= round(Gear.X); |
689 doMakeExplosion(round(Gear.X), round(Gear.Y), 25, EXPLAutoSound); |
689 y:= round(Gear.Y); |
|
690 DeleteGear(Gear); |
|
691 doMakeExplosion(x, y, 25, EXPLAutoSound); |
690 for i:= 0 to 63 do |
692 for i:= 0 to 63 do |
691 AddGear(round(Gear.X), round(Gear.Y), gtFlame, 0); |
693 AddGear(x, y, gtFlame, 0); |
692 exit |
694 exit |
693 end; |
695 end; |
694 |
696 |
695 if (Gear.dY <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
697 if (Gear.dY <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
696 begin |
698 begin |