SRL Archive - Help

ok so earlier i couldnt even get the script to walk -:duh:

then suddenly BAMM

ill all clicked into place and and all started to make sence, so i made a script to mine coal and iron and bank it, with anti bans like checking mining stats, random mouse movements taken from tuts and stuff.

i want to make a rune ore miner, thinking about heros guild, or wildy but with both of them u either have to go down a ladder, or cross a wildy ditch. could this script be adapted? the only problem i have is crossing wildy ditch\ladder and then world switching arrh! i know theres an out of date runeminer which i have been looking through the script of, can anyone tell me where i could find a tut of walking –> object –>walking—>mine… return to bank –> object –>bank

here you go bud ive just recently started to use this and i rate it A*
http://villavu.com/forum/showthread.php?t=68112

arh nice one mate. it does look like a need to learn alot more… arrghh just when i thought i was getting the hang of it haha

you could use DTM with the main point tolerance of 255 and use tree's as subpoints very similar to objectDTM

try to use dtm`s, if you try some there comes a time it works.
i made this to walk a dtm path its search from the last dtm to the first.
and works grate for my self:

make those vars:
moved :boolean;
lastStep:integer;
WayBank: Array [0..4] of Integer; // 4 =5 dtms : [0],[1],[2],[3],[4]. 0 dtm to walk from start point and [4] last dtm to walk. This procedure ends if he @ last point.
and a array of dtms. Make the dtms for start to end.

Procedure WalkBank;
begin
  moved:=false;
  LastStep:=0;
  repeat
    For i := 0 to High(Waybank) do
    begin
      if i=0 then
        i:=lastStep;
      if i<0 then
        i:=0;
      //WriteLn('I: '+inttostr(High(Waybank)-i));
      wait(600);
      if FindDTMRotated(Waybank[High(Waybank)-i], x, y, 565, 10, 690, 160, -Pi/10, Pi/10, Pi/30, aFound) then
      begin
        if Distance(MMCX, MMCY, X, Y)>20 then
        begin
          //WriteLn('Found: '+inttostr(High(Waybank)-i));
          MMouse(x+5, y, 1, 1);
          if WaitUpTextMulti(['alk','ere'],1200) then
          begin
            Mouse(x+5, y, 1, 1, True);
            if i = 0 then
              Moved:=true;
            runsleep;
            lastStep:=i-2;
            i:=High(Waybank);
          end;
        end;
      end;
    end;
  until moved
end; 

this is the runsleep i made:

Procedure runSleep;
begin
  done:=false;
  wait(700);
  EndTime:=GetTimeRunning+5000;
  if FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14) then
  begin
    y:=y+9;
    x:=x+3;
    if Distance(MMCX, MMCY, X, Y)>35 then
    begin
      repeat
        //MMouse(x, y, 0, 0);
        if FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14) then
        begin
          y:=y+9;
          x:=x+3;
          EndTime:=GetTimeRunning+10000;
          //WriteLn('Dis: '+intToStr(Distance(MMCX, MMCY, X, Y))+'.');
          if Distance(MMCX, MMCY, X, Y)<35 then
          begin
            done:=true;
          end;
          wait(300);
        end else
        begin
          EndTime:=GetTimeRunning+10000;
          repeat
            if GetTimeRunning>EndTime then
            begin
             done:=true;
            end;
            wait(300);
          //WriteLn(IntToStr(EndTime-GetTimeRunning));
          until FindColorSpiralTolerance(x, y, 727294, 550, 10, 700, 160, 14)
        end;
        wait(400);
      until done or (GetTimeRunning>EndTime)
      //WriteLn('Done.');
    end
  end;
end; 

this runsleeps wait till whe like 6 tiles away from the flagmap, like fflag(6), but fflag is broken so i made this.

gl by making ure script. pm for more info or help. Btw dont forget to set end free the dtms every time after u used it.

yeah but i suggest starting with it more simple and building on that test about with this

Procedure WalkBank;
var
aFound:extended;
DTM,x,y:integer;
begin
  if FindDTMRotated(DTM, x, y, 565, 10, 690, 160, -Pi/10, Pi/10, Pi/30, aFound) then
   begin
    MMouse(x+5, y, 1, 1);
    ClickMouse2(Mouse_Left);
   end;
end;

tip: always check if the option contains "alk here"

thanks guys, trying it now, with alot of errors of course :S