Rucoy Farmer v2 ( A Rucoy Online Bot )

**kurrluagaming** · 08-06-2017, 07:35 PM

I have so far, used the melee class and I corrected the script to "warrior" as it says in the script, and I picked out two colors of the Goblins (green on head, brownish cape) and done that, according to the steps I have done everything correctly, and it still comes up with an error about line 277, saying something about the "xe" and I'm not sure what I'm doing wrong, I'm not really computer smart, and I've been trying to use this for training purposes. If you get the time to help, it would be highly appreciated.

**shenjade** · 08-17-2017, 02:19 AM

Doesn't work for me. I keep getting this:

Error: You passed a wrong xe to a finder function: 1200. The client has a width of 926, thus the xe is out of bounds. at line 99
Execution failed.

**rucoy m** · 08-28-2017, 07:35 AM

Originally Posted by shenjade

Doesn't work for me. I keep getting this:

Error: You passed a wrong xe to a finder function: 1200. The client has a width of 926, thus the xe is out of bounds. at line 99
Execution failed.

I too was having this similar issue and i fixed it by switching to bluestacks 2. Ensure your settings are set to 1280x720 and this should work fine

**JimmyJay** · 09-04-2017, 06:05 PM

No matter what colors I pick, this just ends up clicking my character repeatedly

**rubesom** · 09-09-2017, 03:08 PM

Hello

Where I can find script for rucoy?

**Citrus** · 09-09-2017, 05:28 PM

Originally Posted by rubesom

Hello

Where I can find script for rucoy?

https://villavu.com/forum/showthread...29#post1385729

**Aspect** · 09-10-2017, 10:32 PM

Originally Posted by rubesom

Hello

Where I can find script for rucoy?

Sorry bro, took it down.

**ACIDTRIP84** · 09-24-2017, 12:06 PM

hi i hget this error always and it doesnt start to work:

Error: You passed a wrong xe to a finder function: 1150. The client has a width of 816, thus the xe is out of bounds. at line 275

please help

**smaciek** · 09-25-2017, 05:07 PM

Hey,

What Bluestack version are you using? Is it 2? Currently official version is 3 what does not work along with your script.
What is your desktop resolution?

**HASHIROH** · 11-08-2017, 02:50 PM

hola como están ... necesito uno limpio. solo que haga click en color nada mas...
si pueden pasar.

**HASHIROH** · 11-10-2017, 03:07 AM

hola como están revisen lo limpie un poco... y mejore la puntería ----)O
para que quieren que se mueva se pone mas loco... lo use con los duendes verdes lvl 15 :F:
-------------------------------------------------------------------------------------- :ardiente: traten de ayudar :ardiente: -
-------------------------------------------------------------------------------------
var
tx, ty, tx1, ty1, i, x, y: integer;
monsterColor, monsterColor1: TPointArray;
monsters, monsters1: T2DPointArray;
monsterPoint, monsterPoint1: TPoint;
clickPoint: TPoint;
check1, check2 : boolean;

const
CombatType = 'warrior'; //Set to either warrior, range, or mage
UseAbility = FALSE; //True or False to use abilities or not.
ColorOfMonster = 4097825; //Enter the first color of the monster
SecondMonsterColor = 4097825; //Enter the second color of the monster
maxDistance = 75; //Max distance between monster colors ( You can leave this alone )
waitTimeBetweenClicks = 250; //Wait time between clicking monsters in miliseocnds.
UseHealthPots = FALSE; //True or False to use Health Pots if Health gets low
UseManaPots = FALSE; //True Or False to use Mana Potions When Mana is low
UseAutoReply = True; //Use auto reply if someone sends you a message.
ServerNum = 5; //Server to switch to if someone messages you (1-6 at the moment)
reply = 'cant talk right now, sorry'; //The message sent to someone who wispers you)
closeInterface = True; //Set to false if bot keeps opening and closing interface
ToleranceOfMonster = 0;

function findDemo(): Boolean;
var
x, y, x1, y1: integer;
TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 494, 226, 725, 457, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
end;
end

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));

if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function range(): Boolean;
var
x, y, x1, y1: integer;
TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(700));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+50, ty);
ClickMouse(tx+50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-50, ty);
ClickMouse(tx-50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function mage(): Boolean;
var
x, y, x1, y1: integer;
TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+50, ty);
ClickMouse(tx+50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-50, ty);
ClickMouse(tx-50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

begin
case CombatType of
'warrior':
begin
repeat
begin
repeat
findDemo();
until (findDemo() = false);
if (closeInterface = true) then
end
until false;
end
'range':
begin
repeat
begin
repeat
range();
until (range() = false);
if (closeInterface = true) then
end
until false;
end
'mage':
begin
repeat
begin
repeat
mage();
until (mage() = false);
if (closeInterface = true) then
end
until false;
end
end
end

**Anonimowany** · 11-10-2017, 06:19 PM

hey dude, not working line 27
Error: Found unexpected token "SemiColon" at line 27
Compiling failed.

**HASHIROH** · 11-12-2017, 10:35 PM

este sirve esta limpio uso dos, uno para el oro y otro para atacar ..... con emulador nox y uso su macro recorder para no trabar el personaje...grabo macro: uno arriba uno abajo uno a la derecha y a la izquierda ... 60 SEGUNDOS DE ESPERARUCOY ONLINE.jpg
.................................................. .................................................. .................................................. .................................................. .................................................. .....
--------------------------------------
RECOLECTAR ORO------------------------
--------------------------------------
--------------------------------------
var
tx, ty, tx1, ty1, i, x, y: integer;
monsterColor, monsterColor1: TPointArray;
monsters, monsters1: T2DPointArray;
monsterPoint, monsterPoint1: TPoint;
clickPoint: TPoint;
check1, check2 : boolean;

const
CombatType = 'warrior'; //Set to either warrior, range, or mage
UseAbility = FALSE; //True or False to use abilities or not.
ColorOfMonster = 2013851; //Enter the first color of the monster
SecondMonsterColor = 2013851 ; //Enter the second color of the monster
maxDistance = 50; //Max distance between monster colors ( You can leave this alone )
waitTimeBetweenClicks = 1000; //Wait time between clicking monsters in miliseocnds.
UseManaPots = FALSE; //True Or False to use Mana Potions When Mana is low
UseAutoReply = True; //Use auto reply if someone sends you a message.
ServerNum = 5; //Server to switch to if someone messages you (1-6 at the moment)
reply = 'cant talk right now, sorry'; //The message sent to someone who wispers you)
closeInterface = True; //Set to false if bot keeps opening and closing interface
ToleranceOfMonster = 0;

function findDemo(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 494, 226, 725, 457, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end;
end

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));

if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function range(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+70, ty);
ClickMouse(tx+70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-70, ty);
ClickMouse(tx-70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function mage(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+70, ty);
ClickMouse(tx+70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-70, ty);
ClickMouse(tx-70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

begin
case CombatType of
'warrior':
begin
repeat
begin
repeat
findDemo();
until (findDemo() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
'range':
begin
repeat
begin
repeat
range();
until (range() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
'mage':
begin
repeat
begin
repeat
mage();
until (mage() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
end
end

ATAQUE ASECINO
-------------------

var
tx, ty, tx1, ty1, i, x, y: integer;
monsterColor, monsterColor1: TPointArray;
monsters, monsters1: T2DPointArray;
monsterPoint, monsterPoint1: TPoint;
clickPoint: TPoint;
check1, check2 : boolean;

const
CombatType = 'warrior'; //Set to either warrior, range, or mage
UseAbility = FALSE; //True or False to use abilities or not.
ColorOfMonster = 769968; //Enter the first color of the monster
SecondMonsterColor = 769968; //Enter the second color of the monster
maxDistance = 1000; //Max distance between monster colors ( You can leave this alone )
waitTimeBetweenClicks = 1500; //Wait time between clicking monsters in miliseocnds.
UseHealthPots = FALSE; //True or False to use Health Pots if Health gets low
UseManaPots = FALSE; //True Or False to use Mana Potions When Mana is low
UseAutoReply = True; //Use auto reply if someone sends you a message.
ServerNum = 5; //Server to switch to if someone messages you (1-6 at the moment)
reply = 'cant talk right now, sorry'; //The message sent to someone who wispers you)
closeInterface = True; //Set to false if bot keeps opening and closing interface
ToleranceOfMonster = 0;

function findDemo(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 494, 226, 725, 457, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
end;
end

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));

if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function range(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(700));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+50, ty);
ClickMouse(tx+50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-50, ty);
ClickMouse(tx-50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function mage(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin

if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));

result := true;
end
end;
end

if (closeInterface = true) then

if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+50, ty);
ClickMouse(tx+50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-50, ty);
ClickMouse(tx-50, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(70));

result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

begin
case CombatType of
'warrior':
begin
repeat
begin
repeat
findDemo();
until (findDemo() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
'range':
begin
repeat
begin
repeat
range();
until (range() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
'mage':
begin
repeat
begin
repeat
mage();
until (mage() = false);

if (closeInterface = true) then

if UseManaPots = true then

end
until false;
end
end
end

**HASHIROH** · 11-16-2017, 10:36 PM

sirve o no ?

**HASHIROH** · 11-16-2017, 10:37 PM

:revolver la olla:

**onetear** · 12-18-2017, 11:49 AM

yo necesito una script para atacar a todos los monstruos que esten a mi alrededor pero no me funcionan o lo hacen mal

**onetear** · 12-21-2017, 11:27 AM

please someone got "Auto Attack all monsters" script?

**P1nky** · 12-21-2017, 03:34 PM

Goodness what's going on here LOL

! someone close this thread.

**onetear** · 12-21-2017, 05:44 PM

Originally Posted by P1nky

Goodness what's going on here LOL

! someone close this thread.

why?

**P1nky** · 12-21-2017, 06:27 PM

Originally Posted by onetear

why?

Because this script is broken. Your post "please someone got "Auto Attack all monsters" script?" is off-topic. Other languages are being spoken. Users are posting scripts without tags, it's a mess. Barely anyone is replying to the posts that require attention.

**KeepBotting** · 12-21-2017, 07:35 PM

This happens every once in a while. Somebody will post a script that's targeted at another game, and the thread will get flooded with members of that community all asking for help. Naturally they're ignorant of our community and its rules, so they look like random rabble, or spambots, when in reality they're Venezuelan gold farmers or something.

This is especially prevalent when the game in question is a crappy mobile app that skids can earn a few bucks from by using BlueStacks and a script. Such is life I suppose.

I guess this is what the "Non-RuneScape Scripts" section is for, but jeez is it ever a sight to be seen.

**Aspect** · 12-22-2017, 04:29 PM

Originally Posted by P1nky

Because this script is broken. Your post "please someone got "Auto Attack all monsters" script?" is off-topic. Other languages are being spoken. Users are posting scripts without tags, it's a mess. Barely anyone is replying to the posts that require attention.

The script works fine if instructions are followed, but as Keep Botting said, this thread is full of people who have no clue about scripting. This is the first time they have probably even seen a simba script. Some of them have figured it out and went on to make new projects, some have tweaked this one to make it the way then need it. But for the most part it's a leecher haven. I'm not interested in helping those who are having issues because there is a detailed video tutorial. The ones having issues are trying to use a different android emulator, not using the correct settings, trying to download it on a phone or something along those lines.

Then again, the script may actually may be broken. I can't tell because of the amount of spam from people who have no clue whats going on.

**botscaper** · 12-23-2017, 02:26 AM

nice

**hungthug** · 01-01-2018, 02:53 PM

Originally Posted by Aspect

The script works fine if instructions are followed, but as Keep Botting said, this thread is full of people who have no clue about scripting. This is the first time they have probably even seen a simba script. Some of them have figured it out and went on to make new projects, some have tweaked this one to make it the way then need it. But for the most part it's a leecher haven. I'm not interested in helping those who are having issues because there is a detailed video tutorial. The ones having issues are trying to use a different android emulator, not using the correct settings, trying to download it on a phone or something along those lines.

Then again, the script may actually may be broken. I can't tell because of the amount of spam from people who have no clue whats going on.

Hello. I usually Doin't make a post, but i feel it is needed. I'm running windows 10, And using the Bluestacks Emulator. I Have it set to direct X, and the 1280/720 Res. I've picked the color, for mummies, assisans, As well as pharaoh. I've also selected the window, tried both scripts, the v4, v4.2. And both of them pretty much do the same thing for me. They might click once, and kill a monster, but never again, or just start clicking all over The place. I'm on limited Bandwith, so i'm not able to upload a video for you at this time, But if you like i can post the script i'm using.

var
tx, ty, tx1, ty1, i, x, y: integer;
monsterColor, monsterColor1: TPointArray;
monsters, monsters1: T2DPointArray;
monsterPoint, monsterPoint1: TPoint;
clickPoint: TPoint;
check1, check2 : boolean;

const
CombatType = 'warrior'; //Set to either melee, range, or mage
UseAbility = True; //True or False to use abilities or not.
ColorOfMonster = 11734684; //Enter the first color of the monster
SecondMonsterColor = 11762702; //Enter the second color of the monster
maxDistance = 100; //Max distance between monster colors ( You can leave this alone )
waitTimeBetweenClicks = 1000; //Wait time between clicking monsters in miliseocnds.
UseHealthPots = True; //True or False to use Health Pots if Health gets low
UseManaPots = True; //True Or False to use Mana Potions When Mana is low
UseAutoReply = True; //Use auto reply if someone sends you a message.
ServerNum = 5; //Server to switch to if someone messages you (1-6 at the moment)
reply = 'cant talk right now, sorry'; //The message sent to someone who wispers you)
ToleranceOfMonster = 0;

procedure changeServer;
var
serverNumber, x1, y1: Integer;
begin
serverNumber := 1;
MoveMouse(1183, 32);
wait(500 + random(100));
ClickMouse(1183, 32, mouse_Left);
MoveMouse(1000, 41);
wait(500 + random(100));
ClickMouse(1000, 41, mouse_Left);
MoveMouse(1000, 41);
wait(500 + random(100));
ClickMouse(1000, 41, mouse_Left);

//begin server

case ServerNum of
1:
begin
MoveMouse(229, 235);
ClickMouse(229, 235, mouse_Left);
end
2:
begin
MoveMouse(232, 311);
ClickMouse(232, 311, mouse_Left);
end
3:
begin
MoveMouse(225, 386);
ClickMouse(225, 386, mouse_Left);
end
4:
begin
MoveMouse(221, 476);
ClickMouse(221, 476, mouse_Left);
end
5:
begin
MoveMouse(220, 543);
ClickMouse(220, 543, mouse_Left);
end
6:
begin
MoveMouse(590, 236);
ClickMouse(590, 236, mouse_Left);
end
7:
begin
MoveMouse(611, 400);
ClickMouse(611, 400, mouse_Left);
end
8:
begin
MoveMouse(613, 315);
ClickMouse(613, 315, mouse_Left);
end
end
wait(5000 + random(100))
repeat
begin
wait(500 + random(100));
writeln('waiting for message to go away');
end
until FindColor(x1, y1, 16545769, 121, 551, 594, 668) = false;
end

procedure checkloot;
var
x1, y1: Integer;
begin
if FindColor(x1, y1, 4168184, 1140, 150, 1200, 240) then
begin
writeln('FoundLoot');
MoveMouse(x1, y1);
wait(500 + random(100));
ClickMouse(x1, y1, mouse_Left);
wait(100 + random(100));
end;
end

procedure checkformessages;
var
x1, y1: Integer;
begin
if FindColor(x1, y1, 16545769, 121, 551, 594, 668) then
begin
writeln('Replying to message');
MoveMouse(1018, 38);
wait(500 + random(100));
ClickMouse(1018, 38, mouse_Left);
MoveMouse(928, 37);
wait(500 + random(100));
ClickMouse(928, 37, mouse_Left);
wait(1000 + random(100));
for i := 1 to length(reply) do
begin
SendKeys(reply[i], 50 + Random(75), 30 + Random(30));
Wait(99 + Random(43));
end;
MoveMouse(1124, 641);
wait(500 + random(100));
ClickMouse(1124, 641, mouse_Left);
MoveMouse(1031, 40);
wait(500 + random(100));
ClickMouse(1031, 40, mouse_Left);
MoveMouse(376, 32);
wait(500 + random(100));
ClickMouse(376, 32, mouse_Left);
MoveMouse(1183, 32);
wait(500 + random(100));
ClickMouse(1183, 32, mouse_Left);
changeServer;
end;
end

procedure DrinkPotion;
var
i: Integer;
begin
for i := 0 to 3 do
begin
MoveMouse(61, 621);
ClickMouse(61, 621, mouse_Left);
wait(500 + random(100));
end
end

procedure checkHealth;
var
Health: TPointArray;
begin
FindColorsSpiralTolerance(x, y, Health, 3289807, 1, 1, 381, 44, 0);
writeln('Current Health Pixels: ', IntToStr(length(Health)));
writeln('If Pixels < 5000, we will pot: ');
if (length(Health) < 5000) and (length(Health) > 500) then
DrinkPotion;
end

procedure useAbilityF;
var
randomnum : Integer;
Mana: TPointArray;
begin
FindColorsSpiralTolerance(x, y, Mana, 16563260, 1, 30, 500, 65, 0);
if (UseAbility = true) then
begin
randomnum := random(100);
if (randomnum > 90) then
if (length(Mana) > 500) then
begin
Writeln('Using Ability: ');
MoveMouse(60, 400);
wait(500 + random(100));
ClickMouse(60, 400, mouse_Left);
end
end
end

procedure DrinkManaPotion;
var
i: Integer;
begin
MoveMouse(54, 519);
ClickMouse(54, 519, mouse_Left);
wait(500 + random(100));
end

procedure checkMana;
var
Mana: TPointArray;
begin
FindColorsSpiralTolerance(x, y, Mana, 16563260, 1, 30, 500, 65, 0);
writeln('Current Mana Pixels: ', IntToStr(length(Mana)));
writeln('If Pixels < 400, we will pot: ');
if (length(Mana) < 400) and (length(Mana) > 500) then
DrinkManaPotion;
end

procedure checkForHealthBar;
var
Health: TPointArray;
begin
FindColorsSpiralTolerance(x, y, Health, 3289807, 1, 1, 381, 44, 0);
writeln('Checking if interface is open...');
if (length(Health) < 300) then
begin
writeln('Interface Open, Closing...');
MoveMouse(1183, 32);
wait(500 + random(100));
ClickMouse(1183, 32, mouse_Left);
wait(1000 + random(100));
end
end

procedure lookForMonsters;
var
randomside: Integer;
mousex, mousey: Integer;
begin
GetMousePos(mousex, mousey);
Writeln('Colour is ' + IntToStr(ColorOfMonster));
MoveMouse(RandomRange(150, 1000), RandomRange(139, 600));
wait(100 + random(100));
ClickMouse(RandomRange(150, 1000), RandomRange(139, 600), mouse_Left);
wait(3000 + random(100));
checkForHealthBar;
if (UseAutoReply = true) then
checkformessages;
end

function findDemo(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin
if UseHealthPots = true then
checkHealth;
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 494, 226, 725, 457, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
useAbilityF;
checkloot;
result := true;
end
end;
end
if UseHealthPots = true then
checkHealth;
if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));

if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
checkloot;
result := true;
end
end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function range(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin
if UseHealthPots = true then
checkHealth;
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
useAbilityF;
checkloot;
result := true;
end
end;
end
if UseHealthPots = true then
checkHealth;
checkForHealthBar;
if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+70, ty);
ClickMouse(tx+70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
checkloot;
result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-70, ty);
ClickMouse(tx-70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
checkloot;
result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

function mage(): Boolean;
var
x, y, x1, y1: integer;
Health: TPointArray;
distance: Integer;
begin
if UseHealthPots = true then
checkHealth;
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 385, 230, 800, 580, ToleranceOfMonster) then begin
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 385, 230, 800, 580, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Distance between the two colors found: ' + IntToStr(distance));
if (distance < maxDistance) then begin
MoveMouse(tx, ty);
ClickMouse(tx, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
useAbilityF;
checkloot;
result := true;
end
end;
end
if UseHealthPots = true then
checkHealth;
checkForHealthBar;
if (FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 494, 226, 725, 457, ToleranceOfMonster) = false) then
if FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 50, 5, 1150, 647, ToleranceOfMonster) then
if FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 50, 5, 1150, 647, ToleranceOfMonster) then
begin
monsters := TPAtoATPAEx(monsterColor, 60, 60);
monsterPoint := MiddleTPA(monsters[0]);
monsters1 := TPAtoATPAEx(monsterColor1, 60, 60);
monsterPoint1 := MiddleTPA(monsters1[0]);
tx := monsterPoint.X;
ty := monsterPoint.Y;
tx1 := monsterPoint1.X;
ty1 := monsterPoint1.Y;

distance := Round( Hypot(tx - tx1, ty - ty1) );
Writeln('Moving to Monster')

if (distance < maxDistance) then
if tx < 1100 then
begin
MoveMouse(tx+70, ty);
ClickMouse(tx+70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
checkloot;
result := true;
end
if tx > 1100 then
begin
MoveMouse(tx-70, ty);
ClickMouse(tx-70, ty, mouse_Left);
wait(waitTimeBetweenClicks + random(50));
checkloot;
result := true;
end

end
if not FindColorsSpiralTolerance(x, y, monsterColor, ColorOfMonster, 110, 12, 1150, 647, ToleranceOfMonster) then
if not FindColorsSpiralTolerance(x1, y1, monsterColor1, SecondMonsterColor, 110, 12, 1150, 647, ToleranceOfMonster) then
result := false;
end

begin
case CombatType of
'warrior':
begin
repeat
begin
repeat
findDemo();
until (findDemo() = false);
checkloot;
checkForHealthBar;
lookForMonsters;
if UseHealthPots = true then
checkHealth;
if UseManaPots = true then
checkMana;
end
until false;
end
'range':
begin
repeat
begin
repeat
range();
until (range() = false);
checkloot;
checkForHealthBar;
lookForMonsters;
if UseHealthPots = true then
checkHealth;
if UseManaPots = true then
checkMana;
end
until false;
end
'mage':
begin
repeat
begin
repeat
mage();
until (mage() = false);
checkloot;
checkForHealthBar;
lookForMonsters;
if UseHealthPots = true then
checkHealth;
if UseManaPots = true then
checkMana;
end
until false;
end
end
end

Thanks Again for any help!

**onetear** · 01-01-2018, 06:00 PM

Originally Posted by hungthug

Hello. I usually Doin't make a post, but i feel it is needed. I'm running windows 10, And using the Bluestacks Emulator. I Have it set to direct X, and the 1280/720 Res. I've picked the color, for mummies, assisans, As well as pharaoh. I've also selected the window, tried both scripts, the v4, v4.2. And both of them pretty much do the same thing for me. They might click once, and kill a monster, but never again, or just start clicking all over The place. I'm on limited Bandwith, so i'm not able to upload a video for you at this time, But if you like i can post the script i'm using.

Thanks Again for any help!

please can you make a video how run this script? i use the script and my character run for all screen like a crazy in all directions. i only want auto attack monsters, is posible? thank you

Thread: Rucoy Farmer v2 ( A Rucoy Online Bot )

Thread Tools

Thread Information

Users Browsing this Thread

Posting Permissions