Harled
2007-05-16 10:10:48
Harled - SRL Member Application Form
Harled
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
By my brother GoF not much to explain about that.
Programming Knowledge
Some c++, quite lot of delphi.
Other Communitys
None.
How Long have You Played Runescape
Why is this even here? In total about lets say 3 years but ive quitted many times.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 16 years old and from finland. What else do you want to know? Oh and im GoF's brother. Actually I dont have much experience at RuneScape cheating and the only reason I want to apply here is making scripts because begging for cheats or using some crappy keylogged "miners" isn't for me.
While previewing this I noticed that "What is the meaning to life?" is invisible for me so I cant answer to them.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
:spot: My first script and yes I actually made that :spot:
{CHICKEN DESTROYER BY HARLED.
I MADE THIS SCRIPT TO APPLY FOR SRL MEMBERSHIP. LOVE IT OR HATE IT.
LET ME KNOW WHAT TO IMPROVE/EDIT TO MAKE IT BETTER, NOT PLANNING ON RELEASING THIS
BUT INCASE I DONT GET ACCEPTED.. SCRIPT MIGHT NOT WORK 100% BUT I MADE IT ONLY
TO SHOW MY KNOWLEDGE ABOUT SCAR.
THIS SCRIPT TOOK ATLEAST A FEW HOURS TO MAKE SO PLEASE TRY TO ATLEAST COMMENT
THE SCRIPT HOW IT COULD BE IMPROVED OR SO TO GET SRL MEMBERSHIP, INCASE ITS NOT
GOOD ENOUGH ALREADY.
THANKS TO GoF FOR TEACHING ME ALOT ABOUT SCAR ;)
I KNOW CAPS LOCK IS ANNOYING SO DONT COMMENT THAT AS A - FOR THE SCRIPT.
Note: You need to have feathers in first inventory slot.
}
program HarledChickenDestroyer;
{.Include SRL/SRL.scar}
const
Feather = 10240; //Only color to set.. This has worked for me well.
Chicks = 1000; //Chickens to kill.
First = 0; //First acc to play?
Switch = True; //Switch players?
STO = 15; //Switch timeout.. In minutes.. Only needed if above is true.
MaxW = 10; //Max wait before clicking chicken again in seconds.
DumbDebug = True; //Debug alot? Such things as clicking chickens/finding feathers etc.
AntiB = True; //Do antiban?
var
CDone, Clicx, Swaps, Picks: Integer; //For report.
ChickC: array[0..3] of Integer; //Chicken colors.
ChickTimes, SwapTO, TheSwitch: Longint; //For timers.
FeatherDTM: Integer;//DTM
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := First;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].String1 := 'strength'; //Fightmode.. Valid = 'attack' 'strength' 'defence'
Players[0].Active := True; //You will get a error if fightmode is spelled wrong.
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].String1 := 'strength';
Players[1].Active := True;
end;
Function FindFastRandoms: Boolean;//By WT-Fakawi(Didnt see this coming, eh :P)
var
i: Integer;
begin
for i:=1 to 9 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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
wait(1);
end;
end;
function AccountCheck: Boolean;
var
Check: Integer;
begin
for Check := 0 to HowManyPlayers do
begin
if (Players[Check].Active = True) then
begin
if (DumbDebug) then
Writeln('Still active accounts.');
Result := True;
end;
end;
if (Result) then
Exit;
else
begin
Writeln('No more accounts.');
Writeln('Terminating');
TerminateScript;
end;
end;
procedure Termination(ReasonForTerminate: string);
var
OutAlready: Integer;
begin
Writeln(ReasonForTerminate);
DisguiseSCAR(ReasonForTerminate);
Status(ReasonForTerminate);
while (LoggedIn) do
begin
OutAlready := OutAlready + 1;
LogOut;
if (OutAlready = 3) then
begin
Writeln('Couldnt log out.');
Writeln('Terminating anyway');
TerminateScript;
end;
end;
if (not (LoggedIn)) then
begin
Writeln('Managed to log out.');
TerminateScript;
end;
end;
procedure LoadThings;
begin
Writeln('Loading chicken colors.');
ChickC[0] := 1121675;
ChickC[1] := 2160891;
ChickC[2] := 858759;
ChickC[3] := 1121675;
Wait(100+random(600));
Writeln('Done.');
end;
procedure BanMeNot;
var
RandB: Integer;
begin
if (AntiB) then
begin
if (not (LoggedIn)) then
begin
Exit;
end;
RandB := Random(35)
case RandB of
1: BoredEvery(2 + Random(10));
2: MakeCompass('N');
3: HoverSkill('Strenght', false);
4: LeaveScreenEvery(10 + Random(5));
5: BoredEvery(9 + Random(21));
6: DoEmote(1 + Random(20));
7: RotateEvery(20 + Random(5));
8: MMouse(Random(300), Random(400), 10, 10)
end;
end;
end;
procedure CheckFeather; //Very.. Not necessary.
begin
MMouseItem(1);
Wait(1000 + random(400));
if (not (IsUpText('eath'))) then
begin
Writeln('No feather in first inv slot..');
Wait(500 + random(300));
Writeln('Its required.');
Wait(500 + random(300));
Writeln('Terminating.');
Termination('Feathers lost');
end
else
begin
Writeln('Feathers found!');
Writeln('Proceeding.');
end;
end;
function DeclareStyle: Boolean;
var
Real: Boolean;
begin
Writeln('Setting up fighting style.');
GameTab(1);
if(Players[CurrentPlayer].Skill = 'attack') or
(Players[CurrentPlayer].Skill = 'strength') or
(Players[CurrentPlayer].Skill = 'defence') then
begin
Real := True;
Writeln('Valid fighting style!');
end
else
begin
Writeln('Invalid fighting style!');
Real := False;
end;
if (not (Real)) then
begin
Players[CurrentPlayer].Active := False;
Result := False;
end
else
begin
if (Players[CurrentPlayer].Skill = 'attack') then
begin
Writeln('Current player is training attack.');
SetFightMode(1);
end;
if (Players[CurrentPlayer].Skill = 'strength') then
begin
Writeln('Current player is training attack.');
SetFightMode(2);
end;
if (Players[CurrentPlayer].Skill = 'defence') then
begin
Writeln('Current player is training attack.');
SetFightMode(4);
end;
Wait(1500 + Random(500));
GameTab(2);
HoverSkill(Players[CurrentPlayer].Skill, False);
GameTab(4);
end;
end;
function WeAreInLumbridgeCastle: Boolean;
begin
if FindSymbol(x, y, 'water') then
begin
Result := True;
Writeln('We are at lumby!');
Writeln('Damnit!');
Players[CurrentPlayer].Active := False;
LogOut;
end;
end;
procedure EquipAll; //A bit useless.
var
EQB: integer;
DDx, DDy: integer;
begin
repeat
EQB := EQB + 1;
if (ExistsItem(EQB)) then
begin
MMouseItem(EQB);
GetMousePos(DDx, DDy);
Wait(200);
if (IsUpText('Wield')) then
Mouse(DDx, DDy, 0, 0, True);
Wait(1000 + random(2000));
end;
until (EQB = 3) or (EQB = 4)
end;
procedure SetSwapTimeOut;
begin
Writeln('Setting swap timeout.');
SwapTO := STO * 60000;
SwapTO := SwapTO + Random(4 * 60000);
Wait(1000 + random(500));
Writeln('Done setting times.');
end;
function Destroy: boolean;
var
ZX: integer;
ChX, ChY: integer;
Tx,Ty: Integer;
CTO: integer;
begin
CTO := 20000 + random(10000);
MarkTime(ChickTimes);
repeat
ZX := Random(6); //For color arrays.
if (FindColorTolerance(ChX, Chy, ChickC[ZX], MSx1, MSy1, MSx2, MSy2, 15)) then
begin
MMouse(ChX, ChY, 1, 1);
if(IsUpText('tta')) or
(IsUpText('ack')) then
if FindColor(Tx, Ty, 255, ChX - 25, Chy - 25, ChX + 25, Chy + 25) or
FindColor(Tx, Ty, 65280, ChX - 25, Chy - 25, ChX + 25, Chy + 25) then
begin
Break;
Exit;
end;
end
else
begin
Mouse(ChX, ChY, 1, 1, true);
Result := True;
end;
until (Result) or (TimeFromMark(ChickTimes) > CTO)
end;
procedure RandomMpos;
var
SSx, SSy: Integer;
RandM: Integer;
BrkIt: Integer;
begin
GetClientDimensions(SSx, SSy);
Wait(100);
RandM := Random(3 + 2);
repeat
MMouse(Random(SSx), Random(SSy), 35, 35);
Wait(100 + random(200));
BrkIt := BrkIt + 1;
until (BrkIt = RandM)
Wait(random(300));
end;
procedure WaitForEnd;
var
MxWait: Integer;
TheTimr: Longint;
begin
MarkTime(TheTimr);
MxWait := MaxW * 1000;
MxWait := MxWait + random(2000);
repeat
Wait(100 + random(35));
FindFastRandoms;
until (TimeFromMark(TheTimr) > MxWait)
end;
function Feathers: Boolean; //Might not work well, but should work in theory.
var
TempC: Integer;
PickX: Integer;
PickY: Integer;
begin
if (not (LoggedIn)) then
begin
Exit;
end;
if (FindMSColorTol(x, y, Feather, 10)) then
begin
TempC := GetColor(x, y);
Wait(100 + random(100));
if (FindColorTolerance(x, y, TempC, x - 30, y - 30, x + 30, y + 30, 15)) then
begin
if (DumbDebug) then
Writeln('Possibly feathers sighted...');
end;
MMouse(x, y, 2, 2);
Wait(200 + random(200) - Random(100));
if (IsUpText('eath')) then
begin
if (DumbDebug) then
begin
Writeln('Feathers!');
end;
GetMousePos(PickX, PickY);
case (Random(15)) of
1: RandomMPos;
3: RandomMPos;
7: RandomMPos;
end;
Mouse(PickX, PickY, 2, 3, True);
Wait(150);
Picks := Picks + 1;
Flag;
Wait(Random(2000));
Result := True;
Exit;
end
else if (not (IsUpText('eath'))) then //Try right clicking.
begin
GetMousePos(PickX, PickY);
Mouse(PickX + Random(3) - Random(3), PickY + Random(3) - Random(3), 1, 1, False);
Wait(50 + random(100));
if (ChooseOption(PickX, PickY, 'eath')) then
Flag;
Wait(Random(2000));
Result := True;
Exit; //done, we can exit.
end
else
begin
if (DumbDebug) then
Writeln('No feathers.. damn.');
Exit;
end;
end;
end;
procedure Welcome;//I just think this is cool.
begin
ClearDebug;
Writeln('Script by: ');
Wait(500+random(100));
Writeln(' __ __ ___ __ ');
Wait(500+random(100));
Writeln('/\ \/\ \ /\_ \ /\ \ ');
Wait(500+random(100));
Writeln('\ \ \_\ \ __ _ __\//\ \ __ \_\ \ ');
Wait(500+random(100));
Writeln(' \ \ _ \ /´__`\ /\`´__\\ \ \ /´__`\ /´_` \ ');
Wait(500+random(100));
Writeln(' \ \ \ \ \/\ \_\.\_\ \ \/ \_\ \_/\ __//\ \_\ \ ');
Wait(500+random(100));
Writeln(' \ \_\ \_\ \__/.\_\\ \_\ /\____\ \____\ \___,_\ ');
Wait(500+random(100));
Writeln(' \/_/\/_/\/__/\/_/ \/_/ \/____/\/____/\/__,_ / ');
end;
begin
Welcome;
SetUpSRL;
DeclarePlayers;
LogInPlayer;
CheckFeather;
repeat
if (LoggedIn) then
begin
DeclareStyle;
SetRun(True);
GameTab(4);
Writeln('Run set...');
SetScreenName(Players[CurrentPlayer].Nick);
HighestAngle;
SetSwapTimeOut;
MarkTime(TheSwitch);
end;
Writeln('Starting to destroy chickens soon.');
repeat
Destroy;
WaitForEnd;
Feathers;
if (not (LoggedIn)) then
Break;
if (AntiB) then
BanMeNot;
until (TimeFromMark(TheSwitch) > SwapTO)
AccountCheck;
if (LoggedIn) then
begin
NextPlayer(True);
end else
begin
NextPlayer(False);
end;
until (False)
end.——————————————————
<!– END TEMPLATE: formanswers –>