equal
deleted
inserted
replaced
875 else |
875 else |
876 if HatVisibility > 0.0 then |
876 if HatVisibility > 0.0 then |
877 HatVisibility:= HatVisibility - 0.2; |
877 HatVisibility:= HatVisibility - 0.2; |
878 |
878 |
879 if HatVisibility > 0 then |
879 if HatVisibility > 0 then |
880 DrawTextureF(HatTex, |
880 if DefaultPos then |
881 HatVisibility, |
881 DrawTextureF(HatTex, |
882 hwRound(Gear^.X) + 1 + WorldDx, |
882 HatVisibility, |
883 hwRound(Gear^.Y) - 8 + WorldDy, |
883 hwRound(Gear^.X) + 1 + WorldDx, |
884 (RealTicks div 128 + Gear^.Pos) mod 19, |
884 hwRound(Gear^.Y) - 8 + WorldDy, |
885 hwSign(Gear^.dX), |
885 (RealTicks div 128 + Gear^.Pos) mod 19, |
886 32); |
886 hwSign(Gear^.dX), |
|
887 32) |
|
888 else |
|
889 DrawTextureF(HatTex, |
|
890 HatVisibility, |
|
891 hwRound(Gear^.X) + 1 + WorldDx, |
|
892 hwRound(Gear^.Y) - 8 + WorldDy, |
|
893 0, |
|
894 hwSign(Gear^.dX), |
|
895 32); |
887 end; |
896 end; |
888 |
897 |
889 |
898 |
890 with PHedgehog(Gear^.Hedgehog)^ do |
899 with PHedgehog(Gear^.Hedgehog)^ do |
891 begin |
900 begin |