SRL Archive - Archive

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

What is the meaning to life?
43.9999

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


Programming Knowledge
Scar,Pascal a lil bit of HTML

Other Communitys
Sythe,–(Full of scammers), Moparisthebest. countless others

How Long have You Played Runescape
1 year

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

I've applied about 7 times before. 2 times on another account (-_-) b4 i got rumbled. Then I started to learn about forms and only just now have i done a script with my first working form. I'm lso working on other project at the moment. (TOP SECRET). I'm applying wid 3 scripts.

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

My first One with forms:

{               /-------------\                  /---------|
               /               \                /          \
              /                \               /            \
              |        |       |              |       |      |
              |        |       |              |       |      |
              |        |       |              |       |      |
              |________|       |              |______ |      |
                       /       /                   /       /
                      /       /                   /       /
                     /       /                   /       /    SCRIPT
                    /       /    UPER           /       /_____
                   /       /                  |/      |/      |
                  /       /                   |       |       |
                 /       /                    |       |       |
                /       /                     |       |       |
               /       /________              \                /
              |       |        |               \              /
              |       |        |                \------------/_
              |       |        |              Super Scripts..| |..
              |       |        |      ____________________________________
               \               /     |       _Version History._           |
                \             /      | Version 0.1 <-- Under Construction |
                 \           /       |                                    |
                  \---------/        | Ver 0.2 BETA <-- Complete No forms |
                                     |                                    |
                                     | Ver 0.2 <-- Forms :D               |
                                     |                                    |
                                     |                                    |
                                     |         _Future Versions._         |
                                     |                                    |
                                     | Ver 0.3 <--- Should Improve Walking|
                                     | Ver 0.4 <--- Auto Responder.       |
                                     |____________________________________|
###########################################################################
        _                                                     _             #
__|\   |   |\  |    /\    |   |    /\    /\      /\    |\  |   |    /|__    #
__ |* <    | \ |   /__\   |   |   /  \  /  \    /__\   | \ |    >  *| __    #
  |/   |_  |  \|  /    \  |___|  /    \/    \  /    \  |  \|  _|    \|      #
############################################################################

}



program FalliYewz_;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}


var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label4 : TLabel;
  GroupBox1 : TGroupBox;
  UserNameOne: TEdit;
  PassWordOne: TEdit;
  Load1 : TEdit;
  GroupBox2 : TGroupBox;
  Label3 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  UserNameTwo: TEdit;
  Load2 : TEdit;
  PassWordTwo: TEdit;
  Button1 : TButton;
  Loads1 : integer;
  Loads2 : integer;
  Username, Password : String;
  Username1, Password1 : String;

procedure StartClick(sender: TObject);
begin
  UserName:= UserNameOne.text;
  Password:= PassWordOne.text;
  UserName1:= UserNameTwo.text;
  PassWord1:= PassWordTwo.text;
  Loads1:= StrtoInt(load1.text)
  Loads2:= StrtoInt(load2.text)
  frmDesign.ModalResult:= mrOk;
end;

procedure Form;
begin
frmDesign := CreateForm;
frmDesign.Left := 252;
frmDesign.Top := 141;
frmDesign.Width := 391;
frmDesign.Height := 291;
frmDesign.Caption := '            Fally_Yewz.- By ->{Nauman}<-';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Constantia';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 24;
Label1.Top := 72;
Label1.Width := 53;
Label1.Height := 13;
Label1.Caption := 'User Name';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 96;
Label2.Width := 53;
Label2.Height := 13;
Label2.Caption := 'PassWord';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 24;
Label4.Top := 136;
Label4.Width := 68;
Label4.Height := 13;
Label4.Caption := 'Loads To Do?';
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 6;
GroupBox1.Top := 56;
GroupBox1.Width := 177;
GroupBox1.Height := 113;
GroupBox1.Caption := 'Fally_Yews-Player One!';
GroupBox1.TabOrder := 3;
 UserNameOne:= TEdit.Create(frmDesign);
UserNameOne.Parent := frmDesign;
UserNameOne.Left := 96;
UserNameOne.Top := 72;
UserNameOne.Width := 59;
UserNameOne.Height := 21;
UserNameOne.TabOrder := 0;
 PassWordOne:= TEdit.Create(frmDesign);
PassWordOne.Parent := frmDesign;
PassWordOne.Left := 96;
PassWordOne.Top := 96;
PassWordOne.Width := 59;
PassWordOne.Height := 21;
PassWordOne.TabOrder := 1;
Load1 := TEdit.Create(frmDesign);
Load1.Parent := frmDesign;
Load1.Left := 112;
Load1.Top := 136;
Load1.Width := 57;
Load1.Height := 21;
Load1.TabOrder := 2;
Load1.text := '1';
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 200;
GroupBox2.Top := 56;
GroupBox2.Width := 177;
GroupBox2.Height := 113;
GroupBox2.Caption := 'Fally_Yewz- Player Two!!';
GroupBox2.TabOrder := 4;
Label3 := TLabel.Create(GroupBox2);
Label3.Parent := GroupBox2;
Label3.Left := 16;
Label3.Top := 16;
Label3.Width := 53;
Label3.Height := 13;
Label3.Caption := 'UserName';
Label5 := TLabel.Create(GroupBox2);
Label5.Parent := GroupBox2;
Label5.Left := 16;
Label5.Top := 40;
Label5.Width := 59;
Label5.Height := 13;
Label5.Caption := 'PassWord';
Label6 := TLabel.Create(GroupBox2);
Label6.Parent := GroupBox2;
Label6.Left := 16;
Label6.Top := 80;
Label6.Width := 68;
Label6.Height := 13;
Label6.Caption := 'Loads To Do?';
 UserNameTwo:= TEdit.Create(GroupBox2);
UserNameTwo.Parent := GroupBox2;
UserNameTwo.Left := 88;
UserNameTwo.Top := 40;
UserNameTwo.Width := 59;
UserNameTwo.Height := 21;
UserNameTwo.TabOrder := 0;
Load2 := TEdit.Create(GroupBox2);
Load2.Parent := GroupBox2;
Load2.Left := 96;
Load2.Top := 80;
Load2.Width := 65;
Load2.Height := 21;
Load2.TabOrder := 1;
Load2.text :='1';
 PassWordTwo:= TEdit.Create(frmDesign);
PassWordTwo.Parent := frmDesign;
PassWordTwo.Left := 288;
PassWordTwo.Top := 72;
PassWordTwo.Width := 59;
PassWordTwo.Height := 21;
PassWordTwo.TabOrder := 5;
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @StartClick;
Button1.Parent := frmDesign;
Button1.Left := 80;
Button1.Top := 200;
Button1.Width := 177;
Button1.Height := 25;
Button1.Caption := 'START CHOPPIN'#39;
Button1.TabOrder := 14;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('Form', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;


Var
x,y, AxeMask, Loadsr, lol: integer;
DeathsAvoided, Cutn, Checked: integer;
Axe: string;


Procedure LoadVarz;
  Begin

AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
    '613500332671D01350A4062150135D244B84703482C23A0461248' +
    'ACC5AF06001A0805A5');

  end;

const
Mask = 'Lol Jokes.';
//----------------------------------------------------------------------------//
//---> Setup Players    // with form. leave!                                  //
//----------------------------------------------------------------------------//

procedure DeclarePlayers;
begin
  Disguise(Mask);
  getapplication.MINIMIZE;

  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := Usernameone.text;
  Players[0].Pass := Passwordone.text;
  Players[0].Active := True;
  Players[0].Integers[1] := Loads1;

  Players[1].Name := usernametwo.text;
  Players[1].Pass := Passwordtwo.text;
  Players[1].Active := True;
  Players[1].Integers[2] := Loads2;

  writeln(inttostr(HowManyPlayers) + ' Players');
end;

//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By Wt-Fakawi Modified a lil by me!!!!
var
  i: Integer;
begin
 for i := 1 to 12 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: begin
          if FindFight then
          begin
            RunTo('N', False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided:=DeathsAvoided+1;
           end;
        end;
      10: if FindTalk then
          Result := True;
       11: if ClickToContinue then
          Result := True;
       12: if SolvePinball then
          Result := True;
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> GetAxeHead Procedure                                                   //
//----------------------------------------------------------------------------//

procedure GetAxeHead;
 begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    writeln('Found An Axe!!')
      Axe := 'Present'
  end;
  if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Axe := 'Absent';
    writeln('Axe Absent')
  end;
end;



//----------------------------------------------------------------------------//
//---> ANTI BANNAGE!!!                                                        //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(40) of
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------------//
//---> Mega AR Finder!!!                                                      //
//----------------------------------------------------------------------------//

Procedure NomAR;
Begin
  FindFastRandoms;
  Wait(200+Random(700))
  FindNormalRandoms;
  wait(8+Random(9))
end;


//----------------------------------------------------------------------------//
//---> Waiting Procedure                                                      //
//----------------------------------------------------------------------------//

procedure WaitWhileCutting;
begin
  MarkTime(lol)
  repeat
    FindEnt(x, y, true);
    AntiBan;
    If FindChatText('wc lvls') then
       SayCurrentLevels('woodcutting');
    NomAR;
      if invfull then break;
    if timefrommark(lol) > 90000 then exit;
  until(not isuptext('Chop'))
end;

//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

Procedure CutDown;
begin
  case Random(6) of
      1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      5: begin
        Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
          wait(200 + Random(234))
          ChooseOption('Chop')
      end;
  end;
end;


//-------------------------------------------------------------------//
//---> ScriptSetup...                                                //
//-------------------------------------------------------------------//
Procedure ScriptSetup;
Begin
  If Not (loggedin) then
    Begin
      LoginPlayer
      HighestAngle;
      GetAxeHead
      mmouse(x,y,2+Random(1),2+Random(3))
      wait(800+Random(300))
    end;
end;

//----------------------------------------------------------------------------//
//---> The Walking To Yews                                                    //
//----------------------------------------------------------------------------//
Procedure Walk2Yewz_;
Begin
  ScriptSetup;
  MakeCompass('S')
  SetRun(True);
  GameTab(4);
  HighestAngle;
      Begin
        RadialWalk( FindFallyRoadColor , 0, 7, 46, 0, 0);
        wait(8000+Random(3000))
          If (FlagPresent) then
            Flag;
             RadialWalk( FindFallyRoadColor , 347, 359, 65, 0, 0);
             wait(5000+Random(4000))
             Flag;
             RadialWalk( FindFallyRoadColor , 359, 336, 30, 0, 0);
             wait(1000+Random(700))
             writeln('Walked2Yewz')
             MakeCompass('W')
            WAIT(1+Random(2))//!!!!!
            MakeCompass('W')
            wait(200+Random(700))
              If FindSymbol(x,y,'Tree')then
                Begin
                  Mouse(x,y,2,2,true)
                    If FlagPresent Then
                      Begin
                        Wait(3000+Random(300))
                        Flag;
                      end;
                 end;
       end;
end;

//-------------------------------------------------------------------//
//---> Copping Down!                                                 //
//-------------------------------------------------------------------//
Function Chop:Boolean;
Begin
 Begin
  MakeCompass('W')
  If FindObj(x,y,'Ye',1855302,10) or
     FindObj(x,y,'ew',2506297,10) or
     FindObj(x,y,'Yew',1913131,10) then
       Begin
         Repeat
           CutDown;
           WaitWhileCutting
         Until(invfull)
       end;
    Cutn:=Cutn+27;
    Result:=True//If invfull.
  end;
end;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure Bank;                 //Need fix
begin
  If (invfull) then
    Begin
     MakeCompass('W');
     Wait(100+Random(300))
     MakeCompass('W');
      If FindSymbol(x,y,'Water') then
        Begin
          Mouse(x,y,2+Random(1),5-Random(4),True);
          wait(17000+Random(4000))
          Flag;
          RadialWalk( FindFallyRoadColor , 154, 174, 45, 0, 0);
          Wait(6000+Random(300))
          Flag;
          RadialWalk( FindFallyRoadColor, 134, 163, 43, 0, 0);
          Wait(5000+Random(300))
          Flag;
          RadialWalk( FindFallyRoadColor , 93, 102, 56, 0, 0);
          Wait(3000+Random(300))
          Flag;
          RadialWalk( FindFallyRoadColor, 67, 97, 40, 0, 0)
            If FindSymbol(x,y,'Bank') then
              Mouse(x,y,2+Random(1),9-Random(8),true)
                If FlagPresent Then
                  Flag;
                  wait(200+Random(400))
                  PerfectNorth;
                  OpenBankFast('feb')
                  wait(2000+Random(100))
                If (PinScreen) then
                  begin
                   InPin(IntToStr(Players[CurrentPlayer].Pin));
                   wait(3000+Random(700))
                    if (bankScreen) then
                      begin
                        Deposit(2,28,2);
                        wait(1000 + Random(200))
                        CloseBank
                        Loadsr := Loadsr + 1;
                        Writeln('Banked :p')
                    end;
                end;
          end;
    end;
end;

//-------------------------------------------------------------------//
//---> My Proggie :)                                                 //
//-------------------------------------------------------------------//

procedure Proggie;
begin
  ClearDebug;
  SRLRandomsReport;
  Writeln('//===============  N Falli Yewz_  ================\\');
  Writeln('\\======== -''0.2''- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(Cutn) + (' Logz_.             |'));
  Writeln('|      Loads Banked ' + IntToStr(Loadsr) + (' Yay!          |'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
  Writeln('\==========================================/');
end;

//----------------------------------------------------------------------------//
//---> The magical Main Loop                                                  //
//----------------------------------------------------------------------------//

Begin
  SetupSRL;
  LoadVarz;
  SafeInitForm;
  SafeShowFormModal;
  GetApplication.Minimize;
  ActivateClient;
  DeclarePlayers
  Proggie;
    Repeat
      ScriptSetup;
      Walk2yewz_;
      Proggie
      Chop;
      Proggie;
      Bank;
    until (Loadsr = Players[CurrentPlayer].Integers[1])
    if (Loadsr = Players[CurrentPlayer].Integers[1]) then
      begin
       writeln('NextPlaya')
       Logout;
       Nextplayer(True);
      If (Loadsr = Players[CurrentPlayer].Integers[2]) then
        Begin
          Writeln('Script Has finished')
          TerminateScript;
        end;
      end;
    end.
End.

The other One.

program AutoYewz;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

var
  BrokenAxeMask, AxeMask, x, y, Yew_LogMask, Tries: integer;
  LoadsB, LogsChopped, DeathsAvoided, lol: integer;
  Steel_Axe, Rune_Axe, Addy_Axe, Mith_Axe: integer;
  Chat, Axe, position: string;


procedure LoadVars;
begin;


  AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
    '613500332671D01350A4062150135D244B84703482C23A0461248' +
    'ACC5AF06001A0805A5');

  BrokenAxeMask := DTMFromString('78DA6354616060906040038C0CFFC12403C37' +
    'F20605407326430D52048200D52A348400DC82E79026A1480842C' +
    '01359A404212BF1A005BE90697');

  Rune_Axe := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
    '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
    'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');

  Addy_Axe := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
    '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
    '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');

  Mith_Axe := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
    '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
    'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');

  Steel_Axe := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
    '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
    'D594E5E5A2AA29C154D3545989A20600C3BC0E32');

  Yew_logMask := DTMFromString('78DA63CC656260E0646440063E969C601A26C' +
       'A98C284C483014654352540357F19F0ABA900AA1120604E1A508D' +
       '280135B14035BC04D49403D5B0E1570300088D04EC');

end;
//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

const
  Direction = 'W'; // direction to run if in case of fight?
  Mask = 'Norton Anti-Virus'; //what you want scar to desguise it's self as?
  Loads = 2; //how many loads for each player?
  GetBesAxe = 'Rune'; // case of losing your axe :P must have axe on you in bank
                       // Choose from : Addy, Rune, Mith, Steel.
//-----------------------------------------------------------------------//
//---> Version Number No touching                                        //
//-----------------------------------------------------------------------//

  VersionNumber = '0.1'; //leave this alone!

//----------------------------------------------------------------------------//
//---> Setup Players                                                          //
//----------------------------------------------------------------------------//

procedure DeclarePlayers;
begin
  Disguise(Mask);
  getapplication.MINIMIZE;

  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := 'Sammy '; //Your Username.
  Players[0].Pass := 'Witch9'; // Your Password.
  Players[0].Nick := 'ammy'; // 3-4 letters from your name.
  Players[0].Active := True; //True = Use player, False = Don't use.
  Players[0].pin := 0000; //pin in here if you dont have dont touch!

  Players[1].Name := ''; //Your Username.
  Players[1].Pass := ''; // Your Password.
  Players[1].Nick := ''; // 3-4 letters from your name.
  Players[1].Active := True; //True = Use player, False = Don't use.
  Players[1].pin := 0000; //pin in here if you dont have dont touch!


  writeln(inttostr(HowManyPlayers) + ' Players');
end;

//----------------------------------------------------------------------------//
//---> SuperScripter's Auto Responder                                         //
//----------------------------------------------------------------------------//

procedure SSAutoRespond;
begin
  if InChat('lol') then
  begin
    case Random(19) of
      2: TypeSend('...')
        5: TypeSend('Lil')
        8: TypeSend('contento')
        13: TypeSend('Hehe')
        15: TypeSend('funy')
        17: TypeSend(':)')
        19: TypeSend('wave:zzzzzz')
    end;
    if InChat(Players[CurrentPlayer].Nick) then
    begin
      case Random(7) of
        2: TypeSend('!!!');
        5: TypeSend('No me gusta ingles'); // <-- SPanish :p
        7: TypeSend('Estoy Trieste'); // some more spanish :D
        9: Typesend('chicos verqueros')
      end;
    end;
  end;
end;

//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By 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: begin
          if FindFight then
          begin
            RunTo(Direction, False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided := DeathsAvoided + 1;
          end;
        end;
      10: if FindTalk then
          Result := True;

      11: if ClickToContinue then
          Result := True;
    end;

  end;
end;

//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

function DifferentTechniques: Boolean;
begin
  case Random(6) of
      1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      5: begin
        Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
          wait(200 + Random(234))
          ChooseOption('Chop')
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> AntiBan                                                                //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(30) of
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure NOpenBank;
Begin;
 If FindObj(x,y,'Bank',7042941,5) or
    FindObj(x,y,'booth',2900815,5) or
    FindObj(x,y,'ank boo',7767438,5) then
    Begin
      Mmouse(x,y,0,0)
        If IsUpText('Use') then
          Begin
            Mouse(x,y,0+Random(3),3-Random(2),false)
            ChooseOption('uickly')
            wait(1000+Random(3450))
          end;
         Writeln('Bank Found')
        end;
     end;
//----------------------------------------------------------------------//
//---> Depositing..                                                     //
//----------------------------------------------------------------------//

Procedure NDeposit;
  Begin
   If finddtm(Yew_LogMask,x,y,MIX1,MIY1,MIX2,MIY2) then
    writeln('found')
    Begin
      mouse(x,y,2,0+Random(2),false)
      ChooseOption('All')
      wait(300+Random(700))
    end;
  end;
//----------------------------------------------------------------------//
//---> Get Axe Head                                                     //
//----------------------------------------------------------------------//

procedure GetAxeHead;
begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    writeln('Found An Axe!!')
      Axe := 'Present'
  end;
  if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Axe := 'Absent';
    writeln('Axe Absent')
  end;
end;

//------------------------------------------------------------------//
//---> Get Best Axe   -->  Will Get axes Up to Steel  <--           //
//------------------------------------------------------------------//

procedure GetBestAxe;
begin
  if Axe = 'Absent' then
  begin
    wait(100 + Random(200))
        NOpenBank;
      if (bankScreen) then
      FixBank;
    begin
      case GetBesAxe of
        'Rune': begin
            if (findDTM(Rune_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Addy': begin
            if (findDTM(Addy_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Mith': begin
            if (findDTM(Mith_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
        'Steel': begin
            if (findDTM(Steel_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
              mouse(x, y, 0, 2, true)
          end;
      end;
      CloseBank;
    end;
  end;
end;

//----------------------------------------------------------------------------//
//---> Waiting Procedure                                                      //
//----------------------------------------------------------------------------//

procedure WaitWhileCutting;
begin
  repeat
    FindEnt(x, y, true);
    AntiBan;
    FindFastRandoms;
    GetAxeHead;
    GetBestAxe;
    SSAutoRespond;
  until (not (IsUpText('Chop')))
end;


//----------------------------------------------------------------------------//
//---> Chop Function!!!!!!!!                                                  //
//----------------------------------------------------------------------------//

function Chop: boolean;
begin
  if FindObj(x, y, 'Yew', 1855816, 5) then
  begin
    FindFastRandoms;
    if isuptext('Chop') then
    begin
      FindEnt(x, y, true)
        mouse(x, y, 2, 2, true)
        wait(30 + Random(290))
        DifferentTechniques;
      WaitWhileCutting;
    end;
   Result:=True;
  end;
end;

//----------------------------------------------------------------------------//
//---> The walking to yewz!                                                   //
//----------------------------------------------------------------------------//

procedure WalktoYewz;
begin;
 if (not (LoggedIn)) then LoginPlayer;
  HighestAngle;
  wait(200 + Random(340))
  Makecompass('N')
  SetRun(True)
  Gametab(4);
  GetAxeHead;
  mmouse(x,y,0,2)
  GetBestAxe;
  wait(200 + Random(200))
    // FIX!!!!!
    Flag;
    If findsymbol(x,y,'Tree')then
      Begin
       mouse(x,y+10,0,0,true)
         if (flagpresent) then
           Flag;
        end;
      end;

//--------------------------------------------------//
//---> Get Position                                 //
//---> Switch Position                              //
//--------------------------------------------------//

procedure getposition;
begin
  if findsymbol(x, y, 'water') then
  begin
    position := 'North'
  end else
  begin
    position := 'South'
  end;
end;

function switchposition: boolean;
begin
  getposition;
  if position = 'South' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 630, 20, 672, 67, 50) then
    begin
      mouse(x + 6, y + 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
  if position = 'North' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 610, 96, 661, 150, 50) then
    begin
      mouse(x + 6, y - 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
end;

{-------------------------------------------------------------------------------}

//------------------------------------------------------------------------//
//---> The Main Bits!!!                                                   //
//------------------------------------------------------------------------//

procedure ChopDown;
begin;
  if not (loggedin) then
    Nextplayer(true);
  SetRun(false);
  gametab(4);
  HighestAngle;
  begin
    repeat
      Chop;
      if not FindObj(x, y, 'Yew', 1855816, 5) then
      if (not IsUpText('Yew'))then
        SwitchPosition;
      AntiBan;
      wait(5000 + Random(1000))
    until (invfull)
      logschopped := logschopped + 27;
  end;
end;

//--------------------------------------------------------------//
//---> Banking                                                  //
//--------------------------------------------------------------//

procedure Bank;
begin;
  if (not(loggedin))then
  NextPlayer(false);
  if (invfull) then
    begin
      GetPosition;
      if position = 'North' then
        SwitchPosition;
          if findsymbol(x, y, 'dungeon') then
            Makecompass('N');
            Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
              if (FlagPresent) then
                Flag;
                SetRun(True);
                mouse(641, 32, 0, 0, true)
              if (flagpresent) then
                Flag;
                if findsymbol(x, y, 'Bank') then
             mouse(x, y, 2 + Random(1), 3 - Random(2), true);
           if (flagpresent) then
         repeat
           wait(6000 + Random(4000))
         until not (flagpresent)
          MakeCompass('E')
          LowestAngle;
          NOpenBank;
     if (PinScreen) then
    begin
      InPin(IntToStr(Players[CurrentPlayer].Pin));
        if (bankScreen) then
          begin
            Deposit(2,28,2);
            wait(1000 + Random(200))
            CloseBank
            LoadsB := LoadsB + 1;
          end;
        end;
      end;
end;
//-------------------------------------------------------------------//
//---> My Proggie                                                    //
//-------------------------------------------------------------------//

procedure Proggie;
var
  PActive: string;
begin
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
  Writeln('//=============== Auto  ================\\');
  Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(LogsChopped) + (' logs.'));
  Writeln('|      Banked ' + IntToStr(LoadsB) + (' times.'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.'));
  Writeln('\==========================================/');
end;

//----------------------------------------------------------------------------//
//---> The magical Main Loop                                                  //
//----------------------------------------------------------------------------//

begin
  SetupSRL
  DeclarePlayers;
  LoadVars
    proggie;
  repeat
    walktoyewz;
    proggie;
    chopdown;
    proggie;
    Bank;
    proggie;
  until (LoadsB = Loads)
    if (LoadsB = Loads) then
  begin
     LoadsB:=0
   DeathsAvoided:=0
   LogsChopped:=0
writeln('Loads Done Logging out!')
      Logout;
    Nextplayer(true);
if (LoadsB = Loads) then
  begin
  writeln('Loads Done Logging out!')
      Logout;
      TerminateScript;
  end;
 end;
end.

{--------Main Loop Ends----------}
    {-Script Ends Here :(-}

And another one:

program NWill0wz_;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}


//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

var
x, y, Cutn: integer;
DeathsAvoided: integer;
Loads, AxeMask: integer;
W0ot: integer;
Axe:string;


//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

Const
HowManyToCut=3; // How many Loads to bank;
VersionNumber='1.0'; //Do Not Touch!!!

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

     Players[0].Name :='    ';  //UserName in here
     Players[0].Pass :='    '; //Password here
     Players[0].Active := True;  // Use The player? True=Use, False=Dont Use
     Players[0].Pin := 0000; //PinNumber

     Players[1].Name :='   ';
     Players[1].Pass :='   ';
     Players[1].Active := True;
     Players[1].Pin := 0000;

     writeln(inttostr(HowManyPlayers) + ' Players');
 end;

Procedure LoadVarz;
Begin

AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
    '613500332671D01350A4062150135D244B84703482C23A0461248' +
    'ACC5AF06001A0805A5');


end;

//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i := 1 to 12 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: begin
          if FindFight then
          begin
            RunTo('N', False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided:=DeathsAvoided+1;
           end;
        end;
      10: if FindTalk then
          Result := True;
       11: if ClickToContinue then
          Result := True;
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> GetAxeHead Procedure                                                   //
//----------------------------------------------------------------------------//

procedure GetAxeHead;
 begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    writeln('Found An Axe!!')
      Axe := 'Present'
  end;
  if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
  begin
    Axe := 'Absent';
    writeln('Axe Absent')
  end;
end;

//----------------------------------------------------------------------------//
//---> Script Setup                                                           //
//----------------------------------------------------------------------------//

procedure setup;
Begin
  HighestAngle;
  SetRun(True);
  GameTab(4);
  GetAxeHead
  Mmouse(x,y,3,3)
end;

//----------------------------------------------------------------------------//
//---> My OpenBank Procedure                                                  //
//----------------------------------------------------------------------------//

Procedure NOpenBank;
Begin;
 If FindObj(x,y,'Bank',5994891,5) or
    FindObj(x,y,'booth',539728,5) or
    FindObj(x,y,'ank boo',5461593,5) then
    Begin
      Mmouse(x,y,0,0)
        If IsUpText('Use') then
          Begin
            Mouse(x,y,0+Random(3),3-Random(2),false)
            ChooseOption('uickly')
            repeat
            wait(1000+Random(3450))
            Until(BankScreen)
          end;
         Writeln('Bank Found')
        end;
     end;

//----------------------------------------------------------------------------//
//---> ANTI BANNAGE!!!                                                        //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(40) of
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------------//
//---> Waiting......                                                          //
//----------------------------------------------------------------------------//

Procedure NWait;
Begin
  MarkTime(W0ot)
  repeat
    FindEnt(x, y, true);
    AntiBan;
    FindFastRandoms;
    If FindChatText('wc') then
       SayCurrentLevels('woodcutting');
    until(not(IsUpText('Chop'))) or (TimeFromMark(W0ot) > 60000)
  end;

//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

Procedure Cut;
begin
 Case Random(4) of
  1:Mouse(x,y,0,2,true)
  2:Mouse(x+1,y-1,2-Random(2),6,true)
  3:Begin
      MMouse(x,y,1,1+Random(4))
      wait(200+Random(350))
      mouse(x,y,1,1,true)
    end;
   4:Begin
      Mouse(x,y,0,0,false);
      ChooseOption('hop')
      wait(20+Random(234))
     end;
   end;
end;

//----------------------------------------------------------------------------//
//---> Walking To the Willow                                                  //
//----------------------------------------------------------------------------//

Procedure Walk2Willows;
Begin
 if not loggedin then LoginPlayer
   Setup;
   MakeCompass('W')
   mouse(614+Random(10), 60-Random(10),1+Random(10),11-Random(10),true)
   Wait(7000+Random(3000))
  If (FindSymbol(x,y,'Fishing Spot')) then
    Begin
      Mouse(x,y,2,0+Random(3),true)
       wait(7000+Random(2000))
        If (FlagPresent) then
          Begin
            repeat
             Wait(1200+Random(200))
            until(not(Flagpresent))
              FindFastRandoms;
              SetChat('On',1);
              SetChat('Off',2);
          end;
      end;
end;

//----------------------------------------------------------------------------//
//---> Chopping Down The Tree                                                 //
//----------------------------------------------------------------------------//

procedure CutWillows;
Begin
  MakeCompass('N')
  If FindObj(x,y,'Willow',2055256,2)or
     FindObj(x,y,'Chop',1716782,3)or
     FindObj(x,y,'Down',5344643,4) then
      If IsUpText('hop') then
        Begin
          Repeat
            Cut;
            FindEnt(x,y,true);
            NWait
          until(invfull)
        end;
      Cutn:=Cutn+27;
  end;

//----------------------------------------------------------------------------//
//---> Banking Procedure                                                      //
//----------------------------------------------------------------------------//

Procedure Bank;
begin
  If (invfull) then
    Begin
      If findsymbol(x,y,'Bank') then
        mouse(x,y,1,1,true)
         If (FlagPresent) then
           Flag;
           MakeCompass('W')
           LowestAngle;
           wait(200+Random(300))
           NOpenBank;
           Deposit(2,28,2);
           wait(1000 + Random(200))
           CloseBank
           loads:=Loads+1;
          end;
         writeln('Desposited a full load of Bull')
      end;



//-------------------------------------------------------------------//
//---> My Proggie :)                                                 //
//-------------------------------------------------------------------//

procedure Proggie;
begin
  ClearDebug;
  SRLRandomsReport;
  Writeln('//===============  N Will0wz_  ================\\');
  Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(Cutn) + (' Logz_.             |'));
  Writeln('|      Loads Banked ' + IntToStr(Loads) + (' Yay!          |'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
  Writeln('\==========================================/');
end;

//--------------------------------------------------------------------//
//---> The Main Loop                                                  //
//--------------------------------------------------------------------//

begin
  SetupSRL;
  LoadVarz;
  DeclarePlayers;
  GetApplication.Minimize;
    repeat
      Walk2Willows;
      proggie;
      CutWillows;
      Proggie;
      Bank;
      Proggie;
    until(HowManyToCut=Loads);
   If HowManyToCut=Loads then
    Begin
     Writeln('Loads Done Switching..');
     NextPlayer(True);
    end;
end.
   //---------------------------------//

Thats all folks.:garfield:

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

hmmmm, still no correct use of multi player…

wierd standaards :p (at least better then last time)

lol?: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)

i don't know yet.

you made improvements but i don't thing this is enough

*holds vote*

no multiplayer, i would say you know the basics of scar and srl scripting but not enough IMO to get srl members status, all 3 scripts are pretty much the same exact thing, the top one has a little bit of a form :D and the 2nd to just look for different trees…learn some more advanced things IMO

ps: that thing you pulled with the SuperScripter acc may get you some no's also, as not being 'trustworthy'

Mouse(x, y, 1 + Random(6), 5 - Random(4), true)

Yes just to make it click random. I don't think you need to but i think i might do just in case …

From: naumanakhlaq
Yes just to make it click random. I don't think you need to but i think i might do just in case …

what's wrong with:

Mouse(500, 500, 6, 6, True);

The 6 is randomized allready.

sorry but i have to say no agian.

you need to learn some harder things, i'll get the list one more time.

* 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

no from me as well…

just from its looks, it doesnt look like it would run that well considering you have virtually no failsafes in your walking procedures.

My advice is to write your script, and then test the hell out of it until there are very little bugs left. By doing this you will be forced to make failsafes based on where the script generally messes up at.

Good attempt but you got a lot of work ahead of you.

Sorry, its a no from me =/

Ok…

It is the SuperScripter alter ego that bites you now…

Yes it is.

 If FindObj(x,y,'Bank',7042941,5) or
    FindObj(x,y,'booth',2900815,5) or
    FindObj(x,y,'ank boo',7767438,5) then

 FindObjCustom(x, y,['Bank', 'booth', 'ank boo'],[7042941,2900815,7767438],5)

^ all in one :)

Holding my vote though, some things look bit basic.. like your chopping procedure… and I don't see really failsafes.

From: HyperSecret

ps: that thing you pulled with the SuperScripter acc may get you some no's also, as not being 'trustworthy'

Yeap, we got some problems with last one…if you shouldn't do that account messing I would problably vote something near yes…

Also these 3 are tweaked scripts from pervious apps… btw… i'm not voting…

Sorry for bad english

ok. i need to update some…:

EDIT: No only 2 of them are. For multiplayer how would you set it up then. I need to know because so far if i've been doing it wrong then…

No from me aswell… The chopping & such is pretty basic & as others said, there arent many failsafes(none in walking for example)=/. Nice form though ;)

naumanakhlaq is not going to be accepted right now. Not because of his scripting skills (good enough) but because he applied under a different name claiming to be his own brother. He PM'ed me too claiming to be his own brother. I know its all for fun and good laughs but still admins are allergic for things like that.

You will need to wait another month and than you will be a Member.