Results 1 to 3 of 3

Thread: My god! This is frustrating :(

  1. #1
    Join Date
    Nov 2006
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My god! This is frustrating :(

    I still cant figure out what the hell is wrong with my script. It stops chopping the wood but does not walk to where I want it to...
    Some1 please explain the following:
    1) How do I make it walk to the store once im done cutting, then how do I make him talk to the shopkeeper and sell my stuff.
    2) After that, how do I make him walk back to the Oak trees.
    3) And then start cutting again and repeat the entire thing.

    Heres my script:
    SCAR Code:
    program OaksGotPwned;
    {.include SRL/SRL.Scar}

    const
         Shop = 4225977; // color of the pot of the general shop in minimap
         OakColor = 3105112; // color of the oak leaves, pick any color

    var
     x, y :integer;     // do not touch this

    /////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////

    procedure Signature;
    begin
      ClearDebug;
      writeln('Oaks Got Pwned! OMGZORZ!!!!!!!!!!!!!');
      writeln('This Script has been made by r3dr4g0n');
      writeln('Please do not distribute without permission');
      writeln('You can edit my script to make your own,')
      writeln('just give me credit');
      writeln('ENJOY THE SCRIPT!');
      wait(3000 + random(750));
    end;


    ///////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////

    procedure FaceNorth;
    begin
         MakeCompass('E');    //  makes compass face north
         HighestAngle;        //  highest angle
         MouseSpeed:=15;      // <--- this is your mouse speed, change it if you know what your doing
         SetRun(true)         // sets run on.
         GameTab(4);         // opens bag

    end;


    ///////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////

    Procedure CutOak;
    begin
      repeat
        If (FindObjEx(x,y,'Oak',273,58,418,271,OakColor,0,7,7,300,false))then
        begin
          MMouse(x, y, 5, 5);
          Wait(100 + random(50));
          Mouse(x, y, 0, 0, True);
          Wait(1500 + random(1500));
          end;
      until(InvFull)
    end;

    //////////////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////////////

    procedure WalkItOut;
    begin
         if(InvFull) then
         begin
              if(FindColor(x, y, Shop, 584, 35, 679, 103))then
         begin
              Wait(150 + random(150));
              Mouse(x, y, 0, 0, True);
         end;
         end;
    end;

    //////////////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////////////

    begin
         Activateclient;    // minimizes scar and opens RS
         SetupSRL;
         Signature;
         FaceNorth;
         Wait(100+random(100));
            repeat
              CutOak;        // starts cutting oak
              Findnormalrandoms;
              Wait(20000+random(1500));
              WalkItOut;  // walks to shop when ur inven is full
            until(false)
    end.

  2. #2
    Join Date
    Sep 2007
    Location
    Canada Eh
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well for one thing, i dont see any walking in your script at all.. Try using radial walking or even symbol walking. Theres many tuts in the intermidiate section that explains walking very well.

    you could use like

    SCAR Code:
    if (findsymbol 'blah' ffdfkfn) then
                             begin
                                MMouse(x,y , 0, 1);
                                Mouse(x,y, 0, 1, true);
                              end;

    Something along those lines could work for just walking to a store. As for clicking the shop keeper You'd have to find the colour of him then right click or something.

    thats what I think could work.

  3. #3
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try something along the lines of..

    SCAR Code:
    procedure WalkItOut;
    begin
      if(InvFull = false) then exit;
        if(FindSymbol(x, y, Shop))then
        begin
          Wait(150 + random(150));
          Mouse(x, y, 0, 0, True);
          Flag;
        end;
    end;

    Remember when you use FindSymbol it will record the x and y values of it. If you want it to click south of the Symbol then change the Mouse to y+15 etc.. depending how far you want to travel from the symbol.

    Also you need to use Flag to wait untill the flag has gone.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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