SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
www.sythe.org , a thread linked me here.

Programming Knowledge
Basic Java and Basic Html

Other Communitys
www.sythe.org

How Long have You Played Runescape
4 Years

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

Hi, My name is Sean I live In Australia, I love runescape but dont have alot of time to play because of school/sports ETC. Thats why I use scar and SRL to keep up with my friends who play, Im 16 years old since the 24th july. I am studying Java and Html because I wont to be a game designer in the future.

Im not entirely experienced in SRL and Scar Scripting I do ask if i can copy and paste Parts of other peoples scripts, I then tweak them to how I wont to use it, I have made a PC Script and a Woodcutter they are all scripted by me 100% Mine tho there not the best. but they no longer work because of the Runescape 2 Update.

–Thanks for looking–

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

This is My Willow Cutter,

{//—————————————————————————–\\
This script will chop willows at edgevil bank. Start ALL active players
at edgevil farthest east bank slot. Axes weilded or un weilded. This script
does NOT feature axe head finding, Will add soon. Do setup and do setup for
DeclarePlayers on lines 28-68. Happy autoing!
//——————————————————————————\\}

program DuplexWillow;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//——————————————————————————\\
//——————————-> Setup <————————————–\\
//——————————————————————————\\

DirTorun = 'N';
Loads = 10; //Loads to do before switching players.

//——————————————————————————\\
//—-> Auto Colors Only set these if the script is not finding the Willow <—-\\
//——————————————————————————\\

WillowColor = 5398624; //Color of willow tree on Main Screen
WillowColorB = 3174496; //another color of willow on Main Screen
WillowColorC = 4293865; //another color of willow on Main Screen

//——————————> End Setup <———————————–\\

// DO NOT TOUCH THESE! \\
var GrassColor, GrassBMP, BankBMP, GBankColor, Tries, Willow: Integer;
EntCount, LoadsNum, LoadsNumB, BushWater, BushWaterColor: Integer;
DidRandomHappen: Boolean;
// \\
{**************************************************************************

———-> Setup Players here <———-

**************************************************************************}

procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.

//set all user names, passwords and nicks correctly please.

Players[0].Name := 'USername';
Players[0].Pass := 'Password';
Players[0].Nick := 'dsev';
Players[0].Active := True;
Players[0].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := False;
Players[1].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[2].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := False;
Players[3].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := False;
Players[4].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot

Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Active := False;
Players[5].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
{ don't touch below unless you know what your doing! }

procedure Signature;
begin
ClearDebug;
writeln(' Duplex willow chopper by yours truely:');
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;
FindNormalRandoms;
if (FindNormalRandoms) then
DidRandomHappen := true;
if (FindEnt(WillowColor)) then
begin
RunAwayDirection(DirToRun);
Flag;
Wait(5000 + random(1500));
RunBack;
DidRandomHappen := true;
EntCount := EntCount + 1;
end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

———-> DuplexProggy <———-

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure DupleXProggy;
begin
ClearDebug;
Writeln(' Please Check out + register on me and SRL forums at: ');
Writeln(' www.srl-forums.com ');
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('|| Duplex Progress report. Please remember to post ');
Writeln('|| proggies/bugs wherever you got this script :) ');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
Writeln('|| Worked For : ' + ScriptTime2(2));
Writeln('|| Did ' + IntToStr(LoadsNum) + ' Loads ');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ');
Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('||Thanks for using Duplex Willow, happy autoing :) ');
SRLRandomsReport;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

———-> Walking to Willow <———-

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

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, 105, 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
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 (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;
DuplexProggy;
until (False);
end.


This is No longer compaitble because of the runescape Update.

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

No Scar Tags
3rd Post
hmm
SILLY GOOSE!

http://www.scar-scripts.com/view/1071
Man its been 2 months since someone stupid like you posted a copied script.

Nice Sig

'Just Started Using Scar and SRL'

That kinda shows you dont know how to script?

Two months?! Are you being serious?!

Anyways, the link you put redirects to this page :p

You also forgot to lock the thread?

AHH!
Sorry for that one moment while i fetch it.

Definitly a no!

[BANANA]NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB
[LEFT]You, Duplex, have been reported for being a NOOB.
Your Current violations include

1. Bad Member App for

This brings you to a new total of (4) Noob Points!

For more information on Duplex please go Here.

For more information from This database please go Here.

For more information on The Noob Points System please go Here.

For more information on Noobs please go Here.
[/LEFT]
NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB[/BANANA]

[OFFTOPIC] Greg ignore my post somewhere sayin u copied YoHoJo's avatar, its his old one :p [/OFFTOPIC]

EDIT: Yeah, and even it wasnt copied I would say no.

You make my eyes bleed.

no.

YoHo did you forget to close this?

Kinda, wanted to see if people would use it as a good excuse to get their post count up :P.