SRL Archive - RS3 Outdated / Broken Scripts

Hello, this is my first script.


Current Verison = 0.11


everyone who downloaded version 0.1 get 0.11

.What this script does is:

bury bones, Smelts, Tan hides, And Craft. Loads is for how many loads to do until switching players. And make sure that when you are filling in the strings, That the first letter is CAPITAL

For crafting, it will craft the highest peice of armor for your level for the type of leather.


If you are using the bone burier, Have the bones in the first bank slot.

If you are smelting, Have the ore in the first slot and then Coal in the second.

Tan hides, Have the money in the sceond bank slot and the Hides in the first.

For crafting, Have the Leather in the first invy spot, Have the needle in your first invy spot and have the thread in the second invys spot. Make sure you have enough thread.


Thats all. And make sure you start in the bank.

Don't post this script anywhere without my perrmisson.

Please tell me how i can improve this script and what problems you have. Or how long it ran for.

Also Rate the script on a scale of 1-10 , 10 being really good

Yay, you released it!!!!!

This looks awesome..I'll test it once i get a chance :)

Wow
Get ready for loads of falses.

:p
J/k Looks very nice.

Thanks i am not sure how it runs, i havent been able to get cow hides and stuff

I looked through it, and you did a good job man. Hopefully someone will get you a good long proggy!

Good luck, and good job with the script. :)

Thanks

good job, keep it up!
can i give comments? :P
1.)

if (Tries > 20)then
  begin
    NextPlayer(True);
    WriteLn('This guy didnt get there.');

>> line 246-279
shouldn't that part be NextPlayer(False); cause you are daying that the guy didn't get there.
So character is inactive, right? so you have to use nextplayer(False);


2.)

until(Tries < 20);
  if (Tries < 20)then
  begin
    Writeln('Player didnt get to Tan... Bye Bye to this guy.');
    NextPlayer(False);

>> line 328-332 shouldn't that supposed to be "until(Tries > 20)?
(same for procedure LastAttemptToFurnace; also same thing)
after 1 try, the value of "Tries" is equal to 1 than, 1 is < than 20 so he'll quit


3.)You walk with just coords, what's not recommened to do, use radialwalk or something else that's more stable than coords

Hope you post back,

The Scar Noob.

Line 62: [Error] (15043:20): Unknown identifier 'rune' in script C:\Documents and Settings\Boys\Local Settings\Temporary Internet Files\Content.IE5\5NEVMLLJ\Operation%20Al%20Kharid[1].scar

Thats my first word of my username, whats up with that?

From: the scar noob
good job, keep it up!
can i give comments? :P
1.)

if (Tries > 20)then
  begin
    NextPlayer(True);
    WriteLn('This guy didnt get there.');

>> line 246-279
shouldn't that part be NextPlayer(False); cause you are daying that the guy didn't get there.
So character is inactive, right? so you have to use nextplayer(False);


2.)

until(Tries < 20);
  if (Tries < 20)then
  begin
    Writeln('Player didnt get to Tan... Bye Bye to this guy.');
    NextPlayer(False);

>> line 328-332 shouldn't that supposed to be "until(Tries > 20)?
(same for procedure LastAttemptToFurnace; also same thing)
after 1 try, the value of "Tries" is equal to 1 than, 1 is < than 20 so he'll quit


3.)You walk with just coords, what's not recommened to do, use radialwalk or something else that's more stable than coords

Hope you post back,

The Scar Noob.

yea i messed up with those but i dont walk with cords, i am useing MouseBox, i cant walk with radial because i cant get a color. the sand color changes alot and by big changes.

Line 62: [Error] (15043:20): Unknown identifier 'rune' in script C:\Documents and Settings\Boys\Local Settings\Temporary Internet Files\Content.IE5\5NEVMLLJ\Operation%20Al%20Kharid [1].scar

Thats my first word of my username, whats up with that?

umm where are u putting your user name?

looks really good but theres no multiplayers

From: Pwnt by Pwnt
looks really good but theres no multiplayers

? lol there is multi player, just add more of those things, Learn the SRL thing it tells you about those things.

looks nice. I needed a good crafter. Theres alot of unecessary waiting in your setup, which doesnt really effect the script, just something i noticed. If you want to use a little brute force function i wrote to get the al kahrid sand color, go for it. Hit me with some cred(h)

{*******************************************************************************
function FindDirt;
By: munk
Description: Returns the Al Kahrid Dirt Color.
*******************************************************************************}

function FindDirt: Integer;
var
  c, a, TCol, R, G, B : integer;
var
  P:array of Tpoint;
begin
  Flag;
  FindColorsSpiralTolerance(x, y, P, 5542324, MMCX, MMY1, MMX2, MMY2, 50);
  a:=GetArrayLength(P);
  for c:= 0 to a-1 do
  begin
    TCol := GetColor(P[c].x, P[c].y);
    r := (TCol mod 256);
    g := ((TCol / 256) mod 256);
    b := ((TCol / 256) / 256);
    if r - g <= 50 then if r - g >= 5 then
      if r - b >= 60 then if r - b <= 110 then
        if g - b >= 40 then if g - b <= 120 then
          if GetColor(P[c].x + 2, P[c].y + 2) = TCol then
            if GetColor(P[c].x + 1, P[c].y + 1) = TCol then
              if GetColor(P[c].x, P[c].y + 2) = TCol then
                if GetColor(P[c].x + 2, P[c].y) = TCol then
                  if GetColor(P[c].x, P[c].y + 1) = TCol then
                    if GetColor(P[c].x + 1, P[c].y) = TCol then
                      if GetColor(P[c].x + 2, P[c].y + 1) = TCol then
                        if GetColor(P[c].x + 1, P[c].y + 2) = TCol then
                        begin
                          Result := TCol;
                          WriteLn('dirt = ' + IntToStr(TCol));
                          Exit;
                        end;
  end;
  WriteLn('dirt not found');
  Result := 0;
end;

Ive tested it on alot of worlds at alot of different times, and its been pretty good.

thx again