[POOL] Best Scar Glitter Bot

// MadSailor Seafight 1.7.9
// Test version Internal use only
{
  1.7.9
  # + Calculating minimum distance to target for one mouse click
  # + Distance, vector to target, away from target by vector
  # + Safety distance value in target list
  1.7.4
  # + Shooting on fast moving targets - event NPCs
  1.7.3
  # + Raid map - shoot minions
  # ! GoToNearestCorner - Stops repairing in case of Level 5 mate. *** Revision need ***
  1.7.2
  # + Harpoon targets 
  1.7.1
  # Core functions     + Status field recognition
  #                            + Zoom level 40 added
  1.6.2
  # Core functions:    * Repair bug fixed - seachart coodr now cleared correctly
  #                    + Map recognition
  #                    + Init params by map IDs
  1.6.1
  # Glitter harvester: + Fixed Stay away from island algorithm
  #                          + Init by Map ID ( manual )
  # 
  # Core functions:  +  Added KeepHP for repair on move
  #                          + Ship positions as integer value
  #                          + Non blocking algorithm for ShipOnMove
.....
}

procedure ShootEventTarget( TargetPos: TPoint; MinDist: integer; Ammo: TAmmoType; BP, AP: boolean );
var course: myCourseVector;
var notInMinDistance : boolean;
begin
  notInMinDistance := true;
  if( not ShipOnMove ) then
    StopRepair;
  SwitchAmmo(Ammo);
  //ArmorPlateOnOff(AP);
  //BlackPowderOnOff(BP);
  //vectortarget
  repeat                                                                                               
    if( IsTargetInRange and ( not IsShooting ) ) then
      TypeKey(KeyAttack);
    if( notInMinDistance ) then
      Begin
        [Hidden];
        if(Ship.[hidden]) then
        begin
          course := GetCourseVector( TargetPos, Ship.Loc ); 
          logMsg('ShootEventTarget: Valid and distances are '+inttostr(MinDist)+' / '+inttostr(course.Distance)+ ' Vector '+PointToStr(course.Vector));

[13:02:59] MadSailor Starting...
[13:02:59] Checking enviroment..
[13:02:59] Work Window possition (0,0,1672,989)
[13:02:59] Searching client elements
[13:02:59] Probing Seachart
[13:02:59] Probing Minimap
[13:02:59] Seachart found at top_left(340,215) down right(1139,814) corners
[13:02:59] Minimap found at top_left(1235,219) down right(1324,308) corners
[13:03:00] Map zoom level: 4
[13:03:00] UpperBarCP at (399,203)
[13:03:00] 1st checkpoint (382,177)
[13:03:00] 2nd checkpoint
[13:03:00] HP box found at (382,177)
[13:03:00] Searching belt
[13:03:00] InitControlBelt: 4738122
[13:03:00] All OK! Lets do some work
[13:03:00] Ship sector: (5,5)
[13:03:00] InitMapID: Search Point (710,195)
[13:03:00] InitMapID: MapFound 7/4
[13:03:00] InitRouteParams: Map changed to 7/4. Route parameters reinitialized with ShipRoute.RoutePoint (0,0);(1,4);(0,8);(3,5);(5,6);(8,8);(7,4);(8,0);(4,2)
[13:03:00] InitRouteParams: Forbidden Corner (-1,-1) and Island (1269,294)
[13:03:01] Ship next route point is (8,8)
[13:03:01] InitStatusBar: Entering
[13:03:01] ModeGlitters: Shoot on glittering
[13:03:01] SwitchOnGlitter: Switching Minimap view

[13:03:17] SearchEventShip: Exit
[13:03:18] FindGliiterOnSeachart: point(638,531) Go to get a glitter 

[13:03:39] SearchEventShip: New ship locatioon (1278,294)
[13:03:39] SearchEventShip: Event search and shoot status True2
[13:03:39] SearchEventShip: Event target Index 0
[13:03:39] SearchEventShip: Event target found at (742,494)
[13:03:40] SearchEventShip: Going to Event target at (742,494)
[13:03:41] ShootEventTarget: Valid and distances are 40000 / 401 Vector (-1,1)
[13:03:41] ShootEventTarget: Distances are 40000 / 401 Vector (-1,1) and Click points 199
[13:04:01] ShootEventTarget: Exit