SRL Archive - General Botting Help

[RSPS] Make bot repeat


xX4m4zingXx

2014-03-23 16:54:55

I want to make this bot repeat attacking when my xpbar doesn't change
i got this code already
Program AttachMonster;
{$I RSPS/srlRSPS.Simba}
function differentCount(time:integer): Boolean;
var
_white_count:integer;
begin
_white_count := countColorTolerance(16646143, 429, 80, 516, 95, 5);
Wait(time);
result := (_white_count <> countColorTolerance(16646143, 429, 80, 516, 95, 5));
end;

function inCombat:boolean;
begin
result := differentCount(3300);
end;

Procedure AttackMonster
var
X,Y:Integer;
begin
if FindColorTolerance (X, Y, 10337744, 44, 91, 556, 425, 2) then
begin
MouseSpeed := 15;
Mouse(x, y);
end
else
begin
writeln('Couldnt find any monsters')
end;
end;
begin
AttackMonster;
end.

xX4m4zingXx

2014-03-27 10:22:05

Bump

Olly

2014-03-27 11:16:34

begin
while (not inCombat()) do
AttackMonster();
end.

xX4m4zingXx

2014-03-28 18:23:50

i added that but now i get this error.
http://villavu.com/forum/showthread.php?t=108534&p=1290045#post1290045
*Fixed