Results 1 to 11 of 11

Thread: Deadlys' Dust Devastator

  1. #1
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Deadlys' Dust Devastator

    It is fully functional with SRL5

    You need to download this to be able to use the script: http://villavu.com/forum/showthread....objdtm+walking
    Follow the instructions at the bottom of this page on how to download and install it correctly.


    There's a few anti-leech prevention techniques in this new script. This is because I don't want the price to drop to drastically.
    You can solve most of them by reading up on the errors here: http://villavu.com/forum/showthread....annoying+error
    Please refrain yourself from posting and asking for fixes here or in any other part of this forum. I want you to be competent enough to figure this out on your own. If you can’t find all the fixes in the link, you can go here: http://villavu.com/forum/forumdisplay.php?f=95


    This script turns chocolate bars into dust for a substantial profit.

    Important
    Make sure your chocolate bars are visible in your bank when you first open it up.

    Requirements:
    None!

    Start Point:
    Start at Lumbridge bank.


    Current Features
    Logs out when you've run out of the chocolate bars.


    Future Updates
    Auto Updater.

    Known Bugs


    Current Version:
    Version 1: Just released.

    Progress Reports:
    All future long progress reports will go here.
    Progress Report:
    You have been making that powder for : 53 Minutes and 1 Seconds
    Powder made: 1988
    Profit made: 131208
    Withdrawing the chocolate
    No chocolatebars left
    2nd draw


    Progress Report:
    You have been making that powder for : 1 Hours, 33 Minutes and 5 Seconds
    Powder made: 3388
    Profit made: 223608
    No chocolatebars left


    Progress Report:
    You have been making that powder for : 1 Hours, 26 Minutes and 36 Seconds
    Powder made: 3220
    Profit made: 212520
    Withdrawing the chocolate
    Making Powder
    No chocolatebars left



    Simba Code:
    program Deadlys_Powder_Creator;

    {$i srl/srl/misc/smart.simba}
    {$i SRL/SRL.simba}
    //{.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL/SRL/misc/paintsmart.simba}
    {$i ObjectDTM/ObjDTMInclude.Simba}



    Const         //Yoho's
     SERVER  = ('54');     // Enter "0" to pick a random server.
     MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     Version = 1.1;

     Var
     Powder: integer;
     Powd: Integer;
     Powders: Integer;
     aFound: Extended;


    {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      for i := 0 to NumbOfPlayers-1 do
      Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Member := False;
      Players[0].Active := True;
      Players[0].Pin := '';
    end;

    Procedure ObjSetup;   //Euph's
    begin;
    ObjDTM_Setup;
     end;

    Procedure StatsGuise(wat:String); //Yoho's
    Begin
      Status(wat);
      Disguise(wat);
    End;

    //Function CheckAndClick(X,Y:Integer):Boolean;
    //By: YoHoJo
    //Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    //*******************************************************************************}
    Function CheckAndClick(X,Y:Integer):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      {Wait(100 + Random(50));
      If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}

      If WaitUpTextMulti(['Mine','ine'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    End;

    Procedure FailSafe(Reason:String);     //Yoho's
    begin
      Players[CurrentPlayer].Loc:=reason;
      Logout;
      Terminatescript;
    end;

      Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;

        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
      end;

     Procedure Loadvars;
     begin;
     MouseSpeed := RandomRange(14, 18);
     end;


    Procedure Antiban;   //I liked a few of Yoho's antibans, I implemented them here
    Begin
      Case Random(554) Of
        0: HoverSkill('Constitution', False);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
        3: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        4: HoverSkill('random', False);
        5: RandomMovement;
      End;
    end;

    Procedure ProgressReport;
    begin
      Cleardebug;
      Writeln('You have been making that powder for : ' + TimeRunning);
      Writeln('Powder made: ' + IntToStr(Powders*28));
      WriteLn('Profit made: ' + IntToStr(Powders*28*66));
    end;

    Procedure WithDrawChocolate;
    Var
      Banker,Chocolatebar, X, Y: Integer;
    begin
      if not loggedin then exit;
      FindNormalRandoms;
      Antiban;
      Inc(Powders);
    begin
      SetAngle(SRL_ANGLE_High);
      MakeCompass('N');
    end;

    begin
      Banker := DTMFromString('mwQAAAHic42RgYPBiYmCwBuJIILYB4ggmiJgnEFtBxdUYGRikoNgcis2gfFVGiHxvexODo709g4ujI0NtfgIYt5algcUCnE0ZglzNGPiB9hHCjERgOAAAcvEOGA==');


      if FindDTMRotated(Banker, x, y, 0, 0, 700, 500, -Pi, Pi, Pi/30, aFound) then
    begin
      WriteLn('Banking');
      MMouse(X, Y, 3, 3);
      ClickMouse2(False);
      Waitoption('uickly', 3000);
    end;

    begin
      Wait(2000+random(500));
      If invfull then
      begin
      Depositall;
      Wait(500+random(500));
    end;

    begin
      ChocolateBar := DTMFromString('mrAAAAHic42BgYHjHyMDwAoi/QfFzRojYIyD+DcTlQFwCxIVAXAXEdUDcCGWXArGPjgTQFCacmB9I4sOMBDAMAACwSgxv');
    begin
      If not FindDTM(ChocolateBar, x, y, 35, 85, 480, 295) then
    begin
      WriteLn('No chocolatebars left');
      Logout;
      TerminateScript;
    end;

      ChocolateBar := DTMFromString('mrAAAAHic42BgYHjHyMDwAoi/QfFzRojYIyD+DcTlQFwCxIVAXAXEdUDcCGWXArGPjgTQFCacmB9I4sOMBDAMAACwSgxv');
      if FindDTM(ChocolateBar, x, y, 35, 85, 480, 295) then
    begin
      WriteLn('Withdrawing the chocolate');
      MMouse(X, Y, 3, 3);
      ClickMouse2(False);
      Wait(300+random(500));
      Waitoption('All', 3000);
      Wait(400+random(500));



    begin
      MouseBox(481, 27, 496, 42, 1);
    begin
      Wait(300+random(250));
    end;

          FreeDTM(ChocolateBar);
         end;
        end;
       end;
      end;
     end;


    Procedure PowderCreater;
    Var
    Chocolatebar, X, Y: Integer;
    begin
      if not loggedin then exit;
      FindNormalRandoms;
      Antiban;
      DidRedClick;
      ChocolateBar := DTMFromString('mlwAAAHicY2dgYMhmYmDIBeJKIE4E4hwgLgbidCB+DJS/BcQPgfgpEL8F4udAfB+I7VVFgCQTVswPJHFhRjwYCgB42Qo4');
      if FindDTM(ChocolateBar, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      WriteLn('Making Powder');
      MMouse(X, Y, 3, 3);
      ClickMouse2(False);
      Wait(300+random(500));
      Waitoption('owder', 3000);
      end;
      FreeDTM(ChocolateBar);
     end;

    Procedure PrecautionaryWait;
    begin
      if not loggedin then exit;
      FindNormalRandoms;
      Antiban;
      Wait(400+random(250));
    end;

    Procedure DatPowder;
    var
    Powder, X, Y: Integer;
    begin
      if not loggedin then exit;
      FindNormalRandoms;
      Antiban;
      MouseBox(218, 400, 300, 458, 1);
    begin
      Wait(1000+random(500));

    begin
      Wait(27000+random(10000));
    Begin
      Powder := DTMFromString('mggAAAHicY2NgYHBkYmBwBmJfKG0JxDZA/AwodxeIHwPxayB+CWUH6ksCSSYMzA8ksWFGHBgCAOmFB/w=');
      Powd:= CountItems('dtm', Powder, []);
      If Powd=28 then
           ProgressReport;
          end;
        FreeDTM(Powder);
       end;
      end;
     end;

    begin
      Smart_Server := 54;
      Smart_Members := False;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      Loadvars;
      ObjSetup;
      Declareplayers;
      if not (LoggedIn) then
      LoginPlayer;
      Repeat
      WithdrawChocolate;
      PowderCreater;
      PrecautionaryWait;
      DatPowder;
      Until(false);
    Last edited by Deadly Serious; 01-24-2012 at 09:01 PM.

  2. #2
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Standards man standards.

    Simba Code:
    FreeDTM(ChocolateBar);
         end;
        end;
       end;
      end;
     end;
    end;

    Looks horrible, no idea where they go too.

    Also I suggest putting it in a file to see how many people download (its just nice to know).
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  3. #3
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Narcle View Post
    Standards man standards.

    Simba Code:
    FreeDTM(ChocolateBar);
         end;
        end;
       end;
      end;
     end;
    end;

    Looks horrible, no idea where they go too.

    Also I suggest putting it in a file to see how many people download (its just nice to know).
    Sorry, it isn't there fully either. I'm adding in a few anti-leech preventions.
    Edit: I was going to add in an auto updater, I just haven't got around to reading the guide completely. I whipped that one up in 20 mins because it was requested. I haven't come up to the stage in setting the standards properly but I'll do it soon. I thought I may as well post it now since a few others have already posted this same script.
    Last edited by Deadly Serious; 01-24-2012 at 03:54 AM.

  4. #4
    Join Date
    Jan 2012
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (202:1): Identifier expected at line 201
    Compiling failed.

    me sad

  5. #5
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works fine, small bump =D

  6. #6
    Join Date
    Jun 2008
    Location
    United States
    Posts
    818
    Mentioned
    60 Post(s)
    Quoted
    90 Post(s)

    Default

    Quote Originally Posted by ppgab View Post
    [Error] (202:1): Identifier expected at line 201
    Compiling failed.

    me sad
    There's a few anti-leech prevention techniques in this new script. This is because I don't want the price to drop to drastically.
    Say... I wonder why? Take the time to learn how to script and contribute to the community. You might find that you will then know how to fix this error.
    [10/14/13:19:03] <BenLand100> this is special relatively, just cleverly disguised with yachts

  7. #7
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ppgab View Post
    [Error] (202:1): Identifier expected at line 201
    Compiling failed.

    me sad
    I posted up a link which will help you.

    Quote Originally Posted by euphemism View Post
    Say... I wonder why? Take the time to learn how to script and contribute to the community. You might find that you will then know how to fix this error.
    I wouldn't even call it scripting, it's mostly just common sense.

  8. #8
    Join Date
    Nov 2011
    Location
    Louisiana
    Posts
    881
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Deadly, your standards don't look "horrible" but they just can be worked on. I hate when other people tell people their work looks horrible, awful, etc. They're fine, but just can be cleaned up. Nice script.

  9. #9
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by shstiger2009 View Post
    Deadly, your standards don't look "horrible" but they just can be worked on. I hate when other people tell people their work looks horrible, awful, etc. They're fine, but just can be cleaned up. Nice script.
    It's usually the last thing I worry about in scripting because I will have to edit it again and again, if there's any small bug. It's all just a hassle, I can read it fine and it isn't that hard to read the code.

  10. #10
    Join Date
    Jan 2012
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow it took me sometime, but i defeated the AntiLeech

  11. #11
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ppgab View Post
    wow it took me sometime, but i defeated the AntiLeech
    Haha, it shouldn't of been to hard :P I'm glad you took the time to do it though

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
  •