SRL Archive - First Scripts

INS Humidify
Beta

Okay guys, I've been here for around a month now, and I decided that I should give back to community. I've read, that Humidify spell still gives good profits. And I didn't find a script for Humidify spell here. Then I decided to make one.

What this script does is refill your empty storage with water. By empty storage I mean Vials, Clay, Jugs, Buckets, Waterskins, Watering Cans, Bows, Fishbowls.
My script doesn't support Fishbowl method, but it does any of the above.
It will stop when run out of Astral Runes.

Requirements
Dream Mentor quest
68 Magic
85 Combat Level
Astral Runes (1 per inventory)
Steam Battlestaff

Set-up
Place your character near the SW chest
Have Steam Battlestaff equipped
Have your unfilled item in first bank slot
Depending on how many loads you want to do, equip yourself with the same number of Astrals (1 inventory - 1 Astral rune)

And that's pretty much it.

It doesn't have any antibans atm.
The progress report is not working atm, gotta figure that one out.

Anyway, here you go :)

program INSHumidify;
{$DEFINE SMART}
{$i SRL/srl.simba}

var
  x, y, Spell, ItemsHumidified, ItemsH, HumidifyDTM, XPStart: integer;

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // if you want to use the details which you enter below.

  Players[0].Name := ''; // your player's name
  Players[0].Pass := ''; // your player's password
  Players[0].Pin := ''; // your player's bank pin
  Players[0].Active := True; // set to false if you don't want to use player 0
end;

Procedure Start;
begin
  ClearDebug;
  Smart_Server := 10;
  Smart_Members := True
  Smart_Signed := True
  Smart_SuperDetail := False
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;

Procedure LoadDTMs;
begin
  HumidifyDTM := DTMFromString('mggAAAHicY2NgYPjIxMDwFoifA/F3IP4LpRcwMjDMBOLFQLwMiOcD8Rwgls1bDdTFiAVjB9hUIlQDAFSmCsc=');
end;

Procedure FreeDaDTMs;
begin
  FreeDTM(HumidifyDTM);
end;

Procedure Banking;
begin
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
WriteLn('Banking');
  OpenBankChestEdge(SRL_BANK_SW);
  repeat
    wait(randomrange(49,51));
   until(BankScreen or Pinscreen);
  If PinScreen then
            InPin(Players[CurrentPlayer].Pin);
  if BankScreen then
    if InvCount>1 then
      begin
        Deposit(3, 27, true);
  end;
end;

Procedure OpenXPBar
begin
ToggleXPBar(True);
  XPStart := GetXPBarTotal;
end;

Procedure TakeProducts;
begin
  Withdraw(0, 0, 27);
  Wait(randomrange(400,700));
  CloseBank;
end;

Procedure Humidify;
var
  i: integer;
begin
  Spell := HumidifyDTM;
  Writeln('Starting to Humidify');
 Gametab(Tab_Magic);
 Wait(randomrange(250,350));
 If not FindDTM(Spell, x, y, MIX1, MIY1, MIX2, MIY2) then
 begin
 Writeln('No runes in inventory. Cannot cast Humidify');
  Logout;
  TerminateScript;
  end else
  Wait(randomrange(250,350));
  Writeln('Humidifying');
  for i := 3 to 3 do
  begin
  FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2);
  Mouse(x,y, 0, 0, true);
    wait(randomrange(400,600));
  end;

end;

Procedure ProgressReport;
var
  XpH, InvyCount, InvysH:integer;
begin
  XP := (GetXPBarTotal - XPStart)
  XpH := round((XP) / (GetTimeRunning / 360000.0));
  InvyCount := round((XP/65));
  InvysH := round((InvyCount) / (GetTimeRunning / 360000.0));
  ClearDebug;
  WriteLn('+-+-+-+-+-+-+ INS Humidify +-+-+-+-+-+-+');
  WriteLn('Time Running:  ' +TimeRunning);
  WriteLn('XP Gained:  ' +IntToStr(XP));
  WriteLn('XP Per Hour:  ' +IntToStr(XpH));
  WriteLn('Inventories humidified:  ' +IntToStr(InvyCount));
  WriteLn('Inventories/h:  ' +IntToStr(InvysH));
  WriteLn('Items Humidified:  ' +IntToStr(InvyCount*27));
  WriteLn('Items Per Hour:  ' +IntToStr(InvysH*27));
  WriteLn('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+');
end;

Procedure MainLoop;
begin
  Repeat
    Banking;
    TakeProducts;
    Humidify;
    ProgressReport;
  until(AllPlayersInactive);
  end;
  begin
  Start
  LoadDTMs;
  AddOnTerminate('FreeDaDTMs');
  MainLoop;
end.

The script is far from flawless. It is just the early beta, but it's possible to use this. And it's good moneymaker too.