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
Simba Code:
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.