NCDS
2009-01-08 18:32:55
<!– BEGIN TEMPLATE: formanswers –>
N C D S - SRL Member Application Form
N C D S
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know my way around HTML pretty well.
Other Communitys
d00med.net Im a member of others but not really active anymore.
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 18 years old and have ben involved in RuneScape cheating for about 5 years. Sadly I never bothered to learn to Script until recently. In March I will be Attending ITT Tech. Im going for Software Applications & Programming, Computer Networking, Web Development, and Computer Drafting and Design. I have Already taken DDP Classes and a Communications course Which covers lessons in Photoshop, Photography and Video Editing. Within the next few months I will Also be taking online Classes for JavaScript.
I applied once already but since then I have learned many different thing and therefor have re-wrote this script in its entirety.
Thank You for your time, it is much Appreciated.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
N C D S - SRL Member Application Form
N C D S
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know my way around HTML pretty well.
Other Communitys
d00med.net Im a member of others but not really active anymore.
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 18 years old and have ben involved in RuneScape cheating for about 5 years. Sadly I never bothered to learn to Script until recently. In March I will be Attending ITT Tech. Im going for Software Applications & Programming, Computer Networking, Web Development, and Computer Drafting and Design. I have Already taken DDP Classes and a Communications course Which covers lessons in Photoshop, Photography and Video Editing. Within the next few months I will Also be taking online Classes for JavaScript.
I applied once already but since then I have learned many different thing and therefor have re-wrote this script in its entirety.
Thank You for your time, it is much Appreciated.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program NCDSBakeStallThieveAndBank;
{.include srl/srl.scar}
///////////////////////////////////////////////////////////////////////
//////////////////////////NCDS' Power Thieve///////////////////////////
///////////////////////////////////////////////////////////////////////
/// ///
/// Thank you for using NCDS' Auto Thiever! ///
/// ///
/// Make Sure you Start at the Eastern Bake Stall in Ardougne ///
/// ///
/// I Would Like To Thank: ///
/// TViYH ///
/// Shermanator ///
/// noidea ///
/// Narcle ///
/// Along With All SRL Devs For Making This Possible ///
/// ///
/// Please Post ALL Progress Reports and The Reason it Stopped ///
/// ///
/// Find More INFO at [url]WWW.SRL-FORUMS.COM[/url] ///
///////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////
//SETUP Constants and Declare Players!
Const DirectionToRun = 'S' ;
SleepTime = 60000 ; // in MS, 60000 = 1 minute plus a random of 1-3 minutes will be added.
LoadsToThieve = 10; //Loads To Thieve
Var
AmtStolen, LoadsDone,
BankDTM, CCakeDTM, CakeDTM, BreadDTM : integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0] := 10;//loads to thieve
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Integers[0] := 10;//loads to thieve
end;
////////////////////////////////////////////////////////////////////////////////
procedure Walk2Bank1;
var x, y : Integer;
begin
if (not(LoggedIn)) then
Exit;
begin
SetRun(True);
MakeCompass('N');
WriteLn('Walking To Bank');
Wait(RandomRange(200, 300));
RadialRoadWalk(FindVarrockRoadColor, 190, 220, 70, -1, 0);
FFlag(5);
Status('Searching For Bank on Mini Map');
if (FindSymbol( x, y, 'bank'))then
begin;
Writeln('Found bank!');
Mouse( x, y, 5, 5, True);
FFlag(5);
Wait(RandomRange(3000, 5000));
Exit;
end else
BankDTM := DTMFromString('78DA633460646038C280021A4BD218FE0369A' +
'00CC37F20603402B2F6A0AA29719660E087AA0101465D22D4E801' +
'59E708A83126AC06009C320EA6');
RadialRoadWalk(FindVarrockRoadColor, 190, 230, 65, -1, 0);
FFlag(5)
if (DTMRotated(BankDTM,x,y,MMX1,MMY1,MMX2,MMY2)) then
begin
WriteLn('FoundBankDTM');
Mouse(x, y, 3, 3, True);
FFlag(5);
FreeDTM(BankDTM);//DONT FORGET
Exit;
end else
WriteLn('Wheres the Banker? Lets look A bit Closer');
Status('Searching For Bank on Mini Map');
if (FindSymbol( x, y, 'bank'))then
begin;
Writeln('Found bank!');
Mouse( x, y, 5, 5, True);
Wait(RandomRange(2000, 3000));
Exit;
end else
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Walking To Bank';
end;
procedure OpenASBandBank;
begin
if (not (Loggedin)) then
Exit;
begin
OpenBankFast('feb');
if (not (BankScreen)) then
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'At The Bank';
Logout;
Exit;
Deposit(1,28,true);
end;
CloseBank;
end;
procedure Eat;
var x, y : Integer;
begin
if (not (LoggedIn)) then
Exit;
CakeDTM := DTMFromString('78DA63AC62646078C28002EEDEBCC1F01F480' +
'36518FE03012348CD0D0634C0C8C00F5503E6750259F709A80199' +
'F39E809A1C4CF7C064616A0058570E9B');
BreadDTM := DTMFromString('78DA63AC66646078CC800226950B31FC07D24' +
'01986FF40C0D80A64DD6240038C0CFC5035605E3E90F596809A52' +
'20EB3E01358D40D64B4C350C486A0072400D2E');
CCakeDTM := DTMFromString('78DA63AC62646078CA8002729D7819FE0369A' +
'00CC37F206004A9B9C980061819F8A16AC0BC7620EB3901352073' +
'3E1050930F643DC254C380A406003B3F0CD3');
begin
if HpPercent <50 then
begin
while (DTMRotated(CakeDTM, x, y, MiX1, MiY1, MiX2, MiY2))do
begin
MouseItem(CakeDTM, True);
Wait(RandomRange(1000, 2000));
if HpPercent > 50 then
Exit;
end;
while (DTMRotated(BreadDTM, x, y, MiX1, MiY1, MiX2, MiY2)) do
begin
MouseItem(BreadDTM, True);
Wait(RandomRange(1000, 2000));
if HpPercent > 50 then
Exit;
end;
while (DTMRotated(CCakeDTM, x, y, MiX1, MiY1, MiX2, MiY2)) do
begin
MouseItem(CCakeDTM, True);
Wait(RandomRange(1000, 2000));
if HpPercent > 50 then
Exit;
end;
end;
FreeDTM(CakeDTM);
FreeDTM(BreadDTM);
FreeDTM(CCakeDTM);
end;
procedure Walk2Stall1;
var x, y : Integer;
begin
if (not (LoggedIn) then
Exit;
begin
SetRun(True);
Wait (RandomRange(200, 300));
if not (RadialRoadWalk(FindVarrockRoadColor, 0, 30, 180, -1, 0)) then
begin
if not (RadialRoadWalk(FindVarrockRoadColor, 0, 40, 180, -1, 0)) then
begin
WriteLn('Failed Walking To Stall, Post Error on Thread.');
end;
end else
FFlag(5);
Wait(RandomRange(1000, 2000));
if not (RadialRoadWalk(FindVarrockRoadColor, 0, 90 ,57 , -1, 0)) then
begin
if not (RadialRoadWalk(FindVarrockRoadColor, 0, 100 ,57 , -1, 0)) then
begin
WriteLn('Failed Walking To Stall, Post Error on Thread.');
end;
end else
FFlag(5);
Wait(RandomRange(1000, 2000));
if FindObjCustom(x,y,['Sack','acks','Sacks'],[4287091,3825511,4023405,4484985,3693667],5)then
begin
MMouse(x,y,1,1);
Wait(RandomRange(200, 300));
if (IsUpTextMultiCustom(['Sack','acks','Sacks']))then
begin
Mouse(x, y, 1, 1, True);
Exit;
end;
end;
WriteLn('Cant Get to North End Of Stall,Please Report Error On Thread');
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Walking To Stall';
end;
procedure ProgressReport;
begin
Status('Progress Report');
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\ Time Running : ' + TimeRunning + ' /\');
Writeln('/\ Stole From Stall : ' + IntToStr(AmtStolen) + ' /\ ');
Writeln('/\ Banked : ' + IntToStr(LoadsDone) + ' /\');
Writeln('/\ Thanks For Using NCDS Thieve And Bank! /\');
Writeln('`````````````````````````````````````````````````');
end;
procedure AntiBan;
begin
if (not (LoggedIn)) then
Exit;
begin
case random(20) of
0 : case random (100) of
10 : TypeSend(AddMistakes('I hate thieving lol its so boring', 20));
20 : TypeSend(AddMistakes('thieve lvl?', 20));
30 : TypeSend(AddMistakes('heyyy', 20));
40 : TypeSend(AddMistakes('Nice Armor!', 20));
50 : TypeSend(AddMistakes('Stupid Guards', 20));
60 : TypeSend(AddMistakes('ugh 99 thieve takes forever', 20));
70 : TypeSend(AddMistakes('Its Almost my Birthday!', 20));
80 : TypeSend(AddMistakes('Fresh Prince Rulezz d00d!', 20));
90 : TypeSend(AddMistakes('Just bought a new LapTop :)', 20));
100 : TypeSend(AddMistakes('Emachines are no good :/', 20));
end;
4 : SleepAndMoveMouse(400+random(200));
6 : case random (9) of
0 : DoEmote(3);
4 : DoEmote(7);
8 : DoEmote(15);
end;
10 : BoredHuman ;
12 : case random(9) of
0 : HoverSkill('Thieving', False);
4 : HoverSkill('Random', False);
8 : HoverSkill('Strength', False);
end;
14 : RandomRClick ;
18 : PickUpMouse;
20 : case random(30) of
15 : begin
WriteLn('Sleep Time!');
Status('Sleeping...');
Logout;
Wait((SleepTime)+RandomRange( 60000, 240000));
LoginPlayer;
Wait(1000+Random(500));
end;
end;
end;
end;
end;
procedure FindStall;
var x, y : Integer;
begin
if (not(Loggedin))then
Exit;
if FindObjTPA(x, y, 9677753, 5, -1, 5, 5, 10,['Baker','ake','aker'])then
begin
MMouse(x , y , 1 , 1);
Wait (Randomrange(100, 200));
if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
begin
case random(2)of
0 : begin
Mouse(x, y, 1, 1, True);
wait(RandomRange(300, 400));
end;
1 : begin
Mouse(x, y, 1, 1, False);
wait(RandomRange(300, 400));
ChooseOption('teal');
end;
end;
end;
WriteLn('Stole From Stall!');
Inc(AmtStolen);
FindNormalRandoms;
Exit;
end;
WriteLn('Dindt Find Stall, Trying 1 More Time');
if FindObjTPA( x, y, 9677753, 10, -1, 5, 5, 10, ['Baker','ake','aker'])then
begin
MMouse(x , y , 1 , 1);
Wait (100 + random (100));
if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
begin
case random(2)of
0 : begin
Mouse(x, y, 1, 1, True);
wait(RandomRange(100, 200));
end;
1 : begin
Mouse(x, y, 1, 1, False);
wait(RandomRange(100, 300));
ChooseOption('teal');
end;
end;
AntiBan;
WriteLn('Stole From Stall!');
Inc(AmtStolen);
Exit;
end;
writeln('Could Not Find Stall Please Post Error on the Proper Thread');
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Stealing From Stall';
end;
end;
function NInFight: Boolean;
Var x, y : Integer;
begin
Result := (FindColor(x, y, 65280, 242, 142, 283, 158) or
FindColor(x, y, 255, 242, 142, 283, 158));
end;
function DontDie1: Boolean;
begin
if (not (LoggedIn)) then
Exit;
if HpPercent < 50 then
begin
WriteLn('Running so we dont die');
RunAway(DirectionToRun, True, 1, 9000) Result:= True;
end;
end;
procedure NAFOutFight;
var
T: integer;
begin
if Players[CurrentPlayer].Booleans[6] then
T := GetSystemTime - 12000
else
T := GetSystemTime;
while not NInFight and (TimeFromMark(T) < 5000) do wait(100);
if NInFight then
begin
Status('Killing monster...');
repeat
Wait(800+random(300));
DontDie1;
Wait(1500+random(500));
If Players[CurrentPlayer].Booleans[0] then
Break;
until(not NInFight) or (not LoggedIn)
Status('');
end else
Wait(300);
end;
procedure AntiRandom;
begin
if (not (LoggedIn)) then
Exit;
begin
if FindBox=False then
exit;
begin
if FindBox then
Wait (100+random(100));
SolveBox;
end;
SolveDemon;
SolveFrog;
SolveMaze;
TouchShrine;
SolvePillory;
SolveSandWich;
end;
end;
procedure MainLoop;
begin
repeat
FindNormalRandoms;
FindStall;
AntiBan;
DontDie1;
NInFight;
NAFOutFight;
AntiRandom;
until (InvFull) or (not (LoggedIn))
Walk2Bank1;
OpenASBandBank;
Inc(LoadsDone);
Walk2Stall1;
ProgressReport;
Wait (500+random(500));
MainLoop;
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
FindNormalRandoms;
Retaliate(True);
MakeCompass('N');
SetAngle(True);
repeat
repeat
MainLoop;
until (LoadsDone >= Players[0].Integers[0]) or not LoggedIn;
NextPlayer(LoggedIn);
until (AllPlayersInactive);
end.
——————————————————
<!– END TEMPLATE: formanswers –>