SCAR Code:
program ClaySoftenerEdge;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
var
x, y, SoftClay, Bucket, Clay:integer;
const
SRLStatsID = ''; // 4 digit number which records autoing things
// get one at [url]http://stats.srl-forums.com[/url]
SRLStatsPassword = ''; // your SRLStatsID Password
RunDirection = 'N'; //N = North, E = East, S = South, W = West
//this is the direction to run, if your in a fight
Loads = 2; //how many loads to soft?
SmartWorld = 155; //What world to load smart in
Signed = False; //False = unsigned, slower and for multiplayer
//True = signed, faster and for 1 player only
procedure DeclarePlayers;
// you can add more if you want... make sure you change players[0] to
// players [1] etc.
// don't forget to change HowManyPlayers to the total amount of players!
begin
Status('Declaring Players');
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //your runescape account
Players[0].Pass := ''; // your runescape password of your account
Players[0].Nick := ''; //3 or 4 letters of the name, used for finding randoms
//zezima would be ezi for example
Players[0].Active := True; //do you want this account to auto? true = yes, false = no
end;
procedure LoadDTMs;
begin
SoftClay := DTMFromString('78DA63146360601060400179C17C0CFF81342' +
'310FF0702464E204398010D302291401A648E1401352A40829780' +
'1A90196C04D4F001090EFC6A00A9C006B5');
Bucket := DTMFromString('78DA63E4636060906240010B9ABD19FE03694' +
'620FE0F048C3C40061B031A60442281B438909020A04600482811' +
'50C30E241408A8610512A204D47000092E026A40EE15C0AF06003' +
'A920797');
Clay := DTMFromString('78DA63E4656060106440016B272733FC07D28' +
'C40FC1F0818F9810C760634C0884402695120C141408D00901021' +
'A006640F3F01359C408287801A909F84F1AB010039A30777');
end;
procedure SetUpSmart;
begin
Status('Setting up SMART!');
smartSetupex(SmartWorld, False, Signed);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
end;
procedure DontGetBanned;
begin
if not LoggedIn then
Exit;
Status('Performing Antiban');
case Random(68) of
0: HoverSkill('Mining', False);
1: HoverSkill('Smithing', false);
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4)
end;
3: BoredHuman;
4: AlmostLogout;
5: DoEmote(400 + Random(90));
end;
end;
Procedure FindFightEx;
Begin
If(FindFight) then
Begin
Status('Fight found!');
Writeln('Our player is being attacked!')
Writeln('Lets run away!')
Begin
Status('Running away!');
WriteLn('Running....')
RunAway(RunDirection,False,1,8000+Random(3000))
WriteLn('Successfully ran away from fight!')
end;
end;
end;
Procedure AntiRandoms;
var
i : Integer;
Begin
Status('Doing AntiRandoms');
for i := 0 to 3 do
FindNormalRandoms;
FindFightEx;
FindNonInventoryRandoms;
wait(1)
end;
procedure WalkToFontain;
begin
if (not(loggedIn)) then exit;
status('Walking To Fontain');
radialWalk(findVarrockRoadColor,265,320,55,2,2);
FFlag(0);
end;
procedure FillTheBuckets;
begin
if (FindDTM(Bucket, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
mouse(x,y,1,1,true);
end;
if not (FindDTM(Bucket, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
writeln('Could not find the buckets, switching players!');
nextplayer(false);
end;
if FindObjCustom(x, y, ['ell'], [3493725, 4548473, 5862274],10) then
begin
mouse(x,y,2,2,true);
end else
begin
writeln('Could not find the well, switching players!');
nextplayer(false);
end;
end;
begin
LoadDTMs;
SetUpSmart;
SetupSRL;
DeclarePlayers;
Activateclient;
Repeat
if not loggedin then loginplayer;
SetAngle(true);
MakeCompass('N');
WalkToFontain;
FillTheBuckets;
Until(Not(Loggedin))
If (Not (LoggedIn)) then
Begin
NextPlayer(False);
end;
Disguise('FINISHED!');
end.