491 if CurAmmoGear <> nil then |
491 if CurAmmoGear <> nil then |
492 begin |
492 begin |
493 case CurAmmoGear^.Kind of |
493 case CurAmmoGear^.Kind of |
494 gtShotgunShot: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle); |
494 gtShotgunShot: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle); |
495 gtRope: begin |
495 gtRope: begin |
|
496 if Gear^.X < CurAmmoGear^.X then |
|
497 begin |
|
498 dAngle:= 0; |
|
499 m:= 1 |
|
500 end else |
|
501 begin |
|
502 dAngle:= 180; |
|
503 m:= -1 |
|
504 end; |
496 DrawHedgehog(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, |
505 DrawHedgehog(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, |
497 1, |
506 m, |
498 1, |
507 1, |
499 0, |
508 0, |
500 DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) - 110); |
509 DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + dAngle); |
501 defaultPos:= false |
510 defaultPos:= false |
502 end; |
511 end; |
503 gtBlowTorch: begin |
512 gtBlowTorch: begin |
504 DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle); |
513 DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle); |
505 DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, |
514 DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, |