there isnt many thieving scripts and i was thinking if someone could create one like a audroughne cake stall thiever and banker or whatever thanks
there isnt many thieving scripts and i was thinking if someone could create one like a audroughne cake stall thiever and banker or whatever thanks
I had to change this from my old one...?
*bump ppl plz help i really need a thieving script, a nat chest thiever would be great or even a nat rune crafter is also okay thank you!![]()
I had to change this from my old one...?
yeah a thiever wud be very nice
Lo and Behold, im working my ass of on a NAT THIEF. i wasn't going to realease it yet, it works find, actouly pretty darn good. but if you want me 2 i will, its arddy nat thievery.
Dang you guys are desperate, you guys should try to learn scar and srl!
Or
Begging sometimes works!![]()
=p, heres what i got so far on nat thief.
you must start logged in next to the chest in arrdy, and you might/must set the chest color.
SCAR Code:program New;
{.include srl/srl.scar}
var
x, y, ColorOfChest, NotFindChest, ColorOfStairs, NatsTheived : integer;
Your_SRL_Pass, Your_SRL_ID : string;
////////////////////////////////////////////////////////////////////////////////
//Footballjds
procedure DeclarePlayers;
begin
Your_SRL_ID := ''; // don't have this? go to:
Your_SRL_Pass := ''; // [url]http://www.stats.srl-forums.com/[/url]
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';//Your Username
Players[0].Pass := '';//Your Password
Players[0].Nick := '';//3-4 Letters Of Your Username
Players[0].Integers[0] := 20;//How Many Nats Do You Want To Steal?/Int
Players[0].Active := True;//Are You Using This Player? True=Yes False=No.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//Footballjds
procedure ProgressReport;
begin
ClearDebug;
Writeln('==========================================');
Writeln('-§ Any Longbow Stringer By: FootBalljds §-');
Writeln('- Thanks SRL Team!!! -');
Writeln('==========================================');
Writeln('Stole ' + IntToStr(NatsTheived) + ' Nats So Far');
Writeln('Need To Steal ' + IntToStr(Players[CurrentPlayer].Integers[0] - NatsTheived) + ' More Nats');
Writeln('==========================================');
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//Footballjds
Function FindFightAndFlee: boolean;
var
I : integer;
begin
if (FindFight) then
begin
Writeln('FoundFight');
MakeCompass('N');
if (FindColorSpiralTolerance( x, y, ColorOfStairs, 316, 202, 358, 272, 35)) then
begin
MMouse(x, y, 2, 2);
wait(300+random(100));
if (IsUpTextMultiCustom(['imb', '-d', 'li', 'dow', 'b-', 'wn'])) then
begin
Mouse(x, y, 1, 1, True);
Wait(4000);
For I := 0 to 100 do
begin
wait(400+random(10));
FindNormalRandoms;
end;
end;
if (FindColorSpiralTolerance( x, y, ColorOfStairs, 211, 79, 277, 132, 25)) then
begin
MMouse(x, y, 1, 1);
wait(400+random(300));
if (IsUpTextMultiCustom(['mb', 'up', '-u', 'b-', 'lim'])) then
begin
Mouse(x, y, 1, 1, False);
Wait(200+random(200));
ChooseOption('limb');
Wait(2000+random(500));
HighestAngle;
Mouse(161, 138, 5, 5, True);
end;
end;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//Footballjds
function FindNatChest : boolean;
begin
MakeCompass('N');
HighestAngle;
Result := False;
if (FindColorSpiralTolerance( x, y, ColorOfChest, 224, 153, 234, 172, 5)) then
begin
MMouse(x, y, 1, 1);
wait(100+random(100));
if (IsUpTextMultiCustom(['/ 3', 'Open', '3 more op', 'pen' , '3 mor'])) then
begin
NotFindChest := 0;
Result := True;
EXIT;
end;
end else
begin
NotFindChest := NotFindChest + 1;
end;
end;
////////////////////////////////////////////////////////////////////////////////
function ClickOnNatChest : boolean;
begin
if (not(LoggedIn)) or (not(FindNatChest)) then
EXIT;
Result := False;
Mouse(x, y, 1, 1, False);
wait(100+random(100));
if ChooseOption('earch') then
begin
Result := True;
Status('Chose Option' );
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//Footballjds
procedure MainLoop;
var
TimesWaited, I : integer;
begin
if (FindNatChest) then
begin
ClickOnNatChest;
wait(1000);
repeat
Wait(50);
TimesWaited := TimesWaited + 1;
Writeln(IntToStr(TimesWaited));
until (TimesWaited >= 70) or (FindBlackChatMessage('find')) or (FindBlackChatMessage('already'))
if (FindBlackChatMessage('find')) then
begin
NatsTheived := NatsTheived + 1;
Writeln('Stole A Nat');
end;
if (FindBlackChatMessage('already')) then
begin
Wait(random(2000));
FindNatChest;
ClickOnNatChest;
NatsTheived := NatsTheived + 1;
end;
ProgressReport;
for I := 0 to 10 do
begin
if (FindNormalRandoms) then
Break;
Wait(1200+random(300));
if (FindFightAndFlee) then
Break;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
begin
if FindRS then
begin
SetupSRL;
ActivateClient;
end else
begin
Writeln('RS Unfound');
Status('Runescape Not Found');
Wait(2000);
Writeln('Terminating Script');
TerminateScript;
end;
DeclarePlayers;
wait(100+random(400));
if not(LoggedIn) then
LoginPlayer;
MakeCompass('N');
HighestAngle;
ColorOfStairs := 4474956;
ColorOfChest := 3492194;
repeat
MainLoop;
until (NotFindChest >= 10) or (NatsTheived >= Players[CurrentPlayer].Integers[0]);
end.
////////////////////////////////////////////////////////////////////////////////
Don't double post. If you want a script that bad make you own. Also there are some alright ones out.
There are currently 1 users browsing this thread. (0 members and 1 guests)