Results 1 to 2 of 2

Thread: New edgy wcr

  1. #1
    Join Date
    Jul 2007
    Location
    New Zealand FTW!
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Talking New edgy wcr

    OFFLINE!

    Currently need: DTM tutorial and for this to bank :S

    its my very first script. iv only learn't to script in last 5 days so it has many bugs and i need a Lil bit of help. if you can see any basic errors could you post please. also i need help with making a proggy. this doesn't bank once has full inv. dunno why :S Also why doesn't it use the smart world i put in
    Code:
    SmartWorld = 11;
    i have
    Code:
    SmartSetupEx(SmartWorld, false, true, false);
    thanks




    Code:
        {  //////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
         //!!                    Sp!tes (brad734) FIRST BASIC           !!\\
        //                          AUTO CUTTER                            \\
       //!!///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!!\\\
       
        V 1.1 : RELEASE
        V 1.2 : Proggy and srl stats updated.
       
       
        Made this script by studing others and learning :D
        Currently working with Scar 3.15b and rev #32
        Put player at edgeville yews. start script.
        Also could someone tell me how 2 make script post proggie in debug?
        dont recommend using for long periods of time. watch every 30-45 mins
       
       Credits
       Thanks to Hobbit for fixing my smart
       Thanks to Darkarcana for telling me how do improve my proggie. }
       
    
    Program EdgeYews;  {V 1.2}
    {.include SRL/SRL/Misc/Smart.scar}
    {.include SRL\SRL.SCAR}
    
    {
    |------------------------------------------
    |      --------> SETUP <--------           |
    |__________________________________________|
                                                }
    
    const
    
    YourSRLStatsID   =  '';    // Not currently working however put yours in if you wish
    YourSRLStatsPass =  '';    // Password for the SRL stats
    SmartWorld = 11;
    
    var
      x, y, i, w, Inv1, Inv2, color1, color2, color3 : Integer;
      BC, BankerColor, bankOpen, Banker, yew, depo, Bankclose, treeTop : Integer; load : Integer;
    
    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      NumberOfPlayers(1);
      
      //__________________PLAYER SETUP________________________\\
    
      Players[0].Name := '';  //username
      Players[0].Pass := '';       // password
      Players[0].Nick := '';      //3-4 letters of name
      Players[0].Pin  := ''; //bank Pin
      Players[0].BoxRewards   := ['XP', 'ostume']; //Use the random event box on what?
      Players[0].Active := True;
      
      {Players[1].Name := '';  //username
      Players[1].Pass := '';       // password
      Players[1].Nick := '';      //3-4 letters of name
      Players[1].Pin  := ''; //bank Pin
      Players[1].BoxRewards   := ['XP', 'ostume']; //Use the random event box on what?
      Players[1].Active := True;
      
      Players[2].Name := '';  //username
      Players[2].Pass := '';       // password
      Players[2].Nick := '';      //3-4 letters of name
      Players[2].Pin  := ''; //bank Pin
      Players[2].BoxRewards   := ['XP', 'ostume']; //Use the random event box on what?
      Players[2].Active := True;
      
      Players[3].Name := '';  //username
      Players[3].Pass := '';       // password
      Players[3].Nick := '';      //3-4 letters of name
      Players[3].Pin  := ''; //bank Pin
      Players[3].BoxRewards   := ['XP', 'ostume']; //Use the random event box on what?
      Players[3].Active := True;}
    end;
    
    //_______________________NO NEED TO TOUCH BELOW HERE_____________________\\
    
    Procedure AntiRandoms;
    begin
      FindNormalRandoms;
      If(FindFight) then
      begin
        RunAway('N', True,1,15000);
        Wait(5000+random(5000));
      end;
      FindLamp('woodcutting');
    end;
    
    Procedure AntiBan;
    begin
      case(Random(100)) of
        1: HoverSkill('woodcutting', false);
        2: BoredHuman;
        3: MMouse(Random(750), Random(750), Random(100), Random(100));
        4: PickupMouse;
        5: Gametab(random(12));
        6: begin
             case(random(5)) of
               0: makecompass('N');
               1: makecompass('S');
               2: makecompass('E');
               3: makecompass('W');
             end;
           end;
        7: begin
             case(random(10)) of
               0: typesend('Lagg');
               1: typesend('Level up, already!');
               3: typesend('Lol');
             end;
           end;
        8: Pickupmouse;
        9: wait(5000+random(10000));
        10: begin
              case(random(10)) of
                0: begin
                     w := random(90000);
                     writeLn('Breakhandler: Taking break for '+IntToStr(w));
                     Logout;
                     Wait(w);
                     LoginPlayer;
                   end;
                1: begin
                     w := random(20000);
                     writeLn('Breakhandler: Taking break for '+IntToStr(w));
                     Logout;
                     Wait(w);
                     LoginPlayer;
                   end;
              end;
            end;
        11: RandomRClick;
        12: RandomMovement;
      end;
    end;
    
    procedure SmartDrop;
    begin
      for i:= 2 to 28 do
      begin
        DropItem(i);
      end;
    end;
    
    procedure ProgressReport;
    Begin
      ClearDebug;
      Writeln('-------------------------------');
      Writeln('Worked for '+TimeRunning);
      Writeln('Done' + IntToStr(Load) +' Loads');
      Writeln('Thanks for using THIS :D ');
      Writeln('I kno its useless script but plz');
      Writeln('post proggie ');
      Writeln('-------------------------------');
      end;
    
    Procedure Chop;
    begin
      color1 := 4029040;
      color2 := 1654585;
      color3 := 1322793;
      if findColor(x, y, color1, msx1, msy1, msx2, msy2) or
           findColor(x, y, color2, msx1, msy1, msx2, msy2) or
             findColor(x, y, color3, msx1 ,msy1, msx2, msy2) then
      begin
        MMouse(x,y,1,1);
        wait(500+random(1000));
        if(isuptext('ew')) then
        begin
          Mouse(x,y,1,1,true);
        end;
      end;
    end;
    
    function findTree: Boolean;
    begin
     if findColor(x, y, color1, msx1, msy1, msx2, msy2) or
        findColor(x, y, color2, msx1, msy1, msx2, msy2) or
        findColor(x, y, color3, msx1 ,msy1, msx2, msy2) then
          result := true else
            result := false;
    end;
    
    function Chopping: Boolean;
    begin
      inv1 := InvCount;
      wait(5000+random(3000));
      inv2 := InvCount;
      if inv1=inv2 then
        result := false else
          result := true;
    end;
    
    Procedure GotoBank;
    begin
      treeTop := BitmapFromString(6, 6, 'beNoLsRDoZVy9fMaZEzt5OBg' +
        'TAs2ASPUwo/wMRqAIRDA5BKQGgjBFgHqRRYBcuAjQEAgXqgsA/BUl' +
        '3A==');
      BC := 3975869;
      MakeCompass('W');
      if(findbitmap(treeTop,x,y)) then
        Mouse(x,y,1,1,true);
      Wait(3500+Random(5000));
      if(findColor(x,y,BC,650,1,700,160)) then
        Mouse(x,y,1,1,true);
      Wait(10000+Random(5000));
    end;
    
    Procedure comefromBank;
    begin
      treeTop := BitmapFromString(6, 6, 'beNoLsRDoZVy9fMaZEzt5OBg' +
         'TAs2ASPUwo/wMRqAIRDA5BKQGgjBFgHqRRYBcuAjQEAgXqgsA/BUl' +
         '3A==');
      if(findbitmap(treeTop,x,y)) then
        Mouse(x,y,1,1,true);
      Wait(10000+random(3000));
    end;
    
    Procedure GotoTree;
    begin
      treeTop := BitmapFromString(6, 6, 'beNoLsRDoZVy9fMaZEzt5OBg' +
         'TAs2ASPUwo/wMRqAIRDA5BKQGgjBFgHqRRYBcuAjQEAgXqgsA/BUl' +
         '3A==');
      if(findbitmap(treeTop,x,y)) then
        Mouse(x,y,1,1,true);
    end;
    
    function BankisOpen:boolean;
    begin
      bankOpen := BitmapFromString(32, 7, 'beNpVkL1Lw3AAROuaTUoki' +
         'AFTVLCgoC12cCihVWOLtlqRSkSkqPhBhdZJcBDERXBx8s/1yckR4R' +
         'F+CXcvlwzSw2wrCILvj+nLJH+6OxkNd8PyrIjC8kIUAs/vRwfXedZ' +
         'p1wn39xudVm2jWnFL+cer/u1FlyToCQf5P98ensdnhO0nPLk5sh/5' +
         '5elOL2sQRi6/WywBt3QLv5NaNSpf72Mk2ml4VxJHy8k8sXyQgvYfd' +
         '7flL7Yk1B6hlvaTfJ2e83aZOVgOnOXPmvVSaQY5LfmLrUo8Z/hYtb' +
         'yfL5VZWM4M/Rztl9/7i63qUkyeK7glv/6kl4CXk5Ec9tJN/Pwf7S+' +
         '2cK6tLBpu/yb932+kNSSHvab22++WnOuricIcRP4Du6mzvw==');
      if(findBitmap(bankOpen,x,y)) then
        result := true else result := false;
    end;
    
    Procedure Bank;
    begin
      BankerColor := 3809579;
      if(findColor(x,y,BankerColor,msx1, msy1, msx2, msy2)) then
        Mouse(x,y,1,1,false);
        Banker := BitmapFromString(75, 7, 'beNrtVEESgCAI5Hd+wKv/f4aVN' +
           'kYsIGN1y+HgbCvsCpYTEdW2Sk4L0c/uSWwCte/UCh2xWujM84XIVw' +
           'w+FvkbnCgcZytbgmbhzpx3YSPuhS7c4qNBh6+CQhv3izh64a65+Ok' +
           'b9HH0ot5SJAmOmWiW4AyDHLfc+SOKzVU1c1ydAUwO9xA1Yu2d/3BE' +
           'w5QTnGfsbNkASMS3+w==');
        if(findbitmap(Banker, x, y)) then
          Mouse(x,y,1,1,true);
        if(bankisOpen) then
          yew := BitmapFromString(9, 8, 'beNpz5nYz4XA0ACFrHXZTdTYgAjK' +
             'AXG8LTjctDm89zihnbggKdeCCo5YcWyCKc+fGlIVLIctCEEQKaCay' +
             'LISNJoWMIFJAFGDIiVUKUzwKAIMSM84=');
          if(findbitmap(yew, x, y)) then
            Mouse(x,y,1,1,false);
          depo := BitmapFromString(27, 7, 'beNpjYIgNcacR+g8DmIKYbB' +
             'Q1M+SBCM5GVszAwICmCy6OxsY0EKoGbCBcJbJGqhiI3xBcBsLNhPv' +
             '9PzZAkoHo7kTyMjwYyTQQAJRDEYA=');
          if(findbitmap(depo, x, y)) then
            Mouse(x,y,1,1,true);
          Bankclose := BitmapFromString(10, 8, 'beNo9j2EHwlAUhn9D5mbS' +
            'aFcbXRb9iBKJIrNsklmpKFafog/76T3zcnlc97z3fc8519lfW37uB' +
            'xMM4NXsbqfNo96ClO/ziCE0AcjQXvcqgSBgVjkOjedSrrt3hV/dbD' +
            'T0nPNlXazojI4B3DRK4hEnEARelUXJ0omHkriyUuazGAW4CDbkFwt' +
            'ngUEaB73yB2EAOsI=');
          if(findbitmap(Bankclose, x, y)) then
            Mouse(x,y,1,1,true);
            Inc(Load);
            ProgressReport;
    
    end;
    
    begin
      ClearDebug;
      Disguise('MSN');
      DeclarePlayers;
      Writeln('Waiting For SMART to Start...');
      SmartSetupEx(SmartWorld, false, true, false);
      wait(3000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      SRLID := YourSRLSTATSID;
      SRLPassword:= YOURSRLSTATSPASS;
      if LoggedIn then Logout;
      LoginPlayer;
      repeat
        Chop
        repeat
          AntiBan;
          AntiRandoms;
          if not FindTree then gotoTree;
          if not Chopping then Chop;
        until (InvFull);
        if (Invfull) then
        begin
          gotoBank;
          Bank;
          comefromBank;
        end;
      until not LoggedIn;
    end.
    The SRL team brings all the mods to the yard,
    And their like, "We kno u bot hard",
    "Damn right, We DO bot hard",
    "But you cant catch us, cos we use S.M.A.R.T!"

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    Quote Originally Posted by brad734 View Post
    OFFLINE!

    Currently need: DTM tutorial and for this to bank :S


    http://www.villavu.com/forum/showthread.php?t=9453 <- one of many tuts

    also, for banking. look into your bank.scar include and chose which procedures you desire to use. i personally like using openbankquiet();

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
  •