Someone please help me (Freddy, Wanted, or wyn10)

[BryceTheCoder]

Ugg alright guys as you know iv been trying to make a lumbrige chickens bot fighter.. i have it here now:

 

//SCRIPT CREATED BY: Bryce7

{$DEFINE RS2}
{$DEFINE OSI_Color_Anti_Randoms}
{$DEFINE SMART}

{.include OSI\OSI.scar}
{.include OSI\RS2\Extended\Timing.scar}
{.include OSI\RS2\Misc\Anti-Ban.scar}

const
version = '0.2';//Do NOT Touch

var
 x, y, yupp: Integer;

procedure ScriptTerminate;
begin
 FreeOSI;
end;

procedure StartUp;
begin
 if(yupp = 0) then
 begin
   WriteLn('--------------------------------------------------------------');
   WriteLn('');
   WriteLn('-> YOU ARE RUNNING ON VERSION: ' + version);
   WriteLn('');
   WriteLn('Always make sure you have the latest version:)');
   WriteLn('');
   WriteLn('--------------------------------------------------------------');
   yupp:= 1;
 end;
 ClickCompass(True);
 Wait(200 + Random(500));
end;

procedure RandomMice;
var
 x, y: Integer;
begin
 x := Random(400);
 Wait(250 + Random(150));
 y := Random(300);
 Wait(50);
 MoveWindMouse(x, y, 25, 25);
 Wait(450 + Random(350));
 WriteLn('ANTIBAN: Randomly moving mouse.');
end;

procedure ClickIt;
var
 x, y: Integer;
begin
 if IsUpTextMulti(['Attack', 'Att','ack']) then
 begin
   SmartGetMousePos(x, y);
   Mouse(x, y, 1, 1, True);
   Writeln('Clicked!');
   Wait(2300 + Random(2800));
 end;
 if Random(5) = 0 then
 begin
   RandomMice;
   Wait(35 + Random(100));
 end;
end;

procedure FindNPC;
var
 w, h: Integer;
 p: TPoint;
 TPA: TPointArray;
begin
 GetClientDimensions(w, h);
 begin
   ColorToleranceSpeed(2);
   SetColorspeed2Modifiers(0.15, 1.31);
   if FindColorsTolerance(TPA, 3237255, MSX1, MSY1, MSX2, MSY2, 8) then
   begin
     p := TPA[Random(Length(TPA))];
     WriteLn('Found Chicken NPC: ' + IntToStr(p.x) + ', ' + IntToStr(p.y));
     //MMouse(x, y, 0, 0);WAS
     //MMouse(p.x, p.y, 0, 0);
     MoveWindMouse(p.x, p.x, 0, 0);//NOW
     Wait(100 + Random(200));
   end;
 end;
end;

begin
 SetupOSI;
 repeat
   StartUp;
   FindNPC;
   ClickIt;
 until False;
end.

 

 

And i got the code for tolerance colors from the Auto Color Aid v2.exe anndd it still goes on other retarded crap probably not even CLOSE to the color of the chickens.. but 1 out of 40 movements it will goto an actual chicken... Sooo i honestly give up unless someone can help me fix this good becuase im stressign my balls off nd i hate being hella stressed out :'(

[wyn10]

Ugg alright guys as you know iv been trying to make a lumbrige chickens bot fighter.. i have it here now:

 

procedure ClickIt;
var
 x, y: Integer;
begin
 if IsUpTextMulti(['Attack', 'Att','ack']) then
 begin
   SmartGetMousePos(x, y);
   Mouse(x, y, 1, 1, True);
   Writeln('Clicked!');
   Wait(2300 + Random(2800));
 end;
 if Random(5) = 0 then
 begin
   RandomMice;
   Wait(35 + Random(100));
 end;
end;

 

 

And i got the code for tolerance colors from the Auto Color Aid v2.exe anndd it still goes on other retarded crap probably not even CLOSE to the color of the chickens.. but 1 out of 40 movements it will goto an actual chicken... Sooo i honestly give up unless someone can help me fix this good becuase im stressign my balls off nd i hate being hella stressed out :'(

 

It due to Mouse(x, y, 1, 1, True);

 

It's randomizing X and y by one, so it can be -1, -1 away from it and it causes it to misclick.

 

Try Mouse(x, y, 0, 0, True);

[BryceTheCoder]

noooo thats not it... its finding OTHER colors than the chickens also.. trust me its not that.

[wyn10]

Fixed and tested.

 

procedure FindNPC;
var
 p: TPoint;
 TPA: TPointArray;
begin
   ColorToleranceSpeed(2);
   SetColorspeed2Modifiers(0.08, 0.11);
   if FindColorsTolerance(TPA, 3364977, MSX1, MSY1, MSX2, MSY2, 9) then
   begin
     p := TPA[Random(Length(TPA))];
     WriteLn('Found Chicken NPC: ' + IntToStr(p.x) + ', ' + IntToStr(p.y));
     Mouse(p.x, p.y, 0, 0, true);
     Wait(100 + Random(200));
   end;
 end;

Edited December 18, 2011 by wyn10

[BryceTheCoder]

omg dude. im really surprised you fixed it. Idk what colors u added that i didnt to the auto color helper that i didnt but omg thank you super much, works:)

[wyn10]

omg dude. im really surprised you fixed it. Idk what colors u added that i didnt to the auto color helper that i didnt but omg thank you super much, works:)

 

I changed your color modifiers, the actual color for FindColorsTolerance and your tolerance. Then incorprated OSi's Mouse.

 

No problem. .