SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP a bit

Other Communitys
Sythe

How Long have You Played Runescape
2-3 years

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

I have alot of experience in scripting. I've been scripting for about a year now. I have made many scripts which I have lost in a formation of my computer so I can't show you any. I am just getting used to SRL and I think I got the hang of it. I don't just take from SRL, I don't say give me this script and this script, and this script. I've never asked for a script but if I did ever ask, I also give to because I make scripts and release them to the public for free. I don't just hurry and make a quick script I take my time and make it good so it works.

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

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Seller
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Tree Ent Random, Now works!

                     Routine
 1)Starts at Willows
 2)Chops until InvFull(Has randoms,responder,ban)
 3)Walks to shop and sells
 4)Walks back and repeats
 5)Logs out after how ever many loads you want

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
 AxeHead Finder, and Color Finder for axe head

                         **CREDITS**
  Thanks to Wobbii for helping me out with, Mostly the Selling at store
  + other little things that are very useful! Thanks
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 42-84///////////////////////////////

const
  WillowColor = 3637360; //Willow color (Color should already work)
  Log = 2051414; //Willow color in Inv (Color should already work)
  Responder = True; //Do You Want To AutoTalk
  ShopGuy = 5865373; //Color of his apron, Set new color everytime
var
  Clicks, Loads: Integer;


//////////////////////////////////////////////////////////////////////
///////////////////////////Players///////////////////////////////////
////////////////////////////////////////////////////////////////////


procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //Your Name
  Players[0].Pass := ''; //Your Password
  Players[0].Nick := ''; //3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Integer1 := 2; //Loads For Player
  Players[0].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Integer1 := 2;
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Integer1 := 5;
  Players[2].Active := False;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Integer1 := 5;
  Players[3].Active := False;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////
///////////////////////////Proggy Report/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
begin
  Writeln('[]========================================[]');
  Writeln('---------------->Willow Proggy<----------------');
  Writeln('  Chopped Approx ' + IntToStr(Loads) + ' Loads' + '    ');
  Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Sold Approx ' + IntToStr(Clicks) + ' Logs' + '   ');
  Writeln('[]========================================[]');
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: if NoGameTab then
          Result := True;
      8: if InBlack then
          Result := True;
      9: if FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Find Randoms//////////////////////////////
////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Auto Responder////////////////////////////
////////////////////////////////////////////////////////////////////

procedure AutoResponder;
var
  Talked: integer;
begin
  if (Responder = True) then
  begin

    if (InChat('Wc lvls') or
      InChat('Wc lvls?') or
      InChat('Woodcut lvls') or
      InChat('Woodcut lvls?') or
      InChat('Woodcutting lvls') or
      InChat('Woodcutting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
        Talked := Talked + 1;
    end;

    if (InChat('Attack lvls') or
      InChat('Attack lvls?') or
      InChat('Atack lvls') or
      InChat('Atack lvls?') or
      InChat('Attac lvls') or
      InChat('Attac lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Attack')))
        Talked := Talked + 1;
    end;

    if (InChat('Defenc lvls') or
      InChat('Defenc lvls?') or
      InChat('Defence lvls') or
      InChat('Defence lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Defence')))
        Talked := Talked + 1;
    end;

    if (InChat('Hp lvls') or
      InChat('Hp lvls?') or
      InChat('Hitpoint lvls') or
      InChat('Hitpoint lvls?') or
      InChat('Hitpoints lvls') or
      InChat('Hitpoints lvls?') or
      InChat('Hitp lvls') or
      InChat('Hitp lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
        Talked := Talked + 1;
    end;

    if (InChat('Range lvls') or
      InChat('Range lvls?') or
      InChat('Rangin lvls') or
      InChat('Rangin lvls?') or
      InChat('Ranged lvls') or
      InChat('Ranged lvls?') or
      InChat('Ranging lvls') or
      InChat('Ranging lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Ranged')))
        Talked := Talked + 1;
    end;

    if (InChat('Pray lvls') or
      InChat('Pray lvls?') or
      InChat('Prayer lvls') or
      InChat('Prayer lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Prayer')))
        Talked := Talked + 1;
    end;

    if (InChat('Mage lvls') or
      InChat('Mage lvls?') or
      InChat('Mag lvls') or
      InChat('Mag lvls?') or
      InChat('Magic lvls') or
      InChat('Magic lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Magic')))
        Talked := Talked + 1;
    end;

    if (InChat('Cook lvls') or
      InChat('Cook lvls?') or
      InChat('Cookin lvls') or
      Inchat('Cookin lvls?') or
      InChat('Cooking lvls') or
      InChat('Cooking lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Cooking')))
        Talked := Talked + 1;
    end;

    if (InChat('Fletch lvls') or
      InChat('Fletch lvls?') or
      InChat('Fletching lvls') or
      InChat('Fletching lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Fletching')))
        Talked := Talked + 1;
    end;

    if (InChat('Firemaking lvls') or
      InChat('FireMaking lvls?') or
      Inchat('Fire making lvls') or
      InChat('Fire making lvls')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Firemaking')))
        Talked := Talked + 1;
    end;

    if (InChat('Craft lvls') or
      InChat('Craftt lvls?') or
      InChat('Craftin lvls') or
      InChat('Crafting lvls?') or
      InChat('Crafting lvls') or
      InChat('Crafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Crafting')))
        Talked := Talked + 1;
    end;

    if (InChat('Smelt lvls') or
      InChat('Smelt lvls?') or
      InChat('Smelting lvls') or
      InChat('Smelting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Smelting')))
        Talked := Talked + 1;
    end;

    if (InChat('Rc lvls') or
      InChat('Rc lvls?') or
      InChat('Runecraft lvls') or
      InChat('Runecraft lvls?') or
      InChat('Runecrafting lvls') or
      InChat('Runecrafting lvls?')) then
    begin
      TypeSend(IntToStr(GetSkillLevel('Runecraft')))
        Talked := Talked + 1;
    end;

    if (InChat('Wna b freinds?') or
      InChat('Wna be freinds?') or
      InChat('Wana b freinds?') or
      InChat('Wana be freinds?') or
      InChat('Want 2 b freinds?') or
      InChat('Want 2 be freinds?') or
      InChat('Want to b freinds?') or
      InChat('Want to be freinds?')) then
    begin
      TypeSend('No ty')
        Talked := Talked + 1;
    end;

    if (InChat(Players[CurrentPlayer].Name)) then
    begin
      TypeSend('Yeah?')
        Talked := Talked + 1;
    end;

    if (InChat('lol') or
      InChat('lmao') or
      InChat('rofl') or
      InChat('haha')) then
    begin
      TypeSend('lolz')
        Talked := Talked + 1;
    end;

    if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
      InChat('Hey' + (Players[CurrentPlayer].Name)) or
      InChat('Hello' + (Players[CurrentPlayer].Name))) then
    begin
      TypeSend('Hi')
        Talked := Talked + 1;
    end;
  end;

  if (not (Responder = True)) then
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Chop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Chop;
begin
  FindAxeHeadColor;
  repeat
    FindHead;
    FindEnt(WillowColor);
    if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
      wait(1000 + random(10));
    MMouse(x, y, 2, 1);
    wait(1000 + random(10));
    if (IsUpText('Chop')) then
      Mouse(x, y, 3, 1, true);
    wait(2000 + random(2));
    RotateEvery(4 + random(3));
    wait(500 + Random(200));
    RandomRClickEvery(2 + random(3));
    AutoResponder;
    FindRandoms;
  until (InvFull);
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Drop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Drop;
begin
  setrun(true);
  wait(1000);
  if (FindSymbol(x, y, 'Quest')) then
    Mouse(x, y, 2, 1, True);
  wait(3000);
  Flag;
  if (FindSymbol(x, y, 'Water')) then
    Mouse(x, y, 2, 1, True);
  wait(3000 + random(2));
  flag;
  if (FindSymbol(x, y, 'Store')) then
    Mouse(x, y, 2, 1, True);
  wait(3000 + random(2));
  flag;
  wait(6000 + random(2));
  GameTab(4);
  if (FindColor(x, y, ShopGuy, 0, 0, 600, 600)) then
    MMouse(x, y, 0, 0);
  wait(1000 + random(2));
  if (IsUpText('hop')) then
    Mouse(x, y, 0, 0, false);
  if (IsUpText('rade')) then
    wait(400 + random(100));
  ChooseOption(x, y, 'Trade');
  wait(9000 + random(200));
  begin
    logs := DTMFromString('78DA639CCFC4C0F098010544062A324802694' +
      '620FE0F048C33816AEE30A00146B81A306F2A116A1601D5DC24A0' +
      '661950CD1B026AA603D57CC4AF060001280E78');
    repeat
      wait(800 + random(200));
      if (FindDTM(logs, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin

        wait(400 + random(100));
        MMouse(x, y, 0, 0);
        Mouse(x, y, 4, 6, false);
        wait(500);
        if (ChooseOption(x, y, 'Sell 10')) then
      end;
    until (not (FindDTM(logs, x, y, MIX1, MIY1, MIX2, MIY2)));
    wait(1000);
    if (FindSymbol(x, y, 'Water')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    if (FindSymbol(x, y, 'Range')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    wait(1000 + random(2));
    if (FindSymbol(x, y, 'Quest')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    Clicks := Clicks + 27;
    Loads := Loads + 1;
  end;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player In/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Login;
begin
  loginplayer;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Arrange Angle/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Angle;
begin
  HighestAngle;
  MakeCompass('N');
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player Out////////////////////////////
////////////////////////////////////////////////////////////////////

procedure LogsOut;
begin
  if (LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1) then
  begin
    Logout;
  end;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Random Report/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Report;
begin
  SRLRandomsReport;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Repeat Script/////////////////////////////
////////////////////////////////////////////////////////////////////

begin
  SetupSRL;
  repeat
    DeclarePlayers;
    Login;
    Angle;
    FindRandoms;
    Chop;
    Drop;
    ProgressReport;
    Report;
    LogsOut;
  until (false);
end.

_____________________________________________________________________________
My pure wood cutter


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

First of all, why do you have a procedure for logging in? All it is is LoginPlayer, which would be just as much typing as the procedure name. Same with the randoms report. You should have that in your progress report anyways. No multi player, no anti ban and almost all the script is is the auto responder, which I've seen the exact same one somewhere else anyways (not 100% sure you coppied it, you may not have). You should read my tut Learning the things to become a SRL member. Then maybe re apply once you get better.

For now its a no sorry. Good try though, keep it up!

Hey Seth, Looks Like a pretty Simple Script and some of your procedures could be complied into 1 "setup Script" Procedure to clean it up a bit…. As well as just declaring loginplayer,highestangle and SRLrandomsreport than making seperate procedures for them…Looks like you have a basic understanding…But I think It needs a bit more meat and potatoes….. RAM

Edit: JAD FTW by .003 seconds ;)

alright and i didn't copy the autoe responder, thanks for the suggestions and I did read your tut, its very nice

Hey I re did my script to a bit how to liked. Is it better for you a bit? The script is below look

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Seller
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Watch no tree ent Random Yet

                     Routine
 1)Starts at Willows
 2)Chops until InvFull(Has randoms,responder,ban)
 3)Walks to shop and sells
 4)Walks back and repeats
 5)Logs out after how ever many loads you want

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
 AxeHead Finder, and Color Finder for axe head

                         **CREDITS**
  Thanks to Wobbii for helping me out with, Mostly the Selling at store
  + other little things that are very useful! Thanks
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 42-84///////////////////////////////

const
  WillowColor = 3637360; //Willow color (Color should already work)
  Log = 2051414; //Willow color in Inv (Color should already work)
  Responder = True; //Do You Want To AutoTalk
  ShopGuy = 5865373; //Color of his apron, Set new color everytime
  Loads = 2; //How many Loads before switching

var
  Clicks, LoadsNumB, Load: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //Your Name
  Players[0].Pass := ''; //Your Password
  Players[0].Nick := ''; //3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := False;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := False;
  loginplayer;
  HighestAngle;
  MakeCompass('N');
end;

procedure Switch;
begin
  if (LoadsNumB = Load) then
    NextPlayer(True);
  LoadsNumB := 0;
  HighestAngle;
  MakeCompass('N');
  Writeln('Switched players successfully! :)');
end;

procedure ProgressReport;
begin
  Writeln('[]========================================[]');
  Writeln('---------------->Willow Proggy<----------------');
  Writeln('  Chopped Approx ' + IntToStr(Load) + ' Loads' + '    ');
  Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Sold Approx ' + IntToStr(Clicks) + ' Logs' + '   ');
  Writeln('[]========================================[]');
  SRLRandomsReport;
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: if NoGameTab then
          Result := True;
      8: if InBlack then
          Result := True;
      9: if FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

procedure FindRandomsBan;
begin
  FindFastRandoms;
  FindNormalRandoms;
  case Random(8) of
    2: RandomRClickEvery(1 + random(1));
    4: boredhuman;
    6: AntiBan;
    8: HoverSkill('Attack', False);
  end;
end;

procedure Chop;
begin
  FindAxeHeadColor;
  repeat
    FindHead;
    FindEnt(WillowColor);
    if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
      wait(1000 + random(10));
    MMouse(x, y, 2, 1);
    wait(1000 + random(10));
    if (IsUpText('Chop')) then
      Mouse(x, y, 3, 1, true);
    wait(2000 + random(2));
    RotateEvery(4 + random(3));
    wait(500 + Random(200));
    FindRandomsBan;
  until (InvFull);
end;

procedure Drop;
begin
  setrun(true);
  wait(1000);
  if (FindSymbol(x, y, 'Quest')) then
    Mouse(x, y, 2, 1, True);
  wait(3000);
  Flag;
  if (FindSymbol(x, y, 'Water')) then
    Mouse(x, y, 2, 1, True);
  wait(3000 + random(2));
  flag;
  if (FindSymbol(x, y, 'Store')) then
    Mouse(x, y, 2, 1, True);
  wait(3000 + random(2));
  flag;
  wait(6000 + random(2));
  GameTab(4);
  if (FindColor(x, y, ShopGuy, 0, 0, 600, 600)) then
    MMouse(x, y, 0, 0);
  wait(1000 + random(2));
  if (IsUpText('hop')) then
    Mouse(x, y, 0, 0, false);
  if (IsUpText('rade')) then
    wait(400 + random(100));
  ChooseOption(x, y, 'Trade');
  wait(9000 + random(200));
  begin
    logs := DTMFromString('78DA639CCFC4C0F098010544062A324802694' +
      '620FE0F048C33816AEE30A00146B81A306F2A116A1601D5DC24A0' +
      '661950CD1B026AA603D57CC4AF060001280E78');
    repeat
      wait(800 + random(200));
      if (FindDTM(logs, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        wait(400 + random(100));
        MMouse(x, y, 0, 0);
        Mouse(x, y, 4, 6, false);
        wait(500);
        if (ChooseOption(x, y, 'Sell 10')) then
      end;
    until (not (FindDTM(logs, x, y, MIX1, MIY1, MIX2, MIY2)));
    wait(1000);
    if (FindSymbol(x, y, 'Water')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    if (FindSymbol(x, y, 'Range')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    wait(1000 + random(2));
    if (FindSymbol(x, y, 'Quest')) then
      Mouse(x, y, 2, 1, True);
    wait(3000 + random(2));
    flag;
    Clicks := Clicks + 27;
    Load := Load + 1;
  end;
end;

begin
  SetupSRL;
  repeat
    DeclarePlayers;
    FindRandomsBan;
    Chop;
    Drop;
    ProgressReport;
    Switch;
  until (false);
end.

______________________________________________________________________________
My Pure Woodcutter



Please check again I will really appreciate it, remember my first SRL/Script in awhile

Well, it's definately one of the better ones compared to what i've seen recently. I'm going to hold off my vote though, because like JAD and ram said, it isn't fantastic.

However, if you don't get in, keep up the good work. You seem very promising.

Also, pretty nice standards, did you do that yourself or did you zap it with the auto-formatting program?

Hey…did you originally leave your Username and Pass in there?

I just changed someones pass, but I have absolutely no idea who's it was…

PM me with the RS username, and I'll pm you back with the pass (if it was you)

thanks for the complements, I did the standards myself. and that was my pw I also do that but I got i back with my recov q's lol i'm an idiot. Ya this script ain't that fantastic but i'll be making more soon :D

Sorry it's a no from me. It needs a lot more failsafes. I don't know if you've actually got any. You have all the if then statements which is fantastic but you didn't do failsafes for it. e.g.

 if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
      wait(1000 + random(10));
    MMouse(x, y, 2, 1);
    wait(1000 + random(10));
    if (IsUpText('Chop')) then

Well wat if it doesn't find willow color or if the text isn't up then what happens. You've got it like this. So here's wat I suggest doing:

 if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
    begin
      wait(1000 + random(10));
    MMouse(x, y, 2, 1);
    wait(1000 + random(10));
    if (IsUpText('Chop')) then
    begin
    //stuff
   end else //if it doesn't find isuptext
   begin
   //stuff to do when it doesn't find isuptext
   end;
   end else //if it doesn't find willowcolor
   begin
   //stuff to do if it doesn't find willowcolor
   end;

some stuff u might wanna use in ur end else statements are
Logout;
Exit;
that's what I use the most but u might want to make it walk forward a bit or increase the tolerance of the tree color or something. It's really up to u. Failsafes own!

hope u understand that and hope it made sense. otherwise hit me up on msn (rkroxpunk@hotmail.com) and I'll be glad to help

I get it i tried but when ever i do end else it says colon needed in the middle of end and else so i cant :S Ill email u up and we'll take thanks

ok I know what's wrong with that but hit me up over msn or an e-mail or something so we don't clog up the forum with useless spam

I just noticed a large [recurring] problem throughout your script. It is a common mistake (one that nearly everyone makes), and shouldn't be too hard to fix.

Example:

begin
  if (LoadsNumB = Load) then
    NextPlayer(True);
  LoadsNumB := 0;
  HighestAngle;
  MakeCompass('N');
  Writeln('Switched players successfully! :)');
end;

If LoadsNumB is equal to load, the script will move on to the next player. Nomatter what, the script will execute the next four commands. (:p confusing, I know. Just look below)

This is how it should be:

begin
  if (LoadsNumB = Load) then
  begin
    NextPlayer(True);
    LoadsNumB := 0;
    HighestAngle;
    MakeCompass('N');
    Writeln('Switched players successfully! :)');
  end;
end;

lol haha ok i got it. Thanks alot this has helped me alot! keep sending complements and suggestions tho and it doesn't bother me about the no's either. but thanks alot!

great attitude. I respect that.

Sorry, but you must wait a month before making another app, im not even going to look at it.

*cough* we just accepted sum1 as a member who had applied 12 days previously to that app *cough* but idc he definately deserved getting in. But we need to be more consistant

ty omgh4ax0rs

EDIT: I've read JAD's tut but I am wondering, what else do you guys want for me to become a member? I can make a new script if you want, but remember this one was my first one so it doesn't matter to me, what ever you perfer:D

EDIT2: If you want me to make a new script, I am in the making of a Fally Cooker + Banker im using Radial Walk Forms, and all the stuff in JAD's Tut.

Well if u added failsafes to ur cutting script and made it a banker that would be pretty good.

well im editing for failsafes now and I will add banking for you, ill have 3 options in it, Seller, Dropper, Banker.

EDIT: I know you guys wanted me to do failsafes so I tried one of your ways but didn't really work so I am wondering, can you see if this is failsafes? Thanks, im asking you guys instead of the public because you guys are pros :P

EDIT2:Got another failsafe that works, what is better.

Failsafe#1

procedure WalkToWillowsandCut;
begin
  writeln('Will have radial walk, just seeing if this is failsafes');
  FindAxeHeadColor;
  if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
  begin
    repeat
      FindHead;
      FindEnt(WillowColor);
      MMouse(x, y, 2, 1);
      wait(1000 + random(10));
      if (IsUpText('Chop')) then
        Mouse(x, y, 3, 1, true);
      wait(2000 + random(2));
      RotateEvery(4 + random(3));
      wait(500 + Random(200));
      RandomRClickEvery(2 + random(3));
      Tries := Tries + 1;
      if (Tries = 10) then
      begin
        Writeln('Can not find willows, switching players');
        Logout;
        Nextplayer(true);
      end;
    until (InvFull);
  end;
end;

begin
  repeat
    WalkToWillowsandCut;
  until (False);
end.

Failsafe#2

procedure WalkToWillowsandCut;
begin
   if (FindSymbol(x, y, 'Fish')) then
   begin
   Mouse(x, y, 2, 1, True);
   setrun(true);
   Gametab(4)
   end else
   begin
    Writeln('Can not find Symbol, switching players');
   Logout;
   Nextplayer(true);
   end;
   wait(5000);
   flag;
   FindAxeHeadColor;
  if (FindColor(x, y, WillowColor, 0, 0, 600, 600)) then
  begin
    repeat
      FindHead;
      FindEnt(WillowColor);
      MMouse(x, y, 2, 1);
      wait(1000 + random(10));
      if (IsUpText('Chop')) then
      begin
       Mouse(x,y,2,1,true);
       FindHead;
      FindEnt(WillowColor);
      end else
      begin
        Writeln('Can not find willows, switching players');
        Logout;
        Nextplayer(true);
      end;
    until (InvFull);
  end;
end;

and yes I do have the constants and variables set I just didn't want to post my whole script for a little part.

In.