SCAR Code:
program PieStringer;
{.include SRL/SRL.Scar}
//Instructions
//Have bs in first bank spot bows in second.
//Find a world with not lot of people.
////////////////////////////////////////////
var
xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
: Integer;
const
RunAwayDir = 'S';
BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
Player0 = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
{///////////////////Set up your player//////////////////////}
Players[0].Name := '';// your user name
Players[0].Pass := '';//your password
Players[0].Nick := '';// your nick name
Players[0].Active := True;
end;
////////////////////////////dont touch please/////////////////////////////
Procedure Loadingbitmap;
begin
xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');
xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
'1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');
allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
'400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');
allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
'9');
end;
Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;
Procedure Randoms;
begin
FindTalk;
wait(10+Random(15));
FindNormalRandoms;
if(FindFight)then
RunAway;
end;
Procedure Bank;
var
x, y, fs, fs2 : Integer;
begin
repeat
randoms;
Flag;
if (FindObj(x, y, 'booth', 607324, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 7243412, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 6324369, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250+random(20));
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100+random(20));
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;
Procedure TakeBowsAndStrings;
begin
FixBank;
Wait(2000+random(250));
Mouse(92,75,3,3,false);
Wait(1000+random(250));
ChooseOption(x,y,'x');
Wait(3000+random(250));
SendKeys('13'+chr(13));
Wait(2000+random(250));
Mouse(142,75,3,3,false);
Wait(1000+random(250));
ChooseOption(x,y,'x');
Wait(1000+random(250));
SendKeys('14'+chr(13));
Mouse(92,75,3,3,true);
Wait(1000+random(250));
Mouse(486,40,2,2,true);
end;
Procedure SetInvInPos;
begin
Wait(3000+random(250));
Mouse(647,187,3,3,true);
end;
Procedure MakeFullBows;
begin
MakeFullBows2 := 0;
Mouse(709,444,3,3,true);
Wait(2000+random(250));
Mouse(666,441,3,3,true);
Wait(1000+random(250));
Mouse(709,444,3,3,true);
Wait(2000+random(250));
Mouse(666,441,3,3,true);
MakeFullBows2 := MakeFullBows2 + 1;
end;
Procedure DepositItAll;
begin
Bank;
Mouse(581,224,3,3,false);
Wait(2000+random(250));
ChooseOption(x,y,'all');
end;
Procedure LetsDebug;
begin
WriteLn(' Running Time: ' + (TimeRunning) + '')
end;
begin
setupSRL;
Loadingbitmap;
declareplayers;
activateclient;
loginplayer;
repeat
Bank;
takebowsandstrings;
setinvinpos;
wait(500);
Repeat
makefullbows;
Until(MakeFullBows2=9);
wait(1500+random(20));
bank;
wait(1000+random(20)) ;
deposititall;
wait(1000+random(20));
until (bowstringed >= bowstodo);
if (bowstringed >= bowstodo) then
begin
Logout;
terminateScript;
end;
end.