SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Visual Basic & little Delphi

Other Communitys
Sythe

How Long have You Played Runescape
About 4 Years

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

Hi.
As some of you know i applyed for about 20 days ago ^^.
I got 11 No :/ But now im back with an way better script.
As you may see ive learned alot.
I will uptade this!
Having some school problems and when that taken care of i fix AutoColor.
And to all that helped me i just wanna say Thanks and you be credited in my Thread!


Hope you like it.

And about that rule with one months wait, WT-Fakawi said it was ok for me to apply ;)

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

//////////////////////////////////////////////////////////////////////
//                                  ___          __________         //
//                              _  | __|        |          |        //
//                         ___ |_| |__ |        | - Cuts - |        //
//                  _     | _ |    |___|        |__________|        //
//   __    _  ___  | |_/\ | _|                  |  Yews    |        //
//  |  \  | |/   | |    / |___|                 |  Willows |        //
//  |   \ | |\/| | |_|\_\                       |__________|        //
//  | |\ \| |  |_|                                                  //
//  |_| \___|       Cammalot Multi WoodCutter!                      //
//////////////////////////////////////////////////////////////////////
//
//              RR   EEEEE     A     DDD
//              R R  E        A A    D  D
//              RR   EEE     A   A   D  D
//              R R  E      AAAAAAA  D  D
//              R  R EEEEE A       A DDD
//
//
//              If you don't have a positive additude agienst
//              ScarScape then don't run this and don't even
//              bother reading under this.
//
//              This script only works for Scarscape atm.
//              When i got time and my teachers stop being
//              idiots i uptade this.
//
//              Start this script in any bankbooth in cammalot bank!
//              The bank south east from Cammalot telespot!
//              Have a axe in inventory or equiped.
//

program Cammalot;
{.include SRL\SRL.scar}

Var
  Loads, fx, fy, Chopped, Tr33Type, i, time2, t, u : integer;
  NoTree : boolean;

Const
  WhatDirection = ''; // If Attacked run ?
  // N = North / S = South / E= East / W= West!
  Howlong = 0; // How long it will run! 1 = 1 minute / 10 = 10 minutes and so on

procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';           // Username
  Players[0].Pass := '';           // Password
  Players[0].Nick := '';           // 3 letters from your name!
  Players[0].Active := True;
  Players[0].Strings[0]:= '';      // BankPin ? Put it between the ''
  Players[0].Strings[1]:= '';      // What tree you want to chop? Yew or Willow?
  Players[0].Integers[0]:= 0;      // Loads to do before switching player!
  Players[0].Booleans[0]:= False;  // Do you want to PwrChop?
  Players[0].Booleans[1]:= False;  // Are you using an equiped Dragon axe?
  Players[0].Booleans[2]:= False;  // Want axe unequiped in bag?
  
  Players[1].Name := '';           // Username
  Players[1].Pass := '';           // Password
  Players[1].Nick := '';           // 3 letters from your name!
  Players[1].Active := True;
  Players[1].Strings[0]:= '';      // BankPin ? Put it between the ''
  Players[1].Strings[1]:= '';      // What tree you want to chop? Yew or Willow?
  Players[1].Integers[0]:= 0;      // Loads to do before switching player!
  Players[1].Booleans[0]:= False;   // Do you want to PwrChop?
  Players[1].Booleans[1]:= False;  // Are you using an equiped Dragon axe?
  Players[1].Booleans[2]:= False;  // Want axe unequiped in bag?
  
  Players[2].Name := '';           // Username
  Players[2].Pass := '';           // Password
  Players[2].Nick := '';           // 3 letters from your name!
  Players[2].Active := True;
  Players[2].Strings[0]:= '';      // BankPin ? Put it between the ''
  Players[2].Strings[1]:= '';      // What tree you want to chop? Yew or Willow?
  Players[2].Integers[0]:= 0;      // Loads to do before switching player!
  Players[2].Booleans[0]:= False;   // Do you want to PwrChop?
  Players[2].Booleans[1]:= False;  // Are you using an equiped Dragon axe?
  Players[2].Booleans[2]:= False;  // Want axe unequiped in bag?
  
  Players[3].Name := '';           // Username
  Players[3].Pass := '';           // Password
  Players[3].Nick := '';           // 3 letters from your name!
  Players[3].Active := True;
  Players[3].Strings[0]:= '';      // BankPin ? Put it between the ''
  Players[3].Strings[1]:= '';      // What tree you want to chop? Yew or Willow?
  Players[3].Integers[0]:= 0;      // Loads to do before switching player!
  Players[3].Booleans[0]:= False;   // Do you want to PwrChop?
  Players[3].Booleans[1]:= False;  // Are you using an equiped Dragon axe?
  Players[3].Booleans[2]:= False;  // Want axe unequiped in bag?
  
  Players[4].Name := '';           // Username
  Players[4].Pass := '';           // Password
  Players[4].Nick := '';           // 3 letters from your name!
  Players[4].Active := True;
  Players[4].Strings[0]:= '';      // BankPin ? Put it between the ''
  Players[4].Strings[1]:= '';      // What tree you want to chop? Yew or Willow?
  Players[4].Integers[0]:= 0;      // Loads to do before switching player!
  Players[4].Booleans[0]:= False;   // Do you want to PwrChop?
  Players[4].Booleans[1]:= False;  // Are you using an equiped Dragon axe?
  Players[4].Booleans[2]:= False;  // Want axe unequiped in bag?

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





/////////////////////////////////////////////////////////////////////////
// Don't touch anything under here if you don't know what your doing!!!//
/////////////////////////////////////////////////////////////////////////





Procedure AxeUse;
Var
  AxeDTM, ox, oy : Integer;
begin
  if (not LoggedIn) then exit;
  if Players[CurrentPlayer].Booleans[1] then Exit else
    AxeDTM := DTMFromString('78DA63F4626260D0646440058C4824900E02A' +
       'AD125A02604A84695801A0FA01A65026A9C806A6C09A87100AAB1' +
       'C2AF06006A7C02F4');
  GameTab(5);
  If FindDtm(AxeDTM, ox, oy, MIX1, MIX2, MIY1, MIY2)then
    FreeDtm(AxeDTM) else
    begin
      GameTab(4);
      If Players[CurrentPlayer].Booleans[2] = False then
      begin
        If FindDtm(AxeDTM, ox, oy, MIX1, MIX2, MIY1, MIY2)then
        begin
          Mouse(ox, oy, 0, 0, False);
          ChooseOption('Wei');
          if FindBlackChatMessage('evel')then
          begin
            LogOut;
            Writeln('Have a axe you can use');
            NextPlayer(False);
            FreeDTM(AxeDTM);
          end else
          begin
            Writeln('No Axe Found');
            LogOut;
            NextPlayer(False);
            FreeDTM(AxeDTM);
          end;
        end;
      end;
    end;
end;

Procedure ProgressReport;
Begin
  Writeln('#-------------------------------------#');
  Writeln('  ---->    Ran for ' + (TimeRunning) +   '    <----');
  Writeln('#-------------------------------------# ');
  Writeln('  ---->    Banked ' + IntToStr(Loads) + ' Loads    <----');
  Writeln('#-------------------------------------#');
  Writeln('  ---->    Cut ' + IntToStr(Chopped) +  ' Logs    <----');
  Writeln('#-------------------------------------#');
end;

Procedure SomeRandomTalk;     // 1
Begin
  if (not LoggedIn) then exit;
  case Random(50) of

    0: TypeSend ('Boring stuff');
    1: TypeSend ('CutCutCut');
    2: TypeSend ('I Think i Logout soon');
    3: TypeSend ('Watching tv might not answer');
    4: TypeSend ('My birthday is in December');
    5: TypeSend ('BirdNest here i come');
    6: TypeSend ('I want 99 WoodCutting');
    7: TypeSend ('I got ' + IntToStr(Chopped) + ' Logs');
    8: TypeSend ('Brum Brum');
    9: TypeSend ('Zzzzzz');
    10: TypeSend ('(,,,)(^_^)(,,,)');
    11: TypeSend ('I want magic seeds');
    12: TypeSend ('Yew seedys');
    13: TypeSend ('I put Privite on off now bye.');
    14: TypeSend ('Bag full soon');
    15: TypeSend ('ive cut' + IntToStr(Chopped) + ' Logs today');
    16: TypeSend ('Im at school i gtg soon');
    17: TypeSend ('Gl getting ' + Players[CurrentPlayer].Strings[1]);
    18: TypeSend ('!"#¤%&/()=?`');
    19: TypeSend ('I want to leevel!');
    20: TypeSend ('Cut Cut Cut');
    21: TypeSend ('No Pk No Rs');
    22: TypeSend ('I want bh solo');
    23: TypeSend ('I want 99 everything');
    24: TypeSend ('Boooring');
    25: TypeSend ('Bling Blong ling long');
    26: TypeSend ('Running low on fuel');
    27: TypeSend ('I cant wait until i get my wc cape');
    28: TypeSend ('i can fly');
    29: TypeSend ('Mayby i go fish insted');
    30: TypeSend ('Mix acid and bomb');
    31: TypeSend ('Bannng');
    32: TypeSend ('I go sleep soon');
    33: TypeSend ('Bloodhoun34');
    34: TypeSend ('Thats it');
    35: TypeSend ('Im out soon');


  end;
end;

function AllPlayersInactive : Boolean;
var
  I : Integer;
begin
  for I := 0 to HowManyPlayers - 1 do
  if Players[i].Active then
    Exit;
  Result := True;
end;

Procedure WhatTree;
begin
  Tr33Type := 0
  case Lowercase(Players[CurrentPlayer].Strings[1]) of
    'yew' : Tr33Type := 1;
    'willow' : Tr33Type := 2;
    else TerminateScript;
  end;
end;

Procedure Setup;
Begin
  if (not LoggedIn) then exit;
  HighestAngle;
  MakeCompass('N');
  AxeUse;
end;

procedure AntiRandoms;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if FindFight then
  begin
    Wait(RandomRange(3000, 5000));
    RunTo(WhatDirection,True);
  end
end;

Procedure AntiBanish;
Begin
  if (not LoggedIn) then exit;
  Case Random(150) of
    0: HoverSkill('Woodcutting', False);
    1,2: MouseSpeed := 9 + Random(3);
    3,4: PickUpMouse;
    5: GameTab(2);
    8: Wait(2000);
    9,10,11: Setrun(True);
    14: Hoverskill('Random', False);
    15,16: SomeRandomTalk
  end;
end;

Procedure B4nk;

Var x, y, ax, ay: integer;
Foundbank : Boolean;
time: Integer;

Begin
   if (not LoggedIn) then exit;
   MarkTime(time);
   Foundbank := False;
   Repeat
     if FindObjCustom(ax, ay, ['ank'], [8751501, 3370376, 803673], 7) then
     begin
       GetMousepos(x, y);            // Couldnt use Openbank; OpenBankQuite;
       AntiRandoms;                  // Becuase : I need to open a bank in cammalot
       Mouse(x, y, 1, 1, false);
       Chooseoption('kly');
       Foundbank := True;
       writeln('FoundBank');
       Wait(1000+random(1000));
       Inpin(Players[CurrentPlayer].Strings[0]);
     end;
   Until (FoundBank) or (TimeFromMark(time) > 10000);
end;

Procedure CheckIfLevled;
Var ox, oy : integer;
Begin
  if (not LoggedIn) then exit;
  If FindColorTolerance(ox, oy, 16711680, 205, 434, 370, 459, 10) then
    begin
      Mouse(ox, oy, 0, 0, true);
      AntiBanish;
    end else Exit;
end;

Procedure Depos1tAll;
Begin
  if (not LoggedIn) then exit;
  Fixbank;
  wait(1000+random(500));
  Deposit(1,1,2);
  Closebank;
  Wait(1000+random(500));
  AntiRandoms;
  Loads := Loads + 1;
  Chopped := Chopped + 27;
end;

Procedure YewWalking;
Var hx, hy : Integer;
begin
  if (not LoggedIn) then exit;
  for t := 0 to 4 do
  case t of

   0: if RadialWalk(6908273, 210, 220, 65, 0, 0) then
      AntiRandoms else Logout;
   1: if RadialWalk(6908273, 261, 299, 50, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk(5724247, 150, 300, 75, 0, 0) then
      AntiRandoms else Logout;
   3: if RadialWalk(1195603, 273, 260, 64, 0, 0) then
      AntiRandoms else Logout;
   4: If FindSymbol(hx, hy, 'tree') then
      begin
        Mouse(hx, hy, 0, 0, True);
        AntiRandoms;
        Flag;
      end else
      Logout;
   end;
end;

Procedure LittleCheck;
begin
  if (not LoggedIn) then exit;
  MMouse(fx, fy, 0, 0);
  if IsUpText(Players[CurrentPlayer].Strings[1]) then
  begin
    NoTree := True;
    end else NoTree := False;
end;


Procedure WillowWalking;
begin
  if (not LoggedIn) then exit;
  for t := 0 to 2 do
  case t of

   0: if RadialWalk( 6908273 , 220, 240, 65, 0, 0) then
      AntiRandoms else Logout;
   1: if RadialWalk( 6908273, 265, 255, 59, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk( 402999, 250, 200, 50, 0, 0) then
      AntiRandoms else Logout;
  end;
end;

Procedure WaitWhileWc;
Var
Tick : Integer;
begin
  if (not LoggedIn) then exit;
  NoTree := False;
  MarkTime(Tick);
  repeat;
    AntiBanish;
    Wait(2000+random(1000));
    LittleCheck;
  until(NoTree = True) or (InvFull) or (TimeFromMark(tick) > 15000+random(10000));
end;

Procedure ChoppAYew;
Var lx, ly : integer;
Begin
  if (not LoggedIn) then exit;
    Repeat
    If FindObjCustom(lx, ly, ['Yew','ew','Ye'], [4223112, 4487056, 3694966, 4487056, 2000245], 10) then
    begin
      GetMousePos(fx, fy);
      MMouse(fx, fy, 0, 0);
      If IsUpText('Yew') then
      Mouse(fx, fy, 0, 0, true);
      AntiRandoms;
      AntiBanish;
      WaitWhileWc;
    end else
  LogOut;
  Until(Invfull);
end;

Procedure ChoppAWillow;
Var cx, cy : integer;
Begin
  if (not LoggedIn) then exit;
    Repeat
    If FindObjCustom(cx, cy, ['Wil', 'illo', 'llow'], [2637371, 2325097, 3098178, 2448722], 7) then
    begin
      GetMousePos(fx, fy);
      MMouse(fx, fy, 0, 0);
      If IsUpText('Wil') then
      Mouse(fx, fy, 0, 0, true);
      AntiRandoms;
      AntiBanish;
      WaitWhileWc;
    end else
  LogOut;
  Until(Invfull);
end;

Procedure YewWalkBack;
Begin
  if (not LoggedIn) then exit;
  for u := 0 to 5 do
  case u of

   0: if RadialWalk( 1195603, 339, 116, 50, 0, 0) then
    AntiRandoms else Logout;
   1: if RadialWalk( 5724247, 70, 115, 60, 0, 0) then
    AntiRandoms else Logout;
   2: if RadialWalk( 1195603 , 70, 90, 65, 0, 0) then
    AntiRandoms else Logout;
   3: if RadialWalk( 6908273, 75, 90, 60, 0, 0) then
    AntiRandoms else Logout;

  end;
end;

Procedure WillowWalkBack;
Begin
  if (not LoggedIn) then exit;
  for u := 0 to 1 do
  case u of

   1: if RadialWalk( 6908273, 40, 45, 59, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk( 9408666, 35, 111, 65, 0, 0) then
      AntiRandoms else Logout;
  end;
end;

Procedure PCwhat;
Begin
  If Players[CurrentPlayer].Strings[1] = 'Willow' then
  begin
    ChoppAWillow;
  end else
  if Players[CurrentPlayer].Strings[1] = 'Yew' then
  begin
    ChoppAYew;
  end else
  Writeln('Select What Tree To Chop at line 10');
end;


Procedure ChopSelectedTree;
begin
  Repeat
    PCwhat;
    WaitWhileWc;
  until(Invfull);
end;

Procedure DropPart;
Begin
  if (not LoggedIn) then exit;
  DropAll;
  Loads := Loads + 1;
  Chopped := Chopped + 27;
  if (Not(InvCount = 0 )) then
    LogOut;
end;

Procedure MainLoopPower;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  ProgressReport;
  ChopSelectedTree;
  DropPart;
until(Loads = Players[CurrentPlayer].Integers[0]);
  LogOut;
  NextPlayer(True);
end;

Procedure MainLoopYew;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  Setup;
  AxeUse;
  YewWalking;
  ChoppAYew;
  YewWalkBack;
  B4nk;
  Depos1tAll;
  until(Loads = Players[CurrentPlayer].Integers[0]);
  LogOut;
  NextPlayer(True);
end;

Procedure MainLoopWil;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  Setup;
  AxeUse;
  WillowWalking;
  ChoppAYew;
  WillowWalkBack;
  B4nk;
  Depos1tAll;
  until(Loads = Players[CurrentPlayer].Integers[0]);
  LogOut;
  NextPlayer(True);
end;


begin
  SetupSrl;
  Activateclient;
  Disguise('Windows Live Messenger');
  MarkTime(time2);
  DeclarePlayers;
  Repeat
    WhatTree;
    for i := 0 to 2 do
    case i of

      0: if Players[CurrentPlayer].Booleans[0] = True then
       MainloopPower;
      1: if Players[CurrentPlayer].Booleans[0] = False then
       if Tr33Type = 1 then
      MainloopYew;
      2: If Players[CurrentPlayer].Booleans[0] = False then
       if Tr33Type = 2 then
       MainloopWil;
    end;
  until(TimeFromMark(time2) > Howlong*60000) or (AllPlayersInactive);
end.

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

No good enough failsafes, secondly, there has been 16 days from your last apply, almost half of the time you have to wait.

Sorry, a tip for you:

You do not have to declare the NickNameBMP as long as you use LoginPlayer.

Pseudoclosed.

WT-Fakawi told me it was ok ?

+ Can you be a little more specific i needed to do this today becuase in 3 days no more computer for me in 2 weeks ;(

Well if he really gave you a permission then it propably is okay.

Sorry, I'm not going to vote or participate in this application, you should be fine with the feedback of others.

My last comment: A failsafe for the Radial walks, like

"If Not RadialRoadWalk(paramshere) Then
Begin
Result := False;
Logout;
Exit;
End; "

or something.

Ok thx agian n3ss3s!

I fix that when this application is done

about the CreateNickNameBpm, its a cause of the new find talk. so idc about that.

   if RadialWalk( 1195603, 339, 116, 50, 0, 0) then
    AntiRandoms else
    Result := True;

its oke. But, when the first 4 aren't found. and he do find the last one. he wil not logout…

NextPlayer(False); Never use this in the middel of you're script!. when he logs out while chopping, and the next player continues, the next player is in the bank. and not @ the tree's.

CheckSetting: i see a TerminateScript? why not let is continue with nextplayer?

Good that you free DTM's!. And imo a good attempt on fail saves. Holding vote atm.

Ok thx you want me to change this now? ;) I be happy to do it

imo change :p

tough,, some say you're not accepted to change you apply. so i would advise you to post the new version just in this topic. instant of changing you first post.

Edit: yes i can life with that version :p

Is this what you guys where talking about ?

//////////////////////////////////////////////////////////////////////
//                                  ___          __________         //
//                              _  | __|        |          |        //
//                         ___ |_| |__ |        | - Cuts - |        //
//                  _     | _ |    |___|        |__________|        //
//   __    _  ___  | |_/\ | _|                  |  Yews    |        //
//  |  \  | |/   | |    / |___|                 |  Willows |        //
//  |   \ | |\/| | |_|\_\                       |__________|        //
//  | |\ \| |  |_|                                                  //
//  |_| \___|       Cammalot Multi WoodCutter!                      //
//////////////////////////////////////////////////////////////////////
//
//              RR   EEEEE     A     DDD
//              R R  E        A A    D  D
//              RR   EEE     A   A   D  D
//              R R  E      AAAAAAA  D  D
//              R  R EEEEE A       A DDD
//
//
//              If you don't have a positive additude agienst
//              ScarScape then don't run this and don't even
//              bother reading under this.
//
//              This script only works for Scarscape atm.
//              When i got time and my teachers stop being
//              idiots i uptade this.
//
//              Start this script in any bankbooth in cammalot bank!
//              The bank south east from Cammalot telespot!
//              Have a axe in inventory or equiped.
//

program Cammalot;
{.include SRL\SRL.scar}

Var
  Loads, fx, fy, Chopped, Tr33Type, i, time2, t, u : integer;
  NoTree : boolean;

Const
  LoadsToDo = 0;   // How many loads before switching player ?
  HowManyLoops = 0; // How many times it will loop ;)
  TreeType = ''; // Yew for yews and Willow for Willows
  PwrChop = True; // Do you wanna powerchop? True/False ?
  WhatDirection = ''; // If Attacked run ?
  // N = North / S = South / E= East / W= West!
  CurrentWcLevel = ''; // For Antiban!
  UsingDAxe = False; // True If you are using a Dragon axe.
  WantAxeInInv = False; // True If you want the Axe to be Unequiped.
  Howlong = 0; // How long it will run! 1 = 1 minute / 10 = 10 minutes and so on

procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';           // Username
  Players[0].Pass := '';           // Password
  Players[0].Nick := '';           // 3 letters from your name!
  Players[0].Active := True;
  Players[0].Strings[0]:= '';      // BankPin ? Put it between the ''
  
  Players[1].Name := '';           // Username
  Players[1].Pass := '';           // Password
  Players[1].Nick := '';           // 3 letters from your name!
  Players[1].Active := True;
  Players[1].Strings[0]:= '';      // BankPin ? Put it between the ''
  
  Players[2].Name := '';           // Username
  Players[2].Pass := '';           // Password
  Players[2].Nick := '';           // 3 letters from your name!
  Players[2].Active := True;
  Players[2].Strings[0]:= '';      // BankPin ? Put it between the ''
  
  Players[3].Name := '';           // Username
  Players[3].Pass := '';           // Password
  Players[3].Nick := '';           // 3 letters from your name!
  Players[3].Active := True;
  Players[3].Strings[0]:= '';      // BankPin ? Put it between the ''
  
  Players[4].Name := '';           // Username
  Players[4].Pass := '';           // Password
  Players[4].Nick := '';           // 3 letters from your name!
  Players[4].Active := True;
  Players[4].Strings[0]:= '';      // BankPin ? Put it between the ''

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





/////////////////////////////////////////////////////////////////////////
// Don't touch anything under here if you don't know what your doing!!!//
/////////////////////////////////////////////////////////////////////////





Procedure AxeUse;
Var
  AxeDTM, ox, oy : Integer;
begin
  if (not LoggedIn) then exit;
  if UsingDAxe then Exit else
    AxeDTM := DTMFromString('78DA63F4626260D0646440058C4824900E02A' +
       'AD125A02604A84695801A0FA01A65026A9C806A6C09A87100AAB1' +
       'C2AF06006A7C02F4');
  GameTab(5);
  If FindDtm(AxeDTM, ox, oy, 568, 286, 605, 322)then
    FreeDtm(AxeDTM) else
    begin
      GameTab(4);
      If WantAxeInInv = False then
      begin
        If FindDtm(AxeDTM, ox, oy, 555, 211, 726, 457)then
        begin
          Mouse(ox, oy, 0, 0, False);
          ChooseOption('Wei');
          if FindBlackChatMessage('evel')then
          begin
            LogOut;
            Writeln('Have a axe you can use');
            NextPlayer(False);
            FreeDTM(AxeDTM);
          end else
          begin
            Writeln('No Axe Found');
            LogOut;
            NextPlayer(False);
            FreeDTM(AxeDTM);
          end;
        end;
      end;
    end;
end;

Procedure ProgressReport;
Begin
  Writeln('#-------------------------------------#');
  Writeln('  ---->    Ran for ' + (TimeRunning) +   '    <----');
  Writeln('#-------------------------------------# ');
  Writeln('  ---->    Banked ' + IntToStr(Loads) + ' Loads    <----');
  Writeln('#-------------------------------------#');
  Writeln('  ---->    Cut ' + IntToStr(Chopped) + ' ' + TreeType + ' Logs    <----');
  Writeln('#-------------------------------------#');
end;

Procedure SomeRandomTalk;     // 1
Begin
  if (not LoggedIn) then exit;
  case Random(50) of

    0: TypeSend ('Boring stuff');
    1: TypeSend ('CutCutCut');
    2: TypeSend ('I Think i Logout soon');
    3: TypeSend ('Watching tv might not answer');
    4: TypeSend ('My birthday is in December');
    5: TypeSend ('BirdNest here i come');
    6: TypeSend ('I want 99 WoodCutting');
    7: TypeSend ('I got ' + IntToStr(Chopped) + ' Logs');
    8: TypeSend ('Wc levels? Mine is ' + (CurrentWcLevel));
    9: TypeSend ('Brum Brum');

  end;
end;

Procedure CheckSettings;
var
  Problem : Boolean;
  Checky : integer;
Begin
  Problem := False;
  for Checky := 0 to 3 do
  case Checky of
    0: if LoadsToDo = 0 then Problem := True;
    1: if TreeType = '' then Problem := True;
    2: If WhatDirection = '' then Problem := True;
    3: if CurrentWcLevel = '' then Problem := True;
  end;
begin
  if Problem = True then
  begin
    Writeln('Check your Settings!');
    TerminateScript;
  end else Exit
end;
end;

Procedure WhatTree;
begin
  Tr33Type := 0
  case Lowercase(TreeType) of
    'yew' : Tr33Type := 1;
    'willow' : Tr33Type := 2;
    else TerminateScript;
  end;
end;

Procedure Setup;
Begin
  if (not LoggedIn) then exit;
  HighestAngle;
  MakeCompass('N');
  AxeUse;
end;

procedure AntiRandoms;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if FindFight then
  begin
    Wait(RandomRange(3000, 5000));
    RunTo(WhatDirection,True);
  end
end;

Procedure AntiBanish;
Begin
  if (not LoggedIn) then exit;
  Case Random(150) of
    0: HoverSkill('Woodcutting', False);
    1,2: MouseSpeed := 9 + Random(3);
    3,4: PickUpMouse;
    5: GameTab(2);
    8: Wait(2000);
    9,10,11: Setrun(True);
    14: Hoverskill('Random', False);
    15,16: SomeRandomTalk
  end;
end;

Procedure B4nk;

Var x, y, ax, ay: integer;
Foundbank : Boolean;
time: Integer;

Begin
   if (not LoggedIn) then Exit;
   MarkTime(time);
   Foundbank := False;
   Repeat
     if FindObjCustom(ax, ay, ['ank'], [8751501, 3370376, 803673], 7) then
     begin
       GetMousepos(x, y);            // Couldnt use Openbank; OpenBankQuite;
       AntiRandoms;                  // Becuase : I need to open a bank in cammalot
       Mouse(x, y, 1, 1, false);
       Chooseoption('kly');
       Foundbank := True;
       writeln('FoundBank');
       Wait(1000+random(1000));
       Inpin(Players[CurrentPlayer].Strings[0]);
     end;
   Until (FoundBank) or (TimeFromMark(time) > 10000);
end;

Procedure CheckIfLevled;
Var ox, oy : integer;
Begin
  if (not LoggedIn) then exit;
  If FindColorTolerance(ox, oy, 16711680, 205, 434, 370, 459, 10) then
    begin
      Mouse(ox, oy, 0, 0, true);
      AntiBanish;
    end else Exit;
end;

Procedure Depos1tAll;
Begin
  if (not LoggedIn) then exit;
  Fixbank;
  wait(1000+random(500));
  Deposit(1,1,2);
  Closebank;
  Wait(1000+random(500));
  AntiRandoms;
  Loads := Loads + 1;
  Chopped := Chopped + 27;
end;

Procedure YewWalking;
Var hx, hy : Integer;
begin
  if (not LoggedIn) then exit;
  for t := 0 to 4 do
  case t of
  
   0: if RadialWalk(6908273, 210, 220, 65, 0, 0) then
      AntiRandoms else Logout;
   1: if RadialWalk(6908273, 261, 299, 50, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk(5724247, 150, 300, 75, 0, 0) then
      AntiRandoms else Logout;
   3: if RadialWalk(1195603, 273, 260, 64, 0, 0) then
      AntiRandoms else Logout;
   4: If FindSymbol(hx, hy, 'tree') then
      begin
        Mouse(hx, hy, 0, 0, True);
        AntiRandoms;
        Flag;
      end else
      Logout;
   end;
end;

Procedure LittleCheck;
begin
  if (not LoggedIn) then exit;
  MMouse(fx, fy, 0, 0);
  if IsUpText(TreeType) then
  begin
    NoTree := True;
    end else NoTree := False;
end;


Procedure WillowWalking;
begin
  if (not LoggedIn) then exit;
  for t := 0 to 2 do
  case t of

   0: if RadialWalk( 6908273 , 220, 240, 65, 0, 0) then
      AntiRandoms else Logout;
   1: if RadialWalk( 6908273, 265, 255, 59, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk( 402999, 250, 200, 50, 0, 0) then
      AntiRandoms else Logout;
  end;
end;

Procedure WaitWhileWc;
Var
Tick : Integer;
begin
  if (not LoggedIn) then exit;
  NoTree := False;
  MarkTime(Tick);
  repeat;
    AntiBanish;
    Wait(2000+random(1000));
    LittleCheck;
  until(NoTree = True) or (InvFull) or (TimeFromMark(tick) > 15000+random(10000));
end;

Procedure ChoppAYew;
Var lx, ly : integer;
Begin
  if (not LoggedIn) then exit;
    Repeat
    If FindObjCustom(lx, ly, ['Yew','ew','Ye'], [4223112, 4487056, 3694966, 4487056, 2000245], 10) then
    begin
      GetMousePos(fx, fy);
      MMouse(fx, fy, 0, 0);
      If IsUpText('Yew') then
      Mouse(fx, fy, 0, 0, true);
      AntiRandoms;
      AntiBanish;
      WaitWhileWc;
    end else
  LogOut;
  Until(Invfull)or(not(Loggedin));
end;

Procedure ChoppAWillow;
Var cx, cy : integer;
Begin
  if (not LoggedIn) then exit;
    Repeat
    If FindObjCustom(cx, cy, ['Wil', 'illo', 'llow'], [2637371, 2325097, 3098178, 2448722], 7) then
    begin
      GetMousePos(fx, fy);
      MMouse(fx, fy, 0, 0);
      If IsUpText('Wil') then
      Mouse(fx, fy, 0, 0, true);
      AntiRandoms;
      AntiBanish;
      WaitWhileWc;
    end else
  LogOut;
  Until(Invfull)or(not(loggedin));
end;

Procedure YewWalkBack;
Begin
  if (not LoggedIn) then exit;
  for u := 0 to 5 do
  case u of
    
   0: if RadialWalk( 1195603, 339, 116, 50, 0, 0) then
    AntiRandoms else Logout;
   1: if RadialWalk( 5724247, 70, 115, 60, 0, 0) then
    AntiRandoms else Logout;
   2: if RadialWalk( 1195603 , 70, 90, 65, 0, 0) then
    AntiRandoms else Logout;
   3: if RadialWalk( 6908273, 75, 90, 60, 0, 0) then
    AntiRandoms else Logout;

  end;
end;

Procedure WillowWalkBack;
Begin
  if (not LoggedIn) then exit;
  for u := 0 to 1 do
  case u of

   1: if RadialWalk( 6908273, 40, 45, 59, 0, 0) then
      AntiRandoms else Logout;
   2: if RadialWalk( 9408666, 35, 111, 65, 0, 0) then
      AntiRandoms else Logout;
  end;
end;

Procedure PCwhat;
Begin
  If TreeType = 'llo' then
  begin
    ChoppAWillow;
  end else
  if TreeType = 'Yew' then
  begin
    ChoppAYew;
  end else
  Writeln('Select What Tree To Chop at line 10');
end;


Procedure ChopSelectedTree;
begin
  Repeat
    PCwhat;
    WaitWhileWc;
  until(Invfull);
end;

Procedure DropPart;
Begin
  if (not LoggedIn) then exit;
  DropAll;
  Loads := Loads + 1;
  Chopped := Chopped + 27;
  if (Not(InvCount = 0 )) then
    LogOut;
end;

Procedure MainLoopPower;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  ProgressReport;
  ChopSelectedTree;
  DropPart;
until(Loads = LoadsToDo);
  LogOut;
  NextPlayer(True);
end;

Procedure MainLoopYew;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  Setup;
  AxeUse;
  YewWalking;
  ChoppAYew;
  YewWalkBack;
  B4nk;
  Depos1tAll;
  until(Loads = LoadsToDo);
  LogOut;
  NextPlayer(True);
end;

Procedure MainLoopWil;
begin
  ClearDebug;
  Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  Setup;
  AxeUse;
  WillowWalking;
  ChoppAYew;
  WillowWalkBack;
  B4nk;
  Depos1tAll;
  until(Loads = LoadsToDo);
  LogOut;
  NextPlayer(True);
end;


begin
 SetupSrl;
 Activateclient;
 Disguise('Windows Live Messenger');
 MarkTime(time2);
 CheckSettings;
 DeclarePlayers;
 WhatTree;
 Repeat
 for i := 0 to 2 do
 case i of

 0: if PwrChop = True then
    MainloopPower;
 1: if PwrChop = False then
    if Tr33Type = 1 then
    MainloopYew;
 2: If PwrChop = False then
    if Tr33Type = 2 then
    MainloopWil;
 end;
 until(TimeFromMark(time2) > Howlong*60000)
end.

Sorry for double post will never happend agian.

CurrentWcLevel = ''; // For Antiban!

use the srl function that gets a level…. because there lvl changes…
No from me.
EDIT: You shouldn't double post…
and I was the one that "voted no and ran"… :rolleyes:

Ok.. Is that all i got to work on? ^^

no, many other things… but i don't got time atm…
But to clean things up instead of Doing if Find(ect….) the begin
you could do if not(Find(ect…)) then EXIT;

 Repeat
 for i := 0 to 2 do
 case i of
 
 0: if PwrChop = True then
    MainloopPower;
 1: if PwrChop = False then
    if Tr33Type = 1 then
    MainloopYew;
 2: If PwrChop = False then
    if Tr33Type = 2 then
    MainloopWil;
 end;
 until(TimeFromMark(time2) > Howlong*60000)

<– bad standards,,

Ok.. I add that on my to do list :)

And you found the worst place in the script to pick on? ^^

But whos the other one voted no ? I want feedback thats why im doing this

im gonna vote yes…this script is WAY better than alot that have got excepted…1 HUGE example…some guy makes a damn beer buyer that clicks continue and does barely anything and he gets accepted…and this guy has a few mistakes on a more complicated script and you guys shut him down…its a yes from me

Thx Alot HyperSecret.. :)
Appriciate people that just Vote No and havnt even look over the script! ( Not talking about foodballjds ). Some1 gave me a no and don't got the Brain or iq to post whats wrong ^^.

Btw what happends if it ends with 50 % to both yes and no ?

Hey :D sorry I'm not gonna vote but heres some things I've seen:

  if FindFight then
  begin
    Wait(RandomRange(3000, 5000));
    RunTo(WhatDirection,True);
  end

Don't you need RunBack? (I havn't looked at the new one so maybe not)

This isn't needed too much but I like to use it:
INstead of

1,2: MouseSpeed := 9 + Random(3);

do

1,2: MouseSpeed := RandomRange(9, 12);

Massive wait times in bank? Are you sure thats so good? It can get some users really annoyed:

  wait(1000+random(500));
  Deposit(1,1,2);
  Closebank;
  Wait(1000+random(500));

Wow a ton of radial walks :eek: nice idea! Do they all work 100% though lol?

 if IsUpText(TreeType) then

I'm not sure if you've done this, but it might be better to use

 if IsUpText('own ' + (Capitalize(TreeType)) then

unless of course in the Setup somewhere you already made it capitalized. The down bit is so you don't go picking up logs from the ground, but that only matters when power chopping… not good to pick up all the logs you just dropped :D

For the willow walking is there anything else you can use, like a fishing symbol or something that will always be there, in case the mm is rotated too much and your RW messes up?

 If FindObjCustom(lx, ly, ['Yew','ew','Ye'], [4223112, 4487056, 3694966, 4487056, 2000245], 10) then
    begin
      GetMousePos(fx, fy);
      MMouse(fx, fy, 0, 0);
      If IsUpText('Yew') then

why do you need all that, since the FindObj checks all of it before it results true…

if TreeType = 'Yew' then

Better to use

if Lowercase(TreeType) = 'yew' then

You should get into the habbit of using Lowercase() for whenever the user enters data.

Yea and you have to watch your standards.

Repeat
  if (not LoggedIn) then NextPlayer(False);
  LoginPlayer;
  ProgressReport;
  ChopSelectedTree;
  DropPart;
until(Loads = LoadsToDo);

Repeat
    if (not LoggedIn) then NextPlayer(False);
    LoginPlayer;
    ProgressReport;
    ChopSelectedTree;
    DropPart;
  until(Loads = LoadsToDo);

It seems all your Repeats you never put two spaces after them, you need to.

CheckSettings;
 DeclarePlayers;

^^ need to be other way around? Since declare players makes those have the values?

 for i := 0 to 2 do
 case i of

 0: if PwrChop = True then
    MainloopPower;

should be

 for i := 0 to 2 do
   case i of
     0: if PwrChop = True then
       MainloopPower;

^^ Thats actually an interesting thing to use case for lol. Most would use If Then Else.

And thats it :D have fun and good luck with the voters ;)

Edit: Wow thats gna take a while for you to read through lmao sorry didn't realize I wrote so much!

gj frozen thats alot of helpful info…also if it ends in 50% WT-Fakawi or another admin will make the final decision

:D ty hyper lol I get a bit carried away though… oh well thats good so I hope you haven't offended any admins l8ly :D

Thanks Fr0ze!
Lol im happy you wrote that much :D Like i said i need feedback…

But still wondering who voted No and ran for life..

Ohh Then i better work on the probs

Yea I had some stupid guy do that to me too… and it was the only no! I really want to know why he said no!

Btw fr0z why not vote ? I wont be mad if you vote no ^^

Cause I don't like to vote… and I don't really have much XP with script applications. Too new to members.

Haha, you have a strange kind of logic, but I like it. It is for sure original. After each RRW you do an AntiRandom. Good use of antirandom lol. And this:

  if UsingDAxe then Exit else
    AxeDTM := DTMFromString('78DA63F4626260D0646440058C4824900E02A' +
       'AD125A02604A84695801A0FA01A65026A9C806A6C09A87100AAB1' +
       'C2AF06006A7C02F4');
  GameTab(5);
  If FindDtm(AxeDTM, ox, oy, 568, 286, 605, 322)then
    FreeDtm(AxeDTM) else

I dont understand. It is kinda logic, but on the other hand…..

Voting Yes. I think you can do better than this, but you are already trying hard, I can see that :)

Woot WT-Fakawi Voted yes for me ^^
Thanks.. When i had 2 votes agianst 1 i thought i wasted 20 days on nothing but to see WT-Fakawi Write that take the price :)

Well now im going to bed tommorow school :/ 10 hours in hell bye

Well, I'm voting yes, but I don't like the use of a constant to determine the main loop when you're using multiplayer.
For example, maybe I have one really good 'botting main' with 80 wc. I would want it to chop yews instead of willows, which my other 'botting mains' would be doing since they only have 40 or 50 wc.
I think Fr0zen may have gotten the standards bit…IDK, I didn't bother to read all that he wrote.

I really don't see why this would deserve a 'no'.

?

Yes.

Hey what the hell, Yes from me :) sure I said a lot but its nothing major and I'm sure you will consider it all.

… I've 'helped' you before and you always have a great attitude. Not to mention you fix all your problems as fast as possible.

It seems Frozn caught all the mistakes. Except you don't need a RunBack after RunTo, it automatically does that.

Yes from me.

Yes from me, it looks like a good script. Proper use of failsafes and all the likes :)

N1keee takes the lead ^^
Thx to all i fix that when i get back from school

The script looks pretty stable. Good job on the script and can't wait to see future updates. I vote Yes, Good luck in getting into members by the way :)

Ip-Drowner lol i think you missclicked no?
Becuase i still got 8 yes but one more no :S

From: n1keee
Ip-Drowner lol i think you missclicked no?
Becuase i still got 8 yes but one more no :S

I don't know. I clicked on the top one which is No and the bottom one is Yes. I clicked on No.

Lol :P You said i vote yes then you click on No =]
You know anything i need to add ?

From: n1keee
Lol :P You said i vote yes then you click on No =]
You know anything i need to add ?

No, the script looks good :)

Also, No is on the top and Yes is on the bottom. So i don't know. BTW: It only says 4 have voted yes and 8 have voted no.

Lol your funny = ] Its the other way around..
I got 8 yes and 4 No

Uhhh..hmmmm .. mhhhhh

Yes!

Ty :)

From: n1keee
Lol your funny = ] Its the other way around..
I got 8 yes and 4 No

What is so funny??? I voted a yes and i know i have. Even Yes in italicized as in it is Yes meaning that i have voted yes.

Forget it Ip ;) Btw How many need to vote before this closes?

Hey good app;
I have to say its good for a first app but ill vote no mainly because you havent looted on srl that much.
Srl contains procedures that already have the co-ords set in:
e.g
For the find axe you could use:

 If FindDtm(dtm,x,y,[U]MIX1,MIY1,MIX2,MIY2[/U])

This will already search the inventory others as follows:

MIX/MIY <-Inventory
MCX/MCY <-Chatbox
MMX/MMY <- Mini Map
MSX.MSY <- Main Screen.

You see theres alot srl has to offer ;)
Keep trying
I will see you as a member in a month

Your regards;
->{Nauman}<-

Seems like this will take 2 weeks :/
I be gone for 3 weeks tommorow so bye ^^

Looks good to me, I vote yes.

From: tarajunky
Looks good to me, I vote yes.

First time i've seen tara vote :/

From: NaumanAkhlaq

Keep trying
I will see you as a member in a month

Your regards;
->{Nauman}<-

How can u be so sure it'll only be next month?

First version looked ok to me. since then you've changed it, listened to everyone's criticism, good or bad, them having voted yes or no. you have a good attitude. But i don't like your name, cus i know the owner of nike, and i think your making fun of him. no.






Yes. nike thing was a joke obviously :p




~RM

Woot Thx alot Tara & Rasta ;)

Umm.. I wish the people who voted NO Would say that and tell me whats wrong /:

Lol am i in the middle to be accepted and not :P ?

Very time i have 4 more yes then no 2+ people shows up and vote no ^_^

Yes. I like the intitiative of pming although some might not have (did not check the thread for any comments about it ;)). Good luck.

Sorry for that.. ^^ Needed some feedback before i go to military training

calm down a little…it takes a bit of time, you being all jumpy makes me feel like you just wanna leach out of members or something :O

I think you should use autocoloring functions so that radial walk always finds the color you are trying to find. Good first application so i vote yes.

Ty Cut!
But i wait the time ^_^
HyperSecret That hurted me =O

looks good but, i wouldn't recommend the RandomTalking

since its only 4-6 lines
unless you make it bigger

and you got potential but i think you need to get better if not this time youll get in next time fo sho!
14 yes 10 no's hmm looks quite diffcult for you to get in though not sure
=P
GOOD LUCK

Yes, you have talent, will make some amazing scripts once you refine it a bit.

In! Welcome.