SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Torrent of Flame - SRL Member Application Form
Torrent of Flame

What is the meaning to life?


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


Programming Knowledge
Little bit of Java

Other Communitys
DutchDesignz(Till it Crashed)

How Long have You Played Runescape
3.5 Years

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

I joined about a year ago but only ever did basic things on this site like AutoSpammers and AutoTalkers. Read through JAD's woodcutting script and he had RadialWalk etc, and I made a script in Draynor Willows with this, but it failed (It compiled, but didn't run)

I then made another one, more basic, but included AntiRandoms and AntiBan, and Im learning about BMP's and DTM's now. Im also learning how to use RadialWalk properly, but still find it hard to find coordinates, because Im not really sure how to yet.

I have now created a script that compiles and runs, but Im working on the repeating functions of it now.

—-

That looks bad. It doesnt let me attatch a FILE! Darn.

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

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
|                       Draynor Willow Crusher & Banker                        |
|                            By Torrent of Flame                               |
|                      Scar 3.14          SRL 4.0 Rev 14                       |
|                                Version 1.2                                   |
|                    Chops Willows at Draynor and Banks them                   |
|                      Start from Draynor Bank or Willow Trees                 |
|                        Enter your Pin before you start!                      |
|     Start Logged Out if you start in bank, or in if you start at Willows     |
|       HAS TO BE SAID:   ---> Works (alot) better without a pin <---          |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|                         How Many Loads at line 25                            |
|                        Setup Player at lines 39-42                           |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
|Version 1.1 Includes                                                          |
|                                  Anti-Ban                                    |
|                                 Anti-Random                                  |
|                            Working Walking (Lol :D)                          |
|         Complete Revision of Script - Sorted Unnecissary codes and BMP's     |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.2 Includes                                                          |
|    Essential Repairs for Banking - Willow DTM was invalid, WillowBMP added   |
|                                 Banking Works!                               |
|                         Main Loop Fixed - Repeats after banking              |
|                                                                              |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.3 Includes                                                          |
|                                Multi-Player                                  |
|                            Fully working Repeat                              |
|                          Fully working Tree Cutting                          |
|                                Chatting                                      |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}


Program WillowCrusher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}


const
//-->Loads<--\\

Loads = 5; //How many loads per player before switching


{-------------------------------------------------------
                       Player Setup
--------------------------------------------------------}

procedure DeclarePlayers;
begin

   HowManyPlayers := 1; //How many Players
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer :=0; //Starting Player

   Players[0].Name := '';
   Players[0].Pass := '';
   Players[0].Nick := '';
   Players[0].Active := True;


end;

{----------------------------Do Not Edit Below This----------------------------}
var x, y: integer;
    LoadsNum: integer;
    LoadsNum2: integer;

    
//Signature\\

procedure Signature;
 begin
   ClearDebug;
   wait(250 + random(30));
   writeln('      Torrents Willow Crusher&Banker      ');
   wait(250 + random(30));
   writeln(' _____                                _   ');
   wait(250 + random(30));
   writeln('(_   _)                              ( )_ ');
   wait(250 + random(30));
   writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
   wait(250 + random(30));
   writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
   wait(250 + random(30));
   writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
   wait(250 + random(30));
   writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
   wait(500 + random(30));
 end;

//Torrent Proggy\\

procedure ToFProggy;
begin
  ClearDebug;
  Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
  Writeln('/\Please Post Progress Reports & Any problems /\ ');
  Writeln('/\      From Wherever you got the script      /\ ');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
  Writeln('//\\Did: '        + IntToStr(LoadsNum)+ ' Loads                            //\\');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\      Thanks for Using my Script :D     //\\ ');
  Writeln('```````````````````````````````````````````````');
end;

//Logging in...\\

procedure Login;
begin
 if (not(LoggedIn)) then
 LoginPlayer;
end;

//--------------------------------Anti-Ban!!------------------------------------\\
procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(8) of

    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: DoEmote(100 +Random(90));
    7: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;

//------------------------------Anti-Randoms!!------------------------------\\

procedure FindRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  FindEnt(x, y, true);
end;

//EntFinder\\

procedure EntFinder;
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then
  Exit;
  begin
    Status('Ent Checking')
      if
      (FindObjCustom(EX, EY, ['Willow'], [4690821], 7)) then
    begin
      MMouse(EX, EY, 0, 0)
        if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
      begin
        Status('Found Ent');
        MarkTime(SafeEntWait)
          repeat
          FTWait(5)
            FindNormalRandoms;
          if not (LoggedIn) then
            NextPlayer(False);
        until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
      end;
    end;
  end;
end;


//---------------------------------ChopTree-----------------------------------\\

Procedure ChopTree;
begin
  if not LoggedIn then
  Exit;
  MakeCompass('S');
  EntFinder;
  FindEnt(x, y, True);
  repeat
    if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
     begin
       Mouse(x,y,0,0,false);
       repeat
         Wait(100 + (random(150)));
         ChooseOption('hop')
         AntiBan;
       until(InvFull)
     end;
  until(InvFull)
end;


//----------------------Walking from Willows to Bank--------------------------\\

procedure WalkToBank;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    Makecompass('N');
    if (not(FindSymbol(x, y, 'bank'))) then
    begin
      NextPlayer(False);
    end;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      Flag;
      Writeln('Got to bank');
    end;
  end;
end;

//-----------------------------Banking the Willows----------------------------\\

function Banking: Boolean;
begin
  if (InvFull) then
  begin
    MakeCompass('N')
    Wait (300 + random(160));
    OpenBankQuiet('db');
      if(FindColorSpiral(x, y, 1852748, 547, 206, 734, 464))then
    begin
     Mouse(x, y, 4, 3, false);
     ChooseOption('All');
     Result := True;
     if Result = True then
     begin
       LoadsNum := LoadsNum + 1;
       LoadsNum2 := LoadsNum2 + 1;
     end;
    end;
    CloseBank;
    Wait(150 + random (278));
    MakeCompass('S');
  end;
end;


//-----------------------Walking from Bank to Willows-------------------------\\

procedure WalkToWillow;
var WaterColor : integer;
begin
  if (not(LoggedIn)) then
  Exit;
  MakeCompass('S');
  WaterColor := FindWaterColor;
  RadialWalk(WaterColor, 225, 351, 64, 2, 2);
  Flag;
  Writeln('At Willows Now');
end;


//--------------------------->>>Main Loop<<<----------------------------------\\

procedure SetupScript;
begin
  if (Loggedin) then Logout;
  SetupSRL;
  Signature;
  DeclarePlayers
  if (not (Loggedin)) then Login;
end;

begin
  SetupScript;
  repeat
   WalkToWillow;
    repeat
      ChopTree;
        until (InvFull) or (not LoggedIn)
  AntiBan;
  WalkToBank;
  Banking;
  if (LoadsNum2=Loads) then
    begin
       NextPlayer(True);
       LoadsNum2 := 0;
       MakeCompass('S')
       Writeln('Players Switched successfully')
    end;
   TofProggy;
   SRLRandomsReport;
  until (false)
end

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

Password in script!

PMed new password ;)

emrm, will add to this later since im busy BUT
use DTM's
failsafes, - ie if not find axedtm or w/e
walking failsafes - ie if not findwatercolor

atm its a no, srry but look at the points i made,
so like make DTM's of say the logs(willow), the axes so it can tell if it has one,
then add faiklsafes in, so for every

if find blah blah

//add

if not find blah blah

~Spaz

I'm not going to vote since I don't think im allowed to since i just got members but i'll post some suggestions.

Your walking needs alot more failsafes.
You should add maybe one or two more RadialWalk options.
For your banking you should use DTM's and to get in the bank you need more failsafes.
You should add some waiting while it is chopping the tree, it just keeps clicking over and over, you should add a wait time of about 5 seconds.
I like your entfinder though.

No.

Why have you forsaken me… doesn't anyone read the requirements?


Nice try, but it didn't fill the requirements. Go learn them, add them to your script, and apply again after a month.

AHHHH. The standards make my eyes water (as if i don't strain my eyes enough anyways :rolleyes: )


Please work on standards :D Next time ;)

no.

Cut em2 it

No, sorry.

1. i corrected very simple mistakes from your script jsut yesturday.
2. i see no credit.
3. too simple.

no, sorry.

~RM

Users sharing the same IP Address User jamie1200

I realize that there are reasons to have multiple accounts associated with your IP Address (shared connection at work, school or home,etc.), but is a rule here, that each person shall only have 1 account….. When and IF, you do become a member, sharing information located in the member's section is forbidden.

Best Regards,

~RAM

0wned?

Mmm and that ent finder is YoHoJo's edited a bit by me from my old fire maker script -.-…

Dude sorry but no way its like simpler than my script when its been on a night on the town, smoking weed and getting totally trashed, ending up with its stomach pumped.

First - Make more in the declare players, as one player is kinda against the rules ^^

Standards are slightly off. Walking needs fail safes, symbols are unreliable since when people cover them they disappear lol.

repeat
         Wait(100 + (random(150)));
         ChooseOption('hop')
         AntiBan;
       until(InvFull)

So endless loop much?

And why do you need procedure LogIn!?

Kind of too simple.. I'm going for a no, but if you put a little more work on that it could easily be a yes from me.

From: NaumanAkhlaQ
0wned?

Your mom is owned for having a child making such stupid posts to member apps.

Lol and what about those little Pm's by you in my inbox???? Hmmm…
I dont think GoF did them i think it was his twin brother..

Not today,

try again in a month.

Closed.

Not a bad script, Torrent Of Flame. :)

Keep it up!