SRL Archive - News and General

From: mr_bum
Wanna have a comp between me and u. Who can get a better proggy happening?

So Mr_Bum wants to see whose script is better. So I thought I would add a little poll here to see what people think. *This is only for the kicks! Nothing serious out of this!* My script can be found Here or in my sig. I just did a variable update to my script so I had to change the stats :( Mr_Bums can be found Here. I'm running mine right now so I'll have a proggy later. I guess some of the categories could be:

• Standards
• Functionality
• Complexity
• Best proggy award
• (Any other ideas?)

So vote/post/test/or whatever else you can think of away!

~Camo

I am going to show the errors for both of your scripts, and how to fix it.

Camo Kyle script's error:
InFight wont work right

Procedure IfFight;
Begin
  If (FindFight) Then
  begin
    RunAway('E', False, 1, 1000 + Random(500));
    Inc(Fight);
  end;
End;

AntiRandoms should only be 4 lines long, and there out of order

Procedure AntiRandoms;
Begin
  LampSkill := 'Woodcutting';
  FindNormalRandoms;
  EntFind;
  IfFight;
End;

WcRandoms is not needed

DropAllExcept wont work, and the standereds aren't right

Procedure DropAllExcept(A : Array of Integer);
begin
  For I:=1 To 28 Do
     if not(InIntArray(a, i)) then
     begin
       DropItem(i);
       Inc(Loads);
     end;
end;

Plus tons of your standereds are of in many places


Mr_Bum script's error:
GetLevel can be shortened

Procedure GetLevel;
begin
  Level := GetSkillLevel('Woodcutting');
end;

Your antirandoms arn't right

Procedure AntiRandoms;
Begin
  FindNormalRandoms;
  FindFightEx;
end;

FindTree can be shortened.

Procedure FindTree;
begin
  If not(Loggedin)then Exit;
  FindFightEx;
  WCGained;
  LoadColors;
  MakeCompass('N');
  SetAngle(true);
  SetRun(true);
  For i:= 0 to (GetArrayLength(TreeColor) - 1) do
  begin
    WcGained;
    X := 234;
    Y := 172;
    if(FindObjCustom(x,y,['hop', 'own', (TreeType)],[TreeColor[i]],3)) or FindObjCustom(x,y,['hop', 'own', (TreeType2)],[TreeColor[i]],3) or FindObjCustom(x,y,['hop', 'own', (TreeType3)],[TreeColor[i]],3) or FindObjCustom(x,y,['hop', 'own', (TreeType4)],[TreeColor[i]],3) then
    begin
      Writeln('Serching For Tree');
      MMouse(x,y,2,2);
      if IsUpTextMultiCustom(['hop', 'own', (TreeType)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType2)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType3)]) or IsUpTextMultiCustom(['hop', 'own', (TreeType4)]) then
      begin
        Writeln('Found Tree');
        FindEnt(x,y,true);
        Mouse(x,y,2,2,true);
        Writeln('Cutting Tree');
        Wait(TreeWait +random(500));
        if (InvFull) then
          DropLogs;
      end;
    end;
  end;
  if(Found = False)then
    Exit;
end;

FindTree already drops, so why drop in the main loop?

Begin    //Camo Kyle Fixed my standards
  SetupSRL;
  DeclarePlayers;
  Sig;
  ActivateClient;
  LoginPlayer;
  If not Loggedin then LoginPlayer;
  Disguise('Power Cutter - By Mr_Bum');
  GetLevel;
  repeat
  begin
    FindTree;
    AntiBan;
    AntiRandoms;
    if Loads = DesiredLoads then NextPlayer(true);
  end;
  Proggy;
  until false
end.

Over all, I like Camo Kyle's. Also, if you two(or anyone else) wants scripting help add me on msn, [email]mylesmadness@gmail.com[/email]

Thanks Myles! That means alot coming from you, I'll fix it up based on what you told me. The Reason I had the WcRandoms is because I had too many in my AntiRandoms and it would lag. But now it should be fine. Adding you in the script for helping me too. Like I said, this only for fun.

~Camo

both need alot more to learn…

though Camo kyle is awsome, love his attitude, and helps and i always see nice posts from him.

havent seen bum doing stuff like that, or is it just me not reading his posts lol

i saw both scripts.
i got to give it to Camo Kyle's script.

i like how bum made a DTM dropping proc. i suggested that to camo in his thread.

bum's script is quite simple.
and
both of yall's chopping proc is quite simple imo.

so yeah…
CAMO KYLE ftw

Thanks Joker. Means alot also, my first attempt at a script :p Mine searches for an axe in the inv, if no axe then it drops all the logs.

~Camo

I personally prefer yours (camo kyle). It just seems to work better.

Thanks :D This is suprising…I thought mine was bad…

~Camo

From: Camo Kyle
Thanks :D This is suprising…I thought mine was bad…

~Camo

Lol? I've been telling you it's great for like a week, lmao xD ;)