Daniel
2007-11-17 00:07:53
IP-Drowner - SRL Member Application Form
IP-Drowner
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, PHP
Other Communitys
Moparisthebest
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I like to script SCAR. And i also like this community very much, i always use the SRL Stats when i am using a script (I onl started using the stat's system like a week ago).
I alway's like to give support to those i can help in the Scripting Help and i alway's post bug's found in script's that another person has created. I am not a leecher because i post Progress Report's too and i say thanks to the maker of that script.
I hope i make it into the SRL Member Community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
IP-Drowner
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, PHP
Other Communitys
Moparisthebest
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I like to script SCAR. And i also like this community very much, i always use the SRL Stats when i am using a script (I onl started using the stat's system like a week ago).
I alway's like to give support to those i can help in the Scripting Help and i alway's post bug's found in script's that another person has created. I am not a leecher because i post Progress Report's too and i say thanks to the maker of that script.
I hope i make it into the SRL Member Community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
/////////////////////////////////////////////////////////////////////////////////////////
// //
// PowerCutter Script. //
// Made By: //
// IP-Drowner. //
// Script Version: 1.4 //
// Build: 011 //
// SRL Versiob: 4.00 //
/////////////////////////////////////////////////////////////////////////////////////////
{
Information:
If you have paid for this script, then you have been scammed.
This script is Freeware and can be published anywhere without
the author's permission but as long as it is not modified.
Includes SRL, so download SRL for SCAR.
Customized for SCAR DIVI 3.12a+. Uses SRL 4.
Setup Info:
Setup lines 38-49 and lines 57-75 then select the
Runescape screenusing the crosshair and the
script should do the rest.
Other Info:
Any bugs found, please report it immediantely to the
forums you downloaded from.
If the support and need further assistance preparing
and setting up the script, please post at the
forums you downloaded from. If you require help
from the author, please visit
[url]http://srl-forums.com/forum/[/url] and PM IP-Drowner or
post in the thread.
Credits To:
Nobody at the moment.
}
program PowerCutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
const
CompassAngle = 'n'; //Which way do you want to Compass to Face?
RunDirection = 'n'; //Which direction do you want to run if finds a fight?
WaitTime = 1000; //Waiting period in between clicks. Please use Milliseconds.
TreeColour = 0; //The colour of your specified tree. Colour must be unique.
TreeColour1 = 0; //If above colour is not found, it will try to find this one.
LogColour = 0; //The colour of the log in your inventory.
Wielding = True; //Are you wielding your axe?
CULoads = 10; //Number of Loads to do before switching players.
X2 = 764; //End of Runescape Screen. Defaults Loaded.
Y2 = 502; //End of Runescape Screen. Defaults Loaded.
TreeTolerance = 2; //Only change to a lower value if it has trouble finding the specified tree colour.
procedure DeclarePlayers;
begin
HowManyPlayers := 4; //Set Number of Players here.
NumberOfPlayers(HowManyPlayers); //Don't Touch
CurrentPlayer := 0; //Player to Start with
Players[0].Name := 'Username'; //Your Username
Players[0].Pass := 'Password'; //Your Password
Players[0].Nick := 'erna'; //3 or 4 letters from your username.
Players[0].Active := True; //Will You Be Using This Player?
Players[1].Name := 'Username'; //Your Username
Players[1].Pass := 'Password'; //Your Password
Players[1].Nick := 'erna'; //3 or 4 letters from your username.
Players[1].Active := True; //Will You Be Using This Player?
Players[2].Name := 'Username'; //Your Username
Players[2].Pass := 'Password'; //Your Password
Players[2].Nick := 'erna'; //3 or 4 letters from your username.
Players[2].Active := True; //Will You Be Using This Player?
Players[3].Name := 'Username'; //Your Username
Players[3].Pass := 'Password'; //Your Password
Players[3].Nick := 'erna'; //3 or 4 letters from your username.
Players[3].Active := True; //Will You Be Using This Player?
end;
var
x, y, Chops: Integer;
procedure FindAndChop;
begin
repeat
RandomRClick;
if(FindColorTolerance(x,y,TreeColour,0,0,X2,Y2,TreeTolerance)) or
(FindColorTolerance(x,y,TreeColour1,0,0,X2,Y2,TreeTolerance)) then
begin
if(FindEnt(x, y, False)) then
begin
RunAwayDirection(RunDirection);
Wait(5000 + Random(290))
RunBack;
end else
begin
Writeln('Sorry, the tree colour you specified could not be found.');
LogOut;
end;
Mouse(x,y,5,5,True);
RandomRClick;
Wait(WaitTime + random(696))
Chops:= Chops + 1;
HoverSkill('woodcutting', false);
RandomRClick;
MakeCompass('s');
SayCurrentLevels('woodcutting');
if(InvFull) then
begin
if(Wielding = True) then
begin
DropToPosition(1,28);
end else
begin
DropToPosition(2,28);
end;
end;
Until(Loads = CULoads)
end;
end;
procedure UnSafeDisguiseScar(disguise: String);
begin
GetApplication.Title:= disguise;
GetSelf.Caption:= disguise;
end;
procedure DisguiseScar(DisguiseName: String);
var
t: TVariantArray;
begin
SetArrayLength(t,1);
t[0] := disguise;
ThreadSafeCall('UnSafeDisguiseScar',t);
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
FindNormalRandoms;
end;
procedure ProgressReport;
begin
Writeln('///////---Progress Report---\\\\\\\');
Writeln('You have chopped ' + IntToStr(Chops) + ' times.');
Writeln('');
Writeln('You have done ' + IntToStr(Loads) + ' loads.');
Writeln('');
Writeln('Script has been running for' + TimeRunning);
Writeln('\\\\\\\---Progress Report---///////');
SRLRandomsReport;
end;
begin
ClearDebug;
SetupSRL;
ActivateClient;
if (not(LoggedIn)) then LoginPlayer;
Wait(2000 + Random(1000));
MakeCompass(CompassAngle);
repeat
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
FindAndChop;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
FindAndChop;
ProgressReport;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
AntiRandoms;
if (not LoggedIn) then
begin
NextPlayer(false);
SetupSRL;
end;
Until(IsFKeyDown(8))
end.——————————————————
Ok, So: