Results 1 to 8 of 8

Thread: updating

  1. #1
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default updating

    I have asked before if someone could try and help me pdate my script from before but it changed over to me saying i couldnt get scar to work, well now it does and i really please want this to work;

    SCAR Code:
    //=======South Varock OakOblivion========//
    //                                       //
    // 1. Position yourself south of varrock //
    //   - by the oak trees facing north.    //
    // 2. Enter you login details.           //
    //           ##IMPORTANT##               //
    //        AXE MUST BE EQUIPTED           //
    // 3.Press play and watch the lvls go    //
    //   up                                  //
    //=======================================//
    ///////////////////////////////////////////
    {=========================================

    program VarrockSouth_OakOblivionV1;
    {.include SRL/SRL.scar}


    var
    i,x,y:Integer;

    const
      Treecolor1 = 926756;//the color of the tree
      Treecolor2 = 32768; // outher color

    Procedure DeclarePlayers;
    begin


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

      Players[0].Name        := '--------'; //UserName
      Players[0].Pass        := '--------'; //Password
      Players[0].Nick        := '----'; //Your Nickname - 3-4 leters
      Players[0].Active      := True; //Active

    end;

    procedure Signiture;
    begin
    writeln('T');    // sig
    writeln('O');
    writeln('M');
    writeln('D');
    writeln('A');
    writeln('V');
    writeln('I');
    writeln('E');
    writeln('S');

    end;

    procedure Login;  //Login
    begin
     if (not(LoggedIn)) then  //If not logged in then logs in player
     LoginPlayer;
     end;
     
     Procedure Randoms;
     Begin
      FindTalk;
       FindNormalRandoms;
        solveChatRandom;
       FindLamp ('Woodcutting') //Uses lamp on that skill
      DwarfItem;
     If (FindFight)Then
        Begin
         MakeCompass ('N')
          RunTo('E', True)
           Wait(7000 +Random(3000));
            RunTo('W', True);
        End;
     End;

    Procedure AntiBan;
    begin
     randomm := Random(4)
      case randomm of


      0:                begin

                        Wait(2241+(random(287)));
                        RandomRClick;
                        Wait(2348+(random(287)));
                        Randoms
                       end;

      1:     begin
             Wait(1956+(random(641)));
             GameTab(random(13)+1);
             Randoms;
             Wait(2341+(random(683)));
             GameTab(4);
             end;

      2:                begin
                        Wait(1119+(random(272)));

                        Randoms;
                        HoverSkill('Mining' ,false);

                        Wait(1164+(random(297)));

                        end;

      3:     begin
              Wait(2214+(random(631)));
              GameTab(random(13)+1);
              Randoms;
              Wait(2119+(random(653)));
              GameTab(4);
              end;
    end;
    end;

    Procedure ChopTree;
    Begin
      repeat
        if FindObjCustom(x, y, ['Oa', 'ak'], [Treecolor1, Treecolor2], 7) then
        begin
          Mouse(x,y,0,0,false);
          Wait(25+(random(50)));
          ChooseOption('hop')
          randoms;
          antiban;
          writeln('Cutting Tree');
        end else
          writeln('Could not find Tree...');

        until( InvFull )

    End;

    Procedure DropLogs;
    var
      i : Integer;
    begin
      if invfull then
      begin
        for i := 2 to 28 do
        begin
          DropItem(i);
          Wait(RandomRange(201, 401));
        end;
      end;
    end;

    begin
      SetupSRl;  // setup srl
      Signiture; // setup sig
      DeclarePlayers; // Declare Players
      if (not(LoggedIn)) then Login;
      randoms;       // Sets up randoms
      AntiBan;      // Trys to stop you getting banned
      repeat        // Repeat these functions
      ChopTree;      // Cut
      DropLogs;         // Drop
      until(false)  // Until stoped
    end.            // Finished

    if someone could please change it and give it back plz

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    This should work fine...

  3. #3
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it doesnt im getting Line 77: [Error] (12720:1): Unknown identifier 'randomm' in script

  4. #4
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Randomm needs to be an Integer !

    Decalre it on the top line with all the vars.

    Hope I Helped

  5. #5
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    It should work, but try using some standards. You script is kinda hard to read.

    Add some more failsafes, and yeah

    Good attempt :P

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  6. #6
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty thanks for helping rep 4 u again :P

  7. #7
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do i put it aint working i put Declare randomm; but it aint working

  8. #8
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Here:

    SCAR Code:
    //=======South Varock OakOblivion========//
    //                                       //
    // 1. Position yourself south of varrock //
    //   - by the oak trees facing north.    //
    // 2. Enter you login details.           //
    //           ##IMPORTANT##               //
    //        AXE MUST BE EQUIPTED           //
    // 3.Press play and watch the lvls go    //
    //   up                                  //
    //=======================================//
    ///////////////////////////////////////////
    {=========================================

    program VarrockSouth_OakOblivionV1;
    {.include SRL/SRL.scar}


    var
    i,x,y,Randomm:Integer;

    const
      Treecolor1 = 926756;//the color of the tree
      Treecolor2 = 32768; // outher color

    Procedure DeclarePlayers;
    begin


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

      Players[0].Name        := '--------'; //UserName
      Players[0].Pass        := '--------'; //Password
      Players[0].Nick        := '----'; //Your Nickname - 3-4 leters
      Players[0].Active      := True; //Active

    end;

    procedure Signiture;
    begin
    writeln('T');    // sig
    writeln('O');
    writeln('M');
    writeln('D');
    writeln('A');
    writeln('V');
    writeln('I');
    writeln('E');
    writeln('S');

    end;

    procedure Login;  //Login
    begin
     if (not(LoggedIn)) then  //If not logged in then logs in player
     LoginPlayer;
     end;

     Procedure Randoms;
     Begin
      FindTalk;
       FindNormalRandoms;
        solveChatRandom;
       FindLamp ('Woodcutting') //Uses lamp on that skill
      DwarfItem;
     If (FindFight)Then
        Begin
         MakeCompass ('N')
          RunTo('E', True)
           Wait(7000 +Random(3000));
            RunTo('W', True);
        End;
     End;

    Procedure AntiBan;
    begin
     randomm := Random(4)
      case randomm of


      0:                begin

                        Wait(2241+(random(287)));
                        RandomRClick;
                        Wait(2348+(random(287)));
                        Randoms
                       end;

      1:     begin
             Wait(1956+(random(641)));
             GameTab(random(13)+1);
             Randoms;
             Wait(2341+(random(683)));
             GameTab(4);
             end;

      2:                begin
                        Wait(1119+(random(272)));

                        Randoms;
                        HoverSkill('Mining' ,false);

                        Wait(1164+(random(297)));

                        end;

      3:     begin
              Wait(2214+(random(631)));
              GameTab(random(13)+1);
              Randoms;
              Wait(2119+(random(653)));
              GameTab(4);
              end;
    end;
    end;

    Procedure ChopTree;
    Begin
      repeat
        if FindObjCustom(x, y, ['Oa', 'ak'], [Treecolor1, Treecolor2], 7) then
        begin
          Mouse(x,y,0,0,false);
          Wait(25+(random(50)));
          ChooseOption('hop')
          randoms;
          antiban;
          writeln('Cutting Tree');
        end else
          writeln('Could not find Tree...');

        until( InvFull )

    End;

    Procedure DropLogs;
    var
      i : Integer;
    begin
      if invfull then
      begin
        for i := 2 to 28 do
        begin
          DropItem(i);
          Wait(RandomRange(201, 401));
        end;
      end;
    end;

    begin
      SetupSRl;  // setup srl
      Signiture; // setup sig
      DeclarePlayers; // Declare Players
      if (not(LoggedIn)) then Login;
      randoms;       // Sets up randoms
      AntiBan;      // Trys to stop you getting banned
      repeat        // Repeat these functions
      ChopTree;      // Cut
      DropLogs;         // Drop
      until(false)  // Until stoped
    end.

    Hope I Helped .

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Need Help Updating SRL SVN
    By jumbosped in forum OSR Help
    Replies: 2
    Last Post: 09-19-2008, 03:34 AM
  2. Help with Updating SRL
    By jumbosped in forum OSR Help
    Replies: 2
    Last Post: 09-12-2008, 07:07 AM
  3. updating to SRL 18
    By igotgrapes in forum OSR Help
    Replies: 2
    Last Post: 07-14-2008, 06:37 PM
  4. Why isn't anyone updating
    By Gold in forum News and General
    Replies: 5
    Last Post: 02-10-2008, 03:03 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •