Get This Draynor willow banker going please,

Discussion in 'Scar/Simba Help' started by claytonno, Aug 4, 2008.

Get This Draynor willow banker going please,
  1. Unread #1 - Aug 4, 2008 at 2:08 AM
  2. claytonno
    Referrals:
    0

    claytonno Guest

    Get This Draynor willow banker going please,

    This is a really nice script not done by me, all credit goes to ffn00b for posting this really good script the only thing is that it is unable to bank properly, I have set it to low detail and brightness to high and it still does not work, the cutting and going to the bank even opening the bank account works properly but right when i get in the mouse drifts around from item to item and never stores the logs, please help here's the link http://www.sythe.org/showthread.php?t=427410&highlight=willow

    if you dont want to download heres the script itself and you can try to help me find the problem if it is within the script because I have found that multiple people have had the same problem.:mad:

    Code:
    program willows;
    
    {.include srl/srl.scar}
    
    const
    treecolor=5341817;
    entcolor=514778;
    symbolcolor=10089719;
    
    var
    x, y, dud, time, elapse, loads, h ,m ,s:integer;
    
    procedure declareplayers;
    begin
      howmanyplayers:=3;  // don't mess this up...
      numberofplayers(howmanyplayers);
      players[0].name:='name';
      players[0].pass:='pass';
      players[0].nick:='nick';
      players[0].active:=true;
      players[0].worked:=0;
      players[1].name:='and';
      players[1].pass:='so';
      players[1].nick:='on';
      players[1].active:=true;
      players[1].worked:=0;
      players[2].name:='dont forget';
      players[2].pass:='to change';
      players[2].nick:='howmanyplayers';
      players[2].active:=true;
      players[2].worked:=0;
    end;
    
    procedure randoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;
    
    procedure bank;
    begin
      if loggedin=false then
      begin
        exit;
      end;
      randoms;
      if random(10)=0 then
      begin
        hoverskill('woodcutting',false);
      end;
      makecompass('n');
      if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
      begin
        mouse(x-3,y-3,2,2,true);
        time:=gettimerunning+13000+random(2000);
        repeat
          wait(100);
          randoms;
        until((gettimerunning>time) or (flagpresent=false))
        randoms;
        repeat
          openbank('db',false,false);
          wait(100);
          randoms;
        until((bankscreen=true) or (loggedin=false))
        if bankscreen=true then
        begin
          deposit(2,28,true);
          wait(100+random(100));
          closebank;
          loads:=loads+1;
          converttime(gettimerunning,h,m,s);
          writeln('#### progress ####');
          writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
          writeln('#### loads: ' + inttostr(loads));
          writeln('##################');
        end;
      end;
      wait(100+random(100));
    end;
    
    procedure omfg_ent;
    begin
      makecompass('n');
      mouse(MMCX+10,MMCY+10,2,2,true);
      x:=MSCX;
      y:=MSCY;
      wait(random(100));
      if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
      begin
        mouse(x-40,y+40,10,10,true);
        time:=gettimerunning+8000+random(2000);
        repeat
          wait(100);
          randoms;
        until((gettimerunning>time) or (flagpresent=false))
        randoms;
      end;
    end;
    
    procedure chop;
    begin
      makecompass('n');
      if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
      begin
        mouse(x-40,y+40,10,10,true);
        time:=gettimerunning+8000+random(2000);
        repeat
          wait(100);
          randoms;
        until((gettimerunning>time) or (flagpresent=false))
        randoms;
      end;
      x:=MSCX;
      y:=MSCY;
      repeat
        randoms;
        wait(100);
        if findobjtpa(x,y,treecolor,20,-1,50,50,40,['Chop down Willow']) then
        begin
          mmouse(x,y,0,0);
          wait(100+random(100));
          if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=false then
          begin
            mouse(x,y,2,2,false);
            wait(100+random(100));
            if chooseoption('hop') then
            begin
              if flagpresent=true then
              begin
                time:=gettimerunning+4000+random(1000);
                repeat
                  wait(100);
                  randoms;
                until((flagpresent=false) or (gettimerunning>time))
                wait(500);
              end else
              begin
                mmouse(x,y,2,2);
                wait(100);
                time:=gettimerunning+20000+random(5000);
                repeat
                  wait(100);
                  randoms;
                until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true) or (gettimerunning>time))
                if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true then
                begin
                  omfg_ent;
                end;
              end;
            end;
          end else
          begin
            omfg_ent;
          end;
        end else
        begin
          makecompass('n');
          if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
          begin
            mouse(x-40,y+40,10,10,true);
            time:=gettimerunning+8000+random(2000);
            repeat
              wait(100);
              randoms;
            until((gettimerunning>time) or (flagpresent=false))
            randoms;
          end;
        end;
      until((loggedin=false) or (invfull=true))
      wait(100+random(100));
    end;
    
    begin
      cleardebug;
      setupsrl;
      activateclient;
      lampskill:='woodcutting';
      declareplayers;
      currentplayer:=0;
      loads:=0;
      logout;
      closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
      loginplayer;
      repeat
        setangle(true);
        elapse:=gettimerunning+2700000+random(1800000);
        if invfull=true then
        begin
          bank;
        end;
        repeat
          chop;
          bank;
        until((gettimerunning>elapse) or (loggedin=false))
        logout;
        currentplayer:=currentplayer+1;
        if currentplayer>=howmanyplayers then
        begin
          currentplayer:=0;
        end;
        if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
        begin
          closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
          loginplayer;
          players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
        end;
      until(false)
    end.
     
< help with essminer - MouseFindFlag | Error With every Scar script I try to use FindGapsTPA >

Users viewing this thread
1 guest


 
 
Adblock breaks this site