SRL Archive - RS3 Outdated / Broken Scripts

this is my varrok castle yew cutter banks at exchange
start eather of the two bankers on the east side of the exchange
ENJOY!

very nice just had a look throught the script very nice standererds!

good job!

From: nicbaz
very nice just had a look throught the script very nice standererds!

good job!

:confused: :confused: :confused:

Very Nice need to work on standards!

well its only my 2nd script what parts of script need improving?

is any one else going to run need proggies and errors so i cn update!

wow worked for 2 hours must look at this and use it ill post proggie soon

proggie???

the only thing it is good at is logging in and that is it. it wont move after that wtf good try tho

for me it did the same thing as scaper, logged in, but then just sat there for a while.
maybe im too impatient, but maybe not….

pizzownage

works fine for me dont know whats gone wrong

trying out by this week end XD

tested but it doesnt move why?

dont double post just use edit butten
and as poolikemax said it works for him
did u set up right?

give it a minuet and see if it dose any thing because i ran today worked fine

i closed scar but i get some error saying unknown identifier highest angle.

help?

thats coz u got the new scar and srl i mite update to srl 4.10 an scar 3.13


MABY!!!!!!!!!!

wait wat DOES it run on then?

Procedure RandomlyChosenSkill;
Begin
Case Random(11) Of

0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore', False);
10: HoverSkill('Fishing', False);

End;
End;

Dude what the fuck man, you steal my procedure name & the procedure and you dont give me the fucking credit? You stole it from my old willow-chopper & banker, i have proof here:

At lines 231-248.

Program ULTRAWillowCutter;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Woodcutting.Scar}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{ C  R  E  D  I  T  S.
YOHOJO AND BOBBOHOBBO FOR THEIR ENT FINDER.
FREDDY1990 FOR SCAR :).
WT-FAKAWI FOR HIS FINDING RANDOMS PROCEDURES/FUNCTIONS.
U L T R A FOR HIS NICE SCRIPT :D.
  C  R  E  D  I  T  S.}
//////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// I M P O R T A N T.
// DO NOT I REPEAT, DO NOT TAKE ANYTHING FROM THIS SCRIPT WITHOUT MY PERMISSION
// IF YOU PEOPLE SEE SOMONE COPY ANYTHING FROM MY SCRIPT WITHOUT MY PERMISSION
// PLEASE DO REPORT TO ME THIS INSTANT, SO I COULD TELL SOMONE LIKE A SRL MOD
// ABOUT WHAT AND HOW HAPPEND, AND THE PERSON WHO COPIED ME, WILL BE BANNED.
// I M P O R T A N T.
////////////////////////////////////////////////////////////////////////////////
{///////////////////////////////////////////////////////////////////////////////
{ CATEGORY: WOODCUTTING.
{ AUTHOR: U L T R A.
{ PURPOSE: LEVELS UP WOODCUTTING.
{ DESCRIPTION: CUTS WILLOWS THEN BANKS THEM.
{ PLACE: DRAYNOR VILLAGE.
{ ANTIBAN: TRUE.
{ ANTIRANDOMS: TRUE.
{ SPECIAL FEATURES: ONLY USES ONE PLAYER FOR NOW.
///////////////////////////////////////////////////////////////////////////////}
////////////////////////////////////////////////////////////////////////////////
//FeAtUrEs
//1.Anti - Randoms.
//2.Awsome Anti - Ban.
//3.Loop.
//4.Map Walking.
//5.Willow Finding And Cutting.
//6.Item Banking.
//7.Ent Finder - BY YOHOJO MODDED BY BOBBOHOBBO.
//8.My First Script.
//9.Fail - Safes.
//fEaTuReS.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//AdDeD.
//1.Bug fixes.
//aDdEd.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
1. Low detail, not laggy computer, highest brightness in runescape.
2. Start in draynor bank with your player.
3. Set up const and the declare players.
4. Drag the crosshair into the runescape window.
5. Hit run and of course enjoy my script.
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Const
ToDo = 50;//Loads To Do Before Logging Out.
TheWaitForCut = 5000;//Mili - Seconds To Wait Before Clicking Another Willow.
Speed = 15;//The Speed Of The Cursor(Pointer), Lower=Slower, Higher=Faster.
//Note That Speed = 50; Is Like Already Insane, Do Only 10-20, Thats The Best.

RockColor = 6381670;//Pick The Lightest Color Of The Rock South From Bank.
TreeColor = 1786422;//Pick The Color Of The Tree ONLY If Doesn't Find Willows.

Var
x, y: Integer;
TotalWillows: Integer;
ExpGained: Integer;
BankTrips: Integer;
EndXP: Integer;
StartXP: Integer;

Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name := ''; //UserName.
Players[0].Pass := ''; //Password.
Players[0].Nick := ''; //3-4 Letters Of UserName.
Players[0].Active := True; //True If You Are Using This Player, False If Not.

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;

Procedure CheckIfLost;
Begin
If(Not(FindObj(x, y, 'illo', TreeColor, 10)))And(Not(FindSymbol(x, y, 'Fish')))Then
Begin
WriteLn('We Are Lost, Terminating Script');
Exit;
TerminateScript;
End;
End;

Procedure WasWcExp;
Begin
StartXP:=GetXP('woodcutting');
Wait(1000+random(1000));
End;

Procedure RightNowWcExp;
Begin
EndXP:=GetXP('woodcutting');
Wait(1000+random(500));
End;

Procedure HowMuchExp;
Begin
ExpGained:=EndXP-StartXP;
Wait(1000+random(700));
End;

Procedure Report;
Begin
ClearDebug;
WriteLn('U L T R A Willow Chopper Version 5');
WriteLn('Ran For: ' + TimeRunning + '.');
WriteLn('Cut Approx: ' + IntToStr(TotalWillows) + ' Willows.');
WriteLn('Earned Approx: ' + IntToStr(ExpGained) + ' Expirience.');
WriteLn('Banked: ' + IntToStr(BankTrips) + ' Loads.');
WriteLn('Thanks For Using U L T R A Willow Chopper Version 5');
End;

Procedure EntFinder; //Made By YoHoJo. Modded by Bobbohobbo
Var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  If (Not (LoggedIn)) Then
  Exit;
  Begin
    Status('Checking For Ent')
      If
      (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) Then
    Begin
      MMouse(EX, EY, 0, 0)
        If FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) Then
      Begin
        Status('Ent Found');
        MouseFindFlag(645, 83, 2, 2);
        MarkTime(SafeEntWait)
          Repeat
          FTWait(5)
            FindNormalRandoms;
          If Not (LoggedIn) Then
            NextPlayer(False);
        Until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
      End;
    End;
  End;
End;

Procedure WaitWhileChopping;
Begin
EntFinder;
Wait(TheWaitForCut+random(1000));
EntFinder;
End;

Function FindFastRandoms: Boolean;//Credits To WT-Fakawi.
Var
I: Integer;
Begin
For I:=1 To 11 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;
8: Begin
If InBlack Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
End;
End;
9: RC;
10: Respond;
11: ClickToContinue;
End;
Wait(1);
End;
End;

Procedure FindRandoms;
Begin
EntFinder;
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
FindEnt(x, y, true);
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;

Procedure RandomlyChosenSkill;
Begin
  Case Random(11) Of

0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore',  False);
10: HoverSkill('Fishing', False);

  End;
End;

Procedure ReadQuestRandom;
Begin
  Case Random(4) Of
  
0: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(582, 265, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
1: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(590, 279, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
2: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(588, 295, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
3: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(614, 310, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 71, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
  End;
End;
   

Procedure AntiBan;
Begin
If(Not(LoggedIn))Then
Exit;
Case Random(8) Of

0: RandomMovement;
1: HoverSkill('Woodcutting', False);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: AlmostLogout;
5: Begin
GameTab(2 +Random(12));
Wait(2000 +Random(1000));
GameTab(4);
   End;
6: RandomlyChosenSkill;
7: ReadQuestRandom;
 End;
End;

Procedure Walk2Willows;
Begin
If(Not(LoggedIn))Then
Exit;
PerfectNorth;
HighestAngle;
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
If(FindObj(x, y,'illo', TreeColor, 10))Then
WriteLn('Found Willows, Begging To Cut Them.');
End;

Procedure WhereAreWillows;
Begin
If(Not(FindObj(x, y, 'illo', TreeColor, 10)))Then
Begin
SymbolAccuracy := 0.6;
If(FindSymbol(x, y, 'Fish'))Then
Mouse(x, y, 3, 3, True);
FFlag(0);
FindRandoms;
FindFastRandoms;
End;
End;

Procedure FindAndChop;
Var CuttingTime : integer;
Begin
MarkTime(CuttingTime);
Repeat
If(Not(LoggedIn))Then
Exit;
MakeCompass('N');
HighestAngle;
If(FindObj(x, y, 'illo', TreeColor, 10))then
Begin
MMouse(x, y, 4, 4);
If(IsUpText('illo'))Then
Begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, True);
EntFinder;
FindRandoms;
WaitWhileChopping;
AntiBan;
End;
End;
Until (InvFull)Or(TimeFromMark(CuttingTime) > 600000+random(60000));
If(InvFull)Then
Begin
TotalWillows := TotalWillows+27;
ExpGained:=ExpGained+1822;
WriteLn('Chopped A Full Load Of Willow Logs, Heading For The Bank');
Begin
If(TimeFromMark(CuttingTime) > 600000+random(60000))Then
Begin
Report;
Exit;
TerminateScript;
End;
End;
End;
End;

Procedure BankIt;
Begin
If(InvFull)Then
Begin
Repeat
SymbolAccuracy := 0.6;
If(FindSymbol(x, y,'Bank'))Then
Begin
Mouse(x, y, 3, 3, True);
FFlag(0);
MakeCompass('E');
FindRandoms;
FindFastRandoms;
OpenBankQuiet('feb');
Flag;
Wait(500 + random(500));
FixBank;
Deposit(2,28,2);
CloseBank;
MakeCompass('N');
End;
Until(FindSymbol(x, y,'Bank'));
If(FindSymbol(x, y,'Bank'))Then
Begin
ClearDebug;
BankTrips:=BankTrips+1;
End;
End;
End;

Procedure TheLoop;
Begin
MouseSpeed:=Speed;
Begin
Repeat
EntFinder;
FindAndChop;
EntFinder;
FindFastRandoms;
FindRandoms;
Until(InvFull);
If(InvFull)Then
Begin
AntiBan;
FindRandoms;
FindFastRandoms;
BankIt;
FindRandoms;
FindFastRandoms;
Report;
RightNowWcExp;
CheckIfLost;
End;
End;
End;

Begin
SetUpSRL;
Wait(50+random(100));
DeclarePlayers;
Begin
ActivateClient;
LoginPlayer;
WasWcExp;
Begin
Repeat
MouseSpeed:=Speed;
Walk2Willows;
FindRandoms;
FindFastRandoms;
WhereAreWillows;
FindRandoms;
FindFastRandoms;
TheLoop;
HowMuchExp;
CheckIfLost;
Until(BankTrips = ToDo)Or(Not(LoggedIn));
If(BankTrips = ToDo)Or(Not(LoggedIn))Then
Exit;
Report;
TerminateScript;
End;
End;
End.

As i can see, you have also stolen some of my anti-ban, but you just added waits.



You see, iam that kind of person that doesnt like other "persons" who steal codes and do NOT give any credit back?

im soz i realy didnt mean to steal i just forgot to credit have credited u in it it now

Outdated.

Eias, the point in that post was?

lol TOF

and Eias i know its out dated it is also very dangerouse to use i made before i could script properly