SRL Archive - Archive

<!– 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 php, c, html

Other Communitys
yes sythe.org , travdev.freehostia.com

How Long have You Played Runescape
3-4 years

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

well iv wrote a few php scripts and a few php tuts and iv been scripting a while and i would like to be a member i hope this gets me in

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

program TreeEater;

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

const
//Type of tree you want to munch. Tree, Oak, Willow and Yew.
Treetype = 'Willow';// if u use yew ur a fucking idiot.
Talking = 'False'; //False not to auto talk.
  //Tree Colors no need to change, change only when needed
  OakColor = 4881568;
  TreeColor = 3440752;
  WillowColor = 2582616;
  YewColor = 2582616;
    // How many loads to do before next player?
     loads = 99;

Procedure DeclarePlayers;
Begin
 HowManyPlayers:=5; //Don't Change if you want more players just fill in their info and set their active to: True/False
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0; //Player to start on

  Players[0].Name :='';  //Fill in your username
  Players[0].Pass :='';  //Fill in your password
  Players[0].Nick :='';      //2-3 letters of your username
  Players[0].Active :=True;      //Set true if you want to use this player
  Players[0].Boolean1 := False;    //Axe Settings: True=Equiped  False=InventoryFirstSlot




function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
Begin
  for i := 1 to 8 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;
      7: Begin
          if InBlack then
          Begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
Begin
  FindFastRandoms;
  FindNormalRandoms;
  If (FindFight) Then RunAwayDirection('N');
end;

Procedure Talk;
  Begin
      if Talking = 'True'  then
    Exit;
    else
    case random(44) of
           0: TypeSend('Most of you are marcoers...');

           1: TypeSend('Wc levels? =[)');

           2: TypeSend('This is boring but iam going for 99 wc!');


Procedure AntiBan;
Begin
  if(not(LoggedIn))then
  Exit;
  case Random(5) of
    0: Begin
       GameTab(2);
       HoverSkill('Woodcutting', false);
       GameTab(4);
       End;
    1: PickUpMouse;
    2: GameTab(1 + Random(12));
    3: MouseBox(MSX1,MMY1,MMX2,MMY2,5);
    4: SleepAndMoveMouse(3000+random(2000));
  end;
end;

function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
  tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2: Integer;
Begin
    Color := Color;
  if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
  Begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        Break;
      a := a + 1;
      if (a = 1) or (a = 3) then
        c := c + 1;
      for i := 1 to c do
      Begin
        if (a = 1) then
        Begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end
        else if (a = 2) then
        Begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end
        else if (a = 3) then
        Begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end
        else if (a = 4) then
        Begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
        Begin
          MMouse(x, y, 0, 0)
          Wait(10);
            cx := x;
          cy := y;
          if (IsUpTextMulti(UT1, UT2, UT3)) then
          Begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

Procedure Proggy;
Begin
  Cleardebug;
  woodclvl:= Getskilllevel ('Woodcutting')
  logs:= logs;
  Writeln('^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
  Writeln('^ Any Tree eater');
  Writeln('^ Version: '+VersionNum);
  Writeln('^ Log Type '+Treetype+'.');
  Writeln('^ Logs cut '+IntToStr(logs)+'.');
  Writeln('^ Loads done '+IntToStr(loadscompleted)+'.');
  Writeln('^ Worked For '+TimeRunning);
  Writeln('^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
  SRLRandomsReport;
end;

Procedure Drop;
Begin
 If(Players[CurrentPlayer].Boolean1 = True)Then
  Begin
   DropTo(1,28);
   loadscompleted := loadscompleted+1;
   logs := logs+28;
 end;
 If(Players[CurrentPlayer].Boolean1 = False)Then
   Begin
   DropTo(2,28);
   loadscompleted := loadscompleted+1;
   logs := logs+27;
 end;
Proggy;
end;

//Ent finder     //TY  Fourscape
Var
  EX, EY : integer;
  FX, FY : integer;
Procedure EntChecker;
Begin
  Status('Checking For Ent')
  Flag;
  If (FindObjMultiText(EX, EY, TreeType, TreeType, TreeType, Treecolor, 4)) then
  Begin
    MMouse(Ex, EY, 0, 0)
      If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
      Begin
        Status('Ent Found');
        MouseFindFlag(648,83,5,5);
        Wait(15000+Random(5000));
        EntsAvoided := EntsAvoided + 1
      end;
   end;
end;



Procedure TreecheckT;
Begin
  If FindObjMultiText2(xx, yy, 'Tre', 'ree', 'ee', TreeColor, 5) Then
  Begin
    Writeln('Your by the right tree');
    end else
    Begin
      Writeln('Your not by the tree, script stopped.');
      TerminateScript;
  end;
end;

Procedure TreecheckO;
Begin
  If FindObjMultiText2(xx, yy, 'Oa', 'ak', 'Oak', OakColor, 5) Then
  Begin
    Writeln('Your by the right tree');
    end else
    Begin
      Writeln('Your not by the tree, script stopped.');
      TerminateScript;
  end;
end;

Procedure TreecheckW;
Begin
  If FindObjMultiText2(xx, yy, 'wil', 'ill', 'low', TreeColor, 5) Then
  Begin
    Writeln('Your by the right tree');
    end else
    Begin
      Writeln('Your not by the tree, script stopped.');
      TerminateScript;
  end;
end;

Procedure TreecheckY;
Begin
  If FindObjMultiText2(xx, yy, 'Ye', 'ew', 'Yew', TreeColor, 5) Then
  Begin
    Writeln('Your by the right tree');
    end else
    Begin
      Writeln('Your not by the tree, Script stopped.');
      TerminateScript;
  end;
end;

Procedure Tree;
Begin
  GameTab(4);
  Repeat
    If FindObjMultiText2(xx, yy, 'Tre', 'ree', 'ee', TreeColor, 5) Then
    Mouse(xx, yy, 5, 6, true);
    Wait(100 + random(200));
    FindRandoms;
    AntiBan;
    EntChecker;
    Axecheck;
    wait(1000 + random(500));
    TreecheckT;
    Talk;
    wait(3000 + random(400));
  Until (invcount = 28);
  Drop;
End;

Procedure Oak;
Begin
  GameTab(4);
  Repeat
    If FindObjMultiText2(xx, yy, 'Oa', 'ak', 'Oak', OakColor, 5) Then
    Mouse(xx, yy, 5, 6, true);
    Wait(100 + random(200));
    FindRandoms;
    AntiBan;
    EntChecker;
    Axecheck;
    wait(5000 + random(500));
    TreecheckO;
    Talk;
    wait(3000 + random(400));
  Until (invcount = 28);
  Drop;
End;

Procedure Willow;
Begin
  GameTab(4);
  Repeat
    If FindObjMultiText2(xx, yy, 'wil', 'ill', 'low', TreeColor, 5) Then
    Mouse(xx, yy, 5, 6, true);
    Wait(100 + random(200));
    FindRandoms;
    AntiBan;
    EntChecker;
    Axecheck;
    wait(5000 + random(500));
    TreecheckW;
    Talk;
    wait(3000 + random(400));
  Until (invcount = 28);
  Drop;
End;


Procedure Yew;
Begin
  GameTab(4);
  Repeat
    If FindObjMultiText2(xx, yy, 'Ye', 'ew', 'Yew', TreeColor, 5) Then
    Mouse(xx, yy, 5, 6, true);
    Wait(100 + random(200));
    FindRandoms;
    AntiBan;
    EntChecker;
    Axecheck;
    wait(30000 + random(5000));
    TreecheckY;
    Talk;
    wait(3000 + random(400));
  Until (invcount = 28);
  Drop;
End;

Begin

 SetupSRL;
 activateclient;
 ClearDebug;
 Proggy;
 DeclarePlayers;
 loadscompleted := 0;
 makecompass('N')
 highestangle;

 If(not(LoggedIn)) Then
   LoginPlayer;

Repeat

 If(loadscompleted = loads)Then
 Begin
  NextPlayer(True);
 End;

Case Treetype of
     'Tree': Tree;
     'Oak': Oak;
     'Willow': Willow;
     'Yew': Yew;
    End;

 Until(False);


end.

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

lol hasn't it only been like a week since your last app.

ya lol but i really want to be a member

The rule is that you have to wait 1 month though.

ok im sorry
deleet this thred

The clock starts ticking now….See you in 30 days with a KICK ASS Script :)