View Poll Results: Will YOU be here to help me when i need more help?

Voters
3. This poll is closed
  • Yes ill be here to see whats new and help you

    3 100.00%
  • No ill be here to see whats new and will NOT help you

    0 0%
Results 1 to 20 of 20

Thread: Help Needed [Thread Will Be Updated When I Need Other Help]

  1. #1
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help Needed [Thread Will Be Updated When I Need Other Help]

    Note: This thread will be updated when i need more help with other things and the one(s) that helps me will offcourse be in Credits
    Umh as my sig says im trying to make 3 scripts but i dont know anything about scripting ive made a auto talker but that didnt use any color finding codes wich i nedd in all 3 scripts so first thing i need help with: Find a color and search for a text i want and THEN click it. Second: Umh Nothing . Third: Only need the first one : Find a color and search for a text i want and THEN click it

  2. #2
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Added your msn, I'm bored and willing to help

  3. #3
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FindObj... Look for some tutorials
    The truth finally came out...


  4. #4
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mat_de_b View Post
    FindObj... Look for some tutorials
    yeah but i gota read a whole tut to find what i want...

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

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    var
    x,y:integer;

    const
    colortocheck = 8358818; //Item color
    itemname = 'shrimp'; //Item name (lowercase)

    procedure go;
    begin
      if(findcolorspiral(x,y,colortocheck,557,209,731,458))then //Inventory box co-ords
        begin
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          wait(200+random(150));
          if(IsUpText(itemname))then
            begin
              writeln('Found item '+itemname+' with color of '+IntToStr(colortocheck));
            end;
        end;
    end;

    begin
      SetupSRL;
      Go;
    end.

    SRL Compiled in 250 msec
    Found item shrimp with color of 8358818
    Successfully executed

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

  6. #6
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try searching? or check my tutorial for a powerchopper, there is a bit about find obj in that
    The truth finally came out...


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

    Default

    Quote Originally Posted by mat_de_b View Post
    Try searching? or check my tutorial for a powerchopper, there is a bit about find obj in that
    Have you ever tried searching? and see how much junk that comes up that doesn't even work now?

    This is scripting help.

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

  8. #8
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rogeruk View Post
    Have you ever tried searching? and see how much junk that comes up that doesn't even work now?

    This is scripting help.
    Thank you...

  9. #9
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rogeruk View Post
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    var
    x,y:integer;

    const
    colortocheck = 8358818; //Item color
    itemname = 'shrimp'; //Item name (lowercase)

    procedure go;
    begin
      if(findcolorspiral(x,y,colortocheck,557,209,731,458))then //Inventory box co-ords
        begin
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          wait(200+random(150));
          if(IsUpText(itemname))then
            begin
              writeln('Found item '+itemname+' with color of '+IntToStr(colortocheck));
            end;
        end;
    end;

    begin
      SetupSRL;
      Go;
    end.

    SRL Compiled in 250 msec
    Found item shrimp with color of 8358818
    Successfully executed

    Ill try it and your the first one by 5 to tell me what
    SCAR Code:
    MMouse(x,y,3,3);
    does...

    Edit: i got the script to like like i wanted so something like this:
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    var
    x,y:integer;

    const
    TeaCupColor =12632264 ; //Cup Color

    procedure go;
    begin
      if(findcolorspiral(x,y,TeaCupColor,12,63,22,64))then
        begin
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          Mouse(X, Y, 3, 3,False);
          wait(200+random(150));

            end;
        end;


    begin
      SetupSRL;
      Go;
    end.
    but all i get is
    User specified a new RS window
    Successfully compiled
    SRL Compiled in 234 msec
    Successfully executed

  10. #10
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Add a writeln in there to see if its working...

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
     
    var
      x,y:integer;
     
    const
      TeaCupColor =12632264 ; //Cup Color
     
    procedure go;
    begin
      if(findcolorspiral(x,y,TeaCupColor,12,63,22,64))then
        begin
          Writeln('Found the Tea Cup');
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          Mouse(X, Y, 3, 3,False);
          wait(200+random(150));  
        end;
    end;
     
     
    begin
      SetupSRL;
      Go;
    end.
    The truth finally came out...


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

    Default

    Quote Originally Posted by yanix View Post
    Ill try it and your the first one by 5 to tell me what
    SCAR Code:
    MMouse(x,y,3,3);
    does...

    Edit: i got the script to like like i wanted so something like this:
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    var
    x,y:integer;

    const
    TeaCupColor =12632264 ; //Cup Color

    procedure go;
    begin
      if(findcolorspiral(x,y,TeaCupColor,12,63,22,64))then
        begin
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          Mouse(X, Y, 3, 3,False);
          wait(200+random(150));
          end;
    end;

    begin
      SetupSRL;
      Go;
    end.
    but all i get is
    User specified a new RS window
    Successfully compiled
    SRL Compiled in 234 msec
    Successfully executed
    Your wait should be AFTER you move the mouse to the item and BEFORE it clicks it. Eg..

    SCAR Code:
    procedure go;
    begin
      if(findcolorspiral(x,y,TeaCupColor,12,63,22,64))then
        begin
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          wait(200+random(150)); //Giving game the time to move the mouse
          Mouse(X, Y, 3, 3,False);
          end;
    end

    Mouse(X, Y, 3, 3,False); would mean it would RIGHT click is that what you want?

    You need to add that wait to make sure the mouse has actually gotten to the location it needs to be.

    As mat_de_b suggested add writeln's for debug.

    SCAR Code:
    procedure go;
    begin
      if(findcolorspiral(x,y,TeaCupColor,12,63,22,64))then
        begin
          WriteLn('Found TeaCup');
          MMouse(x,y,3,3); //Movemouse to item with random of 3 X, 3 Y
          wait(200+random(150)); //Giving game the time to move the mouse
          Mouse(X, Y, 3, 3,False);
          end;
    end

    That way, if you get no message then it wasn't found.

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

  12. #12
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dosent work
    User specified a new RS window
    Successfully compiled
    SRL Compiled in 250 msec
    Successfully executed

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

    Default

    Post your updated script.

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

  14. #14
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yanix i fixed it get on msn if its working again pls try it evry sec and reinstall it..
    ~Hermen

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

    Default

    Could always post the update, then when people are searching they can find the fix if they are looking for it,

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

  16. #16
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its a prive update he want to release you know
    editkay then.. and it works wil post in few mins
    ~Hermen

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

    Default

    Private? since when did scripts become private on a public board?

    :P. Alot better to help in the public than privately, that way it only solves the ones problem not the whole problem

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

  18. #18
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i send to him he release i dont want to feel good like you srl members
    to post him a fix you know..on public but if you want to...
    ~Hermen

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

    Default

    Up 2 you lol, if he asks for help in public, he shall get it in public. If he wants private tutoring then PM some1.

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

  20. #20
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah but hermpie took my idea and made his own script of my idea and i hope he wont take all my ideas cuz i want some work...

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    var
    X, Y, Loads, VarockSand, VarockSandColor, TheaSeller, Times, startskill, endskill : integer;
     
    const
    Load= 5;//how many loads to do..
     
    //dont use this srl thingy is a bit outdated
    drop=false;//IF THIS IS TRUE IT WONT BANK THE CUP OF THEA
     
    //dont change this only if its clicks to fast at stealing
    TimeToWait=5500;//
    procedure LoadBitmap;
      begin
        VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
             '02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
             '5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
             'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
             'B9FBB86E4F1526A5E1D559FB9FF901944');
       TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
           '4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
           '088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
           '9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
           '4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
           '735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
      end;
     
    {===============================================]
        this function finds randoms by:wt-fawaki
    [===============================================}

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 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);
               end;
             end;
        end;
     
      end;
    end;
     
     
    procedure GetVarockSandColor;
    begin
      LoadBitmap;
      FindFastRandoms;
      VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
      WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
      FreeBitmap(VarockSand);
    end;
     
     
    procedure StealFromTheaStall;
    begin
      Makecompass('E');
      lowestangle;
      GameTab(4);
      repeat
      FindFastRandoms;
      if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
         FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
         FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
         FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
         begin
           MMouse(x,y,0,0);
           Mouse(x,y,0,0,False);
           if ChooseOption('rom') then
           begin
             WriteLN('did steal the stall');
           end;
      if invfull then
      exit;
      else
      wait(TimeToWait + random (233));
      end;
      until(InvFull);
      if (InvFull) then
      begin
        Loads :=Loads + 1
      end;
    end;
     
    procedure ToBank;
    begin
      MakeCompass('N');
      SetRun(true);
      Highestangle;
      FindVarrockRoadColor;
      FindFastRandoms;
      if FindBank('veb')then
      begin
        Exit;
      end else
      FindFastRandoms;
      RadialRoadWalk(VarockSandColor,340,10,70,0,0);
      FindBank('veb');
     
    end;
     
    procedure HandleBank;
    begin
      DepositAll;
      Closebank;
      if (invfull) then
      begin
      OpenBankQuiet('veb');
      DepositAll;
      Closebank;
      end;
    end;
     
    Procedure ToTheaStall;
    begin
      Setrun(true);
      GetVarockSandColor;
      RadialRoadWalk(VarockSandColor,90,160,65,0,0);
      Wait(3000 + random(500));
      repeat
      FindFastRandoms;
      Times:=Times + 1
      if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
      begin
        Mouse(x,y,0,0,true);
        wait(1);
        Flag;
      while Flag do
      wait(1);
      FlagPresent;
      if FlagPresent Then
      wait(2500+random(200));
      end;
      until(Times=10)
      FreeBitmap(TheaSeller);
    end;
     
    procedure proggy;
    begin
      WriteLN('//--------------------------');
      WriteLN('//  Total Running Time    : ' +TimeRunning);
      WriteLN('//  Total loads did       : ' +TimeRunning);
      WriteLN('//thieving-level was'+inttostr(startskill)+'');
      WriteLN('//thieving-level is now'+inttostr(endskill)+'');
      WriteLN('//--------------------------');
      WriteLN('//thanks for using my script');
      WriteLN('//post proggy,s and bugs ;) ');
      WriteLN('--------------------------');
    end;
     
    procedure SetupClient;
    begin
      ActivateClient;
      Wait(1000);
      GameTab(2);
      startskill:=GetSkillLevel('thieving');
      GameTab(4);
      MakeCompass('N');
      Highestangle;
    end;
     
    {===============]
     mainloop
    [===============}

    begin
      SetupSRL;
      SetupClient
    repeat
      if drop then
      begin
      FindFastRandoms;
      stealfromtheastall;
      FindFastRandoms;
      dropall;
      end else
      ToTheaStall;
      FindFastRandoms;
      stealfromtheastall;
      toBank;
      handlebank;
      Proggy;
    until(loads=load)
    endskill:=GetSkillLevel('thieving');
    Proggy;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Updated And Best Scripts for jr mem
    By HayHay89 in forum RS3 Outdated / Broken Scripts
    Replies: 22
    Last Post: 01-16-2009, 08:52 PM
  2. Updated scripts of 29/10/08
    By doggery in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-30-2008, 02:41 AM
  3. RS Had Updated
    By nhstarter10 in forum News and General
    Replies: 24
    Last Post: 02-13-2008, 08:49 PM
  4. is rs being updated??
    By TheSantaMan in forum RuneScape News and General
    Replies: 2
    Last Post: 01-23-2008, 02:00 AM
  5. Updated Again
    By I Pick Axes in forum RS has been updated.
    Replies: 4
    Last Post: 10-13-2006, 05:19 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
  •