Results 1 to 7 of 7

Thread: SW-Humidify - bank location and pin support

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

    Default SW-Humidify - bank location and pin support

    Hey guys, i need help with better sw bank location and need pin support.
    May me any help. thx elf
    Simba Code:
    program SoulWarsHumidify;//
      {$DEFINE SMART}
      //{$DEFINE CRASHSMART}
      {$DEFINE SRL5}
      {$i srl/srl.simba}
      //{$i SRL\SRL\Misc\stats.simba}

    const
      SRLStats_Username = '';// SRL Stats ID
      SRLStats_Password = '';// SRL Stats Pass
      HowManyToFill = 10000;// to the number of items you want filled.


    var
      CPH, Loads, FilledItem, Casts, Bank : Integer;
      EXP, aFound : Extended;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Name        :='';        // Username
        Pass        :='';        // Password
        Nick        :='';        // 3-4 lower case letters of your character's name
        Pin         :='';        // NO PIN SUPPORT.
        Member      := true;
        Active      := true;
      end;
    end;


      Procedure CheckStats;//SRL Stats

        begin
          if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
            begin
          case MessageBox('No Stats account entered, would you like to set one up?','SRL Stats',mbYesNoCancel) of
            mrYes:
              begin
                OpenWebPage('http://stats.villavu.com/register');
                TerminateScript;
              end;
            mrNo:
              begin
                SetupSRLStats(399,'Anonymous','anon1337');
                Exit;
              end;
            mrCancel: TerminateScript;
          end;
        end else
          SetupSRLStats(399,SRLStats_Username,SRLStats_Password);
      end;


    procedure BankChest(PX:Integer; Click: Boolean);//credits to Demise for her guide :)
    var
      x, y : Integer;

    begin
    Bank := DTMFromString('m1gAAAHic42IAAkYGhi9AihNI/wLSHED6P5D+AWX/BikB0peA9DEgPgrF56D0RSC+BsXXgTgp3JuhLDOaIS3aj6EoLYKhJD2SIS8phKEgJYzBx9mKIdzPmSHUx5GBFagWhvlxYFaI84jCCAAASX8YHQ==');


      if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
      begin
        MMouse(x, y, 0, 0);
        GetMousePos(x, y);

        if (WaitUpText('se Bank', 200)) then
        begin
          Writeln('Opening bank.');
          ClickMouse2(True);
          Wait(500);

          if (BankScreen) then
            begin
              Writeln('Bank Opened.');
              FreeDTM(Bank);
              Exit;
            end;
        end;
      end;
    end;


    procedure SetUp;
    begin
      MakeCompass('S');
      SetAngle(SRL_ANGLE_HIGH);
      Writeln('Thanks for using! Have a nice day :) ');
      Wait(500);
    end;


    procedure HandleItem;
    begin
      BankChest(Bank, True);

      if (BankScreen) then
        begin
          Writeln('Depositing.');
          Deposit(4, 28, true);
          IncEx(Loads, 1);
          Wait(200);
          Writeln('Withdrawing.');
          Withdraw(0, 0, 28);
          CloseBank;
          Wait(300+Random(300));
          Exit;
        end else

      if not (BankScreen) then
        begin
          repeat
            BankChest(Bank, True);
          until(BankScreen);
        HandleItem;
        end;
    end;


    procedure ClickSpell;
    var
      x, y : Integer;
      Humidify : Integer;

    begin
      GameTab(Tab_Magic);

      Humidify := DTMFromString('mwQAAAHic42RgYOACYn4gFgZiMSAWAGJmBgjggmIOIOaDYhCfBYjZgJgbiHmhamXzVgNJRgKYMCBkAoopAAspAgo=');

      If FindDTM(Humidify, X, Y, MIX1, MIY1, MIX2, MIY2) Then
        begin
          Writeln('Casting Humidify.');
          Mouse (x, y, 0, 0, true);
          FreeDTM(Humidify);
          SleepAndMoveMouse(3500);
          IncEx(FilledItem, 27);//Modify if you aren't using a steam staff.....
          IncEx(Casts, 1);
        end;
    end;


    procedure ProgressReport;//Thanks to King Kong and Camaro' for their input on this.
    begin
      EXP := 65;
      CPH := Round((Casts * 3600) / (GetTimeRunning / 1000));
      ClearDebug;
      Writeln('=======================================================');
      Writeln('                    Soul Wars Humidifier V2');
      Writeln('            Time running: '+TimeRunning+'');
      Writeln('            Items filled: '+ToStr(FilledItem)+'');
      Writeln('            Casts done: '+ToStr(Casts)+'');
      Writeln('            Casts per hour: '+ToStr(CPH)+'');
      Writeln('            Amount left: '+ToStr(HowManyToFill - FilledItem)+'');
      Writeln('            Exp gained: ' + FloatToStr(Loads * EXP) + '');
      Writeln('=======================================================');
      stats_IncVariable('Magic EXP (Gained)', 65);
      stats_Commit;
    end;


    begin
      Smart_Server := 9;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      CheckStats;
      LogInPlayer;
      SetUp;
      repeat
        if not LoggedIn then TerminateScript;
          //BankChest(Bank, True);
          HandleItem;
          ClickSpell;
          ProgressReport;
      until(FilledItem=HowManyToFill);
      if (FilledItem=HowManyToFill) then
        LogOut;
        TerminateScript;
    end.

  2. #2
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Looks like a fairly solid script...
    You may want to consider adding a few things such as:

    In either the bank chest or the handle item you may want to consider adding a failsafe that logs you out after a certain number of failures (quite easy to do, even just add an integer that counts up each time it loops and logs you out when it hits 20 or 50 or 100...) Example from my powerminer:
    Simba Code:
    repeat
                Wait(200+random(100));
                Tries := Tries + 1;
                if(Tries = 150)then
                begin
                  Writeln('Failed to find rocks 150 times');
                  Logout;
                  TerminateScript;

    Anti randoms, even just a
    Simba Code:
    FindNormalRandoms
    inside the main loop would work (I know that many of the randoms don't work, but they will be fixed soon)

    Anti-Ban, just a simple antiban procedure such as:

    Simba Code:
    Procedure Antiban;                   //Partial credit to YoHoJo
    begin
      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      Case Random(AntibanFrequencey) Of
        0:
          begin
            StatsGuise('Antiban');
            GameTab(tab_Stats) HoverSkill('Mining', False);
            Wait(400 + Random(450));
            GameTab(tab_Inv);
          end;
        1:
          begin
            StatsGuise('Antiban');
            GameTab(tab_Inv);
            ExamineInv;
          end;
        2:
          begin
            StatsGuise('Antiban');
            SleepAndMoveMouse(3500 + Random(600));
          end;
        3:
          begin
            StatsGuise('Antiban');
            GameTab(Tab_Stats);
            Wait(3000 + Random(1500));
            GameTab(tab_Inv);
          end;
        4:
          begin
            StatsGuise('Antiban');
            HoverSkill('random', False);
            Wait(1000 + Random(500));
            GameTab(tab_Inv);
          end;
        5:
          begin
            StatsGuise('Antiban');
            PickUpMouse;
          end;
        6:
          begin
            StatsGuise('Antiban');
            BoredHuman;
          end;
        end;
    end;


    Hope this helped
    ~Caotom
    Last edited by Caotom; 01-26-2012 at 09:46 AM.

  3. #3
    Join Date
    Sep 2007
    Location
    Australia, NSW
    Posts
    934
    Mentioned
    6 Post(s)
    Quoted
    145 Post(s)

    Default

    First off, you shouldn't use DTMs for things that are on the Runescape mainscreen such as the bank chest! This is because you are always changing angles and the colours will always be changing etc. Instead, you could use SRL's bankchest function: OpenBankChest(SRL_BANK_SW); (see here)

    As for Pin handling, that's fairly easy. You just need to insert (once again from SRL):
    Simba Code:
    if PinScreen then
        InPin(Players[CurrentPlayer].Pin);
    Putting it all together you get: (just your HandleItem; procedure)
    Simba Code:
    procedure HandleItem;
    begin
      OpenBankChest(SRL_BANK_SW);
     
      if PinScreen then
        InPin(Players[CurrentPlayer].Pin);

      if (BankScreen) then
        begin
          Writeln('Depositing.');
          Deposit(4, 28, true);
          IncEx(Loads, 1);
          Wait(200);
          Writeln('Withdrawing.');
          Withdraw(0, 0, 28);
          CloseBank;
          Wait(300+Random(300));
          Exit;
        end else

      if not (BankScreen) then
        begin
          repeat
            BankChest(Bank, True);
          until(BankScreen);
        HandleItem;
        end;
    end;
    You should also add in failsafes where I haven't but I hope this clears a few things up and teaches you a few thing

    INACTIVE
    How-to: Make S.M.A.R.T. less laggy

    Sell me your Maple Shieldbows (u)! Up to 95gp ea!

    My Scripts:
    Ivy Chopper Ultra [RS3] | Fantastic Fletcher [RS3]
    99 x78 | 99 x10 | 99 x2 | 99 x12


    Use the REPORT tags when posting progress reports to make life easier (:
    [REPORT]Put progress report in here![/REPORT]

    Super Savvy Smither V1.06Cool Classy Cooker V1.02 [EoC]

  4. #4
    Join Date
    Dec 2011
    Posts
    273
    Mentioned
    0 Post(s)
    Quoted
    39 Post(s)

    Default

    Wow nice credits.. Me and Hero developed this.. well he developed barebones and I had him update his post with my updated script.. NO CREDIt = FAG
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

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

    Default

    Quote Originally Posted by VillaVuFTW View Post
    Wow nice credits.. Me and Hero developed this.. well he developed barebones and I had him update his post with my updated script.. NO CREDIt = FAG
    heyo,i no say it me script i say i need help with complete this script ...btw

  6. #6
    Join Date
    Dec 2011
    Location
    P2P :)
    Posts
    561
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Is this the latest crappiest version?

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

    Default

    I love how he can't speak any english, but he can create such a script?.. Yeh Hero we got a leecher trying to take credit >.>
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

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
  •