equal
deleted
inserted
replaced
1929 with CurrentHedgehog^ do |
1929 with CurrentHedgehog^ do |
1930 if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then |
1930 if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then |
1931 begin |
1931 begin |
1932 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1932 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1933 with Ammoz[CurAmmoType] do |
1933 with Ammoz[CurAmmoType] do |
1934 if PosCount > 1 then |
1934 if PosCount > 0 then |
1935 begin |
1935 begin |
1936 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then |
1936 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then |
1937 begin |
1937 begin |
1938 // pulsating transparency |
1938 // pulsating transparency |
1939 if ((GameTicks div 16) mod $80) >= $40 then |
1939 if ((GameTicks div 16) mod $80) >= $40 then |