SCAR Code:
program AutoTalker;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL\SRL.scar}
// you forgot to inclue teh stuff.
var
Talked, Antibans, Totaltalks :integer;
const
message1 = 'hello';
message2 = 'how are you';
message3 = 'Im doing fine thankyou'; // You forgot a semicolon
Smartworld = 1;
Signed = true;
// Removed your run direction (Not needed).
Procedure Declareplayers;
begin
HowManyPlayers := 3; // Fixed it for you
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
players [0].Name := 'username';
players [0].pass := 'runescape password'
players [0].Nick := 'sern'
players [0].active := true;
end;
Procedure RandomCheck;
begin
FindNormalRandoms;
if FindFight then // ADDED this for You.
begin
MakeCompass('n');
mouse(630, 154, 5, 5, True);
fflag(0);
SleepAndMoveMouse(15000+random(5000));
Mouse(630, 15, 5, 5, True);
SleepAndMoveMouse(2000 + random(2000));
fflag(0);
end;
end;
// Also removed the old one over here. (NOT NEEDED)
procedure antiban;
begin
if not loggedin then exit;
case random (68) of
0: hoverskill('Random', false); // Mixed it up a bit.
1: hoverskill ('smithing', false);
2: begin
gametab(1 + random(12));
wait(500+Random(1000));
gametab(4);
end;
3: boredhuman;
4: PickupMouse;
end;
antibans := antibans+1;
end;
procedure Talk;
begin
if not loggedin then Exit;
case random (3) of
0: typesend(message1);
1: typesend(message2);
2: typesend(message3);
end;
totaltalks:=totaltalks+1;
end;
procedure Proggy;
begin
cleardebug;
writeln('+++++++++++++++++++++++++++++++++++++++++++++');
writeln('talked ' +inttostr(totaltalks)+'times!');
writeln('preformed '+Inttostr(antibans)+'antibans'); // Fixed your Writeln xD!
writeln('ran for' +timerunning);
writeln('++++++++++++++++++++++++++++++++++++++++++++');
end;
procedure mainloop;
begin
SMARTSetUpex(21, False, True, False);
SetTargetDC(SmartGetDC);
SetupSRL;
repeat
if talked >= 25 then
begin
writeln('we talked 25 times,next player.')
nextplayer(true);
end;
RandomCheck;
antiban;
proggy;
until(false);
end.
Thx go out to
Tickyy for correcting my errors =D