equal
deleted
inserted
replaced
2761 |
2761 |
2762 const upd: Longword = 0; |
2762 const upd: Longword = 0; |
2763 var |
2763 var |
2764 i: LongWord; |
2764 i: LongWord; |
2765 HHGear: PGear; |
2765 HHGear: PGear; |
|
2766 sparkles: PVisualGear; |
2766 begin |
2767 begin |
2767 AllInactive := false; |
2768 AllInactive := false; |
2768 |
2769 |
2769 HHGear := Gear^.Hedgehog^.Gear; |
2770 HHGear := Gear^.Hedgehog^.Gear; |
2770 HHGear^.State := HHGear^.State or gstNoDamage; |
2771 HHGear^.State := HHGear^.State or gstNoDamage; |
2771 DeleteCI(HHGear); |
2772 DeleteCI(HHGear); |
2772 |
2773 |
2773 Gear^.X := HHGear^.X; |
2774 Gear^.X := HHGear^.X; |
2774 Gear^.Y := HHGear^.Y; |
2775 Gear^.Y := HHGear^.Y; |
|
2776 if Gear^.Message and gmPrecise <> 0 then |
|
2777 begin |
|
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; |
|
2780 end; |
2775 |
2781 |
2776 i := 2; |
2782 i := 2; |
2777 repeat |
2783 repeat |
|
2784 |
2778 Gear^.X := Gear^.X + HHGear^.dX; |
2785 Gear^.X := Gear^.X + HHGear^.dX; |
2779 Gear^.Y := Gear^.Y + HHGear^.dY; |
2786 Gear^.Y := Gear^.Y + HHGear^.dY; |
2780 HHGear^.X := Gear^.X; |
2787 HHGear^.X := Gear^.X; |
2781 HHGear^.Y := Gear^.Y; |
2788 HHGear^.Y := Gear^.Y; |
2782 |
2789 |