equal
deleted
inserted
replaced
2771 HHGear^.State := HHGear^.State or gstNoDamage; |
2771 HHGear^.State := HHGear^.State or gstNoDamage; |
2772 DeleteCI(HHGear); |
2772 DeleteCI(HHGear); |
2773 |
2773 |
2774 Gear^.X := HHGear^.X; |
2774 Gear^.X := HHGear^.X; |
2775 Gear^.Y := HHGear^.Y; |
2775 Gear^.Y := HHGear^.Y; |
2776 if Gear^.Message and gmPrecise <> 0 then |
2776 if (GameTicks mod 2 = 0) and ((Gear^.Message and (gmPrecise or gmSwitch)) = (gmPrecise or gmSwitch)) then |
2777 begin |
2777 begin |
2778 sparkles:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
2778 sparkles:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
2779 if sparkles <> nil then sparkles^.Tint:= (random(255) shl 24) or (random(255) shl 16) or (random(255) shl 8) or $FF; |
2779 if sparkles <> nil then sparkles^.Tint:= ((random(210)+45) shl 24) or ((random(210)+45) shl 16) or ((random(210)+45) shl 8) or $FF; |
2780 end; |
2780 end; |
2781 |
2781 |
2782 i := 2; |
2782 i := 2; |
2783 repeat |
2783 repeat |
2784 |
2784 |