SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
i was script for my self

Programming Knowledge


Other Communitys


How Long have You Played Runescape
5 years

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

hi
im worken in script and i like the scar programs and all thats
and now i try to make my self a scripter im not really a good scripter
but i have the chance to be good scripter and my brother help me alot
to script becouse he know alot in scripting and he help me alot in
and i will try my best to be a good scripter the same of him
and now i will show u some of my works its not much but thes wat my brother help me in it lol,and i will be greatful if u maked me a member
and thes is my script its a power cutter i know its not much thes what im good in and soon i will make a power miner

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

program AutoWoodCutter;

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

var Loads: Integer;
LogsDTM: Integer;

const
TreeColor = 4878432;//Set the color of the tree,already set to normal/oaks
StartPlayer = 0;
NumberOfUsers = 6;
LoadsPerPerson = 15;//How many loads for each player?

procedure LoadDTMs;
begin
  Logs := DTMFromString('78DA633CCCC0C0B095010D302291407A37903' +
       '84940CD7920B197809A1340E21801359B81C47EFC6A001D5B0798' +
       '');
  end;

procedure DeclarePlayers;

begin

 HowManyPlayers:= 6;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer :=0;

  Players[0].Name :='UserName';
  Players[0].Pass :='PassWord';
  Players[0].Nick :='3-4 Letters Of UserName';
  Players[0].Active:=True;

  Players[1].Name :='UserName';
  Players[1].Pass :='PassWord';
  Players[1].Nick :='3-4 Letters Of UserName';
  Players[1].Active:=True;

  Players[2].Name :='UserName';
  Players[2].Pass :='PassWord';
  Players[2].Nick :='3-4 Letters Of UserName';
  Players[2].Active:=True;

  Players[3].Name :='UserName';
  Players[3].Pass :='PassWord';
  Players[3].Nick :='3-4 Letters Of UserName';
  Players[3].Active:=True;

  Players[4].Name :='UserName';
  Players[4].Pass :='PassWord';
  Players[4].Nick :='3-4 Letters Of UserName';
  Players[4].Active:=True;

  Players[5].Name :='UserName';
  Players[5].Pass :='PassWord';
  Players[5].Nick :='3-4 Letters Of UserName';
  Players[5].Active:=True;
  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
 end;

function DoAntiBan: Boolean;
 begin
  Wait(50 + random(100));
  BoredEvery(4 + random(7));
  Wait(100 + random(100))
  RotateEvery(3 + random(3));
  Wait(750 + random(250));
  LeaveScreenEvery(6 + random(2));
  Wait(500 + random(150));
  HoverEvery(4+random(6),'WoodCutting')
  Wait(1000+random(100));
end;

procedure DoAntiRandoms;
begin
 FindTalk;
 FindNormalRandoms;
if (FindFight = true) then
 begin
  RunAwayDirection('S');
  Wait(10000 + random(2000));
  RunBack;
 end;
end;

Function FindColors: Boolean;
begin
  GameTab(4);
  result := FindAxeHeadColor;
end;

Function FindAxeHead: Boolean;
begin
  AttachHead;
end;

procedure RepeatClicking;
begin
repeat
 if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  MMouse(x,y,0,0);
  Wait(100+random(10));
  Mouse(x,y,0,0,false);
  wait(1000+random(100));
  ChooseOption(x,y,'Cho');
  wait(2500+random(250));
  DoAntiRandoms;
  If(isFKeyDown(12))then terminatescript;
 end;
 If not (FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  KeyDown(VK_Down);
  Wait(500+random(50));
  KeyUp(VK_Down);
 end;
until(InvFull);
end;

function FindTheEnt(TreeColor: Integer): Boolean;
begin
 If(FindEnt(4878432))then
  begin
    Mouse(648,83,1,1,true);
    FTwait(30);
  end;
end;

procedure Drop;
begin
  repeat
  if(FindDTM(Logs,x,y,0,0,764,700)) then
    begin
      MMouse(x,y,0,0);
      wait(100+random(10));
      Mouse(x,y,0,0,false);
      ChooseOption(x,y,'rop');
    end;
  until not (FindDTM(Logs,x,y,0,0,764,700))
 Loads:= Loads + 1
end;

begin
ActivateClient;
LoadDTMs;
ClearDebug;
SetupSRL;
DeclarePlayers;
If(not(LoggedIn)) then
LoginPlayer;
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd - Microsoft Internet Explorer');
FindAxeHeadColor;
repeat
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
FindColors;
RepeatClicking;
FindTheEnt(TreeColor);
FindAxeHead;
AttachHead;
DoAntiBan;
Drop;
ProgressReport;
If(Loads = LoadsPerPerson)then NextPlayer(False);
until(false) or
(IsFKeyDown(12));
end.

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