4777             end

  4777             end

  4778         else

  4778         else

  4779             if not ((Gear^.dX*ox + Gear^.dY*oy).isNegative) then

  4779             if not ((Gear^.dX*ox + Gear^.dY*oy).isNegative) then

  4780                 continue;

  4780                 continue;

  4781 

  4781 

  4786         isbullet:= (iterator^.Kind in [gtShotgunShot, gtDEagleShot, gtSniperRifleShot, gtSineGunShot, gtMinigunBullet]);

  4782         isbullet:= (iterator^.Kind in [gtShotgunShot, gtDEagleShot, gtSniperRifleShot, gtSineGunShot, gtMinigunBullet]);

  4787 

  4783 

  4788         r:= int2hwFloat(iterator^.Radius);

  4784         r:= int2hwFloat(iterator^.Radius);

  4789 

  4785 

  4790         if not (isbullet or iscake) then

  4786         if not (isbullet or iscake) then

  6601         Gear^.dY:= _90-(GetRandomf*_360)

  6597         Gear^.dY:= _90-(GetRandomf*_360)

  6602         end;

  6598         end;

  6603     end

  6599     end

  6604 end;

  6600 end;

  6605 

  6601 

  6606 procedure doStepCreeper(Gear: PGear);

  6603 procedure doStepCreeper(Gear: PGear);

  6607 var i,t,targDist,tmpDist: LongWord;

  6604 var i,t,targDist,tmpDist: LongWord;

  6608     targ, tmpG: PGear;

  6605     targ, tmpG: PGear;

  6609     tX, tY: hwFloat;

  6606     tX, tY: hwFloat;

  6610     vg: PVisualGear;

  6607     vg: PVisualGear;