BobboHobbo
2007-06-07 06:07:11
<!– BEGIN TEMPLATE: formanswers –>
bobbohobbo - SRL Member Application Form
bobbohobbo
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know some PHP, some HTML.
Other Communitys
Not really any.
How Long have You Played Runescape
about 2 and a half years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi, I would like to become a SRL Member.
A bit about my self.
Im 13 years old, ive been playing runescape for a few years and i want to cheat, so i came here and starting autoing with SCAR (awesome program).
I have currently made only one script, that is a Auto willow Woodcutter and dropper. I like to help people with scripts and stuff. Im kind of new to SCAR but i watched my brother use visual basics and its kind of the same, so i have some idea of how to use SCAR's commands. Also i started learning HTML when i was like 8 years old and php from last year, so if you need any help or anything with those ill help you.
Thanks, Ben AKA Bobbohobbo.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
bobbohobbo - SRL Member Application Form
bobbohobbo
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know some PHP, some HTML.
Other Communitys
Not really any.
How Long have You Played Runescape
about 2 and a half years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi, I would like to become a SRL Member.
A bit about my self.
Im 13 years old, ive been playing runescape for a few years and i want to cheat, so i came here and starting autoing with SCAR (awesome program).
I have currently made only one script, that is a Auto willow Woodcutter and dropper. I like to help people with scripts and stuff. Im kind of new to SCAR but i watched my brother use visual basics and its kind of the same, so i have some idea of how to use SCAR's commands. Also i started learning HTML when i was like 8 years old and php from last year, so if you need any help or anything with those ill help you.
Thanks, Ben AKA Bobbohobbo.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
////////////////////////////////////////////////////////////////////
// :::>>>>>>> BobboHobbo Productions <<<<<<<:::: //
// [Instructions] //
// 1. Setup Lines 24-49 //
// 2. Woodcut where the is mainly willows //
// 3. DO NOT WIELD AXE //
// 4. Start logged in. //
// //
// //
// //
// //
////////////////////////////////////////////////////////////////////
program NorthofChickensWillowCutterdroper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.include SRL\SRL\extended\xantiban.scar}
//DONT REALLY NEED TO CHANGE THIS.
const
Disguise = 'Miniclip - Ship Of Terror!';
RunDirection = 'E';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
// DONT CHANGE THIS!
var
Loads: Integer;
Swapplayer: Integer;
/////////////////////////////////////////////////////////////
// >>>Declare Your players. //
/////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='USERNAME';
Players[0].Pass :='PASSWORD';
Players[0].Nick :='NICKNAME'; //3 letters of your username, example jonno you would choose onn.
Players[0].Active:= True;
Players[1].Name :='USERNAME';
Players[1].Pass :='PASSWORD';
Players[1].Nick :='NICKNAME'; //3 letters of your username, example jonno you would choose onn.
Players[1].Active:= True;
Swapplayer:=Swapplayer+1;
end;
/////////////////////////////////////////////////////////////
// >> Cuttin the tree //
/////////////////////////////////////////////////////////////
procedure CuttingTree;
begin
if not (LoggedIn) then
NextPlayer(True);
if FindObj(x,y,'ill',Tree,10) then
Mouse(x, y, 1, 1, true);
wait(1000+random(3500));
FindHead;
AttachHead;
end;
/////////////////////////////////////////////////////////////
// >> Anti Ban //
/////////////////////////////////////////////////////////////
procedure AntiBanSystem;
Begin
case random(12)of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('random', False);
2: RandomChatEvery(10 + Random(5));
3: MakeCompass('W');
4: LeaveScreenEvery(5 + Random(5));
5: DragItem(2, 2 + Random(18));
6: LeaveScreenEvery(5 + Random(5));
7: PickUpMouse;
8: BoredEvery(9 + Random(24));
9: HoverSkill('random', False);
10: GameTab(1 + Random(12));
11: DoEmote(1 + Random(20));
end;
end;
/////////////////////////////////////////////////////////////
// >> Dropping the Logs //
/////////////////////////////////////////////////////////////
procedure Drop;
begin
if not (LoggedIn) then
NextPlayer(True);
wait(1000+random(3500));
DropAllLogs;
case random(4)of
0 : Makecompass('S');
1 : MakeCompass('E');
2 : MakeCompass('W');
3 : MakeCompass('n');
end
Loads:=Loads+1;
end;
/////////////////////////////////////////////////////////////
// >> Taking care of the ents! //
/////////////////////////////////////////////////////////////
procedure EntFinder;
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
Status('Checking For Ent')
if (FindObjMultiText(EX, EY, Treename, Treename, Treename, Tree, 2)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
EntsAvoided := EntsAvoided + 1
end;
end;
end;
/////////////////////////////////////////////////////////////
// >> Signature - //
/////////////////////////////////////////////////////////////
procedure Signature;
begin
WriteLn(' >>>.:BobboHobbo:.<<< ');
WriteLn(' <.:Productions.:>> ');
WriteLn(' :Brings you: ');
WriteLn('North Chicken Lum Willow Cutter + Dropper. ');
WriteLn(' Version 1.2 ');
end;
/////////////////////////////////////////////////////////////
// >> Taking care of randoms //
/////////////////////////////////////////////////////////////
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
if not (LoggedIn) then
NextPlayer(True);
FindFastRandoms;
FindNormalRandoms;
end;
/////////////////////////////////////////////////////////////
// >>> The Progress Report! //
/////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]===================================[]');
Writeln('::::::::->Progress Report<-::::::::::::');
WriteLn(' Worked for '+TimeRunning+'.');
Writeln(' Droped ' + IntToStr(Loads) + ' Load/s' + ' ');
Writeln(' Logged in ' + IntToStr(Swapplayer) + ' Time/s' + ' ');
Writeln('[]==================================[]');
end;
/////////////////////////////////////////////////////////////
// >>> The Setup of the script //
/////////////////////////////////////////////////////////////
procedure setup;
begin
if not (LoggedIn) then
NextPlayer(False);
ActivateClient;
SetupSRL;
SRLRandomsReport;
FindAxeHeadColor;
SetRun(true);
Status('Set Run to on.');
Writeln('We have set Run to on ');
Status('Changing The chat.');
SetChat('Hide', 1);
SetChat('Off', 2);
SetChat('Off', 3);
end;
//-----------------------------------------------------------------//
// >> MAIN LOOP //
//-----------------------------------------------------------------//
begin
SetupSRL;
DisguiseScar(Disguise);
DeclarePlayers;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
Signature;
ActivateClient;
FindRandoms;
HighestAngle;
Makecompass ('N')
FindHead;
AttachHead;
begin
setup;
repeat
repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
EntFinder;
CuttingTree;
EntFinder;
FindRandoms;
AntiBanSystem;
ProgressReport;
until(inventoryfull)
Drop;
ProgressReport;
FindRandoms;
AntiBanSystem;
until(not(loggedin))
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>