is this even YOURS!?
{Made by Qwerty_9990}
(in line 3)
i added in what i fixed (login player) pickflax (fixed) anti randoms anti ban and dropping procedure.
ok for a few things, try to not use that high
detail...most/all scripts are made in low.
secondly
DONT USE
MouseMouseSmooth(x,y);
ClickMouse(x,y,True);
that =
if MoveMouseSMooth(x,y);
ClickMouse(x,y,True) then
=BANN!!!
use MMouse and Mouse
MMouse = //Move mouse\\
Mouse = //CLick mouse\\
there basic clicking things
also under
program example;
//put this in\\
{.Include SRL/SRL.Scar}
that will let you use basic SRL functionssuch as DTM's etc..
ill add in what you have + a new verions just with MMouse/Mouse
just so you learn
here it is add me to creds if you use this :D
{Made by Cycrosism(i think:P) and JOELSTER!#$}
{Go to the flax feild and run the script}
//drops flax now :) (added in by Joelster134\\
//Added by Joelster134\\
program FlaxPicker;
{.Include SRL/SRL.Scar}
const
FlaxColor = 11842636; //Use color dibber if this doesn't work
var
x,y: Integer;
i: Integer;
procedure DeclarePlayers; //added by Joelster134\\
begin
HowManyPlayers:= 1; //Change to your liking :)
NumberOfPlayers(HowManyPlayers);
Players[0].Name:='te'; //username
Players[0].Pass:='flls'; //Password
Players[0].Nick:='eh'; //Nickname here 3-4 letters no nums
Players[0].Active:= True ; //Are you using this player?
Players[0].Worked:= 100 ; //How many Loads you wanna do
{ Players[1].User:='Username'; //username
Players[1].Pass:='Password'; //Password
Players[1].Nick:='Nickname'; //Nickname here 3-4 letters no nums!
Players[1].Active:='True' ; //Are you using this player?
Players[1].Worked:= 100 ; //How many Loads you wanna do }
end;
///////////////---------->>>>>DO NOT TOUCH BELOW!!!<<<<<<---------\\\\\\\\\\\\\
procedure AntiBan; //added by Joelster134\\
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3220 + Random(2415));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
{~~~~~~~~~~~~~~~~~~~~~~~~)
(Anti-Randoms are here! )
(~~~~~~~~~~~~~~~~~~~~~~~~}
procedure AntiRandoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
begin
ClearDebug;
if FindColorTolerance(x,y,FlaxColor,0,0,1280,1024) then //this way it will find it on anyones\\ //Added by Joelster134\\
Begin
repeat
FindColorTolerance(x,y,FlaxColor,0,0,1280,1024); //Added by Joelster134\\
Writeln('Picking Flax');
MMouse(x,y); //instead of MoveMouse\\ //Added by Joelster134\\
AntiRandoms; //Stops Randoms\\ //Added by Joelster134\\
Wait(1+random(5));
Mouse(x,y,true); //instead of CLickMouse\\ //Added by Joelster134\\
AntiRandoms;//Stops Randoms\\ //Added by Joelster134\\
Wait(3000+random(1000));
AntiBan;//Stops ban\\ //Added by Joelster134\\
AntiRandoms; //STops randoms\\ //Added by Joelster134\\
end;
end;
procedure DropLogsFast;//Credits to P1nky from his Anywhere PowerChopper
var
i: Integer;
begin
AntiRandoms;
AntiBan;
if not (InvFull) then exit; Gametab(4);
for i := 2 To 28 Do
begin
AntiRandoms;
If ExistsItem(i) then
DropItem(i);
until(false);
end;
Writeln('You will NEVER see this message');
end.
//also dont add in the line
//AntiBan; to often because it will make the script slow..
keep reading tutorials and keep posting :)
Welcome to SRL
~~Joel~~