Simba Code:
program DTMHerby;
{$i SRL\SRL.simba}
Var
Chest, PotsToMake, PotsMade, Box, Unf, berry, X, Y, i:Integer;
Procedure LoadDTM;
begin
ClearDebug;
Berry := DTMFromString('mrAAAAHic42BgYOACYnYg5gRiQSDmY4AAZiDmAGJuKJ8FivmBmAcqJwzE29evB5JMOLERA37ASADDAAA7VgLz');
Unf := DTMFromString('mrAAAAHic42BgYOAEYkEGCGACYhYg5gViPiDmAGIeIBYBYmEg5mZAAJA+cSCePaGdwUBBAaobE0sy4AeMBDAMAABBRQL5');
//Chest := DTMFromString('m6wAAAHic42ZgYOADYi4gVgBiLSA2BGIjINYGYmYGCGCEskHYEohtoGpUgZgdSY0QEKtB5SpSfBja8kMYdq1ZxdBfHs2wf8M6hg93bzMkB9kxrFswnyEiMJDhyNYtDAc2bgDrN2IgDjCSgJEAAKXeFVA=');
end;
Procedure FindUnf;
Begin
if FindDTM(Unf, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
Mouse(x,y,5,5,true);
If Isuptext('Cad') Then
begin
wait(175);
//mouse(x, y, 0, 0, False);
end else
FreeDTM(Unf);
end;
end;
Procedure FindBerries;
Begin
wait(175)
if FindDTM(Berry, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
Mouse(x,y,5,5,true);
If Isuptext('Whi') Then
begin
wait(175);
//mouse(x, y, 0, 0, False);
end else
FreeDTM(Berry);
end;
end;
Procedure Make;
begin
MMouse(262,417,2,2)
ClickMouse2(mouse_left);
WriteLn('Make all the potions!')
end;
Procedure Pots;
begin
mouse(266,136,0,0,true);
wait(500);
mouse(395,304,0,0,true);
wait(100);
mouse(50,110,0,0,false);
mouse(57,188,0,0,true);
mouse(97,107,0,0,false);
wait(100);
wait(100);
mouse(81,191,0,0,true);
wait(100);
mouse(486,36,0,0,true);
end;
Procedure proggy;
Begin
ClearDebug;
Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
WriteLn('Yay you used my script, want a cookie?')
Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
end;
Procedure DTMFREE;
begin
freeDTM(berry);
freeDTM(unf);
end;
Begin
SetupSRL();
LoadDTM;
SRL_EnableNavBar;
Addonterminate('DTMFREE');
addonterminate('Proggy');
repeat
SetScriptProp(SP_WriteTimeStamp, [True]);
MouseSpeed := 10;
//Pots;
FindUnf;
FindBerries;
Make;
IncEx(PotsMade, 14);
until (PotsMade >= 140)
DTMFREE;
terminatescript();
end.