born to macro
2007-07-17 09:38:04
<!– BEGIN TEMPLATE: formanswers –>
born to macro - SRL Member Application Form
born to macro
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
yes i know java and php
Other Communitys
yes, sythe and trevdev
How Long have You Played Runescape
since 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
iv been scripting for maby about a year and id like to become a member. iv never known how to be a member but now i do and possibuly will
i would like to create new scripts and have new idas so ya this is about me.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
ok well this is my powerchoper
——————————————————
<!– END TEMPLATE: formanswers –>
born to macro - SRL Member Application Form
born to macro
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
yes i know java and php
Other Communitys
yes, sythe and trevdev
How Long have You Played Runescape
since 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
iv been scripting for maby about a year and id like to become a member. iv never known how to be a member but now i do and possibuly will
i would like to create new scripts and have new idas so ya this is about me.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
ok well this is my powerchoper
*****************************************************************
1.start at any tree
2.setcolors im puting in autocolorsin my next
3.dose not have multyplayer
4© that means no stealing this script
****************************************************************************
program Chopurheadoff;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
const
Tree1= 0;//color of tree
var
RLog : Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nickname';
Players[0].Active:=True;
end;
****************************************************************************************
Procedure Setup;
begin
ActivateClient;
If(Not(LoggedIn)) Then LoginPlayer;
HighestAngle;
MakeCompass('n');
GameTab(4);
If(FindAxeHeadColor) Then
begin
If(Players[CurrentPlayer].Boolean1=True) Then
begin
MouseItem(1,true)
End
end Else
begin
Logout
end
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure fastAntiRandoms;
begin
if(not(LoggedIn))then
Exit;
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(3005));
RunBack;
FindFastRandoms;
FindTalk;
if mimelogout;
if genielogout;
end;
end;
********************************************************************************************
Procedure cutit;
begin
if(FindMSColor(x,y,Tree1)) then
begin
MMouse(x,y,1,1)
If(IsUpText('ree')) Then
begin
Mouse(x,y,0,0,true)
Flag
end
If(Not(IsUpText('tree'))) Then
begin
If(FindMSColor(x,y,Tree1)) Then
begin
Mouse(x,y,0,0,true)
Flag
end
end
end
end
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{[[
procedure DropTheLogs;
begin
If (InvFull) then
begin
repeat
If (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
Mouse(x,y,3,3,false);
ChooseOption(x,y,'drop');
If ( Not (LoggedIn) ) Then NextPlayer (true)
wait(100+random(100));
end;
Until (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) = true
end;
end
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
——————————————————
<!– END TEMPLATE: formanswers –>
