Simba Code:
program leetzmoneymaking;
{$DefIne SMArt}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
//////////////////////////////////////////ImportAnt!!ImportAnt!!ImportAnt!!ImortAnt\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//welcome to , by 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 = true; //false if f2p true for p2p step 2 //
numbofplayers = 1; //dont touch unless you wanna use multi player setup //
startplayer = 0; //dont touch //
checkemails = false; /////breAkInG setup\\\\\ //
registeraccs = false;
usebreaks = true; //do you want to take breaks? step 3 \\
switchworld = false; //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
Bait,Bait2,Bait3,LimitButton,PlayButton, LoginButton, customizer, tickbox, vialswithwater, starttime,x,y, Accountcount: integer;
Accountname: string;
user:tstringArray;
pts:tpointArray;
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 := Accountname; //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////////////////////////////////////
function findtpa(Huemodifier, satmodifier:extended; color, tol, xx1, yy1, xx2, yy2:Integer; text, option:tstringArray): boolean;
var
xx,yy,cts, I: Integer;
tpA: tpointArray;
AtpA: Array of tpointArray;
begin
cts := Getcolortolerancespeed;
colortolerancespeed(2);
setcolorspeed2modifiers(Huemodifier, satmodifier);
findcolorsspiraltolerance(x, y, tpA, color, xx1, yy1, xx2, yy2, tol);
colortolerancespeed(cts);
AtpA := tpAtoAtpAex(tpA, 15, 15);
for I := 0 to High(AtpA) do
begin
middletpAex(AtpA[i], x, y);
mmouse(x, y, 2, 2);
Getmousepos(x, y);
If(waituptextmulti(text,1000)) then
begin
mouse(x,y,0,0,false);
if(waitoptionmulti(option, 1000))then
begin
result := true;
break;
end;
end;
end;
end;
Function ShopScreenz : Boolean;
Begin
Result := Findcolortolerance(x, y, 5353701, 148, 50, 213, 62, 4);
End;
procedure mainmethod;
var
ItemAM,ItemAM2:Tbox;
time,Count:integer;
begin
if(FindDTM(Bait,x,y,553, 206,736, 312) or FindDTM(Bait2,x,y,553, 206,736, 312) or FindDTM(Bait3,x,y,553, 206,736, 312)) then
begin
mouse(x,y,0,0,false);
while waitoption('Drop', 300)=false do
mouse(x,y,0,0,false);
end;
if(findcolortolerance(x,y,10658730,556, 207,735, 300,6))then
begin
mouse(x,y,0,0,false);
while waitoption('Drop', 300)=false do
mouse(x,y,0,0,false);
end;
while findtpa(0.01, 0.95, 990933, 12, msx1, msy1, msx2, msy2, ['EEL1TE'], ['with'])=false do
begin
sleep(100);
mouse(170,376,100,50,true);
end;
writeln('waiting for response.. from other character');
while tradescreen()=0 do
begin
sleep(100);
end;
sleep(500);
writeln('In trade ! xd');
while tradescreen()=1 do
begin
if(waitfindcolor(x,y, 1808317, 325, 74,356, 90, 4, 15000))then
begin
writeln('Gold has appeared Accepting trade..');
mouse(235,134,54,22,true);
writeln('Accepted waiting for other player to accept');
Marktime(time);
while ((tradescreen()=1) and (timefrommark(time) < 10000)) do
sleep(100);
if(tradescreen()=2)then
break;
sleep(100);
end;
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;
writeln('trade done!!!');
repeat
repeat
if(findtpa(0.31, 0.07, 7172466, 9, msx1, msy1, msx2, msy2, ['Hank'], ['rade']))then
break;
if(findtpa(0.42, 0.06, 5330261, 8, msx1, msy1, msx2, msy2, ['Hank'], ['rade']))then
break;
until(false);
Marktime(Time);
while ((shopscreenz()=false) and (TimeFromMark(Time) < 15000)) do
sleep(100);
if(TimeFromMark(Time) < 15000)then
break;
until(false);
ItemAM.X1:=279;
ItemAM.Y1:=130;
ItemAM.X2:=327;
ItemAM.Y2:=183;
writeln('In Shop now.. Buying feathers!!!');
Marktime(time);
while GetAmountBox(ItemAM) < 999 do
begin
mouse(486, 44, 3, 4,true);
sleep(200);
end;
mouse(279, 130, 48, 53, false);
while WaitOption('All', 200+random(100)) = false do
begin
mouse(279, 130, 48, 53, false); //feathers
end;
{while GetAmountBox(ItemAM) > 10 do
begin
mouse(279, 130, 48, 53, false); //feathers
waitoption('All', 2000);
sleep(100+random(200));
end; }
//Perfect Fail Safing with simple functions
mouse(228, 130, 48, 53, false);
while WaitOption('All', 200+random(100)) = false do
begin
mouse(228, 130, 48, 53, false); //bait
end;
mouse(496, 18,3,3,true); //Close Shop Screen
while shopscreenz()=true do //
begin
sleep(100);
end;
writeln('time to trade player :)');
while findtpa(0.01, 0.95, 990933, 12, msx1, msy1, msx2, msy2, ['EEL1TE'], ['rade'])=false do
begin
sleep(100);
end; 10
writeln('waiting for response.. from other character');
while tradescreen()=0 do
begin
sleep(100);
end;
writeln('In trade!');
writeln('Githing feathers and fish bait');
while (FindDTM(Bait,x,y,553, 206,736, 312) or FindDTM(Bait2,x,y,553, 206,736, 312) or FindDTM(Bait3,x,y,553, 206,736, 312))=false do
mouse(x,y,0,0,false);
while waitoption('X', 300)=false do
mouse(x,y,0,0,false);
Sleep(1000);
TypeSend('750');
while findcolortolerance(x,y,10658730,556, 207,735, 300,6) do
begin
mouse(x,y,0,0,false);
waitoption('All', 600);
sleep(200);
end;
mouse(235,134,54,22,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;
writeln('trade done!!!');
//finished switch player
end; 10
procedure locationmanager;
var
posx, posy:integer;
mypos:tpoint;
notInzone:boolean;
begin
//mypos := sps_Getmypos();
//posx:=mypos.x; posy:=mypos.y;
//writeln('my position is ' + inttostr(posx) + ', ' + inttostr(posy));
//if(sps_walktopos(point(4635, 3675)))then
// writeln('reached position');
if(sps_walktopos(point(4615, 3651)))then
writeln('reached position') else locationmanager;
end;
procedure randomcustomizechar;
var
randy:integer;
begin
mouse(162,160, 734, 153, true);
mouse(574, 124, 279, 5, true);
case randomrange(1,2) of
1: mouse(414, 108, 15, 10, true);
2: mouse(494, 108, 15, 10, true);
end;
mouse(665, 468, 15, 10, true); //contin
sleep(500);
mouse(654, 467, 15, 10, true); //firm
sleep(500);
Accountname := Inttostr(random(99)) + user[Accountcount] + Inttostr(random(99));
mouse(206, 217,10,3,true);
sleep(500);
typesend(Accountname);
sleep(500);
mouse(160, 343,3,3,true); //continue
Accountname := user[Accountcount]+'@tormail.net';
sleep(5000);
end;
procedure LoginAccount;
begin
While FindDTM(LoginButton, x, y, 283, 253, 482, 298)=False do sleep(100);
Mouse(407, 186, 0, 0, true);
sleep(100);
Typesend(AccountName);
Typesend('YOUR PASSS');
Repeat
While FindDTM(PlayButton, x, y, 244, 434, 516, 487)=False do sleep(100);
if(FindDTM(PlayButton, x, y, 244, 434, 516, 487))then
Mouse(x,y,5,5,true);
While ((Loggedin()=false) and (FindDTM(LimitButton, x, y, 290, 296, 472, 332)=False)) do sleep(100);
if(FindDTM(LimitButton, x, y, 290, 296, 472, 332))then
begin
Mouse(x,y,0,0,true);
end else
begin
break;
end;
Until(false);
writeln('Logged into: ' + AccountName);
end;
procedure dtmz;
begin
tickbox := dtmfromstring('mwAAAAHicy2fgyjjHxmdqcsr7gHgpejcdxuqbuAkIe4e4sumiGAc3nwxqdl/jwAuuq8amabgeAfyzct8=');
customizer:= DTMFromString('mQwAAAHicY2ZgYHBjYmCIB+IyIK5nQOCb544znNuykOHqylYGDiAfhhmRMBAAAG0PCVE=');
LoginButton := DTMFromString('mggAAAHicY2NgYAhnYmD4z8jA8BaKC4H8LCDWhGI5IDaBYhB7ZQELGB9P5mcoNxMC4/Pp/AwsQLOwYUYcGAIA5dwLcQ==');
PlayButton:= DTMFromString('mbQAAAHicY2VgYKhnBBJA/BuIa4C4CYjPAPEJID4JxLuA+B4Qv36wh+Hf3xtg/PHuGoZ9K3IYmIFa0TEjFgwGAOkFEwo=');
LimitButton:= DTMFromString('mbQAAAHicY2VgYPBkZmD4zsTAMANIOwOxCxCbA/lmUKwDxA5A/PrBHoZ1wcJgfCOLn6HPQYwBG2DEgsEAANY5CnU=');
Bait:= DTMFromString('mbQAAAHicY2VgYJjDwsAwE4gXAPFcFgifjRGB2YGYBYjX1EgAVTOhYE4GTMCIBYMBAJDCBKA=');
Bait2:= DTMFromString('mLgAAAHicY2JgYPgAxVOBeAoQb2qUBJJMDCIMEMAIxQwMAJNRBHA=');
Bait3:= DTMFromString('mQwAAAHicY2ZgYPjBhsCCjAwMQkAsAMRbmiSBskxgzMmAAIxIGAgA7mgEkw==');
// vialswithwater:= dtmfromstring('mlgAAAHicy2jgyHbghobrqpydIp7//z8ywwAjfdmwAAdukggz');
end;
procedure freedtmz;
begin
freedtm(tickbox);
freedtm(customizer);
FreeDTM(LoginButton);
FreeDTM(PlayButton);
FreeDTM(LimitButton);
FreeDTM(Bait);
FreeDTM(Bait2);
FreeDTM(Bait3);
end;
begin
smart_server := server;
smart_signed := true;
smart_members := members;
smart_superdetail := f10Alse;
setupsrl;
Addonterminate('freedtmz');
dtmz;
sps_setup(runescApe_surfAce, ['11_9','11_8']);
// up to mrs tabs in registering
user := [
'acc1',
'ACC2 ETC',
];
FreeSRL;
repeat
accountname := user[accountcount]+'@EMAILL.net';
Mousespeed:=28+Random(5);
if(not(LoggedIn()))then
LoginAccount;
SetupSRL;
setangle(0); //fix controls bullshit xd
SetRun(True);
mouse(331, 314,0,0,true);
locationmanager;
mainmethod;
sleep(300);
While LoggedIn() do
begin
mouse(747,3, 4, 4, true);
sleep(200);
mouse(578, 394, 20, 10, true);
end;
if(accountname='LLASTACC@EMAIIL.net')then
terminatescript();
accountcount:=accountcount+1;
FreeSRL;
until (false);
end.