equal
deleted
inserted
replaced
329 if Hedgehog.Gear <> nil then |
329 if Hedgehog.Gear <> nil then |
330 with Hedgehog do |
330 with Hedgehog do |
331 begin |
331 begin |
332 if (AmmoType <> amNothing) then |
332 if (AmmoType <> amNothing) then |
333 begin |
333 begin |
334 CurMinAngle:= Ammoz[AmmoType].minAngle; |
334 if ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope)) then |
335 if Ammoz[AmmoType].maxAngle <> 0 then |
335 begin |
336 CurMaxAngle:= Ammoz[AmmoType].maxAngle |
336 CurMaxAngle:= Ammoz[amRope].maxAngle; |
|
337 CurMinAngle:= Ammoz[amRope].minAngle; |
|
338 end |
337 else |
339 else |
338 CurMaxAngle:= cMaxAngle; |
340 begin |
|
341 CurMinAngle:= Ammoz[AmmoType].minAngle; |
|
342 if Ammoz[AmmoType].maxAngle <> 0 then |
|
343 CurMaxAngle:= Ammoz[AmmoType].maxAngle |
|
344 else |
|
345 CurMaxAngle:= cMaxAngle; |
|
346 end; |
339 |
347 |
340 with Hedgehog.Gear^ do |
348 with Hedgehog.Gear^ do |
341 begin |
349 begin |
342 if Angle < CurMinAngle then |
350 if Angle < CurMinAngle then |
343 Angle:= CurMinAngle; |
351 Angle:= CurMinAngle; |