Could someone make a script that would make pastry dough?
Take out pots of flour and jugs of water and make it into the dough then repeat after banking?
Could someone make a script that would make pastry dough?
Take out pots of flour and jugs of water and make it into the dough then repeat after banking?
If I have time I'll do it tomorrow
I made it yesterday, it's in my sig.
Just uncomment the BankingII part.
Meh I deleted it for you.
Simba Code:program PieShellMaker;
//{$DEFINE SMART}
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Pin := '';
Players[0].Active := True;
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure BankingI;
var
a, Jug, Flour, X, Y:Integer;
begin
a:=0
repeat
begin;
OpenBank('vwb', False, True)
if(PinScreen) then
InPin(''); //Enter your pin between the ''
if(BankScreen) then
Deposit(1, 28, True);
Withdraw(0, 0, 9);
Withdraw(1, 0, 9);
CloseBank;
Wait(100 + Random(100));
end;
begin;
if GetCurrentTab = (tab_Inv) then
begin
WriteLn('Current tab is the inventory tab, correct!')
end else
begin
FTab(tab_Inv);
WriteLn('Changed tab to the inventory tab')
end;
begin;
Jug := BitmapFromString(4, 4, 'meJzrC/CfFhYyPypyRXxcZGRsSGgE' +
'EAUFheXkFqanZycnp8fGJhYUlAIZiYmp8fHJAM/UEsU=');
Flour := BitmapFromString(4, 4, 'meJzbtm3f/v0nTpy4eOHiLVXrEAVj' +
'jy1b927YsEPHNVnTMVbdLgIoaBpSbuRfqO+dreeRDgB6BBWa');
end;
if (FindBitmapToleranceIn(Jug, X, Y, 553, 204, 738, 467, 10)) and (FindBitmapToleranceIn(Flour, X, Y, 553, 204, 738, 467, 10)) then
begin;
Mouse(X, Y, 5, 5, True);
FindBitmapToleranceIn(Jug, X, Y, 553, 204, 738, 467, 10);
Mouse(X, Y, 5, 5, True);
FreeBitMap(Jug);
FreeBitMap(Flour);
Wait(400 + Random(200));
Mouse(259, 428, 15, 15, True);
Wait(10500 + Random(1000));
inc(a);
end;
end;
until a=14
end;
procedure BankingII;
var
b, Dish, Dough, X, Y:Integer;
begin
b:=0
repeat
begin;
OpenBank('vwb', False, True)
if(PinScreen) then
InPin(''); //Enter your pin between the ''
if(BankScreen) then
Deposit(1, 28, True);
Withdraw(2, 0, 9);
Withdraw(2, 0, 5);
Withdraw(3, 0, 9);
Withdraw(3, 0, 5);
CloseBank;
Wait(100 + Random(100));
end;
begin;
if GetCurrentTab = (tab_Inv) then
begin
WriteLn('Current tab is the inventory tab, correct!')
end else
begin
FTab(tab_Inv);
WriteLn('Changed tab to the inventory tab')
end;
begin;
Dish := BitmapFromString(4, 5, 'meJzT88/UQ0Z+6RDkG1cMZ/vEFAIR' +
'UASIIGwIAgA6UhPB');
Dough := BitmapFromString(6, 6, 'meJwzcfAwcfAwtHZmYmCAICDX2MED' +
'yMirr89vaCxuaYFwa/r76yZOrOrtK+vogIi0zprVNG0aRBDI7V64s' +
'Gv+fLggUKRvyZLeRYvhggDN4Cfg');
end;
if (FindBitmapToleranceIn(Dish, X, Y, 553, 204, 738, 467, 10)) and (FindBitmapToleranceIn(Dough, X, Y, 553, 204, 738, 467, 10)) then
begin;
Mouse(X, Y, 5, 5, True);
FindBitmapToleranceIn(Dish, X, Y, 553, 204, 738, 467, 10);
Mouse(X, Y, 5, 5, True);
FreeBitMap(Dish);
FreeBitMap(Dough);
Wait(400 + Random(400));
Mouse(259, 429, 10, 10, True);
Wait(16500 + Random(2000));
inc(b);
end;
end;
until b=9
end;
begin
//SetupLogin;
//begin
SetUpSRL;
ActivateClient;
repeat
BankingI;
//BankingII;
until(false);
//end;
end.
Last edited by J J; 03-05-2012 at 03:27 PM.
awesome thanks guys =)
There are currently 1 users browsing this thread. (0 members and 1 guests)