Results 1 to 12 of 12

Thread: FFlag

  1. #1
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  2. #2
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FFlag waits for 20 seconds or until the flag disappears right? If so, 20 seconds is WAY to long. If not, I have no idea.

  3. #3
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  4. #4
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh, sorry then. I don't know. Haven't used it much yet :P.

  5. #5
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmmm... i actually did notice this too, but ignored it lol

    ill dig around in srl and find the bug for you

    ok i think i found the problem...

    SCAR Code:
    procedure FFlag(Distance: Integer);
    var
      XK, YK, XL, YL: Integer;
    var
      T1, T2: Extended;
    begin
      T1 := GetTickCount;
      repeat
        T2 := GetTickCount;
        Wait(100);
        if HumanCircleFlag(Distance) then
          Break; // should this be Exit?
        Wait(100);
        if T2 - T1 > 30000 then
        begin
          if FindColor(XL, YL, 255, MMX1, MMY1, MMX2, MMY2) then
            MouseFindFlag(XL, YL, 1, 1)
          else Mouse(MMCX, MMCY, 0, 0, True);
          Break; // and here too?
        end;
        if Random(20) = 1 then IdleTime(500, 1000, 0.01);
      until (not FindColor(XK, YK, 255, MMX1, MMY1, MMX2, MMY2));
    end;
    check the comments.. i think thats the problem
    ~ Metagen

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

    Default

    Nop It shouldn't be exit, Break means it breaks out the loop. And there is no code after the Until

  7. #7
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OOoooooo... i always thought breaks just broke out of the nearest loop or if statement.... cool those things are actually useful
    ~ Metagen

  8. #8
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Is Color 255 still in the flag? If not, it will not work anymore.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  9. #9
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    yep flag is still 255
    its annoying because now my script looks bottish :/

    ~shut

    EDIT: im going to try changing the first break to a exit and see what happens

    EDIT: nope still no differance
    wiered
    if i use this then click on the map then press play then it will work properly but if i use FFlag in walking then it acts like Flag
    SCAR Code:
    program New;
    {.include srl/srl.scar}
    begin
    setupsrl;
    fflag(20);
    writeln('done');
    end.

  10. #10
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Post your walk method?
    ~ Metagen

  11. #11
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    SCAR Code:
    procedure MoveToCathYews;
    var mcx, mcy, TreeSymbDTM: integer;
    begin
        if not KeepPlayer then exit;
        if not LoggedIn then
        begin
            UCBPlayerReport('Not Logged in During Procedure: MoveToCathYews.', false, true);
            if not KeepPlayer then exit;
        end;
        writeLn('Moving to Yews');
        if FindColorSpiral(mcx, mcy, AutoShopSymb, MMX1, MMCY, MMCX, MMY2) then
        begin
            if (mcx - 40) <= MMX1 then mcx := mcx + 40;
            mouse(mcx - 35, mcy - 12, 5, 5, true);
            MakeCompass('W');
            Wait(500+Random(500));
            FFlag(10);
            mouse(620, 40, 5, 10, true);
            FFlag(10);
        end else
        begin
            UCBPlayerReport('MoveToCathYews: Could Not Find Shop.', false, false);
            exit;
        end;

        if not (Players[CurrentPlayer].Integers[17] > 0) then Players[CurrentPlayer].Integers[17] := AutoRockColor;

        if (not(FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[17], 550, 7, 703, 161))) then
        begin
            mouse(620, 40, 5, 10, true);
            FFlag(10);
        end;
       
        if FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[17], 550, 7, 703, 161) then
        begin
            mouse(mcx, mcy, 3, 3, true);
            Writeln('click on rocks');
            FFlag(10);
            Mouse(608, 36, 30, 30, true);;
            FFlag(10);
        end else
        begin
            UCBPlayerReport('MoveToCathYews: Could Not Find the Rocks East of Yew Trees.', false, false);
            exit;
        end;

        if not (Players[CurrentPlayer].Integers[16] > 0) then
        begin
            if AutoTreeSymb > 0 then
            begin
                Players[CurrentPlayer].Integers[16] := AutoTreeSymb;
                writeln('Found Tree Symbol by AutoColour, Colour is: ' + IntToStr(Players[CurrentPlayer].Integers[16]));
                FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[16], 550, 7, 703, 161);
                mouse(mcx - 1, mcy + 7, 2, 3, true);
                wait(2000 + Random(500));
                flag;
                wait(800 + Random(500));
            end else
            begin
                if not FindSymbol(mcx, mcy, 'tree') then
                begin
                    TreeSymbDTM := DTMFromString('78DA63AC6662603063400162290A0C36409A1' +
                        '188FF03016305A61A41315930CD08E503001032067E');
                    mcx := 627;
                    mcy := 10;
                    if FindDTM(TreeSymbDTM, mcx, mcy, 550, 7, 703, 161) then
                    begin
                        Players[CurrentPlayer].Integers[16] := GetColor(mcx, mcy);
                        writeln('Found Tree by DTM, Tree Colour is: ' + IntToStr(Players[CurrentPlayer].Integers[16]));
                        FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[16], 550, 7, 703, 161);
                        mouse(mcx - 1, mcy + 4, 2, 3, true);
                        wait(2000 + Random(500));
                        flag;
                        wait(800 + Random(500));
                    end else
                    begin
                        writeln('Could not find tree colour by DTM.');
                        mouse(615, 39, 10, 5, true);
                        wait(1500 + Random(500));
                        flag;
                    end;
                    FreeDTM(TreeSymbDTM);
                    exit;
                end else
                begin
                    Players[CurrentPlayer].Integers[16] := GetColor(mcx + 1, mcy);
                    writeln('Found Tree by Symbol, Tree Colour is: ' + IntToStr(Players[CurrentPlayer].Integers[16]));
                    FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[16], 550, 7, 703, 161);
                    mouse(mcx - 2, mcy + 2, 4, 4, true);
                    wait(1500 + Random(500));
                    flag;
                    exit;
                end;
            end;
        end else
        begin
            FindColorSpiral(mcx, mcy, Players[CurrentPlayer].Integers[16], 550, 7, 703, 161);
            mouse(mcx - 1, mcy + 2, 2, 3, true);
            wait(2000 + Random(500));
            flag;
            wait(600 + Random(500));
        end;
    end;

    ~shut

  12. #12
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Man, I was just wondering what was up with that, it's not just you. I added about 10 more FFlag(10)s to my script everywhere so it would maybe work but it never did. Anyone want me to post my walking method?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. FFlag Problem
    By King of the Nites in forum OSR Help
    Replies: 0
    Last Post: 11-28-2008, 04:46 AM
  2. Problem With Fflag!!!
    By ronny.m.p in forum OSR Help
    Replies: 0
    Last Post: 02-27-2007, 01:15 AM
  3. Help with FFlag
    By ronny.m.p in forum OSR Help
    Replies: 7
    Last Post: 01-30-2007, 12:11 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
  •