Results 1 to 17 of 17

Thread: RadialRoadWalk is PHAILING =[

  1. #1
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default RadialRoadWalk is PHAILING =[

    Im having some issues, It just keeps walking.

    SCAR Code:
    begin
             repeat
               Writeln('Preforming the PATH WALK');
               if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
               begin
                 FFlag(10);
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Result := True;
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

    The Debug says "'Preforming the PATH WALK'" once, and then just pathwalks over and over and over till it runs outta road.
    im very sure it keeps looping through the one line containing
    SCAR Code:
    if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
    over and over because it dosnt debug the text that comes afterward. it all worked fine till SRL's last revision so it must be something changed and now im useing it wrong.. could someone help me out?

    Edit:
    i pulled the
    SCAR Code:
    if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
               begin
                 FFlag(10);
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Result := True;
                 Exit;
               end
    out and put it into my main loop, and it repeated over and over so yes im very sure the problem lies within those lines of code..
    Lance. Da. Pants.

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    (4:24:34 PM) Markus: http://www.villavu.com/forum/showthread.php?t=46274
    (4:24:36 PM) Markus: tell him he's noob
    (4:24:51 PM) Markus: and that he doesnt increment the count when the radialwalk is succcesful
    (4:25:00 PM) Markus: so that he's being the noob, and not SRL
    (4:25:07 PM) Markus: (you may copy/paste this if you wish)
    needmoretexttopost

  3. #3
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
             repeat
               Writeln('Preforming the PATH WALK');
               if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
               begin
                 FFlag(10);
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Result := True;
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

    orly?

    Count is always zero since it is not a for to do loop and you should do an inc(count) right before the until.

  4. #4
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont understand why you would need to Inc(count) when the walking was sucsessful, its saposto exit when its sucsessful. and as i said before the function never returns True because nothing within the begin/end following gets writen into the debug.

    edit: ok wait.. why do i need more inc(count)'s? i want it to exit when the function is preformed... could you explain better? im still a nub =[
    Lance. Da. Pants.

  5. #5
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woop, sorry I didn't read the code correctly . I didn't sleep at all for like two days .

    Let me take a look, will edit when I find problem.

    Should you use an exit or a break? Post whole procedure.

    Edit: Try this
    SCAR Code:
    begin
      repeat
        Writeln('Performing the path walk...');
        if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
        begin
          FFlag(10);
          Writeln('Step ' + IntToStr(step) + ' was successful.');
          result := True;
          Exit;//Break; whatever you need
        end;
        inc(count);
        PathColor := FindPathColor('dirt');
        Writeln('Pathwalking unsuccessful: Repeating try ' + intToStr(count));
      until(count > 4);
    end;
    Last edited by Da 0wner; 06-08-2009 at 04:55 AM.

  6. #6
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks Da Owner, your a big help rofl i cant rep you cause ive already rep'ed you to many times back to back XD your always there when i ask a question. and this is the entire function if the little snippit from before wasnt enough to solve the problem:

    SCAR Code:
    function WalkPath(step : Integer) : Boolean;//Steps 1, 2, 3 are walking To the GE. Steps 4, 5, 6 are walking back.
    var
      x, y, count : Integer;

    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
      count := 0;
      Writeln('Preforming Step ' + IntToStr(step) + ' of Path Walking');
      case step of
        1: begin
             repeat
               Writeln('Preforming the PATH WALK');
               if RadialRoadWalk(PathColor, 180, 270, 65, 1, -1) then
               begin
                 FFlag(0);
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Result := True;
                 Break;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

        2: begin
             repeat
               if RadialRoadWalk(PathColor, 265, 280, 65, 1, 0) then
               begin
                 FFlag(10);
                 Result := True;
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

        3: begin
             if GetColor(575, 80) <> FindPathColor('stone') then
             begin
               Mouse(570, 80, 2, 2, True);
               Wait(1000+RanInt(200));
               FFlag(20);
             end else
             begin
               Mouse(575, 80, 2, 2, True);
               Wait(1000+RanInt(200));
               FFlag(20);
             end;
           end;

        4: begin
             repeat
               if RadialRoadWalk(PathColor, 90, 85, 65, -1, 0) then
               begin
                 FFlag(10);
                 Result := True;
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

        5: begin
             Wait(500+RanInt(100));
             repeat
               if FindPath then Exit;
               Inc(count)
             until(count > 5);
             repeat
               if RadialRoadWalk(PathColor, 85, 70, 65, -1, 0) then
               begin
                 FFlag(10);
                 Result := True;
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;

        6: begin
             repeat
               if RadialRoadWalk(PathColor, 50, 0, 68, -1, 0) then
               begin
                 FFlag(10);
                 Result := True;
                 Writeln('Step ' + IntToStr(step) + ' was sucsessful');
                 Exit;
               end else
               begin
                 inc(count);
                 PathColor := FindPathColor('dirt');
                 Writeln('Pathwalking Unsucsessful: Repeating try ' + intToStr(count));
               end;
             until(count>4);
           end;
      end;
    end;

    Edit: oh and heres the debug from this function:
    Code:
    Preforming Step 1 of Path Walking
    Preforming the PATH WALK
    Successfully executed
    I stoped it manualy because it just kept clicking.
    so yeah, changing the Exit to a Break isnt gonna fix it because it would never actualy roll over that peice of code anyway =/
    Last edited by Lance; 06-08-2009 at 05:30 AM.
    Lance. Da. Pants.

  7. #7
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ive heard my script does this with rev 33...but with the open-dev it works fine

  8. #8
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That could be shortened a lot. Hold on, I'll edit this.

    Btw: Lance, what is your MSN?

    SCAR Code:
    function WalkPath(step : Integer) : Boolean;//Steps 1, 2, 3 are walking To the GE. Steps 4, 5, 6 are walking back.
    var
      x, y, count, PathColor : Integer;
      Info : array of TIntegerArray;

    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
      Writeln('Performing step ' + IntToStr(step) + ' of path walking');
      Info := [ TIntegerArray([180, 270, 65, 1, -1, 0]),
                TIntegerArray([265, 280, 65, 1, 0, 10]), TIntegerArray([]),
                TIntegerArray([90, 85, 65, -1, 0, 10]),
                TIntegerArray([85, 70, 65, -1, 0, 10]),
                TIntegerArray([50, 0, 68, -1, 0, 10])];
      if Step <> 3 then
      begin
        repeat
          PathColor := FindPathColor('dirt');
          if RadialRoadWalk(PathColor, Info[Step][0], Info[Step][1], Info[Step][2], Info[Step][3], Info[Step][4]) then
          begin
            Result := FFlag(Info[Step][5]);
            Writeln('Step ' + IntToStr(Step) + ' completed successfully.');
            exit;
          end;
          Writeln('Attempt ' + IntToStr(Count) + ' was unsuccessful. Trying again...');
          inc(count);
        until(Count > 4);
      end else
      begin
        PathColor := FindPathColor('stone');
        if GetColor(575, 80) <> PathColor then
          Mouse(570, 80, 2, 2, True)
        else
          Mouse(575, 80, 2, 2, True);
        Wait(1000+RanInt(200));
        result := FFlag(20);
      end;
    end;
    Should work. Not sure though..
    Last edited by Da 0wner; 06-08-2009 at 06:07 AM.

  9. #9
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha a fellow canadian. yeah idk what markus was saying im pretty sure it has to do with rev 33.

    and Da Owner my email is: lancerawks@hotmail.com thanks for helping man. And yeah i know the function is so repeditive, i was trying to shorten it but i couldnt figure out how xP
    Lance. Da. Pants.

  10. #10
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it definitely has to do with rev 33. when i told people to switch to the open-dev svn, my script worked perfectly fine with it...but would totally screw up with rev 33. check out my smelter thread if you want proof

  11. #11
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    haha i belive you, im updateing to open-dev right as we speak ;D
    Lance. Da. Pants.

  12. #12
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by XcanadamanX View Post
    it definitely has to do with rev 33. when i told people to switch to the open-dev svn, my script worked perfectly fine with it...but would totally screw up with rev 33. check out my smelter thread if you want proof
    I'm pretty sure that rev 33 had an outdated procedure called CountFlag() in it. Thats why it wouldn't work. I reported it, and the devs updated it/upped it to the open-devs.

    lance: Did you see my walk procedure in my part of the Karamja Fisher project? Looks jsut like this.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  13. #13
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok just switched to open dev... tried to compile.. andddd...

    Code:
    Line 96: [Error] (17248:14): Unknown identifier 'Mime_AnalyzeAnimation' in script C:\SCAR 3.20\includes\SRL/SRL/Core/AntiRandoms/Mime.scar
    Shrooms.
    what the heak now? lol do you guys have this error? =/

    Edit: i just edited out the one line in the Mime.scar. if i get that random ill have to take over for it but hopefuly it works :P
    Last edited by Lance; 06-08-2009 at 08:59 AM.
    Lance. Da. Pants.

  14. #14
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    did you move the plugins?

  15. #15
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    erm... moved the plugins? im a noob at all this what are the plugins? i just used svn to check out the SRL folder from the open dev link instead of the normal link. and haha its actualy worse now, it just zooms through the function and dosnt do any clicking at all =/
    Lance. Da. Pants.

  16. #16
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well go to Tools -> Options -> SRL Download. Then click Move Plugins. You may need to restart SCAR for the changes to take effect.

  17. #17
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks man that fixed it.
    Lance. Da. Pants.

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
  •