SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
java,PHP

Other Communitys
rspigpen.com

How Long have You Played Runescape
4years

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

hey im about 24 years old and im going to college for scripting and computer tech next year and i like to join fourms like these ones and help out the community with problems and give you free scripts and other things around that nature.thanks.

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

//RsClassic L33t Fighter 1.0 by blk hwk1
//Instructions—
//fill in the required spaces
//Select client window
//make sure your logged in and near the monsters you wanna kill(don't fight somthing to hard, we dont have a eat food procedure yet)
//Run and go eat some popcorn : )
program leetFighter;
//Setup——————————————-|
const // |
username='your username'; // |
password='your password'; // |
MonsterColor=monkeynuts; // |
randomtext1='poopmonster'; // |
randomtext2='wow, im freaken bored'; // |
//End of setup————————————|
var
x,y: Integer;
procedure thanks;
begin
writeln('<===============================>');
writeln(' -Thanks for using l33t Fighter-');
writeln(' -Blk_hwk-');
writeln('<===============================>');
end;

procedure FindNPC;
begin
status('finding NPC, Please Wait');
if(findcolor(x,y,MonsterColor,145,117,651,445))then
writeln('Monster Found, Now going to attack procedure')
end;

Procedure AttackNPC;
begin
if(findcolor(x,y,MonsterColor,145,117,651,445))then
MoveMouseSmooth(x,y);
Wait(350);
ClickMouse(x,y,true);
wait(450);
MoveMouseSmooth(87,65);
wait(4440);
ClickMouse(87,65,true);
end;

begin
thanks;
wait(500);
findNPC;
wait(350);
attackNPC
end.

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

No from me. Too simple. Easy ban.

I doubt you're 24 years old.

No,

This Script = BANNNNNNNEDDDDD!!!! Omg!!! My Main!!!WTF I DO!!!??? :( :( :(

You Used MoveMouse and ClickMouse, that = banned. You Should of Added

{.include SRL\SRL.scar}

and Used

Mouse(x, y, 5, 5, True);

Instead Of

ClickMouse(x, y);

This Script Is Very Very Simple, and Theres No Fail Safes…
You Should Of Also Used Multi Player / Possibly DTMS / bitmap's

We Want Experienced Scripters….

Sorry, Wait One Month and Try Again Once You've Learned :D

hwk doesn't sound like hack without the vowels (looks like it says black hawk for the name of the person who wrote it..)

It might not even be his :p

SRL Member- we see "SRL3 in there, which is an include.. you need to know pretty much and you HAVE to use that include!

Also guys, watch the //RsClassic in "//RsClassic L33t Fighter 1.0 by blk hwk1" :p

-Tsn.

Yes, I glipsed that… I guess jagex wouldn't bann u because they stoped managaing that game

From: the scar noob


Also guys, watch the //RsClassic in "//RsClassic L33t Fighter 1.0 by blk hwk1" :p

-Tsn.

I smell a new loser :(

What factors do you need

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* MultiPlayer
* Break out of potential endless loops
* Standards! Required to get people read your script.
* RadialWalk / DDTM Walking
thanks n3ss3s


How do we judge it?

looking at the code, standaards. and whe inmagen if it's working yes or no


How many lines of code do you need

I would say 300+.
make sure you got fail saves for evry posibel option what could be going wrong


well….

I hope this helped ya. good luck scripting!


and btw, we want a rs2 script of course :duh:

oh sorry i will make a newer runescape 2 script that was a older one and yes, i did make this script its one of my older ones and my rs user is blk hwk1… yeah so i did make it. ill make another soon.

just an FYI a script in RS2 has to be A LOT more complex to run effeciantly than this one…and especially to get SRL Member status, read the tuts

{//—————————————————————————–\
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.
//——————————————————————————\}

program BLKWillow;
{.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
EntTextColor = 120276; //Text color for when an ent comes.

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

// DO NOT TOUCH THESE! \
var GrassColor, GrassBMP, BankBMP, GBankColor, Tries, Willow: Integer;
EntCount, LoadsNum, LoadsNumB, BushWater, BushWaterColor, EntTextBMP: 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 := 'Usernam';
Players[0].Pass := 'Password';
Players[0].Nick := 'trev';
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(' BLK willow chopper:');
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;
{/////////////////////////////////////

———-> BLKProggy <———-

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

procedure BLKProggy;
begin
ClearDebug;
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('|| BLK 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 BLK 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, 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;
BLKProggy;
until (False);
end.

Just posted my edgy woodcutter instead i didnt want to take the time to make another…

Ugh! Use SCAR tags PLEASE..!

Nice job
You posted two script
Both Coppied
Both with no scar tags
and one was for runescape classic?
Not a very good start…
http://www.sythe.org/showthread.php?t=197025