SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
fuzzball109 - SRL Member Application Form
fuzzball109

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
No

Other Communitys


How Long have You Played Runescape
3 years lol

Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.

well i have been reading alot of tutorials including JADs tutorial on what to learn to become a srl member which helped alot!! i just figured out about scar like a couple months ago and i want to get better at scar scripts ….














down below is my willow cutter please help me on to make it better!!
i might post it if you think i should!!

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{————————Setup———————————
1. put all active players in draynor bank
2. setup players
3.hold the croshair down and on to rs and press play
4.watch the willows pile up!!
————————————————————–}
program whiteswc;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const


DirTorun = 'N';// if your getting owned by a random or something where do you want to run?
Loads = 1; //Loads to do before switching players.

// if the scripts doesnt find willow pick your own color

WillowColor = 0; //Color of willow tree on Main Screen
WillowColorB = 0; //another color of willow on Main Screen
WillowColorC = 0; //another color of willow on Main Screen
EntTextColor = 120276; //Text color for when an ent comes.




var GrassColor, GrassBMP, BankBMP, GBankColor, Tries, Willow: Integer;
EntCount, LoadsNum, LoadsNumB, BushWater, BushWaterColor, EntTextBMP: Integer;
DidRandomHappen: Boolean;


//setup he players or script wont work :'(



procedure DeclarePlayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

//hophully you know what your doing lol

Players[0].Name := 'dfdsd';//enter your user name for runescape.com
Players[0].Pass := '******';//enter your password
Players[0].Nick := 'fds';// 3 to 4 letters of your username example poop oop
Players[0].Active := True;// do u want to use this player?
Players[0].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[1].Name := '';
Players[1].Pass := ''; // if you dont wana use that many players set active as false
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Boolean1 := true;

Players[2].Name := '';
Players[2].Pass := ''; // if you dont wana use that many players set active as false
Players[2].Nick := '';
Players[2].Active := False;
Players[2].Boolean1 := False;

Players[3].Name := '';
Players[3].Pass := '';// if you dont wana use that many players set active as false
Players[3].Nick := '';
Players[3].Active := False;
Players[3].Boolean1 := False;

Players[4].Name := '';
Players[4].Pass := ''; // if you dont wana use that many players set active as false
Players[4].Nick := '';
Players[4].Active := False;
Players[4].Boolean1 := False;

Players[5].Name := '';
Players[5].Pass := ''; // if you dont wana use that many players set active as false
Players[5].Nick := '';
Players[5].Active := False;
Players[5].Boolean1 := False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;


procedure Signature;
begin
ClearDebug;
writeln(' whites wc!:');
wait(3000 + random(750));
end;
{

———-> Random Finding <———-

}

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidRandomHappen := true;
end;

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
FindFastRandoms;
if (FindNormalRandoms) then
DidRandomHappen := true;
FindNormalRandoms;
if (FindEnt(WillowColor)) then
begin
RunAwayDirection(DirToRun);
Flag;
Wait(5000 + random(1500));
RunBack;
DidRandomHappen := true;
EntCount := EntCount + 1;
end;
end;
{/////////////////////////////////////

———-> JAD Proggy <———-

/////////////////////////////////////}

procedure JADProggy;
begin
ClearDebug;
Writeln(' Thanks for using!!!!!!!!! : ');
Writeln(' srl-forums.com ');
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('|| JAD proggy ');
Writeln('|| thanks for using again!!!!!!!!!!!!!!!!!!!!!!! ');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
Writeln('|| Worked For : ' + ScriptTime2(2));
Writeln('|| Did ' + IntToStr(LoadsNum) + ' Loads ');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ');
Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('||Thanks for using My WCer, happy autoing to all and to all a good night :)');
SRLRandomsReport;
end;
{/////////////////////////////////////

———-> Walking to Willow <———-
YAY
/////////////////////////////////////}

procedure WalkToWillow;
begin
MakeCompass('N');
GrassBMP := BitmapFromString(8, 10, 'z78DA33333177357433A' +
'335E9483439D8D4E3275D2D0CD1C841A61E006F046F69');
BushWater := BitmapFromString(3, 6, 'z78DA33753237363434763' +
'1333632C0244D2DCC0D8D5C4CDC4C8C0D2D90C52122C8E266C6E6' +
'E68E66F84900E0D7170F');

BushWaterColor := AutoColorThis(BushWater, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(BushWaterColor, 75, 115, 70, 2, 2);
wait(6000 + random(1500));
Flag;
Wait(200 + random(100));
Tries := 0;
repeat
if(Tries = 40)then
begin
Writeln('Could not find willow… :( terminating script..');
TerminateScript;
end;
wait(300 + random(150));
Tries := Tries + 1;
until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
end;
{/////////////////////////////////////

———-> Walking to Bank <———-

/////////////////////////////////////}

procedure WalkToBank;
begin
if (InvFull) then
begin
MakeCompass('N');
BankBMP := BitmapFromString(5, 6, 'z78DA33773273337373' +
'3375757435C724CD91644DDD4CCD4D4D9149F264DD5CDD5C0D8D9' +
'1D5405582C5DD9CDD9C0D8C90C5A1B260710809000FFE2A8E');
if(FindSymbol(x,y,'bank'))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
if (not (FindBitmap(BankBMP, x, y))) then
begin
Mouse(627, 88, 8, 8, true);
Flag;
end;
GBankColor := AutoColorThis(BankBMP, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(GBankColor, 270, 290, 68, 2, 2);
Flag;
wait(200 + random(100));
end;
end;
{/////////////////////////////////////

———-> Willow Chopping <———-

/////////////////////////////////////}

function ChopIt: Boolean;
begin
EntTextBMP := BitmapFromString(2, 9, 'z78DA7371753533307541' +
'264D5CCC0C0C816C530AD826062640B6A981A189A599ABA125840' +
'D004B121892');
repeat
if (not (LoggedIn)) then
Exit;
if (FindColorTolerance(x, y, WillowColor, 160, 97, 516, 209, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 516, 209, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 516, 209, 3)) then
begin
MMouse(x, y, 3, 3);
if(FindBitmap(EntTextBMP,x,y))or
(FindColorTolerance(x,y,EntTextColor,86,7,126,19,5))then
begin
RunAwayDirection(DirToRun);
Flag;
Wait(15000+random(5000));
RunBack;
EntCount := EntCount + 1;
end;
if (IsUpText('illow')) then
begin
Mouse(x, y, 2, 2, true);
repeat
if (InvFull) or (PopUp('ontinue')) then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
FindRandoms;
SleepAndMoveMouse(9671 + random(1709));
FindRandoms;
until (not (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3))) or
(not (FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)))or
(not (FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3)));
repeat
if (InvFull) or (PopUp('ontinue')) then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
wait(750+random(250));
FindRandoms;
until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
Result := True;
end;
end;
until (InvFull);
end;
{/////////////////////////////////////

———-> Banking Willows <———-

/////////////////////////////////////}

function BankIt: Boolean;
begin
if (InvFull) then
begin
Willow := DTMFromString('78DA63FCC4C4C0D0C9C8800A1819FE8349068' +
'6FF40C0C8C08C550D8204D2AC40355308A86104AA994940CD37A0' +
'7BE61050F31AA8A68F0835B3F0AB010040990CF0');
MakeCompass('S');
wait(250 + random(167));
OpenBankQuiet('eb');
Flag;
wait(500 + random(267));
FixBank;
if (FindDTM(Willow, x, y, 568, 209, 742, 460)) then
begin
Mouse(x, y, 3, 3, false);
ChooseOption(x, y, 'All');
Result := True;
if (Result = True) then
begin
LoadsNum := LoadsNum + 1;
LoadsNumB := LoadsNum + 1;
end;
end;
CloseBank;
wait(127 + random(278));
MakeCompass('N');
end;
end;
{/////////////////////////////////////

———-> Main loop <———-

/////////////////////////////////////}

procedure SetupScript;
begin
Signature;
SetupSRL;
DeclarePlayers;
ActivateClient;
end;

///////////////////////////////////////////////////////////////////////////

begin
SetupScript;
repeat
WalkToWillow;
ChopIt;
WalkToBank;
BankIt;
if(LoadsNumB=Loads)then
begin
NextPlayer(True);
LoadsNumB:=0;
HighestAngle;
MakeCompass('N');
Writeln('Switched players successfully :)');
end;
JADProggy;
until (False);
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Busted! This is JAD's script…definite 'No' from me.

Noob! Go home! JAD is awesome and I can't beleave you stole his script!

JAD Sucks! Nah jokes JAD. He's a 1337 Scripter.

its jad script but the standards are disgusting??!?!

Because no scar tags were on it.. ;)

add scar tags to it. then leave. its people like you who wreck it for the rest of us.

why cant there be a all option to vote for?

Yes, I want a vote for all option :D but, omg, he is at Sum+Lorax forums, I'll have to ban him there too.. muhaha (maybe, will have to talk to Sum about it)