Griff
2008-07-26 23:57:37
<!– BEGIN TEMPLATE: formanswers –>
griff721 - SRL Member Application Form
griff721
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Bumblebee
Programming Knowledge
No
Other Communitys
How Long have You Played Runescape
Not sure, over 3 years, though
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been a user on the SRL forums for quite some time now, but only for the last few months have I really taken an interest into scripting. This is my second time applying for membership, and I have read your feedback from my last application, and I've learned a lot. I think I will actually be able to bring a lot to the community if I am accepted.
I hope you like my Draynor Woodcutter.
Griff721
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
griff721 - SRL Member Application Form
griff721
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Bumblebee
Programming Knowledge
No
Other Communitys
How Long have You Played Runescape
Not sure, over 3 years, though
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been a user on the SRL forums for quite some time now, but only for the last few months have I really taken an interest into scripting. This is my second time applying for membership, and I have read your feedback from my last application, and I've learned a lot. I think I will actually be able to bring a lot to the community if I am accepted.
I hope you like my Draynor Woodcutter.
Griff721
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Woodcutter;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
//Auto Draynor Woodcutter by Griff721
var
done:integer; cx, cy: Integer;
x, y, MyMark : integer;
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
Treecolor = 6061674;
Treecolor2 = 3231573;
WoodcuttingLevel = 99; // For anti-ban reasons enter your wcing lvl
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'erna';
Players[0].Active := True;
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;}
end;
procedure AntiChat;
begin
if (InChat('Wc lvls')) then Writeln('99');
if (InChat(Players[CurrentPlayer].Nick)) then Writeln('leave me alone');
if (InChat('hey')) then Writeln('hows it going?');
if (InChat('sup?')) then Writeln('nm nm');
if (InChat('lol')) then Writeln('lmao');
if (InChat('boring')) then Writeln('I know...');
if (InChat('Griff721 is sexy')) then Writeln('thanks you....');
end;
procedure Run;
begin
GameTab(11);
Wait(100+random(75));
Mouse(643, 433,3,3,true);
Wait(100+random(75));
end;
procedure ToTrees;
begin
GameTab(4);
RadialWalk(1864255,180,240,40,3,3);
MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
wait(5200+random(250));
end;
procedure Chopping;
var
x, y, MyMark : integer;
begin
repeat
if not(LoggedIn) then Exit;
If(FindNormalRandoms) or (InvFull) then Exit;
AntiChat;
if FindObjCustom(x, y, ['Wil', 'low'], [3564109,1321507, 3168582], 7) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
Writeln('Mashing trees!');
case Random(8) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Random', False);
5: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('WoodCutting', False);
end;
AntiChat;
end;
end;
if not FindObj(x, y, 'hop', TreeColor, 30) then
begin
FindObjCustom(x, y, ['Wil', 'low'], [4876128,2243634, 5869959], 7)
Mouse(x, y, 0, 0, False);
ChooseOption('hop')
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Woodcutting', False); // or HoverSkill('Random', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
9: BoredHuman;
end;
AntiChat;
wait(6800+random(250));
until(InvFull);
end;
Procedure ToBank;
begin
AntiChat;
RadialWalk(1828858,4,85,70,3,3);
Writeln('Going to the bank!');
end;
function Banking: Boolean;
begin
if (InvFull) then
begin
OpenBankQuiet('db');
if(FindColorSpiral(x, y, 2117465, 547, 206, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
end;
CloseBank;
Wait(150 + random (250));
MakeCompass('N');
end;
end;
begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
MakeCompass('N');
Run;
repeat;
AntiChat;
ToTrees;
Chopping;
if InvFull then
begin
ToBank;
Banking;
AntiChat;
done:=done+1; // Get's done +1, ie, if done = 10 then, done = 11 now
end;
until(done >= LoadsPerPlayer);
begin
NextPlayer(True);
end;
if not Loggedin then NextPlayer(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>