program GoingBannanas;
// ################################################## ######
// ## Welcome To Going BANNANAS V1.0a ##
// ## ##
// ## Picks Bannanas In Karamja Bannana Plantation ##
// ## Start in Luthos's Hut in Karamja. Nothing in ##
// ## Inventory ... ##
// ################################################## ######
//#############################################
//{$DEFINE SMART} //Uncomment for SMART ####
{.include SRL/SRL.scar} //##
{.i SRL/SRL/core/SPS/SPS.simba} //##
//#############################################
// ####################
// ## Configuration: ##
// ###### ###################################
const //################################################## #######
// ### Player Configuration ################################
Pname0 = ''; // Player 0 UserName
Ppass0 = ''; // Player 0 PassWord
nick0 = 'kind'; // 2-4 letters of Username (that are not capital letters or numbers).
Pname1 = ''; // Player 1 UserName
Ppass1 = ''; // Player 1 PassWord
nick1 = ''; // 2-4 letters of Username (that are not capital letters or numbers).
// ################################################## #######
// ### SRL Stats Configuration ############################
sUser = ''; // SRL Stats UserName
sPass = ''; // SRL Stats PassWord
// ################################################## #######
// ##############################
// Variables
var
FillPath, BoxBoss: TPointArray; //
x, y, BF, BP,GPearned: integer;
sLoc: string;
procedure DeclarePlayers;
begin
Disguise('Windows Live Messenger');
HowManyPlayers:= 1;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := Pname0; // Username.
Players[0].Pass := Ppass0; // Password.
Players[0].Nick := nick0;
Players[0].Active := True;
end;
// End of Config
Procedure WalkJob;
Begin;
if (sLoc = 'Luthas') then
Begin;
SPS_WalkPath(FillPath);
End;
End;
Procedure WalkJob2;
Begin;
if (sLoc = 'Btrees') then
Begin;
InvertTPA(FillPath);
SPS_WalkPath(FillPath);
InvertTPA(FillPath);
End;
End;
Procedure DoJob;
Begin;
repeat
sLoc:='Btrees';
FindObjEx(x, y, ['ick', 'nanas'], [2352631], 5, 9, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y,1,1,true);
until (InvFull);
Wait(500+Random(500))
End;
Procedure TalkLuthas;
Begin;
ClickToContinue;
wait(600+Random(500));
ClickToContinue;
wait(600+Random(500));
if (FindText(x, y, 'Could you offer', NPCCHARS, MCX1, MCY1, MCX2, MCY2)) then
Begin;
Writeln('NPC Chat Found')
Mouse(x,y,0,0,True);
wait(600+Random(500));
ClickToContinue;
wait(300+Random(500));
ClickToContinue;
wait(600+Random(500));
ClickToContinue;
wait(600+Random(500));
ClickToContinue;
End else;
Begin;
Writeln('Couldnt Find NPC chat');
End;
End;
Procedure StartJobs;
Begin;
FindObjEx(x, y, ['alk', 'uthas'], [600382], 5, 9, MSX1, MSY1, MSX2, MSY2);
if IsUpText('uthas') then //Check it is Luthas
Begin;
sLoc:='Luthas'
Writeln('Luthas Found')
Mouse(x,y,1,1,true);
Wait(1000+Random(2000))
TalkLuthas;
End else
Begin;
Writeln('Luthas Not Found')
StartJobs;
End;
End;
// Program Begins
//MainLoop
begin
SPS_Areas := ['8_6'];
sLoc:='Luthas' ;
FillPath:=[Point(3375,2504),Point(3338,2497),Point(3299,2496) ,Point(3295,2473)];
BoxBoss:=[Point(3377,2504),Point(3383,2487)];
Smart_Signed := True;
SetupSRL;
DeclarePlayers;
ActivateClient;
LoginPlayer;
SPS_WalkPath(BoxBoss);
Wait(2000+Random(300));
StartJobs;
WalkJob;
Dojob;
WalkJob;
WalkJob2;
end.