hedgewars/uGears.pas
changeset 3111 38e0f05afbdb
parent 3110 c8d7c852e26a
child 3112 f1bbe35ddb83
equal deleted inserted replaced
3110:c8d7c852e26a 3111:38e0f05afbdb
   947     end else
   947     end else
   948 
   948 
   949 if (Gear^.State and gstHHDriven) <> 0 then
   949 if (Gear^.State and gstHHDriven) <> 0 then
   950     begin
   950     begin
   951     if ((Gear^.State and gstHHThinking) = 0) and
   951     if ((Gear^.State and gstHHThinking) = 0) and
   952        ShowCrosshair and
   952        (ShowCrosshair or ((CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtRope))) and
   953        ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
   953        ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
   954         begin
   954         begin
   955 (* These calculations are a little complex for a few reasons:
   955 (* These calculations are a little complex for a few reasons:
   956    1: I need to draw the laser from weapon origin to nearest land
   956    1: I need to draw the laser from weapon origin to nearest land
   957    2: I need to start the beam outside the hedgie for attractiveness.
   957    2: I need to start the beam outside the hedgie for attractiveness.