BobboHobbo
2007-06-10 01:40:59
<!– 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
PHP, HTML
Other Communitys
Non
How Long have You Played Runescape
2 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 13 years old, and i always wanted to Macro in runescape but i didnt know how, But now i know :D. I know some HTML and some PHP.
Ive been playing Runescape for quite some time and now ive been almost everywhere and almost done everything on Runescape.
——————————————————
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
PHP, HTML
Other Communitys
Non
How Long have You Played Runescape
2 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 13 years old, and i always wanted to Macro in runescape but i didnt know how, But now i know :D. I know some HTML and some PHP.
Ive been playing Runescape for quite some time and now ive been almost everywhere and almost done everything on Runescape.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//-----------------------------------------------------------//
// >>>>>>>-:BobboHobbo:-<<<<<<<< //
// Productions Presents: //
// Lumbridge Yew Cutter + Banker //
// The yew tree in Lumb gravyard. //
//-----------------------------------------------------------//
// //
// [Instructions] //
// 1. START at Lumbridge Castle in the Bank Boo that is open//
// 2. Have Axe in inventory (first slot) //
// 3. Drag the drag icon thing into Runscape //
// 4. Have Brightness on the HIGHEST //
// 5. Start LOGGED IN //
// 6. Press start and enjoy //
// My First Version! //
//:D //
//-----------------------------------------------------------//
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL\SRL\extended\xantiban.scar}
const
Tree = 3168336;//Colour of tree.
Treename = 'Yew'; // Tree name.
Disguise = 'Miniclip - Ship Of Doom!';// Disguise Scar as?
RunDirection = 'E';// Run which direction when fighting or ents?
Stairs = 4669512;// Stairs in Lumbridge Castle
Ladder = 603990;// Leave this.
var
Loads: Integer;
Swapplayer: Integer;
///////////////////////////////////////////////////////
// >> Declare Players //
///////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 3;
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;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='Nickname'; //3 letters of your username, example jonno you would choose onn.
Players[2].Active:= True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Swapplayer:=Swapplayer+1;
end;
///////////////////////////////////////////////////////
// >> Walking Procedure //
///////////////////////////////////////////////////////
Procedure Banktoyew;
begin
RadialRoadWalk(FindRoadColor, 5, 371, 46, 0, 0);
WriteLn(' Did: Bank to Stairs ');
end;
Procedure Banktoyew1;
begin
RadialRoadWalk(6912388, 4, 374, 63, 0, 0);
WriteLn(' Did: Bank to Stairs (failsafe) ');
end;
Procedure Banktoyewstairsfloor2;
begin
repeat
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
WriteLn(' Did: Found Stairs ');
until(true);
end;
Procedure Banktoyewstairsfloor1;
begin
repeat
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, true);
WriteLn(' Did: Found Stairs ');
until(true);
end;
Procedure Banktoyewstairsfloor;
begin
repeat
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, false);
Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-down')) then
WriteLn(' On bottom folor ');
until(true);
end;
Procedure BanktoyewsCastle;
begin
RadialRoadWalk(FindRoadColor, 243, 588, 38, 0, 0);
WriteLn(' Clicked East from stairs ');
end;
Procedure BanktoyewsCastle1;
begin
RadialRoadWalk(FindRoadColor, 239, 604, 63, 0, 0);
WriteLn(' Did: Going to the yew ');
end;
Procedure BanktoyewsCastle2;
begin
RadialRoadWalk(FindRoadColor, 310, 677, 32, 0, 0);
WriteLn(' Did: Going to the yew 2 ');
end;
Procedure BanktoyewsCastle3;
begin
RadialRoadWalk(FindRoadColor, 300, 350, 50, 0, 0);
WriteLn(' Did: Going to the yew 3 ');
end;
Procedure BanktoyewsCastle4;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
begin
if FindSymbol(x, y, 'axe shop') then
Mouse(x, y, 1, 1, true);
repeat
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
until(true);
FTwait(15);
WriteLn(' Did: Near Tree ');
end;
end;
Procedure BanktoyewsCastle5;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
begin
if FindSymbol(x, y, 'axe shop') then
Mouse(x, y, 1, 1, true);
FTwait(15);
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
WriteLn(' Did: Finds yew symbol ');
end;
end;
Procedure Yewstobank;
begin
If (not(RadialWalk(3243403, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(2913918, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1528409, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1130564, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1527386, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1794923, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1392470, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1525849, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(1129284, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(2513514, 116, 160, 60, 0, 0)))then
begin
If (not(RadialWalk(2644593, 116, 160, 60, 0, 0)))then
begin
WriteLn(' Stupid RUNESCAPE Keep changing the floor color! ');
Nextplayer(true);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
Procedure Yewstobank1;
begin
RadialroadWalk(FindRoadColor, 162, 200, 60, 0, 0);
end;
Procedure Yewstobank2;
begin
RadialroadWalk(FindRoadColor, 64, 100, 67, 0, 0);
end;
Procedure Yewstobank3;
var Tries: Integer;
begin
repeat
wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln('Tried Finding Quest symbol and Cook symbol, Non were found after 50 tries');
Nextplayer(true);
end;
until FindSymbol(x, y, 'quest')
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'quest')))then
begin
if FindSymbol(x, y, 'cook') then
Mouse(x, y, 1, 1, true);
FTwait(15);
end;
end;
Procedure Yewstobank4;
begin
RadialroadWalk(FindRoadColor, 337, 440, 23, 0, 0);
end;
Procedure Yewstobank5;
begin
RadialroadWalk(FindRoadColor, 75, 100, 25, 0, 0);
end;
Procedure Yewstobankstairs0;
begin
repeat
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
FTwait(15);
until(true);
FTwait(15);
end;
end;
Procedure Yewstobankstairs;
begin
repeat
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
until(true);
end;
Procedure Yewstobankstairs1;
begin
repeat
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, false);
Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-up')) then
until(true);
end;
Procedure Yewstobankbbf;
begin
RadialroadWalk(FindRoadColor, 170, 220, 50, 0, 0);
end;
procedure OpenBank31;
var
x, y, fs, fs2: Integer;
begin
if not BankScreen then
repeat
if (FindObj3(x, y, 'Use Bank', 2970463, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 4544867, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 12611, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250);
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100);
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
Deposit(2, 28,2);
CloseBank;
Loads:=Loads+1;
end;
///////////////////////////////////////////////////////
// >> Cutting the Yew Procedure //
///////////////////////////////////////////////////////
procedure CuttingTree;
begin
if (invfull) then
exit;
if FindObj(x,y,'Yew',Tree,10) then
Mouse(x, y, 1, 1, true);
wait(2000+random(3500));
FindHead;
AttachHead;
end;
///////////////////////////////////////////////////////
// >> Finding Ent Procedure //
///////////////////////////////////////////////////////
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(' Lumbridge Yew Cutter + banker ');
WriteLn(' Version 1 ');
end;
///////////////////////////////////////////////////////
// >> Anti-Ban Procedure //
///////////////////////////////////////////////////////
procedure AntiBanSystem;
Begin
case random(14)of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Woodcutting',false);
2: RandomChatEvery(10 + Random(5));
3: MakeCompass('S');
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));
12: GameTab(5 + Random(12));
13: GameTab(6 + Random(12));
end;
end;
/////////////////////////////////////////////////////////////////////////
Procedure Antibanwoodcut;
Begin
MMouse(Random(MSX1), Random(MSY1), 3, 5);
If(IsUpText('hop down')) or (IsUpText('alk here'))then
Begin
GetMousePos(x, y);
Mouse(x, y, 2, 1, False);
If(ChooseOption(x, y, 'Examine'))then
Begin
Exit;
End else
ChooseOption(x, y, 'Cancel');
End
End;
///////////////////////////////////////////////////////
// >> Progress Report! //
///////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('[]===================================[]');
Writeln('::::::::::->Progress Report<-::::::::::');
WriteLn(' Worked for '+TimeRunning+'.');
Writeln(' Banked ' + IntToStr(Loads) + ' Time/s' + ' ');
Writeln(' Logged in ' + IntToStr(Swapplayer) + ' Time/s' + ' ');
Writeln('[]==================================[]');
end;
///////////////////////////////////////////////////////
// >> Anti-Randoms Procedure //
///////////////////////////////////////////////////////
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;
///////////////////////////////////////////////////////
// >> Setup Procedure //
///////////////////////////////////////////////////////
procedure setup;
begin
if not (LoggedIn) then
Nextplayer(true);
ActivateClient;
SetupSRL;
SRLRandomsReport;
FindAxeHeadColor;
SetRun(False);
Writeln('We have set Run to Off ');
SetChat('Hide', 1);
SetChat('Off', 2);
SetChat('Off', 3);
HighestAngle;
MakeCompass('S');
end;
///////////////////////////////////////////////////////
// >> Main Loop Procedure //
///////////////////////////////////////////////////////
begin
SetUpSRL;
Cleardebug;
DeclarePlayers;
ActivateClient;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
Signature;
setup;
SetupSRL;
DisguiseScar(Disguise);
ProgressReport;
Repeat
Banktoyew;
FTwait(1);
Banktoyew1;
FTwait(6);
Banktoyewstairsfloor2;
FTwait(5);
Banktoyewstairsfloor1;
wait(2000+random(500))
Banktoyewstairsfloor;
wait(2000+random(500))
BanktoyewsCastle;
wait(2000+random(500))
BanktoyewsCastle1;
wait(2000+random(500))
BanktoyewsCastle2;
wait(2000+random(500))
BanktoyewsCastle3;
wait(2000+random(500))
BanktoyewsCastle4;
wait(2000+random(500))
Repeat
CuttingTree;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
FTwait(1);
EntFinder;
FTwait(1);
FindRandoms;
FTwait(1);
AntiBanSystem;
FTwait(1);
ProgressReport;
FTwait(1);
Antibanwoodcut;
Until(Invfull)
MakeCompass('S');
Yewstobank;
FTwait(2);
Yewstobank1;
wait(2000+random(500))
Yewstobank2;
wait(1000+random(500))
Yewstobank3;
wait(1000+random(500))
Yewstobank4;
wait(1000+random(500))
Yewstobank5;
wait(1000+random(500))
Yewstobankstairs;
wait(2000+random(500))
Yewstobankstairs0;
wait(2000+random(500))
Yewstobankstairs1;
Yewstobankbbf;
Until(False);
end.
——————————————————
<!– END TEMPLATE: formanswers –>