SRL Archive - Help and Support

ok, so sometimes when i radial walk the mouse clicks in the top right corner, about 15 x 15 pixels down, and to the left. i dont know why, but it seems to happen randomly, somewhere in this piece of code:

MarkTime(WalkingTree1);
  repeat
    if not LoggedIn then Break;
    if not RadialWalk(TreeColour, 385, 350, 60, 0, 0) then
    begin
      Writeln('1');
      if not RadialWalk(TreeColour, 385, 330, 60, 0, 0) then
      begin
        Writeln('2');
        if not RadialWalk(TreeColour, 270, 330, 60, 0, 0) then
        begin
          Writeln('3');
          if not RadialWalk(TreeColour, 360, 390, 60, 0, 0) then
          begin
            Writeln('4');
            if not RadialWalk(TreeColour, 50, 120, 60, 0, 0) then
            begin
              VarrockRoadColour := FindVarrockRoadColor;
              Writeln('arrrrrrrrr');
            end;
          end;
        end;
      end;
    end;
    if SuperDebug then Writeln('hello');
    Writeln('walked 1');
    VarrockRoadColour := FindVarrockRoadColor;
    Wait(400);
    if not FlagPresent then Mouse(MMCX, MMCY - 30, 0, 10, True);
    AntiRandom;
  until (VarrockRoadColour > 0) or (TimeFromMark(WalkingTree1) > 90000);
  if TimeFromMark(WalkingTree1) > 90000 then
    LogoutPlayer('Lost - BankWalk1');
  if not LoggedIn then Exit;
  if not RadialRoadWalk(VarrockRoadColour, 385, 350, 30, 0, 0) then
    if not RadialRoadWalk(VarrockRoadColour, 385, 350, 40, 0, 0) then
      if not RadialRoadWalk(VarrockRoadColour, 385, 350, 50, 0, 0) then
        if not RadialRoadWalk(VarrockRoadColour, 385, 350, 60, 0, 0) then
          if not RadialRoadWalk(VarrockRoadColour, 385, 350, 70, 0, 0) then
          begin
            Writeln('z');
          end;
  Writeln(IntToStr(VarrockRoadColour));

i cant pinpoint where exactly it is, but the varrock road colour is visible on the minimap. any ideas why this is happening? when it happens, it happens at about the same place every time. but sometimes it clicks trees, sometimes guards, depending on what is in that 1 spot in the top right that it clicks at.

any help is greatly appreciated.

umm I dont know is there any real difference, but try RadialRoadWalk.

I use RadialWalk for walking up the trees, then RadialRoadWalk for walking on the road

bump (sorry)

if not FlagPresent then Mouse(MMCX, MMCY - 30, 0, 10, True);

This is the only think I can think of that might be making it click there.

yeh, except thats on the minimap

Maybe you antirandoms procedure? You have a nick set too… right?

i don't think mmcx and mmcy are minimap… lemme check.

From: The_Rs_Monkey
MainScreen := MSX1, MSY1, MSX2, MSY2
Minimap := MMX1, MMY1, MMX2, MMY2
Inventory := MIX1, MIY1, MIX2, MIY2
Chat := MCX1, MCY1, MCX2, MCY2

From: The_Rs_Monkey
Maybe you antirandoms procedure? You have a nick set too… right?

hmm, you could be right…can you see anything in these randoms which would cause it?

function AntiRandom: Boolean;
var
  RandomProcTime, I: Integer;
begin
  if not LoggedIn then Exit;
  MarkTime(RandomProcTime);
  for I := 0 to 12 do
    begin
      if not LoggedIn then Exit;
      case I of
        0: CloseWindow;
        1: if FindLamp('mining') or FindTalk then Result := True;
        2: if FindMime then
             begin
               LogoutPlayer('Mime');
               Result := True;
             end;
        3: if FindMaze then
             begin
               LogoutPlayer('Maze')
               Result := True;
             end;
        4: if InBlack then
             begin
               LogoutPlayer('In Black');
               Result := True;
             end;
        5: if FindTalk then Result := True;
        6: if NoGametab then
             begin
               LogoutPlayer('No Gametab');
               Result := True;
             end;
        7: if FindQuiz then Result := True;
        8: if FindDemon then Result := True;
        9: if FindBox or FindTalk then
            begin
              SolveBox;
              Result := True;
            end;
        10: if RC then Result := True;
        11: Respond;
        12: if LowerCase(Players[CurrentPlayer].Loc) = 'mine' then
            begin
              if FindFight then
              begin
                if not LoggedIn then Exit;
                RunTo(RunDirec, True);
                Wait(10000);
                RunBack;
                ActivateClient;
                Result := True;
              end;
            end;
      end;
    if Result then
    begin
      SRLRandomsReport;
      Break;
    end;
    Wait(1);
  end;
  Status('Finding randoms; took ' + IntToStr(TimeFromMark(RandomProcTime)) + ' ms.');
end;

Correct me if I'm wrong, but I don't think MMCX and MMCY are minimap (you had that in your Mouse part - were you trying to use MMCX and MMCY to click on the minimap if radialwalking failed?). That's probably why it would click there, but I'm not sure (I'm pretty bad with the global vars and stuff)

(MMX1, MMY1) (MMX2, MMY2) is minimap.

Woops, sorry for my noobness.

nah it is, MMCX and MMCY mean Minimap Center X, and Minimap Center Y. Just like how MSCX is Main screen center x, etc. test it out:

MMouse(MMCX, MMXY, 0, 0);