SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
xtremekilling - SRL Member Application Form
xtremekilling

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Delphi, PHP, Java, Html

Other Communitys
GamerzPlanet, Sythe, Moparisthebest, Kaitnieks

How Long have You Played Runescape
5 Years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I own a site called www.xtremekilling.net
I love scripting on my spare time (2 hrs a day, 6 days a week)

Thank you, this is all i need to say.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{
<=============================================>
<     XtremeKilling's PowerChopper V3.0       >
<=============================================>
< INSTRUCTIONS:                               >
< 1) Setup and Players Lines 22 to 67.        >
< 2) Axe wield and extra in inventry.         >
< 3) Start off near lots of trees.            >
< 4) Start Login or logout (Login Better).    >
< 5) Have fun and don't get banned.           >
< 6) Allow internet for version check.        >
<=============================================>
<  *I, XtremeKilling (Kevin C.) Is NOT held*  >
<        *Responsible for anything!*          >
<=============================================>
<  This script can not be reproduce in any    >
<  way, shape, or form. Permission Needed!    >
<=============================================>
<   Visit [url]www.xtremekilling.net[/url] for more      >
<               INFORMATION!                  >
<=============================================>
}

program PowerChopper_by_XtremeKilling;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
{.include SRL/SRL/Misc/PlayerForm.scar}

Var
 xk,yk:integer;
 trips,choppy:integer;
 antibany:integer;
 CurrentVersionString:string;

Const
StartPlayer=0;//The Player Number to start from. (0-4).
treecolor=1722424;//Color of Tree, It will resemble its autocolor to this.
waittime=10000;//Average Click time of trees.
tripstomake=2;//How many chops and drops to make.(1 trip = 28 logs)
direc='W';//N,S,W,E (North, south etc.) Direction to run to.

Procedure DeclarePlayers;
begin
 HowManyPlayers  :=4;               // Set Number of Players here.
 NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
 CurrentPlayer   :=startplayer;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=true;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active:=false;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active:=false;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active:=false;
end;

procedure Introduction;
begin
 ClearDebug;
  writeln(' ');
  writeln('Welcome to XtremeKilling''s PowerChopper!');
  writeln('Visit [url]www.xtremekilling.net[/url] for more Info.');
  writeln(' ');
   status('Starting...');
   wait(2000+random(1000))
end;

procedure ProgressReport;
begin
 writeln('<=======[XtremeKilling''s Power Cutter========>');
 writeln('Trips Made:'+ IntToStr (trips) + '');
 writeln('Total Chopped:'+ IntToStr (choppy) + '');
 writeln('Time Ran:'+ (TimeRunning) + '');
 writeln('Anti-Randoms Found:'+ IntToStr (antibany) + '');
 writeln('<===========[www.xtremekilling.net]===========>');
end;

procedure Antirandom;
begin
 wait(50+random(100));
  if (FindFight) then
  begin
    writeln('Found Attacker');
    status('Running Away');
    runawaydirection(direc);
    wait(8500 + random(3500));
    runback;
    antibany:=antibany+1
  end;
end;

procedure FindTree;
begin
 repeat
 if (FindMainColor(xk, yk, treecolor, 5, true)) then
 Mouse(xk, yk, 3, 3, true);
 antirandom;
  wait(waittime+random(2000))
 until(ExistsItem(28))
end;


procedure DropLogs;
begin
 GameTab(4)
 DropAllLogs;
 trips:=trips+1
 choppy:=choppy+28
 ProgressReport;
end;

begin
 Repeat
  SetupSRL;
  ClearDebug;
  Introduction;
  DeclarePlayers;
  LoginPlayer;
   wait(3000+random(2000))
  FindTree;
  Droplogs;
 until(trips = tripstomake)
  logout;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Seems a little too simple.
Also I dont believe that it switches players, though it supports it.
Study SRL some more and re-apply at a later date.

I agree, there are also no anti randoms and entfinder.

Yea, just a little too simple… Put more effort in this and try again later..?