Results 1 to 1 of 1

Thread: Hazzah dhide body crafter

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

    Default Hazzah dhide body crafter

    Almost all credit goes to Sin for the initial base i used!

    Simba Code:
    program HazzahDhideBodyCrafter;
    {$DEFINE SMART}
    {$Define Crashsmart}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    var
      dhideDTM,dhideDTM2,TimeToWait,needleDTM,dhidebodyDTM:Integer;
    procedure Setup;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;            
      Smart_SuperDetail := False;        
      SetupSRL;                          
      Setup;
      LoginPlayer;
    end;
    procedure SetDTM;
    begin
    dhidebodyDTM := DTMFromString('mfgEAAHicrcxbCoAwDETRtB8KPqFF8bFLQVy+3uIIgp82cAidJglm1mLFiAWTDIhoUKKAs7tS98pqdJp7ZtI76C/o3qwelfWotONft499U/LPaXnKZfKtC1JXBHA=');
    dhideDTM := DTMFromString('maQEAAHicrcyxCkBwEMfx8x9l8QKegpLFQAkpXp4UAwYGBp7At9xm5Fef+91wnSsiiRGJzdMNSmSoUWnnSPUuhI9A9wgLf1o1okeHGTtWnLi0D2yYMOi97RRM84kn32P94JUbjewUZw==');
    needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
    dhideDTM2 := DTMFromString('mkwEAAHicrc5JCoAwFIPh5zxQp4qI6IG8/4X0L0R04U4D36K0CR3NrENid2KkyFHBYdC7ERNmLFixPWTaCP1S3Ra9Nrw2Ll53DWoU6kbh7Hb95rvD/kv0o5ecvKcDng==');
    end;
    procedure FreeingDTMs;
    begin
    FreeDTM(dhideDTM);
    FreeDTM(needleDTM);
    freeDTM(dhidebodyDTM);
    freeDTM(dhideDTM2);
    end;
    procedure WithdrawDhide;
    var
    x,y:integer;
    begin
    SetAngle(SRL_ANGLE_HIGH);
    OpenBankChestEdge(SRL_BANK_SW);
    repeat
      wait(500);
    until(PinScreen or BankScreen);
    if PinScreen then
      begin
        InPin(Players[CurrentPlayer].Pin);
        wait(RandomRange(900,1100));
      end;
    if BankScreen then
      begin
        wait(RandomRange(400,600));
        MouseItem(RandomRange(1,9),mouse_Right);
        wait(RandomRange(400,600));
        ChooseOption('27');
        if FindDTM(dhideDTM2,x,y,MSX1,MSY1,MSX2,MSY2) then
            begin
              Mouse(RandomRange(440,460), RandomRange(230,250),0,0,False);
              wait(RandomRange(800,1000));
              ChooseOption('27');
              wait(RandomRange(800,1000));
              CloseBank;
            end;
      end;
    end;
    procedure CraftingBodies;
    var
    x,y:integer;
    begin
        if FindDTM(dhideDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
          begin
            wait(RandomRange(300,700));
            Mouse(RandomRange(570,585), RandomRange(220,240), 0,0,True);
          end;
    wait(RandomRange(1300,1500));
    if FindDTM(needleDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(RandomRange(240,265),RandomRange(410,425), 0,0,True);
        wait(RandomRange(800,2200));
      end;
    if FindDTM(dhidebodyDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
      begin
        Mouse(RandomRange(120,200),RandomRange(400,460),0,0,True);
        TimeToWait := RandomRange(14500,15000);
      end;
    case Random(60) of
    1: SetAngle(SRL_ANGLE_LOW);
    2: SetAngle(SRL_ANGLE_HIGH);
    3: begin
      HoverSkill('Random', False);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
        end;
    4: RandomMovement;
    5: BoredHuman;
    6: ExamineInv;
    7:begin
      HoverSkill(Skill_Crafting, False);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
      end;
    8:begin
      GameTab(TAB_QUEST);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
      end;
    9: begin
      HoverSkill('Random', False);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
        end;
    10:begin
      HoverSkill('Random', False);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
      end;
    11:begin
      HoverSkill('Random', False);
      wait(RandomRange(100,1000));
      GameTab(TAB_INV);
      end;
    end;
    wait(TimeToWait);
    end;

    begin
      SetupLogin;
      SetupSRL;
      Setup;
      LoginPlayer;
      SetDTM;
      ActivateClient;
      ClearDebug;
      repeat
        WithdrawDhide;
        CraftingBodies;
      until(false);
      FreeingDTMs;
    end.

    I haven't used it since before BXP weekend so it may not work. Needs to run at Soul wars bank. You need to have typed in "27" in the "choose-x" option and that you have the thread in the last slot
    Last edited by Hazzah; 03-23-2012 at 12:01 AM.

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
  •