Herb cleaner (Doesn't work, need help.)
Hi this is my first script and I've created it by following tutorials.
Sadly it doesn't seem to do what i want it to, and I'm not sure why.
Code:
program DeclarePlayers;
{$DEFINE SMART}
{$i srl/srl.simba}
{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$ENDIF}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure FindAndClean();
var
DTM, x, y : Integer;
begin
DTM := DTMFromString('mlwAAAHicY2dgYAgB4iAgTgDiaCD2B2IXIPYBYjUglgJiBSDWgWJVIJYFYmsDKQYuLx4gi4nBy0aRgS9RgIEngg8qhhsw4sFQAAB+FwYo'); // Grimy guam
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(20, 100));
end;
FreeDTM(DTM);
end;
begin
{$IFDEF SMART}
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ENDIF}
SetupSRL();
ClearDebug();
DeclarePlayers();
LoginPlayer();
end.
It loads SMART and logs in fine. But it doesn't do anything after that even though i (think i) told look for the grimy herbs and left click them.
Can anyone see where i went wrong?