Results 1 to 10 of 10

Thread: WTF is with SCAR and ME!

  1. #1
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default WTF is with SCAR and ME!

    Ok. I have come to the conclusion SCAR HATES! me. In my piece of walking I am about to show you it should do 8 different radialwalks before it looks for the rock. Instead it does 4. No matter what I do to change it, it always does 4. FYI you start this at VEB and it walks down to mine. Well it's meant to but of course SCAR won't let me . Happened just after I downloaded SRL 3.7 worked fine before that. Not sure if that has anything to do with it

    SCAR Code:
    procedure BankToMine;
    var TempMouse: integer;
    begin
      Activateclient;
      wait(1000 + random(300));
      if not (LoggedIn) then Exit;
      TempMouse := MouseSpeed
        mousespeed := 7 + random(3)
        makecompass('N');
      HighestAngle;
      wait(500 + random(750))
        Setrun(false);
      gametab(4);
      MouseSpeed := TempMouse;
      Roadcolor := FindRoadColor;
      wait(500 + random(200));
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      Roadcolor := FindRoadColor;
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 39, 72, 70, -1, 0);
      wait(2000+random(800))
      fflag(0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 78, 100, 66, -1, 0);
      fflag(0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 168, 131, 62, -1, 0);
      wait(1700+random(800))
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 195, 145, 58, -1, 0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 191, 157, 62,-1, 0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 189, 153, 58, -1, 0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 188, 139, 60, -1, 0);
      if not (FindMMColor(x, y, RoadColor)) then RoadColor := FindRoadColor;
      RadialRoadWalk(RoadColor, 195, 148, 60, -1, 0);
      FFlag(0)
       If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
      begin
        Mouse(x, y, -1, 0, true)
          FFlag(0)
          SetRun(true)
          Exit;
      end;
      if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
      begin
        RadialRoadWalk(RoadColor, 196, 148, 50, -1, 0);
        If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
        begin
          Mouse(x, y, -1, 0, true)
            FFlag(0)
            SetRun(true)
            Exit;
        end;
        if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
        begin
          RadialRoadWalk(RoadColor, 196, 130, 40, -1, 0);
          If FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2) Then
          begin
            Mouse(x, y, -1, 0, true)
              FFlag(0)
              SetRun(true)
              Gametab(4)
            Exit;
            if (not FindColorSpiral(x, y, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
            begin
              Logout;
              Exit;
            end;
          end;
        end;
      end;
    end;
    Sleeping...

  2. #2
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah SRL 3.7 messed everything on my comp too! I karma I sent me his SRL 3.6 so i got it working again! I can put it here if you want ?

  3. #3
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    nope dw I found my 3.6 install and it worked like a charm lol. dw guys all good again
    pity tho i wanted to use 3.7 because it's got better pick head finding and I'm using this in a miner o well.
    Although Could someone tell me why this only searches for ore in the inventory once. e.g. I got to the bank and had tin ore and copper ore in my invent and it stored the copper ore but didn't store the tin ore. So basically it didn't repeat.

    SCAR Code:
    procedure BankOres;
    var
      TempMouse: integer;
    begin
      if not (LoggedIn) then Exit;
      wait(1300 + random(700))
        if not (bankscreen) then
      begin
        Logout;
        Exit;
      end;
      if (Bankscreen) then
      begin
        wait(1300 + random(500))
          if (not FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2)) then
        begin
          CloseBank;
          Exit;
        end;
        begin
        repeat
        if FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
            wait(1500 + random(750))
              TempMouse := MouseSpeed;
            mousespeed := 5 + random(3)
              mouse(x, y, 2, 2, False)
              if not ChooseOption(x, y, 'Store All') then
              Logout;
            Exit;
            if ChooseOption(x, y, 'Store All') then
              FFlag(5);
            wait(500 + random(250));
          until not (FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2));
          Loads := Loads + 1;
          Loads2 := Loads2 + 1;
          if FindDTM(GemDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
          begin
            repeat
              mouse(x, y, 2, 2, False)
                ChooseOption(x, y, 'Store All');
              FFlag(5);
              wait(500 + random(250));
            until not (FindDTM(GemDTM, x, y, MIx1, MIY1, MIx2, MIY2));
            wait(1000 + random(500))
              CloseBank;
            MouseSpeed := TempMouse
              FreeDTM(OreDTM);
            FreeDTM(GemDTM);
          end;
         end;
        end;
      end;
    Sleeping...

  4. #4
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can always copy the pickhead finding to your script and then use it
    EDIT: and i will check the above now! Can you post the DTMs too ?

  5. #5
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    here's the proc im using. Lol I'm really not thinking atm....1am O.o

    SCAR Code:
    procedure LoadBMPDTM;
    begin
      OreDTM := DTMFromString('78DA634C636060706740038C48249006A9F12' +
        '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
        'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
        'E0B0047CA0967');

      GemDTM := DTMFromString('78DA63BCCFC4C0B0989101190889CD03D3305' +
        '1C6CB40358B50D5C064E16AEE02D5CC20A0E60150CD5A026A9E01' +
        'D52C20A0E63950CD72026AAE02D5AC24A006E4AFB904D43C26EC6' +
        '60067070E87');
    end;
    Sleeping...

  6. #6
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i check this now, so it has to bank all ores and gems and other items ? exept pickaxe ?
    EDIT : and is it ok if i make new DTM ?

  7. #7
    Join Date
    Jan 2007
    Posts
    513
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I want SRL 3.6! Pleas post it! I am really looking for it!
    Srl simply rocks.

  8. #8
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    i've uploaded 3.6 onto my VEM (in sig)
    Sleeping...

  9. #9
    Join Date
    Jan 2007
    Posts
    513
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks!
    Srl simply rocks.

  10. #10
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    3.7 SRL is haxed
    Something messed up when they made it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 15
    Last Post: 09-22-2008, 12:32 PM
  2. SCAR Divi 3.01 DONT associate .scar files!!!
    By chimpy in forum News and General
    Replies: 1
    Last Post: 04-21-2007, 08:49 PM
  3. Replies: 28
    Last Post: 06-22-2006, 04:27 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •