NocKme
2007-09-03 11:13:00
<!– BEGIN TEMPLATE: formanswers –>
NocKme - SRL Member Application Form
NocKme
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
little of php, scar, PASCAL
Other Communitys
Sythe, Anime7 and others
How Long have You Played Runescape
3-4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 16 years old Macro user :D I'm used lot's of script and even tried to create my own so i think i should join SRL members because i would have wider access in this great forum.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
NocKme - SRL Member Application Form
NocKme
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
little of php, scar, PASCAL
Other Communitys
Sythe, Anime7 and others
How Long have You Played Runescape
3-4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 16 years old Macro user :D I'm used lot's of script and even tried to create my own so i think i should join SRL members because i would have wider access in this great forum.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program MaplePowerChoper;
{.include SRL/SRL.scar}
const
color1= 7226; //Tree color1
color2= 18544; // Tree color2
var Clicks: Integer;
x,y: Integer;
Loads: Integer;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure Signature;
begin
ClearDebug;
writeln(' NocKme Maples PowerChoper By : ');
wait(3000 + random(750));
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color1 or color2,168, 114,414, 316))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(10000+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
DropAll;
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
ProgressReport;
until(false);
end.——————————————————
<!– END TEMPLATE: formanswers –>