Simba Code:
program DTMHerby;
{$i SRL\SRL.simba}
Var
Chest, PotsToMake, PotsMade, Box, Unf, berry, X, Y, i:Integer;
//begin
//If (InputQuery('How many potions would you like to make', 'Enter Amount:' , PotsToMake))) Then
//end;
Procedure LoadDTM;
begin
ClearDebug;
Berry := DTMFromString('mrAAAAHic42BgYOACYnYg5gRiQSDmY4AAZiDmAGJuKJ8FivmBmAcqJwzE29evB5JMOLERA37ASADDAAA7VgLz');
Unf := DTMFromString('mwQAAAHic42RgYOAEYhYgZgdibiDmBWIhIOaCioMAPxALADETlM8DxBJALAPE0kAsCsTzJncyLJrWA1WFHfMzEAaMRGA4AAAgDgSL');
Chest := DTMFromString('m6wAAAHic42ZgYOADYi4gVgBiLSA2BGIjINYGYmYGCGCEskHYEohtoGpUgZgdSY0QEKtB5SpSfBja8kMYdq1ZxdBfHs2wf8M6hg93bzMkB9kxrFswnyEiMJDhyNYtDAc2bgDrN2IgDjCSgJEAAKXeFVA=');
end;
Procedure FindUnf;
Begin
if FindDTM(Unf, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
MMouse(x,y,5,5);
If Isuptext('cad') Then
begin
wait(175);
mouse(x, y, 0, 0, True);
WriteLn('Clicking dat unfinished potion');
end else
FreeDTM(Unf);
end;
end;
Procedure FindBerries;
Begin
wait(175)
if FindDTM(Berry, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
MMouse(x,y,5,5);
If Isuptext('Whi') Then
begin
wait(175)
mouse(x,y,0,0,true);
WriteLn('Click those berries')
end else
FreeDTM(Berry);
end;
end;
Procedure Make;
begin
MMouse(262,417,2,2)
ClickMouse2(mouse_left);
WriteLn('Make all the potions!')
end;
Procedure GetItem;
begin
if FindDTM(Chest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
MMouse(x,y,5,5);
if Isuptext('bank') Then
mouse(x,y,0,0,true);
withdraw(0, 0, 13);
withdraw(0, 1, 13);
end;
Procedure DepositPots;
begin
if FindDTM(Chest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
begin
MMouse(x,y,5,5);
if Isuptext('bank') Then
mouse(x,y,0,0,true);
deposit(1, 13, true);
end;
Procedure proggy;
Begin
ClearDebug;
Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
WriteLn('Yay you used my script, want a cookie?')
Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
end;
procedure FREEDTMs;
begin
freeDTM(Unf);
freeDTM(Berry);
freeDTM(Chest);
end;
Begin
LoadDTM;
SRL_EnableNavBar;
repeat
SetScriptProp(SP_WriteTimeStamp, [True]);
MouseSpeed := 10;
GetItem;
FindUnf;
FindBerries;
Make;
//IncEx(PotsMade, 14);
addonterminate('FREEDTMs');
addonterminate('Proggy');
until (false) then//((StrToInt(PotsToMake)) <= PotsMade;);
FREEDTMs;
proggy;
terminatescript();
end.