program LeetzMoneyMakingTradeAccepting;
{$DEFINE SMART}
{$i SRL/srl.simba}
const
//////////////////////////////////////////IMPORTANT!!IMPORTANT!!IMPORTANT!!IMORTANT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//Welcome Leetsxc, Please review the STEPS below and complete which are required before starting the script.\\
// \\ // \\
//////////////////////////////Start of $etup////////////////////////////////////
SERVER = 15; // Enter "0" to pick a random server. STEP 1 //
MEMBERS = False; //False if F2P True for P2P STEP 2 //
NumbOfPlayers = 1; //Dont touch Unless you wanna use multi player setup //
StartPlayer = 0; //Dont touch //
CheckEmails = True; /////BREAKING SETUP\\\\\ //
Registeraccs = False;
UseBreaks = True; //Do you want to take breaks? STEP 3 \\
SwitchWorld = True; //Do you want to switch worlds after the break? STEP 4 \\
BreakIn = 290; //How many minutes until you take a break? STEP 5 \\
BreakInRandom = 10; //How many minutes should the "BreakIn" time be varied by? STEP 6 \\
BreakFor = 7; //How many minutes will you break for? STEP 7 \\
BreakForRandom = 7;//How many minutes should the "BreakFor" time be varied by? STEP 8 //
var
Time, StartTime,x,y, AccountCount: integer;
AccountName: string;
User:TstringArray;
ItemAM:Tbox;
procedure DeclarePlayers;
var
i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[i].BoxRewards := ['amp'];
Players[i].LampSkill := 13;
end;
With Players[0] do
begin
Name := ''; //Username. STEP 12
Pass := ''; //Password. STEP 13
Active := True;
end;
{ With Players[1] do //For more players uncomment the {'s at top left and bottem right
begin
Name := ''; //Username.
Pass := ''; //Password.
Active := True;
end; }
end;
////////////////////////////// End of Setup////////////////////////////////////
procedure DTMZ;
begin
end;
procedure FREEDTMZ;
begin
end;
begin
Smart_server := SERVER;
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
SetupSRL;
DeclarePlayers;
LoginPlayer;
mousespeed:=25+random(4);
Wait(2000);
StartTime:=GetSystemTime;
ItemAM.X1:=315;
ItemAM.Y1:=50;
ItemAM.X2:=361;
ItemAM.Y2:=95;
repeat
writeln('Waiting for first trade...');
while Findcolortolerance(x,y,8388736,13, 446,162, 456,5)=false do
begin
Case random(14) of
0:
Typesend('Neeed People to help buy me Arrow Shafts! Paying 15gp ea');
1:
Typesend('Need People to help buy me Arrow Shafts! Paying 15gp ea');
2:
Typesend('Need Peoplez to help buy me Arrow Shafts! Paying 15gp ea');
3:
Typesend('Need Peopless to help buy me Arrow Shafts! Paying 15gp ea');
4:
Typesend('Need People to helpz me getz Arrow Shafts! Paying 15gp ea');
5:
Typesend('Make your self a quick profit by selling em to me for 15gp ea and help me out');
6:
Typesend('Make your self a quick profit by selling shaftz to me for 15gp ea');
7:
Typesend('Make your self a quick profit by selling em to me for 15gp ea..');
8:
Typesend('Make your self a quick profit by selling em to me for 15gp!');
9:
Typesend('Make your self a quick profit by selling emm to me for 15gp ea and help me out');
10:
Typesend('Buy 20k arrow shafts from the g.e for 13gp ea and sell to me for 15!');
11:
Typesend('Buy 20k arrow shaftss from the g.e for 13gp ea and sell to me for 15!');
12:
Typesend('Buyy 20k arrow shafts from the g.e for 13gp ea and sell to me for 15!');
13:
Typesend('Buy 20k arrow shafts fromm the g.e for 13gp ea and sell to me for 15!');
14:
Typesend('Buy 20k arroww shafts from the g.e for 13gp ea and sell to me for 15!');
End;
sleep(600+random(2000));
end;
mouse(18,447, 100, 3, true);
while tradeScreen()=0 do
begin
sleep(50);
end;
writeln('In Trade ! XD');
Marktime(time);
while(GetAmountBox(ItemAM) < 1) do sleep(100);
Mouse(173, 44,43,7, true);
Mouse(173, 44,43,7, true);
sleep(1300+random(300));
Typesend(inttostr(GetAmountBox(ItemAM)*15));
Mouse(235,134,30,20,true);
While tradeScreen()=1 do
begin
sleep(100);
end;
Writeln('Other player accepted.. now confirming and waiting for other player to');
sleep(500);
Mouse(195,300,60,21,true);
While tradescreen()=2 do
begin
sleep(100);
end;
Case random(20) of
1:
Typesend('Thx');
2:
Typesend('Ty');
3:
Typesend('Tyz');
4:
Typesend(':)');
5:
Typesend('=D');
6:
Typesend('Ty ;)');
7:
Typesend('Tyz :)');
8:
Typesend(':) tyy');
9:
Typesend('tyy');
10:
Typesend('Cheers');
11:
Typesend('Cheerz');
12:
Typesend('Thankyou');
13:
Typesend('Thankyou :)');
14:
Typesend('Thankyouu :)');
15:
Typesend(':)!');
16:
Typesend('Ty..');
17:
Typesend('Tyz..');
18:
Typesend(':D');
19:
Typesend('Ty...');
20:
Typesend('Tyz!');
End;
writeln('First Trade Done!!!');
until (false);
end.
