SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
starting to learn java

Other Communitys
Sythe.org

How Long have You Played Runescape
many years 4+

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

hi, i am sorta new to scripting i have been scripting for a couple weeks now. I am currently putting lots of time in and hope to becoming as best as a scripter i can be. I have made a auto talker, a powerminer and the script im sending in is my willow chopper + banker. I am currently working on a Fally Oak cutter and will be realeased soon. If This script is good or not good enough PLEASE tell me ways i can make it better thx :D. The text is a bit messed up too becuase of the small box :P.

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

{================================================================}
{================================================================}
{================================================================}
{                                                                }
{  __     ___   __    ___       ___       ______    ___     ___  }
{ |  |    |  |  | |   | |       | |       | __  |   |  |    |  | }
{ |  |    |  |  | |   | |       | |       | | | |   |  |    |  | }
{ |  |    |  |  | |   | |       | |       | | | |   |  |    |  | }
{ |  | __ |  |  | |   | |       | |       | | | |   |  | __ |  | }
{ |  |/  \|  |  | |   | |       | |       | | | |   |  |/  \|  | }
{ |    /\    |  | |   | |       | |       | | | |   |    /\    | }
{ |   |  |   |  | |   | |_____  | |_____  | |_| |   |   |  |   | }
{  \__|  |__/   |_|   |_______| |_______| |_____|    \__|  |__/  }
{=============================================================== }
{=============================================================== }
{=============================================================== }

{Hiya this is my draynor willow cutter + banker. const is from lines
35 -43 , then declare players. Also be sure to start your player at the bankbooth the closest
to the willows. :D Happy autoing, be sure to post any bugs and proggies}








program Wwillowsnatcher;
 {.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}

var
  didRandomhappen: Boolean;
  loads, clicks, TheBitMap, TheColor, gems, Will, Hacks, Gem: Integer;

const

  Timetowait = 3000; //time inbetween each click
  DirectToRun = 'E';
  Load = 10;

  WillowColor = 2582616;
  WillowColor2 = 1988680;
  WillowColor3 = 7116968;
  Enough = 23; //how many loads to do in total

procedure DeclarePlayers;
begin
  HowManyPlayers := 2; //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 := 'pass';
  Players[0].Nick := 'nick';
  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

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

procedure Signature;
begin
  ClearDebug;
  writeln(' WPOWER  WILLOW CUTTER WOOT:');
  writeln(' \ \                   / /   ');
  writeln('  \ \                 / /    ');
  writeln('   \ \      ___      / /     ');
  writeln('    \ \    /   \    / /      ');
  writeln('     \ \  / /\  \  / /       ');
  writeln('      \ \/ /  \  \/ /        ');
  writeln('      |___/    \___|         ');
  writeln('                            ');
  wait(5000 + random(500));
end;


function FindNormalRandom: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 16 do
  begin
    case I of
      1: CloseWindow;
      2: if FindTalk then
          Result := True;
      3: if FindDead then
          Result := True;
      4: if FindMod then
          Result := True;
      5: if FindMime then
          Result := True;
      6: if FindMaze then
          Result := True;
      7: if FindQuiz then
          Result := True;
      8: if FindDemon then
          Result := True;
      9: if FindScapeRune then
          Result := True;
      10: if FindTalk then // Call it twice
          Result := True;
      11: if FindLamp(LampSkill) then // Maybe we missed it?
          Result := True;
      12: if (FindNewBox) then
        begin
          Result := True;
          if (UseBoxSolver) then
            SolveBox
          else
            GambleNewBox;
        end;
      13: if FindTrade then
          Result := True;
      14:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      15: SaveToChatLog;
      16: if RC then
          Result := True;
    end;
    Wait(1);
  end;
end;


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 AntiBans;
begin
  AntiBan;
  wait(20 + random(300));
  RotateEvery(9 + random(4));
  wait(750 + random(400));
  BoredEvery(5 + random(5));
  LeaveScreenEvery(3 + random(6));
  wait(1000 + random(3));
end;




procedure AntiRandoms;
begin
FindEnt(WillowColor);
  FindNormalRandoms;
  FindFastRandoms;
  if (findFight = true) then
  begin
    RunAwayDirection(DirecttoRun);
    Wait(12000 + Random(4000));
    RunBack;
    DidRandomHappen := true;

  end;
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('==========================================');
  Writeln('--------------->Wpower Proggy Report<-----');
  Writeln('  Did ' + IntToStr(Loads) + ' Loads' + '    ');
  Writeln('  Did ' + IntToStr(Clicks) + ' Hacks' + '    ');
  writeLn('   Worked For : ' + ScriptTime2(2));
  SrlRandomsreport;
end;


procedure gettothemwillows;
begin
  theBitmap := BitmapFromString(1, 20, 'z78DAB33035373736B03037' +
    '773436422121E2A8A4011A6964E68A4A9ABB591A3939124302000' +
    'C871A47');

  Thecolor := autocolorThis(ThebitMap, 75, MMx1, MMy1, MMx2, MMy2);
  RadialWalk(Thecolor, 230, 193, 63, 0, 0);
  Flag;
  Wait(3000 + random(1500));
end;


procedure Hacky;
begin
  repeat
  Hacks := Hacks + 1;
    AntiRandoms;
    if (not (LoggedIn)) then
      Exit;
    wait((Timetowait) + Random(500));

    if (FindColor(x, y, (willowColor), 0, 0, 800, 600)) or
      (FindColor(x, y, (willowColor2), 0, 0, 800, 600)) or
      (FindColor(x, y, (willowColor3), 0, 0, 800, 600)) then

      MMouse(x, y, 2, 2);
    Mouse(x, y, 3, 3, True);

  until (InvFull);
end;

procedure gotobank;
begin
  wait(2500 + random(1500));
  if (FindSymbol(x, y, 'Bank')) then
    Mouse(x, y, 2, 1, True);
  flag;
end;


procedure Bankitgood;
begin

    will := DTMFromString('78DA639CCFC4C0F098010544062A324802694' +
    '620FE0F048C33816AEE30A00146B81A306F2A116A1601D5DC24A0' +
    '661950CD1B026AA603D57CC4AF060001280E78');

  if (InvFull) then
  begin
  Loads:=Loads+1;
    MakeCompass('N');
    openbank3;
    Flag;
    wait(5000 + random(500));
    if (FindDTM(Will, x, y, 0, 0, 800, 600)) then
    begin
      Mouse(x, y, 1, 1, false);
      ChooseOption(x, y, 'All');


    end;
  end;
end;


begin
  Signature;
  SetupSRL;
  ActivateClient;
  Declareplayers;
  wait(1000 + random(1500));
  Loginplayer;
  HighestAngle;
  findaxeheadColor;
  repeat
  if (not (LoggedIn)) then
      Exit;
  wait(2000);
  setrun(true)
    AntiBans;
    GettoThemwillows;
    Hacky;
    GotoBank;
    Bankitgood;
    CloseBank;
    ProgressReport;
  until (loads=Enough)
end.

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

Please put scar tags on it and learn standards
(Indents)

This shouldn't even compile… And next time put it in scar tags. Too simple, if it even compiled. Try again in a month.

Hmm.. did you use my JADWillow chopper for edgevil as a role model? Because you have the same comments as me, and your IsAxeWeilded isn't needed like it was in mine.. :p

You had exact same comments as I did in my declare players procedure. And why did you copy FindNormalRandoms into your script??

No standards, not very good anti ban, confused on finding randoms, copied some little things from my script..

No from me sorry. Good try, better luck next time (If you don't get in this time) just noticed you didn't use multi player either, and you didn't look for the colors with tolerance.

yea sorry bout tags, and JAD yes i used your script as a base , it really helped me alot and i kinda needed it but ill take it out and do more work that is done by me. its just your tut was like the one that really helped me take a step higher so i used lots from it. sorry if it made you upset.

From: wobbii
yea sorry bout tags, and JAD yes i used your script as a base , it really helped me alot and i kinda needed it but ill take it out and do more work that is done by me. its just your tut was like the one that really helped me take a step higher so i used lots from it. sorry if it made you upset.

No no no.. I'm 100% fine with you using any of my code, or using anything from my scripts/tutorials. But when you use anybody else's work, even as just a role model, you should always give credits ;)

Its a good first app, you'll get in next time if you apply yourself.

yup nice try, work on ur failsafes. Use if….then statements wherever possible to make the best failsafes (alex taught me that :)). Keep it up though :D

k thanks for the help