Some one put this script on Srl and i just edited some stuff and for some reason the mouse moves very slow.... i would be very grateful if someone can help edit it and fix some stuff. TY! (This script is not mine)
program TheKiller;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}
const
Victim =10329513; {Color of the victim}
Victim2 =7238262; {Second color, duhhh...}
Loot =1544882; {Color of whatever drop you want}
BonesFloor =9671841; {Color of the bones on the floor}
Bones =13356242; {Color of the bones in the inventory}
{Dir ='S' ; {Direction to run if Attack fails}
{Dist =False; {Distance to run if Attack fails, False = short, True = long}
T =25 ; {Time to wait between fighting and collecting loot}
var
x, y : integer;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
5: HoverSkill('Smithing', False);
11: RandomMovement;
15: BoredHuman;
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure AntiRandoms;
begin
FindTalk;
if FindNormalRandoms then
FindLamp('Strenght');
if FindFight then
begin
RunAway('E', True, 1, 5000);
Wait(10000+random(2000));
end;
end;
procedure Attack;
begin
if FindColor(x, y, Victim , 0, 0, 630, 420) or
FindColor(x, y, Victim2, 0, 0, 630, 420) then
begin
Mouse(x,y,20,20,False);
if not ChooseOption('Attack') then exit;
end;
AntiBan;
Wait(T*1000)
end;
procedure TakeLoot;
begin
if(FindColor(x, y, Loot, 0, 0, 516, 333))then
begin
Mouse(x,y,3,3,False);
ChooseOption('Take');
end;
Wait(1000);
if(FindColor(x, y, BonesFloor, 0, 0, 516, 333))then
begin
Mouse(x,y,3,3,False);
ChooseOption('Take');
end;
end;
{This is the program itself}
begin
repeat
{repeat
N := 0;
N := N + 1;}
AntiBan;
Attack;
if InFight then repeat
Wait(2000);
until not InFight;
TakeLoot;
{until N = 10;}
until(False);
end.


Reply With Quote







