Results 1 to 5 of 5

Thread: building woodcutter colour trouble

  1. #1
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default building woodcutter colour trouble

    im making an edge willow banker and cutter, at the moment the script is in the slow development stages. Ive never made a woodcutting script before with my main focus being more simple things like power talkers and bone buries.
    Is this going about it the right way?
    Im getting an error for parameters, what have i done wrong with the colour finding?

    Thanks guys

    SCAR Code:
    {.include srl/srl.scar}
    var willows,i:integer;

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

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;


    //   Random Evemt
    Function FindFastRandoms:Boolean;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then
              Result := True;
          11: if FindLamp(LampSkill) then
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;

          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
            16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;


    //    Anti Ban
    Procedure WereHuman;

    begin

        wait(10)

    end;


    //    Report
    procedure Report;
    begin
         Writeln('_____________________________');
         Writeln('|   Over The Edge Willows    |');
         Writeln('|Willows Cut:'+IntToStr(Willows)+'|');
         Writeln('|Exp Gained:|');
         Writeln('|____________________________');
    end;

    Procedure Doload;
    begin
      repeat
        If (FindColorTolerance(x,y, 000000, 3)) or
        (FindColorTolerance(x,y, 000000, 3)) then
        begin
        repeat
          MMouse(x,y,3,3);

          if(IsUpText('hop'))or(IsUpText('own'))then
          begin
            if IsUpTextMulti('ree', 'ak', 'ew') then
              Exit;
            if IsUpText('illow') then
              begin

                Mouse(x, y, 3, 3, true);
                FindFastRandoms;
                WereHuman;
              end;
          end;

        until (not(IsUpTextMulti('hop')));
        end;
      Until (InvFull)

    end;

    begin
         SetupSRL;
         DeclarePlayers;
         LoginPlayer;
         Report;
         SRLRandomsReport;
         ActivateClient;
    repeat
        DoLoad
    until (False);
    end.

  2. #2
    Join Date
    Jan 2007
    Location
    new zealand
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    your color finding func is wrong do like this

    if(FindColortolerance(x,y,655665,msx1,msy1,msx2,ms y2,5)) or
    (FindColortolerance(x,y,655665,msx1,msy1,msx2,msy2 ,5))then

    after that si soted out you get invalid number of paraemeters on line 113

    until (not(IsUpTextMulti('hop')));

    change to

    until(not(IsUpText('hop')));

  3. #3
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Can some explain what the msx1 and msy1 mean?

    Is it like the maxium size of the screen or somehting?

  4. #4
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its SRL global vars. MSX1 and MSY1 are the coords of the top left of the screen, MSX2 AND MSY2 are the bottom right. Theres also MMX1 MMY1 MMX2 MMY2 for the minimap and MMCX AND MMCY for the minimap centre, theres plenty more, check the SRL manual.

  5. #5
    Join Date
    Jan 2007
    Location
    new zealand
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol sorry for not explaing , and the Until(Not(IsUpTextMulti('hop')));
    the is uptextmulti func should only be used when you are looking for multiple strings when you are only looking for one just use IsUpText('hop'); if you ahve anymroe troble hit mr up on msn and ill try and help as best as i can phonokin@hotmail.com

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Problem with Building :'/
    By marpis in forum C#/Visual Basic Help and Tutorials
    Replies: 5
    Last Post: 04-29-2009, 10:26 AM
  2. Building a computer
    By Markus in forum Blogs and Writing
    Replies: 9
    Last Post: 04-04-2008, 04:02 AM
  3. Army Building?
    By drnewheart in forum RuneScape News and General
    Replies: 10
    Last Post: 10-20-2007, 11:21 PM

Posting Permissions

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