equal
deleted
inserted
replaced
818 sx, |
818 sx, |
819 sy, |
819 sy, |
820 0, |
820 0, |
821 sign, |
821 sign, |
822 0); |
822 0); |
823 amBaseballBat: DrawHedgehog(sx, sy, |
823 amBaseballBat: |
|
824 begin |
|
825 HatVisible:= true; |
|
826 DrawHedgehog(sx, sy, |
824 sign, |
827 sign, |
825 0, |
828 0, |
826 5, |
829 5, |
827 0); |
830 0); |
|
831 end |
828 else |
832 else |
829 DrawHedgehog(sx, sy, |
833 DrawHedgehog(sx, sy, |
830 sign, |
834 sign, |
831 0, |
835 0, |
832 4, |
836 4, |
1026 amt:= CurrentHedgehog^.CurAmmoType; |
1030 amt:= CurrentHedgehog^.CurAmmoType; |
1027 case amt of |
1031 case amt of |
1028 amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0); |
1032 amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0); |
1029 end |
1033 end |
1030 end; *) |
1034 end; *) |
1031 if CurAmmoGear <> nil then |
1035 if (CurAmmoGear = nil) then |
|
1036 begin |
|
1037 if ((Gear^.State and (gstAttacked or gstAnimation or gstHHJumping)) = 0) |
|
1038 and (Gear^.Message and (gmLeft or gmRight) = 0) then |
|
1039 begin |
|
1040 amt:= CurrentHedgehog^.CurAmmoType; |
|
1041 case amt of |
|
1042 amBaseballBat: DrawSpritePivotedF(sprHandBaseball, |
|
1043 sx + 9 * sign, sy + 2, 0, sign, -8, 1, aangle); |
|
1044 end; |
|
1045 end; |
|
1046 end |
|
1047 else |
1032 begin |
1048 begin |
1033 aangle:= Gear^.Angle * 180 / cMaxAngle - 90; |
1049 aangle:= Gear^.Angle * 180 / cMaxAngle - 90; |
1034 case CurAmmoGear^.Kind of |
1050 case CurAmmoGear^.Kind of |
1035 gtJetpack: begin |
1051 gtJetpack: begin |
1036 DrawSprite(sprJetpack, sx-32, sy-32, 0); |
1052 DrawSprite(sprJetpack, sx-32, sy-32, 0); |