SRL Archive - RS3 Outdated / Broken Scripts

Hello,My oakcutter.
Smart version and non smart version.
Post bugs proggys what you'd think of it..
i'll be glad to hear them

Ok sounds good but give us some information.

Does it have antirandoms/antiban.
where does it cut or is it a powerchopper?

powerchopper full antirandoms and ent avoider and detects fights i prefer to start in draynor near the oak

Excellent ill give you a proggie soon.

EDIT1: Doesnt actually chop oaks just examines them then does all the antiban moving mouse around hover over skills(which it does far too much you need to tone that down a bit)
So really ive got nothing to say since it doesnt actually do anything.
EDIT2: Ok I edited the colours to 1518376 and it works great ill give you a proggie later im busy atm.

ok glad to hear it:)
My new proggy:Killing oakZZ! for:2 Hours, 24 Minutes and 7 Seconds

got a proggy?

ok, well im looking at it right now and it seems like you havnt payed too much attention to it, when it finds the tree color it waits 20 seconds before seeing if its the right one and clicking it if it is, it says 20000 thats 20 seconds, so i changed it to 2000, also maybee have the user specify the color of the oak, i always dought you wrote much of this by yourself because one procedure is drop ores? isnt this a power chopper lol, also srl has some pretty good procedures, so maybee next time just use ''findent;'' its great. Now, in your talking procedure, do you really think people are going to say those exact words? no i didnt think so so maybee change them to something more general, i just took them out because iof you want to make a usefull one it ill have to be more complex, also isuptext isnt going to do jack if there isnt the right text , so you have to have if isuptext(.whateve.) then. i also decided not to fix your standards they need a little work :) also, in the isuptext you have to have the script move the moouse to were it found the color first :), i finda editied it and put in a new tree finding procedure wich may be better may be worse i dunno, it may not be the greatest but here it is.

//Hello,This is My OakZZ! script.
//Start
//Yeah, this Script is dedicated to all the Scripters that told me
//I'd never amount to nothin', to all the people that lived above the
//buildings that I was hustlin' in front of that called the police on
//me when I was just tryin' to make some money to feed my daughters,
//and all the niggaz in the struggle, you know what I'm sayin'?
//Haha its all good...
//Credits:Pvh The best!, NaumanAkhlaQ
Program OakZZ;
{.include SRL/SRL.scar}
{.include srl/srl/skill/woodcutting.scar}
const
OakColor  = 3234387;//Oak Color
OakColor1 = 1851705; // oak Color Again


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

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'nto';
  Players[0].Active := True;//Player active or not??

{  Players[1].Name := 'username';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;//Player active or not??

  Players[2].Name := 'username';
  Players[2].Pass := '';
  Players[2].Nick := 'Nickname';
  Players[2].Active := True;//Player active or not??

  Players[3].Name := 'username';
  Players[3].Pass := '';
  Players[3].Nick := 'Nickname';
  Players[3].Active := True;//Player active or not??

  Players[4].Name := 'username';
  Players[4].Pass := '';
  Players[4].Nick := 'Nickname';
  Players[4].Active := True;//Player active or not??}

//add more players if u need them...
end;


Procedure Randoms;
 Begin
   FindTalk;
   FindNormalRandoms;
   solveChatRandom;
   FindLamp ('Mining') //Uses lamp on that skill
   DwarfItem;
 If (FindFight)Then
  Begin
   MakeCompass ('N')
   RunTo('E', True)
   Wait(7000 +Random(3000));
   RunTo('W', True);
 End;
End;

procedure AntiBan;
begin
  case random(15) of //do a random number so it won't always perform the antiban
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Woodcutting', False);
    3: AlmostLogout;
  end;
end;

Procedure Oakzz;
var
X,y: integer;
  begin
  repeat
    if FindObjCustom(x, y, ['Oak'], [OakColor1, OakColor], 1)   then
    begin
    wait(1000)
    Writeln('found oak cutting')
    MMouse(x, y, 0, 0)
      if Isuptext('Oak') then
      begin
      Mouse(x,y,7,7,true);
      exit;
      end;
      end else
      if FindObjCustom(cx, cy, ['Oak'], [OakColor1, OakColor], 1)   then
      begin
      wait(1000)
      MMouse(x, y, 0, 0)
      if Isuptext('Oak') then
      begin
        Mouse(x,y,7,7,true);
        exit;
        end;
      End;
   until(invfull)
END;


Procedure Drop;
Var
    logdtm, x, y: integer;
Begin
  if InvFull then
  begin
  If Not (LoggedIn)  Then exit;
  logdtm := DTMFromString('78DA63CC63626078C880029A536D18FE03694' +
    '620FE0F048C054035EF18D000231209A463816A9E135093015473' +
    '87809A3222D45413B60B0046720E26');
    gametab(4);
    Repeat
      If finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2) Then
      Begin
        Mouse(x, y, 3, 3, false);
        Begin
          wait(random(200) + 100);
          chooseoption('rop');
          wait(800 + random(400));
        End;
      End;
    Until (Not (finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2)));
    freedtm(logdtm);
    Begin
        findNormalRandoms;
    end;
  end;
End;




procedure CheckEnt;//THANKS TO Hy71195
var
  eex, eey, cx, cy : integer;
begin
  if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
  begin
    WriteLn('Ent Found! ~Advoiding~');
    DoEmote(4);
    wait(12000+Random(1000));
    Inc(EntsAvoided);
    Entsavoided:=entsavoided+1
    SrlRandomsReport;
    findEnt(cx,cy,false)
  end;
end;


begin
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
   repeat
     Repeat
      writeln( 'Killing oakZZ! for:' + TimeRunning );
      Oakzz;
      Randoms;
      AntiBan;
      Drop;
      Checkent;
    Until(Not(LoggedIn)) or (FindDead)
    If Not LoggedIn or FindDead then
     Begin
      NextPlayer(False);
    Writeln('Thanx PVH for all the help!!!!!!!!!')
   end;
 Until(False);
End.

um belgin? Do you see something wrong in the edited script you posted?

EDIT: Nevermind, you fixed.

EDIT EDIT: And for the script, when finding the obj, either keep it or use TPA's(TPA better), and up the tolerance to about 15-18. Not 1…

And use better standards.

Erm… see anything wrong with this line? I know it's not yours but -

procedure CheckEnt;//THANKS TO Hy71195
var
  eex, eey, cx, cy : integer;
begin
  if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
  begin
    WriteLn('Ent Found! ~Advoiding~');
    DoEmote(4);
    wait(12000+Random(1000));
    Inc(EntsAvoided);
    Entsavoided:=entsavoided+1
    SrlRandomsReport;
    findEnt(cx,cy,false)
  end;
end;

It does "Inc(EntsAvoided);" Then does "Entsavoided:=entsavoided+1" I'm guessing (from sort of knowing hy's scripting) That "Inc(EntsAvoided);" is from Hy and I'm guessing that you didn't know what that meant so you added "entsavoided:=entsavoided+1" based on how none of it is capitalized and seems kinda nubish. Just so you know, they both do the same thing. Inc(EntsAvoided); adds one to the Variable "EntsAvoided" while the other one also does that. So basically you make it say it has dodged 2 ents each time it finds one.

EDIT:::
One more thing - Belgin, Why did you bump this? It was like 3 months old when you replied.

ure script isnt very good… all it does is examine trees…

sorry lol, i didnt realise, i just saw it near the top of the script page :(