Simba Code:
program HerbCleaner;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
Procedure CleanHerb;
Var
GKWuarm, x, y, c1: integer;
Begin
GKwuarm := DTMFromString('m1gAAAHic42JgYOABYnEgFgNiISDmZIAARiDmAmJ+qDiIzQSlBaGYF4jZoOqZoWw7Q2moSvxYhIE4wEgkRgAA8nsBmQ==');
If not InvFull Then
Exit;
If InvFull Then
Begin
c1 := 0
Repeat
If FindDTM(GKwuarm, x, y, MIX1, MIY1, MIX2, MIY2) Then
Mouse(x, y, 5, 5, True);
Wait(20+Random(35));
c1 := c1+1;
Until (c1=27);
End;
End;
Procedure Bank;
Var
GKwuarm, SWChest, CKwuarm, x, y : integer; //You need to have these in every procedure you use them in :)
Begin
GKwuarm := DTMFromString('m1gAAAHic42JgYOABYnEgFgNiISDmZIAARiDmAmJ+qDiIzQSlBaGYF4jZoOqZoWw7Q2moSvxYhIE4wEgkRgAA8nsBmQ==');
SWChest := DTMFromString('mggAAAHicY2NgYBACYnkgVgFiZgYI4AJiASibH4gVoOoYgTjYzZzh3NEjDGcOH2YoLchn6G5tZbh+7iyDHAN2wIgDQwAAIbALsw==');
CKwuarm := DTMFromString('mwQAAAHic42RgYOAGYh4gFgNicSAWBGIOBghggbJ5oHxmIOYCYiEo5gNiNqg6A2uQSia8mImBMGAkAsMBALkzAVY=');
MakeCompass('S');
If FindDTM(SWChest, x, y, MSX1, MSY1, MSX2, MSY2) Then
Mouse(x, y, 5, 5, True);
Wait(1500+Random(250));
If FindDTM(CKwuarm, x, y, MIX1, MIY1, MIX2, MIY2) Then
Mouse(x, y, 5, 5, False);
ChooseOption('All');
Wait(250+Random(100));
If FindDTM(GKwuarm, x, y, MIX1, MIY1, MIX2, MIY2) Then
Mouse(x, y, 5, 5, False);
ChooseOption('All');
End;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Repeat
CleanHerb;
Bank;
Until (1=2);
end.