SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
Scar, VB, small CSS

Other Communitys
Sp0rk, KYAB

How Long have You Played Runescape
3+

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

well im sure you all have heard / know me but the reason i am here is very different now.

i would like to think i have improved much over the past fews months since my last app but the reason i am here is different

before i was more of a leecher, i wanted to get in with "bare" skills and get some goodies, so to speak, this time is different

since i do not auto (rarely) any more i do not need these so called goodies, but the reason i am applying is that i simply would like to be. there's nothing wrong with that. I am running out of time but i don't like to whine and moan to everyone since its my problem and so be it.

Baring in mind that this script is my baby but is not finished. I asked if anyone would want to complete this with or without me on the forum, but i see no point in this going out of date on my computer. So it complies but i haven't tested this at all.

but it would be nice to be accepted :) i will be around on the forums helping people with errors and such its just the raw scripting (from scratch) and stuff that i wont be able to do as much.

i hope that this is a valid enough reason. If not then so be it, i tried

regards,

~spaz

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

program WillowzBasher;

{.include SRL/SRL.scar}
{.include SRL/SRL/misc/Path.scar}
{.include SRL/SRL/misc/DraynorColorFinder.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
{.include SRL/SRL/skill/Magic.scar}

// Many Thanks to those that helped me Ducels in particular with my Warnings

var
  x, y, WillowLog, I, Start, Proc, WillowMM :Integer;
  {Found,}Active, Anti, Sleeper, CombatLvl, TreeArea : Integer;
  AxeColors, AxeDDTM, Axation, AxeTol, AxeArea, TreeDDTM : Integer;
  TotLoads, TotExp, Loads, Experience, Willows2DDTM : Integer;
  UseObscureWillowPlace, GetNewAxe, GoFixAxe, Arrive : Boolean;

const
  TreeColor0            = 4083788;    //feel free to change these if they dont work, but they should
  TreeColor1            = 2120016;
  TreeColor2            = 3896170;
  SleepTime             = 45;         // Time for Sleep in Minutes
  yourSRLID             ='';
  yourSRLPW             ='';

procedure DeclarePlayers;
begin
  NumberOfPlayers(6);
  CurrentPlayer := 0;
  
  UseObscureWillowPlace := False;   // New Willow loc,                        [!]* Not Tested Fully* [!]
  GetNewAxe := False;               // go to Tutor and Get new axe if needed, [!]* Not Tested Fully* [!]
  GoFixAxe := False;                // Will go to bob and fix axe,            [!]* Not Tested Fully* [!]

  Players[0].Name        :='';
  Players[0].Pass        :='';
  Players[0].Nick        :='';
  Players[0].Integers[0] := 15 //Total Loads
  Players[0].Loc         := 'Bank'; //Bank
  Players[0].Active      := True;
  Players[0].Strings[0]  := 'Rune' // Bronze, Iron, Steel, Mith, Addy, Rune

  Players[1].Name        :='';
  Players[1].Pass        :='';
  Players[1].Nick        :='';
  Players[1].Integers[0] := 15 //Total Loads
  Players[1].Loc         := 'Bank'; //Bank
  Players[1].Active      := True;

  Players[2].Name        :='';
  Players[2].Pass        :='';
  Players[2].Nick        :='';
  Players[2].Integers[0] := 15 //Total Loads
  Players[2].Loc         := 'Bank'; //Bank
  Players[2].Active      := True;

  Players[3].Name        :='';
  Players[3].Pass        :='';
  Players[3].Nick        :='';
  Players[3].Integers[0] := 15 //Total Loads
  Players[3].Loc         := 'Bank'; //Bank
  Players[3].Active      := True;

  Players[4].Name        :='';
  Players[4].Pass        :='';
  Players[4].Nick        :='';
  Players[4].Integers[0] := 15 //Total Loads
  Players[4].Loc         := 'Bank'; //Bank
  Players[4].Active      := True;

  Players[5].Name        :='';
  Players[5].Pass        :='';
  Players[5].Nick        :='';
  Players[5].Integers[0] := 15 //Total Loads
  Players[5].Loc         := 'Bank'; //Bank
  Players[5].Active      := True;
end;

procedure Siggy;
Begin
  WriteLn('[]=================================[]');
  WriteLn('[]-------- Willowz Basher ---------[]');
  WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
  WriteLn('[]------ Latest and Greatest ----- []');
  WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
  WriteLn('[]---------- Spaztaz666 -----------[]');
  WriteLn('[]=================================[]');
  wait(1000);
end;
 
Procedure DMT;
begin
 WillowLog := DTMFromString('78DA637CC3C4C03099910119B83B488169982' +
    '8E37DA09A99A86A60B270359F816A661150F307A8661A01358F816AB' +
    'A08A8F90E54D38E5F0D00E58D09C6');
    
  WillowMM := DTMFromString('78DA63FCC3C4C0C0CFC8800C140321344C94F' +
    '13BA61A2E5D3435BF816A4450D56888A3A9F90F542348C01C907B785' +
    '0D5083AA3AA0100BE2F06C5');
end;

Procedure ToFixAxe;
begin
  MouseSpeed := 16;
  RoadColor := FindRoadColor;
  Path[0].Mainpoint.x:=680;
  Path[0].Mainpoint.y:=103;
  Path[0].Subpoints[0].x:=685;
  Path[0].Subpoints[0].y:=91;
  Path[0].Subpoints[1].x:=668;
  Path[0].Subpoints[1].y:=92;
  Path[0].Subpoints[2].x:=681;
  Path[0].Subpoints[2].y:=115;

  Path[1].Mainpoint.x:=626;
  Path[1].Mainpoint.y:=130;
  Path[1].Subpoints[0].x:=629;
  Path[1].Subpoints[0].y:=107;
  Path[1].Subpoints[1].x:=627;
  Path[1].Subpoints[1].y:=121;
  Path[1].Subpoints[2].x:=629;
  Path[1].Subpoints[2].y:=145;
end;

Procedure OnWardsToFixAxe;
begin
  ToFixAxe;
  cast('Home Teleport');
  wait(22000+Random(1000));
  WalkPath(0);
  WalkPath(1);
  If FindSymbol(x, y, 'Axe Shop') then
  Mouse(x, y, 1, 1, true);
end;

Procedure Fixing;
begin
  If FindSymbol(x, y, 'Axe Shop') then
  begin
    //Find NPC Here
  end;
end;

Procedure AxeColor;
begin
  Case Players[CurrentPlayer].Strings[0] of
    'Bronze':AxeColors   := 1847100;
    'Iron'  :AxeColors   := 4079172;
    'Steel' :AxeColors   := 6710886;
    'Mith'  :AxeColors   := 4666157;
    'Addy'  :AxeColors   := 3556917;
    'Rune'  :AxeColors   := 6181691;
  end;
end;


Procedure wcAxeDDTM;
var
  AxeMP: TDTMPointDef;
  AxeSP: Array [0..5] of TDTMPointDef;
  AxeDDTMSkel: TDTM;
  AxeDDTM: Integer;
begin
  AxeTol := 5
  AxeArea:= 1

  AxeMP.x := 712;
  AxeMP.y := 391;
  AxeMP.AreaSize := 1;
  AxeMP.AreaShape := 0;
  AxeMP.Color := AxeColors;
  AxeMP.Tolerance := AxeTol;

  AxeSP[0].x := 712;
  AxeSP[0].y := 391;
  AxeSP[0].AreaSize := 1;
  AxeSP[0].AreaShape := 0;
  AxeSP[0].Color := AxeColors;
  AxeSP[0].Tolerance := AxeTol;

  AxeSP[1].x := 705;
  AxeSP[1].y := 388;
  AxeSP[1].AreaSize := AxeArea;
  AxeSP[1].AreaShape := 0;
  AxeSP[1].Color := 65536;
  AxeSP[1].Tolerance := AxeTol;

  AxeSP[2].x := 697;
  AxeSP[2].y := 413;
  AxeSP[2].AreaSize := AxeArea;
  AxeSP[2].AreaShape := 0;
  AxeSP[2].Color := 65536;
  AxeSP[2].Tolerance := AxeTol;

  AxeSP[3].x := 715;
  AxeSP[3].y := 398;
  AxeSP[3].AreaSize := AxeArea;
  AxeSP[3].AreaShape := 0;
  AxeSP[3].Color := 65536;
  AxeSP[3].Tolerance := AxeTol;

  AxeSP[4].x := 717;
  AxeSP[4].y := 390;
  AxeSP[4].AreaSize := AxeArea;
  AxeSP[4].AreaShape := 0;
  AxeSP[4].Color := 65536;
  AxeSP[4].Tolerance := AxeTol;

  AxeSP[5].x := 704;
  AxeSP[5].y := 391;
  AxeSP[5].AreaSize := AxeArea;
  AxeSP[5].AreaShape := 0;
  AxeSP[5].Color := 65536;
  AxeSP[5].Tolerance := AxeTol;

  AxeDDTMSkel.MainPoint := AxeMP;
  AxeDDTMSkel.SubPoints := AxeSP;
  AxeDDTM := AddDTM(AxeDDTMSkel);
end;

Procedure FindMyAxe;
begin
  Gametab(4);
  for I := 1 to 10 do
  begin
    AxeTol := AxeTol+5;
    AxeArea:= AxeArea+1;
    If FindDTM(AxeDDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      MMouse(x, y, 1, 1);
      If IsUpText('roken') and
      (GoFixAxe) then
       OnWardsToFixAxe;
       Fixing;
    end else
      Mouse(x, y, 1, 1, true);
      Writeln('Axe Equiped');
      Writeln('It was a '+IntToStr(Axation)+' axe');
    end;
  If not FindDTM(AxeDDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Writeln(' Dont equpid the axe yet, next rls will allow it');
    terminatescript;
  end;
end;

Procedure PwnageLvl;
begin
  Gametab(1);
  CombatLvl := GetCombatLevel;
begin
  WriteLn('Combat lvl is ' + IntToStr(CombatLvl));
  If (CombatLvl = 0) then
  begin
    WriteLn('Error with CMB level');
    exit;
  end;
  If (CombatLvl < 15) then
  begin
    WriteLn(+ Players[CurrentPlayer].Name + ' will get pwned by the wizards. TRAIN');
    NextPlayer(False);
  end;
  If (CombatLvl >= 20) then
  begin
    WriteLn(+ Players[CurrentPlayer].Name + ' This will do');
    Writeln('Lets get them trees');
  end;
end;
end;
  
Procedure Proggy;
begin
  cleardebug;
  for i:=0 to howmanyplayers-1 do
  begin
    writeln(+players[i].name+' ~ '+left(booltostr(players[i].active),1)+' ~ Was '+IntToStr(start)+' WC now '+IntToStr(Proc)+' WC ~ Done '+inttostr(Loads)+' loads ~ Gained '+inttostr(Experience)+' Exp');
  end;
  writeln('/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*');
  writeln('*/ Willowz Basher by Spaztaz666');
  writeln('*/ Chopping For '+TimeRunning);
  writeln('*/ Done '+inttostr(TotLoads)+' loads in total');
  writeln('*/ Gained '+inttostr(TotExp)+' Total exp');
  {writeln('*/ Got '+inttostr(Got)+' Axes from tutor');}
  writeln('/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*');
  ReportVars[1] := TotLoads
  ReportVars[2] := TotExp
  SRLRandomsReport;
end;

Procedure ToChicken;
begin
  MouseSpeed := 16;
  RoadColor := FindRoadColor;
Path[0].Mainpoint.x:=690;
Path[0].Mainpoint.y:=67;
Path[0].Subpoints[0].x:=683;
Path[0].Subpoints[0].y:=61;
Path[0].Subpoints[1].x:=685;
Path[0].Subpoints[1].y:=87;
Path[0].Subpoints[2].x:=698;
Path[0].Subpoints[2].y:=69;

Path[1].Mainpoint.x:=686;
Path[1].Mainpoint.y:=96;
Path[1].Subpoints[0].x:=671;
Path[1].Subpoints[0].y:=93;
Path[1].Subpoints[1].x:=683;
Path[1].Subpoints[1].y:=95;
Path[1].Subpoints[2].x:=699;
Path[1].Subpoints[2].y:=97;

Path[2].Mainpoint.x:=668;
Path[2].Mainpoint.y:=45;
Path[2].Subpoints[0].x:=663;
Path[2].Subpoints[0].y:=69;
Path[2].Subpoints[1].x:=664;
Path[2].Subpoints[1].y:=53;
Path[2].Subpoints[2].x:=666;
Path[2].Subpoints[2].y:=29;

Path[3].Mainpoint.x:=610;
Path[3].Mainpoint.y:=38;
Path[3].Subpoints[0].x:=602;
Path[3].Subpoints[0].y:=20;
Path[3].Subpoints[1].x:=609;
Path[3].Subpoints[1].y:=29;
Path[3].Subpoints[2].x:=617;
Path[3].Subpoints[2].y:=47;

Path[4].Mainpoint.x:=616;
Path[4].Mainpoint.y:=26;
Path[4].Subpoints[0].x:=620;
Path[4].Subpoints[0].y:=12;
Path[4].Subpoints[1].x:=615;
Path[4].Subpoints[1].y:=27;
Path[4].Subpoints[2].x:=614;
Path[4].Subpoints[2].y:=43;

Path[5].Mainpoint.x:=607;
Path[5].Mainpoint.y:=31;
Path[5].Subpoints[0].x:=593;
Path[5].Subpoints[0].y:=25;
Path[5].Subpoints[1].x:=607;
Path[5].Subpoints[1].y:=32;
Path[5].Subpoints[2].x:=615;
Path[5].Subpoints[2].y:=55;

Path[6].Mainpoint.x:=600;
Path[6].Mainpoint.y:=47;
Path[6].Subpoints[0].x:=600;
Path[6].Subpoints[0].y:=21;
Path[6].Subpoints[1].x:=597;
Path[6].Subpoints[1].y:=38;
Path[6].Subpoints[2].x:=603;
Path[6].Subpoints[2].y:=63;

Path[7].Mainpoint.x:=627;
Path[7].Mainpoint.y:=32;
Path[7].Subpoints[0].x:=611;
Path[7].Subpoints[0].y:=39;
Path[7].Subpoints[1].x:=623;
Path[7].Subpoints[1].y:=34;
Path[7].Subpoints[2].x:=629;
Path[7].Subpoints[2].y:=48;

Path[8].Mainpoint.x:=605;
Path[8].Mainpoint.y:=96;
Path[8].Subpoints[0].x:=612;
Path[8].Subpoints[0].y:=94;
Path[8].Subpoints[1].x:=606;
Path[8].Subpoints[1].y:=99;
Path[8].Subpoints[2].x:=597;
Path[8].Subpoints[2].y:=105;
end;

Procedure WalkToChickens;
begin
  ToChicken;
  WalkPath(0);
  WalkPath(1);
  WalkPath(2);
  WalkPath(3);
  WalkPath(4);
  WalkPath(5);
  WalkPath(6);
  WalkPath(7);
  WalkPath(8);
  If FindSymbol(x, y, 'churn') then
  Arrive := True;
end;

Procedure FindAxeAtPen;
var
  Axe : Integer;
begin
  WalkToChickens;
  begin
    Axe := DTMFromString('78DA63F46164608805622410EBA10DA661A28' +
    'CC1405608AA9A9E4C2154355640962FAA9AB2487E54359E405620AA9' +
    'AAA183435FE405630AA9A8E7441143500D85607C2');
    SetAngle(False);
    MakeCompass('w');
    begin
      If (Arrive) then
      If DTMRotated(Axe, x, y, mSx1, mSy1, mSx2, mSy2) then
      begin
        MMouse(x, y, 1, 1);
        If IsUpTextMulti('ake', 'ke-axe', 'ronze') then
        Mouse(x, y, 1, 1, False);
        ChooseOption('ake');
      end;
      If not DTMRotated(Axe, x, y, mSx1, mSy1, mSx2, mSy2) then
      Writeln('No free axe, Logging');
      NextPlayer(False);
    end;
    FreeDTM(axe);
  end;
end;

Procedure ToBank;
var
  Kx, Ky : Integer;
  FoundIt : Boolean;
begin
  SymbolAccuracy:= 0.4;
  MakeCompass('n');
  SetAngle(True);
  If (FindSymbol(x, y, 'bank')) then
  begin
    Mouse(x, y, 2, 2, True);
    Wait(1000);
    Flag;
    Writeln('Found Bank symbol, now entering');
    FoundIt := True;
  end else
  begin
    If FindColorTolerance(x, y, 62965, 776, 221, 778, 230, 2) then
    begin
      GetMousePos(kx, ky);
      Mouse((Kx + 10), Ky, 1, 1, True);
      Wait(1000);
      Flag;
      Writeln('Got into bank with the bankers');
      FoundIt := True;
    end else
    begin
      WriteLn('EERRMM no bank, lost, logging');
      FoundIt := False;
    end;
  If FoundIt = True then Writeln('now in bank');
  end;
end;

Procedure SpazBank;
begin
  MakeCompass('N');
  SetAngle(true);
  Proc := GetSkillInfo('woodcutting', false)
  OpenBankQuiet('db');
  if BankScreen then
  begin
    If FindDTM(Willowlog, x, y, MIX1, MIY1, MIX2, MIY2)then
    Mouse(x, y, 1, 1, False);
    ChooseOption('all');
  end;
  Experience := Round(37.5 * 27);
  Loads := Loads + 1
  TotLoads := TotLoads + 1
  TotExp := TotExp + Round(37.5 * 27)
  Proggy;
  If FindDTM(Willowlog, x, y, MIX1, MIY1, MIX2, MIY2)then
  begin
    Mouse(x, y, 1, 1, False);
    wait(100);
    ChooseOption('all');
  end;
  If not FindDTM(AxeDDTM, x, y, MSX1, MSY1, MSX2, MSY2) and
  (GetNewAxe) then
  FindAxeAtPen;
  begin
    case Random(3) of
      0: Disguise('' +IntToStr(loads)+' out of '+IntToStr(Players[currentplayer].Integers[0])+' Loads done');
      1: Disguise('' +IntToStr(Round(37.5 * 27) + Experience) + ' Exp gained');
      2: Disguise('Wc level - ' +IntToStr(Proc));
    end;
  end;
end;
  
Procedure FindTree;
var
  TreeMp: TDTMPointDef;
  TreeSp: Array [0..3] of TDTMPointDef;
  TreeDDTMSkel: TDTM;
begin
  TreeArea := 3;
  
  TreeMp.x := 733;
  TreeMp.y := 295;
  TreeMp.AreaSize := 1;
  TreeMp.AreaShape := 0;
  TreeMp.Color := 1790295;
  TreeMp.Tolerance := 225;

  TreeSp[0].x := 733;
  TreeSp[0].y := 295;
  TreeSp[0].AreaSize := 1;
  TreeSp[0].AreaShape := 0;
  TreeSp[0].Color := 1790295;
  TreeSp[0].Tolerance := 225;

  TreeSp[1].x := 728;
  TreeSp[1].y := 288;
  TreeSp[1].AreaSize := 3;
  TreeSp[1].AreaShape := 0;
  TreeSp[1].Color := 7722;
  TreeSp[1].Tolerance := 35;

  TreeSp[2].x := 740;
  TreeSp[2].y := 292;
  TreeSp[2].AreaSize := 3;
  TreeSp[2].AreaShape := 0;
  TreeSp[2].Color := 7722;
  TreeSp[2].Tolerance := 35;

  TreeSp[3].x := 737;
  TreeSp[3].y := 304;
  TreeSp[3].AreaSize := 5;
  TreeSp[3].AreaShape := 0;
  TreeSp[3].Color := 7722;
  TreeSp[3].Tolerance := 35;

  TreeDDTMSkel.MainPoint := TreeMp;
  TreeDDTMSkel.SubPoints := TreeSp;
  TreeDDTM := AddDTM(TreeDDTMSkel);
end;

Procedure toWillows;
var
  FoundItGain : Boolean;
begin
  FindTree;
  if DTMRotated(TreeDDTM, x, y, mmx1, mmy1, mmx2, mmy2) then
  begin
    Writeln('Yay found DDTM');
    Mouse(x, y, 1, 1, True);
    FoundItGain := True;
  end;
  if not DTMRotated(TreeDDTM, x, y, mmx1, mmy1, mmx2, mmy2) then
  If FindDTM(WillowMM, x, y, MMX1, MMY1, MMX2, MMY2) then
  begin
    Writeln('Found MM DTM');
    Mouse(x, y, 1, 1, True);
    FoundItGain := True;
    exit;
  end;
  if FoundItGain = True then writeln('at trees now');
  GameTab(4);
  exit;
end;

Procedure ToWillows2DDTM;
var
  Willows2DDTMMp: TDTMPointDef;
  Willows2DDTMSp: Array [0..2] of TDTMPointDef;
  Willows2DDTMSkel: TDTM;
  Water : Integer;
begin
  Water := FindWaterColor;
  Willows2DDTMMp.x := 698;
  Willows2DDTMMp.y := 246;
  Willows2DDTMMp.AreaSize := 1;
  Willows2DDTMMp.AreaShape := 0;
  Willows2DDTMMp.Color := 1076871;
  Willows2DDTMMp.Tolerance := 225;

  Willows2DDTMSp[0].x := 698;
  Willows2DDTMSp[0].y := 246;
  Willows2DDTMSp[0].AreaSize := 1;
  Willows2DDTMSp[0].AreaShape := 0;
  Willows2DDTMSp[0].Color := 1076871;
  Willows2DDTMSp[0].Tolerance := 225;

  Willows2DDTMSp[1].x := 697;
  Willows2DDTMSp[1].y := 276;
  Willows2DDTMSp[1].AreaSize := 0;
  Willows2DDTMSp[1].AreaShape := 0;
  Willows2DDTMSp[1].Color := Water;
  Willows2DDTMSp[1].Tolerance := 0;

  Willows2DDTMSp[2].x := 709;
  Willows2DDTMSp[2].y := 245;
  Willows2DDTMSp[2].AreaSize := 0;
  Willows2DDTMSp[2].AreaShape := 0;
  Willows2DDTMSp[2].Color := 15658734;
  Willows2DDTMSp[2].Tolerance := 0;

  Willows2DDTMSkel.MainPoint := Willows2DDTMMp;
  Willows2DDTMSkel.SubPoints := Willows2DDTMSp;
  Willows2DDTM := AddDTM(Willows2DDTMSkel);
end;

Procedure GrayRoadDDTM;
begin
  MouseSpeed := 16;
  RoadColor := FindRoadColor;
  Path[0].Mainpoint.x:=561;
  Path[0].Mainpoint.y:=48;
  Path[0].Subpoints[0].x:=572;
  Path[0].Subpoints[0].y:=72;
  Path[0].Subpoints[1].x:=562;
  Path[0].Subpoints[1].y:=78;
  Path[0].Subpoints[2].x:=561;
  Path[0].Subpoints[2].y:=62;
  Writeln(BoolToStr(FindPath(0, False)));
end;

Procedure RoadWalk;
begin
  GrayRoadDDTM;
  WalkPath(0);
end;

Procedure ToWillows2;
var
  GotThere : Boolean;
begin
  ToWillows2DDTM;
  if DTMRotated(Willows2DDTM, x, y, mmx1, mmy1, mmx2, mmy2) then
  begin
    Writeln('Yay found DDTM');
    Mouse(x, y, 1, 1, True);
    GotThere := True;
  end;
  if not DTMRotated(Willows2DDTM, x, y, mmx1, mmy1, mmx2, mmy2) then
  begin
    Writeln('Next Rev will be able to use coords');
    terminatescript;
  end;
  if GotThere = True then writeln('at trees now');
  GameTab(4);
  exit;
end;


Procedure ChopWillow;
var
  x, y : Integer;
  TTries, clicked  : Integer;
begin
  If Not(LoggedIn) then Loginplayer;
  TTries := 0;
  Flag;
  repeat
    If FindObjCustom(x, y, ['ut', 'illow'], [TreeColor0, TreeColor1, TreeColor2], 5) then
       Mmouse(x, y, 1, 1);
       FindNormalRandoms;
       If IsUpText('illow') then
       begin
         If FindEnt(x, y, False) then
         begin
           Writeln('ent found');
           Writeln('banking and comming back slowly');
           setrun(False);
           ToBank;
           SpazBank;
           wait(5000+Random(1000));
           ToWillows;
         end;
         MarkTime(clicked);
         Mouse(x, y, 1, 1, True);
         Status('Chopping now');
         FindNormalRandoms;
         TTries := TTries + 1
         ftwait(35);
       end;
  until (InvFull) or (TTries > 25);
  If FindBlackChatMessage('You need a Woodcutting level') then
  NextPlayer(False);
end;

procedure ActiveLeft;
begin
  for
   I := 0 To HowManyPlayers - 1 do
    begin
      if (Players[i].active = True) then Active := Active + 1;
      If (Active = 0) then
        begin
          WriteLn('All Players done :)');
          exit;
        end;
      If (Active > 0) then
      WriteLn('' + IntToStr(Active) + ' Players Remaining.');
  end;
end;

Procedure setuppeeps;
begin
  SetupSRL;
  ClearDebug;
  ScriptID := '653';
  DMT;
  SRLID := yourSRLID;
  SRLPassword := yourSRLPW;
  DeclarePlayers;
  activateclient;
  LoginPlayer;
  wait(3000+Random(2000));
  Loads := 0;
  Experience := 0;
  Pwnagelvl;
  Gametab(4);
  FindAxe;
  SetAngle(true);
  SetRun(True);
  MarkTime(Anti);
end;
  

begin
  MarkTime(Sleeper);
  repeat
    if not (loggedin) then setuppeeps;
    Start := GetSkillInfo('woodcutting', false);
    gametab(4);
    If not (UseObscureWillowPlace) then
    repeat
      ToWillows;
        ChopWillow;
        FindNormalRandoms;
        ToBank;
        FindNormalRandoms;
        SpazBank;
    until (Players[currentplayer].Integers[0] = Loads) or (TimeFromMark(anti) >= 2700000) // 45 min
    If (UseObscureWillowPlace) then
    repeat
      RoadWalk;
      ToWillows2;
      FindNormalRandoms;
      ChopWillow;
      ToWillows2;
      RoadWalk;
      ToBank;
      SpazBank;
    until (Players[currentplayer].Integers[0] = Loads) or (TimeFromMark(anti) >= 2700000) // 45 min
    if (Players[currentplayer].Integers[0] = Loads) then
    begin
      NextPlayer(true);
      TotLoads := TotLoads + Loads
      TotExp := TotExp + Experience
      Loads := 0;
      Experience := 0;
      CombatLvl := 0;
    end;
    If (TimeFromMark(anti) >= 2700000) then
    begin
      Tobank;
      SpazBank;
      NextPlayer(true);
      Loads := 0;
      Experience := 0;
      CombatLvl := 0;
    end;
    begin
      if TimeFromMark(sleeper) >= 3600000 then
      begin
        ToBank;
        Spazbank;
        Logout;
        Wait((SleepTime*60000) + Random(300000));
        Nextplayer(true);
      end;
    end;
  until (Active < 1)
  if (Active < 1) then
  Writeln('Thanks for using... :)');
  terminatescript;
end.

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

stop! we don't have enough cookies!

  WalkPath(0);
  WalkPath(1);
  WalkPath(2);
  WalkPath(3);
  WalkPath(4);
  WalkPath(5);
  WalkPath(6);
  WalkPath(7);
  WalkPath(8);

// Better:

  For I := 0 To 8 Do  
  begin
    If not WalkPath(I) then
    begin
      // failsave!
    end;
  end;

and an other thing, try to use nextplayer only in the mainloop.

(yes)

Nice, yes from me :). but you need only declare the paths once, at the beginning because they are universal :D

where did you get idea to use paths ;)?


MK is right ;)

HAHA thanks guys, since i learned bout the power of that walking from ur tut football, its amazing but i haven't discovered quite how to use it yet :P

~Spaz

Yes from me

From: spaztaz666
HAHA thanks guys, since i learned bout the power of that walking from ur tut football, its amazing but i haven't discovered quite how to use it yet :P

~Spaz

tell me what you want/need help with ;)
you should do the loop like MK said, but also add if not FindColor(x, y, RoadColor, MMX1, MMY1, MMx2, MMY2) then RoadColor := FindRoadColor;
because the roadColor changes somtimes whilst walking ;)

Great person, great friend, has the skills. yes.
nice axe DDTM. :)
good luck ;)

~RM

Hax! (Yes!)

You are amazing :). I wonder why you never applied for members.
But its a fucking yesh!

hahah thanks for all the positive stuff guys :) means a lot

~Spaz

Yes Sir!

Totally yes

Yes, didn't looked even script much, just scrolled down, saw it's l33t and remember how supportive you were when Black Hat it leaked to public(Yeah, im not better-.-).

Someone already autoaccept him?:p

Edit: Who voted no? I think it wasn't me. But might, maybe misclick:confused:.He will get in anyways.

Why does people who vonte no never dare to stand for their action(s)?

Yes from me. Good stuff.

yes, no doubt about it

From: Negaal
Yes, didn't looked even script much, just scrolled down, saw it's l33t and remember how supportive you were when Black Hat it leaked to public(Yeah, im not better-.-).

that part confused me… Black Hat? and your not better than what???

lol otherwise thanks a lot guys :)

~Spaz

Very very nice mate, I may have some competition ;)

Do you have a FindFight btw?

Yes!

In! :)