Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 55

Thread: [SRL5][C]S1N AIO Dragonhides [BETA]

  1. #26
    Join Date
    Jan 2012
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the bot does two loads then on third load it takes hide out an stalls for like 1 minute. then it deposits them and will do 2 more loads how to fix this within procedures?
    Last edited by botter5214; 02-04-2012 at 05:36 PM.

  2. #27
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good work. You doing good work around the community sim gj

  3. #28
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Thank you, hope you enjoyed

  4. #29
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Just a tip, you should rarley (never) use the Mouse function without some form of randomness in it, Mouse(x,y,0,0) is never a good idea, you will click in the same spot and look like a huge bot.

  5. #30
    Join Date
    Dec 2011
    Location
    Belgium
    Posts
    623
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I'll try this, I have money now

    Made by P1ng

  6. #31
    Join Date
    Jan 2012
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Sometimes it doesn't choose what item to make, when time is up, it banks the leather, withdraws new leather to craft. Other than that it's working great.

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

    Default

    ===================================
    =======S1NAioDragonhides===========
    Time Running: 1 Hours, 3 Minutes and 32 Seconds
    Itemz Made: 1647
    XP Earned: 102114
    XP/H Is: 96460
    Items/H Is: 1555
    ====================================
    =====================================

    Nice work Sin. A few banking problems every once in a while, but other than that, it has been running flawlessly.

  8. #33
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Sin you haven't even go Random clicks:
    Here the Version I've changed and played with <3
    Simba Code:
    program S1NAioDragonhides;
    {$DEFINE SMART}
    {$Define Crashsmart}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    //Modified By Mat <3
    var
      dhideDTM,TimeToWait,needleDTM,Thing,Thingy:Integer;
      //Progress Integers
      HM,Made,XPEarned,XPPerItem,Sec,StartTime,XPH,ItemsPH:integer;
    procedure Setup;
    begin
      Thing := 2; //1 = Body, 2 = Vambs, 3 = chaps
      XPPerItem := 62;// PLEASE CHANGE THIS TO THE AMOUNT OF EXP YOU GET FROM ONE
      HowManyPlayers := 1;                //ITEM that you craft
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure Proggy;
    begin
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XPEarned) / (SeC);
    ItemsPH := (3600*Made) / Sec;
    writeLn('===================================');
    writeLn('=======S1NAioDragonhides===========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('Itemz Made: ' + IntToStr(Made));
    writeLn('XP Earned: ' + IntToStr(XPEarned));
    writeLn('XP/H Is: ' + IntToStr(XPH));
    writeLn('Items/H Is: ' + IntToStr(ItemsPH));
    writeLn('====================================');
    writeLn('=====================================');
    end;
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;                //my bad :3
      Smart_SuperDetail := False;          //my name was about to show up :c
      SetupSRL;                            //AIO, supports ALL hides.
      Setup;
      LoginPlayer;
    end;
    procedure Declaration;
    begin
    if Thing = 1 then
      begin
        writeLn('We are crafting bodies');
        Thingy := DTMFromString('m1gAAAHic42JgYFgGxHOBeAMUrwfieUC8FIhXAvFCqPgRRgaGnUC8A4hPAPEFKL6EhPcDMXcgL1A1Ewp2szPGEPvPQBxgJBIjAACBoxCv');
        HM := 9;
      end;
    if Thing = 2 then
      begin
        writeLn('We are crafting vambs');
        Thingy := DTMFromString('mlwAAAHicY2dgYOBlZGBgBmJOIBYCYmkglgViESA+BMTHgfgsEJ8C4iNAvB+IdwMxmxY7UDcTVvyfATdgxIOhAADd+Ac0');
        TimeToWait := 47000;
        HM := 27;
      end;
    if Thing = 3 then
      begin
        writeLn('We are crafting chaps');
        Thingy := DTMFromString('m1gAAAHic42JgYKhmZGAoheISKF0GxLVA3ADEjVD6EBDvBOKDQHwMiM8C8UUoBrFPAvEBIGY34ACaykQQ/2cgDjASiREAAMXEDgI=');
        TimeToWait := 24000;
        HM := 13;
      end;
    end;
    procedure SetDTM;
    begin
    dhideDTM := DTMFromString('m1gAAAHic42JgYPgKxK+gNCMjAwMrEP8Esl8A8Xsg/g3ELECxXiA9FYhnA/E0IG4H4kYGiPhMIJ4DxH1AzGHNCSSZCOL/DMQBRiIxAgAA+b4NyQ==');
    needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
    //dhideDTM2 := DTMFromString('m6wAAAHic42ZgYKhlYmBoAuJCIO4G4g4gLgHiciCuBuJWqDgIszEyMIgCMRcjhM0PxIJALAzEIlCaE4gZgVhORgZoOhNR+D8D8YCRBIwEAKkWB7Q=');
    end;
    procedure FreDTM;
    begin
    FreeDTM(dhideDTM);
    FreeDTM(needleDTM);
    freeDTM(Thingy);
    //freeDTM(dhideDTM2);
    end;
    procedure WithdrawDhide;
    var
    x,y:integer;
    begin
    MakeCompass(RandomRange(1,359));
    SetAngle(SRL_ANGLE_HIGH);
    if OpenBankChest(SRL_Bank_SW) then
      begin
        repeat
          wait(50);
          if PinScreen then
            InPin(Players[CurrentPlayer].Pin);
        until(BankScreen or PinScreen);
      end;
    if BankScreen then       //GOD I Hate this thing >.>
      begin
        If FindDTM(Thingy,X,Y,MIx1,MIY1,MIX2,MIY2)then
        begin
          MMouse(X,Y,5,5);
          ClickMouse2(False);
          Repeat
            Wait(50);
          Until(ChooseOption('All'));
        end;
        if FindDTM(dhideDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
          begin
            Mouse(x,y,5,5,False);
            Repeat
              Wait(50+Random(50));
            Until(ChooseOption('All'));
            wait(900);
            if FindBlackChatMessage('nothing') or FindBlackChatMessage('leather') then
              begin
                writeLn('oh noes, we are out of hides');
                TerminateScript;
              end;                          //hmm i guess FindBlackChat isn't working :L  yeah it isn't working :L
            CloseBank;
          end else
            TerminateScript;
      end;
    end;
    procedure CraftShit;
    var
    x,y:integer;
    begin
        if FindDTM(dhideDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
          begin
            MMouse(x,y,5,5);
            ClickMouse2(True);
            Repeat
              Wait(50);
            Until(FindDTM(thingy,x,y,MCX1,MCY1,MCX2,MCY2));
          end;
      if FindDTM(thingy,x,y,MCX1,MCY1,MCX2,MCY2) then
      begin
        MMouse(x,y,5,5);
        CLickMouse2(True);
      end;
      case random(4) of
        1: SetAngle(SRL_ANGLE_LOW);
        2: SetAngle(SRL_ANGLE_HIGH);
        3: MakeCompass(RandomRange(1,359));
      end;
      Repeat
        Wait(50);
      Until(Not FindDTM(dhideDTM,x,y,MIX1,MIY1,MIX2,MIY2));
    Made := Made + HM;
    XPEarned := Made * XPPerItem;
    end;

    begin

      SetupLogin;
      SetupSRL;
      MouseSpeed := RandomRange(24,32);
      Setup;
      LoginPlayer;
      SetDTM;
      Declaration;
      ActivateClient;
      StartTime:=GetSystemTime;
      ClearDebug;
      repeat
        WithdrawDhide;
        CraftShit;
        proggy;
      until(false);
      FreDTM;
    end.



    ^^

  9. #34
    Join Date
    Feb 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    seems great cant wait to test it

  10. #35
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    It doesn't event detect my hides?

  11. #36
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    update please

  12. #37
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    When I buy 99 Crafting.

  13. #38
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    1,199
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    I have been using this script and it seems to work well, except that once in a while it gets stuck at the "Use Bank" command if there are too many people in the world. It also doesn't seem to like banking. Now I am new here and at the moment just seem like a leecher, but I was wondering if the original maker could take another look at this script.

    This is what I have edited the script to to get it to seem a little more human like, but I am new to this and am not sure on a lot of things!

    Simba Code:
    program S1NAioDragonhides;
    {$DEFINE SMART}
    {$Define Crashsmart}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    var
      bodyDTM, vambDTM, chapDTM,dhideDTM,dhideDTM2,TimeToWait,needleDTM,Thing,Thingy:Integer;
      //Progress Integers
      HM,Made,XPEarned,XPPerItem,Sec,StartTime,XPH,ItemsPH:integer;
    procedure Setup;
    begin
      Thing := 1; //1 = Body, 2 = Vambs, 3 = chaps
      XPPerItem := 210;// PLEASE CHANGE THIS TO THE AMOUNT OF EXP YOU GET FROM ONE
      HowManyPlayers := 1;                //ITEM that you craft
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure Proggy;
    begin
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XPEarned) / (SeC);
    ItemsPH := (3600*Made) / Sec;
    writeLn('===================================');
    writeLn('=======S1NAioDragonhides===========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('Itemz Made: ' + IntToStr(Made));
    writeLn('XP Earned: ' + IntToStr(XPEarned));
    writeLn('XP/H Is: ' + IntToStr(XPH));
    writeLn('Items/H Is: ' + IntToStr(ItemsPH));
    writeLn('====================================');
    writeLn('=====================================');
    end;
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 69;
      Smart_Members := True;
      Smart_Signed := True;                //my bad :3
      Smart_SuperDetail := False;          //my name was about to show up :c
      SetupSRL;                            //AIO, supports ALL hides.
      Setup;
      LoginPlayer;
    end;
    procedure Declaration;
    begin
    if Thing = 1 then
      begin
        writeLn('We are crafting bodies');
        Thingy := DTMFromString('m1gAAAHic42JgYFgGxHOBeAMUrwfieUC8FIhXAvFCqPgRRgaGnUC8A4hPAPEFKL6EhPcDMXcgL1A1Ewp2szPGEPvPQBxgJBIjAACBoxCv');
        TimeToWait := 20000+Random(2000);
        HM := 9;
      end;
    if Thing = 2 then
      begin
        writeLn('We are crafting vambs');
        Thingy := DTMFromString('mlwAAAHicY2dgYOBlZGBgBmJOIBYCYmkglgViESA+BMTHgfgsEJ8C4iNAvB+IdwMxmxY7UDcTVvyfATdgxIOhAADd+Ac0');
        TimeToWait := 47000;
        HM := 27;
      end;
    if Thing = 3 then
      begin
        writeLn('We are crafting chaps');
        Thingy := DTMFromString('m1gAAAHic42JgYKhmZGAoheISKF0GxLVA3ADEjVD6EBDvBOKDQHwMiM8C8UUoBrFPAvEBIGY34ACaykQQ/2cgDjASiREAAMXEDgI=');
        TimeToWait := 24000;
        HM := 13;
      end;
    end;
    procedure SetDTM;
    begin
    dhideDTM := DTMFromString('m1gAAAHic42JgYPgKxK+gNCMjAwMrEP8Esl8A8Xsg/g3ELECxXiA9FYhnA/E0IG4H4kYGiPhMIJ4DxH1AzGHNCSSZCOL/DMQBRiIxAgAA+b4NyQ==');
    needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
    dhideDTM2 := DTMFromString('m6wAAAHic42ZgYKhlYmBoAuJCIO4G4g4gLgHiciCuBuJWqDgIszEyMIgCMRcjhM0PxIJALAzEIlCaE4gZgVhORgZoOhNR+D8D8YCRBIwEAKkWB7Q=');
    end;
    procedure FreDTM;
    begin
    FreeDTM(dhideDTM);
    FreeDTM(needleDTM);
    freeDTM(Thingy);
    freeDTM(dhideDTM2);
    end;
    procedure WithdrawDhide;
    var
    x,y,x2,y2,x3,y3:integer;
    begin
    MakeCompass(RandomRange(1,359));
    SetAngle(SRL_ANGLE_HIGH);
    if FindObjCustom(x,y,['Bank'],[11711418,13158866],3) then
      begin
        Mouse(x,y,0,0,False);
        ChooseOption('Bank');
        repeat
          wait(100);
        until(BankScreen or PinScreen);
      end;
    if PinScreen then
      begin
        InPin(Players[CurrentPlayer].Pin);
      end;
    if BankScreen then       //GOD I Hate this thing >.>
      begin
        wait(1000+Random(200));
        MouseItem(RandomRange(2,3),mouse_Right);
        wait(900+Random(200));
        ChooseOption('All');
        if FindDTM(dhideDTM,x3,y3,MSX1,MSY1,MSX2,MSY2) then
          begin
            Mouse(x3,y3,0,0,False);
            wait(900+Random(200));
            ChooseOption('All');
            wait(900+Random(200));
            if FindBlackChatMessage('nothing') or FindBlackChatMessage('leather') then
              begin
                writeLn('oh noes, we are out of hides');
                TerminateScript;
              end;                          //hmm i guess FindBlackChat isn't working :L  yeah it isn't working :L
            CloseBank;
          end;
      end;
    end;
    procedure CraftShit;
    var
    x,y,x2,y2,x3,y3,x4,y4:integer;
    begin
        if FindDTM(dhideDTM2,x,y,MIX1,MIY1,MIX2,MIY2) then
          begin
            Mouse(x,y,0,0,True);
          end;
    wait(1000+Random(200));
    if FindDTM(needleDTM,x2,y2,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(x2,y2,0,0,True);
        wait(1000+Random(200));
      end;
    if FindDTM(thingy,x3,y3,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(x3,y3,0,0,True);
      end;
    case random(4) of
    1: SetAngle(SRL_ANGLE_LOW);
    2: SetAngle(SRL_ANGLE_HIGH);
    3: MakeCompass(RandomRange(1,359));
    end;
    wait(TimeToWait);

    Made := Made + HM;
    XPEarned := Made * XPPerItem;
    end;

    begin
      SetupLogin;
      SetupSRL;
      Setup;
      LoginPlayer;
      SetDTM;
      Declaration;
      ActivateClient;
      StartTime:=GetSystemTime;
      ClearDebug;
      repeat
        WithdrawDhide;
        CraftShit;
        proggy;
      until(false);
      FreDTM;
    end.

    Except now I get an error that says, "The Automatically split characters are too wide. Try decreasing minspacing". I googled the error and everyone says to change something in the bank function to a mousebox function (http://villavu.com/forum/showthread.php?t=74592). I am unsure what that really means and am interested in learning if anyone or the OP feels like explaining it

  14. #39
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Fine.
    I'll update it.

  15. #40
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Updated, have fun :-)

  16. #41
    Join Date
    Aug 2010
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    why a multiple of 28, and not 27? ( i thought thread takes up 1 inv space)

  17. #42
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    1,199
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    There is still something wrong with the banking. My attempt at a fix seems to have made it worse :/. The cursor just hangs over the inventory after opening the bank. Blue d hide are visible in the bank screen. It will bank blue dhide bodies and just close the bank.

    The following makes it look very bot like, I am going to try my best to add some randomness to the cord's I picked. Hopefully it works. Also, this will only work if you have the hides in the correct spot (4th row down as far right as possible).
    Simba Code:
    program S1NAioDragonhides;
    {$DEFINE SMART}
    {$Define Crashsmart}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    var
      bodyDTM, vambDTM, chapDTM,dhideDTM,dhideDTM2,TimeToWait,needleDTM,Thing,Thingy:Integer;
      //Progress Integers
      HM,Made,XPEarned,XPPerItem,Sec,StartTime,XPH,ItemsPH:integer;
    procedure Setup;
    begin
      Thing := 1; //1 = Body, 2 = Vambs, 3 = chaps
      XPPerItem := 210;// PLEASE CHANGE THIS TO THE AMOUNT OF EXP YOU GET FROM ONE
      HowManyPlayers := 1;                //ITEM that you craft
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure Proggy;
    begin
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XPEarned) / (SeC);
    ItemsPH := (3600*Made) / Sec;
    writeLn('===================================');
    writeLn('=======S1NAioDragonhides 1.2===========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('Itemz Made: ' + IntToStr(Made));
    writeLn('XP Earned: ' + IntToStr(XPEarned));
    writeLn('XP/H Is: ' + IntToStr(XPH));
    writeLn('Items/H Is: ' + IntToStr(ItemsPH));
    writeLn('====================================');
    writeLn('=====================================');
    end;
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;                //my bad :3
      Smart_SuperDetail := False;          //my name was about to show up :c
      SetupSRL;                            //AIO, supports ALL hides.
      Setup;
      LoginPlayer;
    end;
    procedure Declaration;
    begin
    if Thing = 1 then
      begin
        writeLn('We are crafting bodies');
        Thingy := DTMFromString('m1gAAAHic42JgYFgGxHOBeAMUrwfieUC8FIhXAvFCqPgRRgaGnUC8A4hPAPEFKL6EhPcDMXcgL1A1Ewp2szPGEPvPQBxgJBIjAACBoxCv');
        TimeToWait := RandomRange(17000,21000);
        HM := 9;
      end;
    if Thing = 2 then
      begin
        writeLn('We are crafting vambs');
        Thingy := DTMFromString('mlwAAAHicY2dgYOBlZGBgBmJOIBYCYmkglgViESA+BMTHgfgsEJ8C4iNAvB+IdwMxmxY7UDcTVvyfATdgxIOhAADd+Ac0');
        TimeToWait := 47000;
        HM := 27;
      end;
    if Thing = 3 then
      begin
        writeLn('We are crafting chaps');
        Thingy := DTMFromString('m1gAAAHic42JgYKhmZGAoheISKF0GxLVA3ADEjVD6EBDvBOKDQHwMiM8C8UUoBrFPAvEBIGY34ACaykQQ/2cgDjASiREAAMXEDgI=');
        TimeToWait := 24000;
        HM := 13;
      end;
    end;
    procedure SetDTM;
    begin
    dhideDTM := DTMFromString('m1gAAAHic42JgYPgKxK+gNCMjAwMrEP8Esl8A8Xsg/g3ELECxXiA9FYhnA/E0IG4H4kYGiPhMIJ4DxH1AzGHNCSSZCOL/DMQBRiIxAgAA+b4NyQ==');
    needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
    dhideDTM2 := DTMFromString('m6wAAAHic42ZgYKhlYmBoAuJCIO4G4g4gLgHiciCuBuJWqDgIszEyMIgCMRcjhM0PxIJALAzEIlCaE4gZgVhORgZoOhNR+D8D8YCRBIwEAKkWB7Q=');
    end;
    procedure FreDTM;
    begin
    FreeDTM(dhideDTM);
    FreeDTM(needleDTM);
    freeDTM(Thingy);
    freeDTM(dhideDTM2);
    end;
    procedure WithdrawDhide;
    var
    x,y,x2,y2,x3,y3:integer;
    begin
    SetAngle(SRL_ANGLE_HIGH);
    OpenBankChestEdge(SRL_BANK_SW);
    repeat
      wait(100);
    until(PinScreen or BankScreen);
    if PinScreen then
      begin
        InPin(Players[CurrentPlayer].Pin);
        wait(RandomRange(900,1100));
      end;
    if BankScreen then       //GOD I Hate this thing >.>
      begin
        wait(RandomRange(900,1100));
        MouseItem(RandomRange(2,3),mouse_Right);
        wait(RandomRange(800,1100));
        ChooseOption('All');
        if FindDTM(dhideDTM,x,y,MSX1,MSY1,MSX2,MSY2) then
          begin
            Mouse(RandomRange(440,460), RandomRange(230,250),0,0,False);
            wait(RandomRange(900,1100));
            ChooseOption('All');
            wait(RandomRange(900,1100));
            if FindBlackChatMessage('nothing') or FindBlackChatMessage('leather') then
              begin
                writeLn('oh noes, we are out of hides');
                TerminateScript;
              end;                          //hmm i guess FindBlackChat isn't working :L  yeah it isn't working :L
            CloseBank;
          end;
      end;
    end;
    procedure CraftShit;
    var
    x,y:integer;
    begin
        if FindDTM(dhideDTM2,x,y,MIX1,MIY1,MIX2,MIY2) then
          begin
            Mouse(RandomRange(570,585), RandomRange(220,240), 0,0,True);
          end;
    wait(RandomRange(1100,1300));
    if FindDTM(needleDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(RandomRange(240,265),RandomRange(410,425), 0,0,True);
        wait(RandomRange(900,1100));
      end;
    if FindDTM(thingy,x,y,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(RandomRange(110,200),RandomRange(400,460),0,0,True);
      end;
    case random(4) of
    1: SetAngle(SRL_ANGLE_HIGH);
    2: MakeCompass(RandomRange(1,359));
    end;
    wait(TimeToWait);

    Made := Made + HM;
    XPEarned := Made * XPPerItem;
    end;

    begin
      SetupLogin;
      SetupSRL;
      Setup;
      LoginPlayer;
      SetDTM;
      Declaration;
      ActivateClient;
      StartTime:=GetSystemTime;
      ClearDebug;
      repeat
        WithdrawDhide;
        CraftShit;
        proggy;
      until(false);
      FreDTM;
    end.

    EDIT: Also, I hope you don't mind my editing and learning with your script! If you do, I will stop and will find something else to try with!
    EDIT2: Still has the error "The automatically split characters are too wide. Try decreasing minspacing" but I guess the way I did it brute forced my way past that. Once every few loads the script seems to not want to click the craft button, but seems to correct itself after it rebanks.

    PROGGY
    =======S1NAioDragonhides 1.2===========
    Time Running: 10 Minutes and 51 Seconds
    Itemz Made: 180
    XP Earned: 37800
    XP/H Is: 209353
    Items/H Is: 996
    ====================================
    =====================================

    EDIT3: New DTM for Blue Dhide Body is
    DTMFromString('mfgEAAHicrcxJCoAwEAXR1pVRUHAGB4xew1 MJ4vWtwHflUhteAg3VpZk1aFEhRwqHRH/YFagxYMIiK2ZsuuPUZ2rCzV7dCK/Ga/fc7NSF5joP3viz3f6Z6CfvuQErCATf');

    Couldn't be bothered with the others
    Last edited by Hazzah; 03-07-2012 at 04:33 AM.

  18. #43
    Join Date
    Mar 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Hint] (90:1): Variable 'X2' never used at line 89
    [Hint] (90:1): Variable 'Y2' never used at line 89
    [Error] (135:11): Unknown identifier 'x2' at line 134
    Compiling failed.

  19. #44
    Join Date
    Mar 2012
    Location
    Canada
    Posts
    870
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Yeah it's pretty messed up.
    Variables are wrongs and none of the DTMs work so I changed all the DTMs for mousebox instead.

    Added alot of randomisation, made the antiban awesome, added some failsafe, added blind check for bank chest and speeded up everything.
    Now it's working great.

  20. #45
    Join Date
    Feb 2012
    Posts
    554
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    any chance you can post that copy?
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  21. #46
    Join Date
    Feb 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    please update dude,

    i wanna craft hides to 99

  22. #47
    Join Date
    Mar 2012
    Location
    Canada
    Posts
    870
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Got a a nice proggy + a bug to report.

    Code:
    =======S1NAioDragonhides 1.2===========
    Time Running: 3 Hours, 29 Minutes and 59 Seconds
    Itemz Made: 4302
    XP Earned: 800172
    XP/H Is: -112258           // Should be 230 000 here, little bug here more explanation bellow
    Items/H Is: 1229
    ====================================
    =====================================
    Found bank using blind check.
    Blind check failed... using plan B.
    Antiban: Switching to tab friend chat.
    Also the bug is in XP/H. Basicaly you try to put something bigger than 2.147b in your variable and it make it go negative.

    Instead of doing this:
    Code:
    XPH := (3600*XPEarned) / (SeC);
    You should do something like this:
    Code:
    XPH :=  (XPEarned / SeC) * 3600;
    That way, you don't hit 2.147b when you reach about 596k XPEarned.
    Last edited by eska; 03-19-2012 at 10:44 PM.
    My scripts:
    Advanced Barb Agility Course(outdated), MonkeyThieverV0.11, MahoganyTableV0.4(outdated)
    Questions? I bet that for 98% of those, you'll find answer HERE

  23. #48
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Yeah, this was pre member, that bug also happened in my S1NKits script and while I fixed it here, didn't fix it here.
    I lost interest in scripting for Crafting since im 99 now :s

  24. #49
    Join Date
    May 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    your doing good work keep it up :]

  25. #50
    Join Date
    Feb 2012
    Location
    Ă…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could u have added soft leather and craft coif ? :S would be really great if u cud do that

Page 2 of 3 FirstFirst 123 LastLast

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
  •