Joined your HoloHYRDRAM forums :)
ALso try not to use co-ords ver bannable,
ok adding in a log in is simple…
under your
program Example;
put in
program Example;
{.Include SRL/SRL.Scar}
that will automaticlly come with any SRL functions such as login etc..
now to make a login have this in your script (first procedure)
procedure DeclarePlayers;
begin
HowManyPlayers:= 1; //Change to your liking :)
NumberOfPlayers(HowManyPlayers);
Players[0].Name:=''; //username
Players[0].Pass:=''; //Password
Players[0].Nick:=''; //Nickname here 3-4 letters no nums
Players[0].Active:= True ; //Are you using this player?
Players[0].Worked:= 10 ; //How many fishing trips do you want to 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;
that is your login script.
for logout just have
Logout;
nice try for first script, for anti-ban/randoms add in this
procedure AntiBan;
//Example of anit-ban\\
procedure AntiBan;
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(3200 + Random(2415));
GameTab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
for anti-randoms have something like
procedure AntiRandoms;
begin
FindNormalRandoms;
if FindFight then
begin
RunAway('W',True,1,5000+Random(1000));
end;
end;
now to make it work, add in something like
(this is taken out of your script the (ClickCLerk Function/procedure)
procedure ClickClerk;
var x, y , x2, y2:Integer;
begin
BitmapSetup;
FindColor(x, y, 4006702, 3, 3, 516, 338);
MMouse(x, y, 3, 3);
case(IsUpText('Talk')) of
True: WriteLn('Notice: Clerk location confirmed.');
False: WriteLn('Warning: Clerk location unconfirmed.');
end;
Mouse(x, y, 3, 3, False);
AntiRandoms; //ADD IN THIS AROUND IT SO IT WILL LOOK FOR RANDOMS WHILE PERFORMING THE SCRIPT\\
Wait(1000 + random(100) - random(100));
FindBitmap(Exchange, x2, y2);
Mouse(x2, y2, 2, 2, True);
FBmp;
Wait(1000 + random(100) - random(100));
AntiRandoms;
end;
kind of hard to add in Anti-Ban because it has a different window open but you could put in
(from your close GE procedure)
procedure CloseGE;
begin
Mouse(485, 40, 2, 2, True);
Wait(2500 + random(100) - random(100));
AntiBan;
AntiRandoms;
end;
ill take a longer look through this script and post up a fixed version (if you want)
also might wanna replace Bitmaps with DTM's or something (if you want)
or use FindObjCustom
like (from my chicken raper for example)
function KillChicken: boolean;
var
X, Y, Mark, Check: Integer;
begin
Check := ChickensKilled;
if FindObjCustom(x, y, ['hick', 'ken','chi' ], [2572628, 6916764, 9155272, 3627895, 5928325], 3) then
begin
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
Good attempt for first script :)
Welcome to SRL
~~Joel~~