SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
3 years i think

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

Hey im pretty new to scripting but i learned this pretty fast but still dont know the like really advanced things but i will learn soon i hope :). I can do scripting almost every day so i could keep getting better. Im really nice (i think lol :spot:) and SRL members are really nice and i helped rudeboialex with his dummy pwner A LOT and now its a decent script(but i dont like it cuz its kinda pointless[you can only get 8 attack]) but Ive helped other people before too.

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

program AutoWoodCutter;
{


Description :
              _______________
              | Description |
    --------------------------------------
    //-Chops Trees and Switches Players-//
    --------------------------------------

[]----------------------------------------------------------[]

              ____________
              | Features |
    ------------------------------------
    //      -Full AntiRandoms-        //
    //          -AntiBan-             //
    //  -Good TreeFinding procedure-  //
    ------------------------------------

[]----------------------------------------------------------[]
    
    Instructions : Setup Player Array
                   Set Tree Color
                   Set Loads
                   !Start!

[]----------------------------------------------------------[]

    Credits : To Pwnaz0r and JAD for their help and tuts
     
[]----------------------------------------------------------[]
     
     
{.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 ProgressReport;
begin
    Writeln('   __________________________________________ ');
    Writeln(' /           >>Ub3r Ch0pp3r V4<<              \');
    Writeln('|                                             |');
    Writeln('|    >>Did ' + IntToStr(Loads) + ' Loads<<    |');
    Writeln('|                                             |');
    Writeln('|   >>Time Worked: ' + (ScriptTime2(2)) +'<<  |');
    Writeln('|                                             |');
    Writeln('|              >>Ub3r Chopp3r V4<<            |');
    Writeln(' \___________________________________________/');
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;
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;
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 –>

Needs failsaifes for loops.
overall its too simple.

Try making procedure repeat only a certain number of times.
Try making it search for tree like 5 times, change compass angel ect.

hey yohojo i was wondering if u could help me or something so i could understand how to do it than i would make my own of something else… but for now i wanna perfect my woodcutter(sorry idk if im supposed to post on my own app) but tysm for tell me how to fix and ill look into it :)

FIXED! now u can start it on the menu(where u click existing user and type in username and stuff) or by trees and added failsafes so if it doesnt find tree it presses down arrow :) idk if i was supposed to just like fix and post but here it is :P

program AutoWoodCutter;
{


Description :
              _______________
              | Description |
    --------------------------------------
    //-Chops Trees and Switches Players-//
    --------------------------------------

[]----------------------------------------------------------[]

              ____________
              | Features |
    ------------------------------------
    //      -Full AntiRandoms-        //
    //          -AntiBan-             //
    //  -Good TreeFinding procedure-  //
    ------------------------------------

[]----------------------------------------------------------[]
    
    Instructions : Setup Player Array
                   Set Tree Color
                   Set Loads
                   !Start!

[]----------------------------------------------------------[]

    Credits : To Pwnaz0r and JAD for their help and tuts
     
[]----------------------------------------------------------[]
     
     
{.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 ProgressReport;
begin
    Writeln('   __________________________________________ ');
    Writeln(' /           >>Ub3r Ch0pp3r V4<<              \');
    Writeln('|                                             |');
    Writeln('|    >>Did ' + IntToStr(Loads) + ' Loads<<    |');
    Writeln('|                                             |');
    Writeln('|   >>Time Worked: ' + (ScriptTime2(2)) +'<<  |');
    Writeln('|                                             |');
    Writeln('|              >>Ub3r Chopp3r V4<<            |');
    Writeln(' \___________________________________________/');
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.