SRL Archive - Archive

NinjaTerrorist - SRL Member Application Form
NinjaTerrorist

What is the meaning to life?


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


Programming Knowledge
Some VB, HTML, CSS

Other Communitys
None

How Long have You Played Runescape
4 Months

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

Started playing RuneScape about 4 months ago and eventually found out about cheating, the first site I ever saw that had to do with cheating was Sythe never joined or took part but I noticed the program SCAR, downloaded and installed it along with SRL, about 4 weeks ago I started to learn the language and picked it up pretty quickly. Wrote a few script my latest and probably best script is below.

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

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}
{//                                                                   \\}
{//                    Simple PowerCutter v0.12a                       \\}
{//                                                                   \\}
{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}
{//                                                                   \\}
{//      # ScriptName  = Simple PowerCutter                           \\}
{//      # Author      = NinjaTerrorist                               \\}
{//      # Description = Simple powercutter for all f2p trees.        \\}
{//      # Version     = v0.12a                                       \\}
{//      # Date        = January 29, 2007                             \\}
{//      # Comments    = Start where trees are.                       \\}
{//      # Contact     = [email]NinjaTerrorist@Gmail.com[/email]                     \\}
{//                                                                   \\}
{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}
{//   Script by NinjaTerrorist, like it and/or use it? Please leave   \\}
{//   a comment on my thread.                                         \\}
{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

program SimplePowerCutter;

{.include SRL/SRL.scar}
{.include SRL/SRL/SKILL/Woodcutting.scar}

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

var
  Choped  : Integer;
  Tol     : Integer;
  Responded : Integer;
  Loads   : Integer;

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

const
  TreeColor = 3696736;          { - Ctrl+P to pick the color.        - }
  TreeName  = 'Tree';           { - Tree name, must be a string.     - }
  UsingAxe  = False;            { - Is your axe equiped?             - }
  Load      = 0;                { - Loads todo. Each player.         - }
  LogOutT   = 5;                { - Minutes to stay logged out for.  - }

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure DeclarePlayers;
 begin
    HowManyPlayers := 4;
    CurrentPlayer:= 0;
    NumberOfPlayers(HowManyPlayers);

    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   := True;

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

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

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure Setup;
  begin
    if(not(LoggedIn))then
      begin
        LoginPlayer;
        WriteLn('Logged player in.');
      end;
    if(LoggedIn)then
      begin
        SetupSRL;
        ActivateClient;
        MakeCompass('N');
        HighestAngle;
        WriteLn('Script started at: '+(TheTime));
        FindAxeHeadColor;
      end;
  end;
  
{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure AutoRespond;

var
TalkBack : array [1..5] of string;

 begin

  OldLine := TheLine;
  TheName := Lowercase(Trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 0, 40, True, tr_NormalChars)));
  TheLine := Lowercase(Trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 16711680, 40, False, tr_NormalChars)));
  NewLine := TheLine;

  if(OldLine <> NewLine)then
   begin
    Exit;
   end
   
if(pos('yo', TheName)<>0)or(pos(Players[CurrentPlayer].Nick, TheName) <> 0) then
    begin
    end
    
   else
   
  begin
   repeat

    if(InChatMulti('lol', 'lmao', 'rofl'))then
     begin
      TalkBack[1] := 'lol';
      TalkBack[2] := 'lolz';
      TalkBack[3] := 'lmao';
      TalkBack[4] := 'rofl';
      TalkBack[5] := 'rofl!!';
      TypeSend(TalkBack[1+Random(5)]);
      Responded := Responded+1;
     end;

   if(InChatMulti('hi', 'hey', 'sup'))then
    begin
     TalkBack[1] := 'hi';
     TalkBack[2] := 'hey';
     TalkBack[3] := 'sup';
     TalkBack[4] := 'wassup?';
     TalkBack[5] := 'who are you?';
     TypeSend(TalkBack[1+Random(5)]);
     Responded := Responded+1;
    end;

   if(InChatMulti('wc lvl', 'wc lvl?', 'woodcutting lvls?'))then
    begin
     TalkBack[1] := IntToStr(GetSkillLevel('Woodcutting'));
     TypeSend(TalkBack[1]);
     Responded := Responded+1;
    end;

   if(not(LoggedIn))then
    Break;
   until(false);
  end;
end;

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure AntiStuff;
  begin
    FindNormalRandoms;
    FindEnt(TreeColor);
    FindHead;
    AntiBan;
    AutoRespond;
      if(FindFight)then
        begin
          RunAwayDirection('N');
          Wait(4000+Random(2000));
          RunBack;
        end;
   end;

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure DropTheLogs;
  begin
    if(UsingAxe)then
      begin
        DropToPosition(1, 28);
      end;
    if(not(UsingAxe))then
      begin
        DropToPosition(2, 28);
      end;
   end;
  
{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}
  
procedure ChopTree;
  begin
     Tol := 11;
        if(FindObj(x, y, TreeName, TreeColor, Tol))then
          begin
            Mouse(x, y, 1, 1, True);
            Choped := Choped+1;
            Wait(2000+Random(2000));
            AntiStuff;
          end;
       
          if(not(FindObj(x, y, TreeName, TreeColor, Tol)))then
           begin
             repeat
                if(not(LoggedIn))then
                  begin
                    Break;
                  end;
                    Wait(2000+Random(3000));
                    WriteLn('Tree not found, increasing tolerance.');
                    Tol := Tol+2;
             until(FindObj(x, y, TreeName, TreeColor, Tol))or
                  (Tol > 25)
           end;

          if(Tol > 25)then
            begin
               WriteLn('Maximum tolerance reached.. check your colors.');
               NextPlayer(False);
            end;
            
          if(not(LoggedIn))then
            begin
              NextPlayer(False);
            end;
  end;

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

procedure MainLoop;
  begin
    repeat
      ChopTree;
      if(not(LoggedIn))then
        begin
          Break;
        end;
    until(InvFull)
    DropTheLogs;
    Loads := Loads+1;
    if(LoggedIn) and (Loads > Load)then
      begin
        LogOut;
        Wait(LogOutT*60000);
        NextPlayer(True);
      end;
end;

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

begin
  DeclarePlayers;
  Setup;
    repeat
      MainLoop;
    until IsKeyDown('S');
  WriteLn('Script ended at: '+TheTime);
end.

{//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\}

——————————————————

Dude you left your password in there. I changed it for you don't worry, i'll pm you it in a minute. As for my vote i gotta look it over again.

Fixed. Please change it now.

Seems a little too simple to get in. Sorry, I vote no. Keep learning SRL and you'll get in one day.

i agree with buckley a bit too simple. and the date i have today is january 28 and in your script you have

# Date = January 29, 2007

just something i saw. also this will go forever or until u press s? y not just keep it going until the players are false?

He has S key..

And I say no, add maybe a form, and maybe think of some failsafes to ad..

pfft don't tell him to add a form :p
thats kinda advanced and has nothing really to do with he functionality of the script
forms just help noobs know how to enter consts

but yea i also say no.
You need failsafes and the codeing overall could just be a lot better.

Yup, Failsafes are kinda necessary as they are one of the "Golden Rules or SRL scripting" if they were called that… So ill have to say no too.

Your find axe wont work… you dont have Getaxecolors =D

Well i guess thats a no, oh well il just keep learning. ;)

From: NinjaTerrorist
Well i guess thats a no, oh well il just keep learning. ;)

Yea, thats right man, keep learning and you'll sure become a very good scripter! :D