SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
i was script for my self

Programming Knowledge
java-php and some of delphi

Other Communitys
used to make scripts

How Long have You Played Runescape
4 years

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

hi im evil dark and im a scripter in like 4 Languages in so kinda a programmer and im now try to make big scripts in runescape to help players if they board of runescape and i wish i will be help fully as much i can : best wishes for all the programmers
ur scripter:evil dark

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

program SRLSmelter;

////west falador smeltir by evil dark and i cut some of other players to help full my script////

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Smithing.scar}
//********************************************\\
Const
      Name       = '';     // Put your name here for SRL
      Pass       = '';     // Put your pass here for SRL
      Nick       = '';    // Put your nickname here for SRL
      BarType    = 'iron';     //Choose from bronze, iron, silver, steel, gold, mithril, adamantite, or rune
      Debug      = False;  //only tells you the road color...
      
//***************Colors***********************\\ Change only if they don't work!
      BankCol              = 5101552;
      WaterCol             = 14566928;
      FurnaceCol           = 1998847;
      RiverCol             = 12161406;
//********************************************\\

//Don't edit below this Point! Unless you know what you're doing.

Var Ore1,Ore2,Bar:string;
Var FirstOre,SecondOre,FirstOreBmp, SecondOreBmp,BarBmp:integer;
Var BarsSmelted,Trips:Integer;

Var FB1,FB2,FB3: Integer; // BankerDTMs (Yellow dots at three angles: -10,0,+10 degrees)
// For use with DTM3Flag that plants a flag when any of 3 DTM's is found

Const StartPlayer   = 0;              // Only for use with 1 player.

Procedure DeclarePlayers;
begin
     HowManyPlayers:=1;             // Only for use with 1 player.
     NumberOfPlayers(HowManyPlayers);
     Players[0].Name     :=Name;
     Players[0].Pass     :=Pass;
     Players[0].Nick     :=Nick;
     Players[0].Loc      :='Falador';
     Players[0].String1  := BarType // Choose from bronze, iron, silver, steel, gold, mithril, adamantite, rune
     Players[0].Active   := True;
end;

Procedure FillMem;   // 3 yellow dot bankers @ different angle ; Taken from Wizzup and WT-Fakawi's GuildRaper
begin

  FB1 := DTMFromString('78DA636C66626008634001972E5E66F80FA41' +
       '981F83F1030B601D5C4A0AAF9F38789810BAA0604189B8850D345' +
       '580D00CA7B110D');
  FB2 := DTMFromString('78DA63EC61626008614001478F1E65F80FA41' +
       '981F83F1030F602D544A1AAF9F38789810BAA0604182712A1662A' +
       '504D247E3500C2961107');
  FB3 := DTMFromString('78DA636C646260086140038C0CFFC12403C37' +
       'F206004A9894255F1E70F130317540D58472B504D3401359D4035' +
       '31F8D50000978B0E8E');
end;

procedure MoveMouseRandom;
var x,y:integer;
begin
x:=Random(766);
y:=Random(504);
MMouse(x,y,15,15);
end;

procedure EndScript;
begin
if BankScreen then
begin
DepositAll;
wait(250);
repeat
CloseBank;
until (not(BankScreen))
end;
Wait(1000);
Logout;
TerminateScript;
end;

function DTM3FlagEX(DTM1, DTM2, DTM3: Integer;MouseXAdjust,MouseYAdjust:Integer;Click: Boolean): Boolean;//by Wt-Fakawi, adjusted just a lil bit. :)
var
  x, y: Integer;
begin
  repeat
    if not LoggedIn then break;
    if findMMDTM(x, y, DTM1) then
    begin
      Result := True;
      if (Click) then
      begin
        Mouse(x+MouseXAdjust, y+MouseYAdjust, 0, 0, True);
        Flag;
          break;
      end
      else
        break;
    end
    else
      Result := False;

    if findMMDTM(x, y, DTM2) then
    begin
      Result := True;
      if (Click) then
      begin
        Mouse(x+MouseXAdjust, y+MouseYAdjust, 0, 0, True);
        Flag;
        break;
      end
      else
        break;
    end
    else
      Result := False;

    if findMMDTM(x, y, DTM3) then
    begin
      Result := True;
      if (Click) then
      begin
        Mouse(x+MouseXAdjust, y+MouseYAdjust, 0, 0, True);
        Flag;
        break;
      end
      else
        break;
    end
    else
      Result := False;
    Wait(100);
  until (not FlagPresent);
end;

function OpenBankQuietTimed(WhichBank: String; HowLong:Integer): Boolean; //by WT-Fakawi, added a time part so that it didn't lag completely
var
  VarrockEastCounter, VarrockWestCounter, DraynorCounter,
    FaladorEastCounter, FaladorWestCounter, TheCounter,
    Dx, Dy, tol, Mark2, Mark3: integer;
  acc, accthres: extended;
begin
  VarrockEastCounter := BitmapFromString(30, 1, 'z78DA6DC' +
    'E5D0A80300C03E02BCDD92EE9E3DCF0FE4732EC077D90908F5228' +
    '9460E689AEDC0C35D13E068DCEAA6E5DDB34E7E2D6524C1D96B7E' +
    '5B0D0DCCCFF1CF70945095C92CBAE56E6F1C972C4DEE046457B00' +
    'D4FB2728');
  VarrockWestCounter := BitmapFromString(30, 1, 'z78DA333530B' +
    '130B1304521413484044218DB05C6868A1A98184144CC0C4D5C8C' +
    '8C9149134B6333034B9C24C24C98692011430C930DA1A48BB1235' +
    '0171209001C2C2544');
  FaladorEastCounter := BitmapFromString(1, 43, '252323554227644D' +
    '2D6E55337B5F3A7B5F3A6E5A336E5A33968979948778928677928' +
    '677756D6383786A8D7F6F9586719C8B7687683F8C6D42896E4D80' +
    '68498068497D65487D65487A63467A6346776145776145755F437' +
    '55F436E5533715735775C38775C387762388F6F43816A3B7E683A' +
    '816A3B9276547E683A846C3D746036');
  FaladorWestCounter := BitmapFromString(1, 29, '98887381' +
    '633B87683F7D6548836A4A7D65487D65487A63467A63467A63467' +
    '76145776145755F43755F436B52316B52316E5533715735775C38' +
    'A1835C9F815B8C6D428C6D428C6D428C6D427B643A7B643A74603' +
    '68B866F');
  DraynorCounter := BitmapFromString(34, 1, 'z78DA658E4B0' + // works too for al karid
    'E80300844AF34FCB45DAA70FF2B89B40B12339997F0C980BA5C98' +
    '06837A7AE828CE74551F77FF51CBCD1FC5D901369614282816E59' +
    '683EF94207AF2BA55C9948672BFB2FB7D5A1F6E8A10D0C9274552' +
    '39FD022AE92A73');
  case WhichBank of
    'feb': TheCounter := FaladorEastCounter;
    'fwb': TheCounter := FaladorWestCounter;
    'vwb': TheCounter := VarrockWestCounter;
    'veb': TheCounter := VarrockEastCounter;
    'akb': TheCounter := DraynorCounter;
    'db': TheCounter := DraynorCounter;
    'eb': TheCounter := DraynorCounter;
  end;
  SendArrowSilentWait(0, 750 + Random(500));
  MarkTime(Mark3);
  Tol := 1;
  accthres := 0.6;
  repeat
    FindDeformedBitmapToleranceIn(TheCounter, Dx, Dy, MSX1 + 50, MSY1 + 50, MSX2 - 50, MSY2 - 50, tol, 4, True, acc);
    if (acc >= accthres) then
    begin
      MMouse(Dx, Dy, 0, 0);
      if IsUpTextMulti('e Bank', 'Booth', 'ooth') then
      begin
        GetMousePos(Dx, Dy);
        Mouse(Dx, Dy, 0, 0, False);
        if ChooseOption(Dx, Dy, 'uickly') then
        begin
          MarkTime(Mark2);
          repeat
            Wait(10);
            if TimeFromMark(Mark2) > 10000 then
            begin
              writeln('couldnt find the bank. Exiting');
              FreeBitMap(VarrockEastCounter);
              FreeBitMap(VarrockWestCounter);
              FreeBitMap(FaladorEastCounter);
              FreeBitMap(FaladorWestCounter);
              FreeBitMap(DraynorCounter);
              Exit;
            end;
          until BankScreen;
        end;
        Result := True;
        FreeBitMap(VarrockEastCounter);
        FreeBitMap(VarrockWestCounter);
        FreeBitMap(FaladorEastCounter);
        FreeBitMap(FaladorWestCounter);
        FreeBitMap(DraynorCounter);
        Exit;
      end;
    end;
    wait(100);
    FindNormalRandoms;
    tol := tol + 4; if tol >= 20 then
    begin
      tol := 1;
      accthres := accthres - 0.1;
      if accthres < 0.2 then
      begin
        writeln('couldnt find the bank. Exiting');
        FreeBitMap(VarrockEastCounter);
        FreeBitMap(VarrockWestCounter);
        FreeBitMap(FaladorEastCounter);
        FreeBitMap(FaladorWestCounter);
        FreeBitMap(DraynorCounter);
        Exit;
      end;
    end;
  until TimeFromMark(Mark3) > HowLong;
  FreeBitMap(VarrockEastCounter);
  FreeBitMap(VarrockWestCounter);
  FreeBitMap(FaladorEastCounter);
  FreeBitMap(FaladorWestCounter);
  FreeBitMap(DraynorCounter);
end;

function ClickMiniColor(col:Integer;MouseXAdj,MouseYAdj:Integer):Boolean;
var x1,y1,c:integer;
var x2,y2:integer;
begin
c:=0;
  while (c <= 40) do
  begin
     if FindMiniColor(x1,y1,col,c,False) then
     begin;
        if FindSymbol(x2,y2,'bar') then
        begin
          if (Distance(x1,y1,x2,y2)<10) then Exit;
        end;
        x1:=x1+MouseXAdj;
        y1:=y1+MouseYAdj;
        result:=true;
        MouseFindNoFlag(x1,y1,MouseXAdj,MouseYAdj);
        Exit;
     end;
     c:=c+5;
  end;
end;

function FindMiniTol(color,inc, maxtol:integer):Boolean;
var x,y,c:Integer;
begin
 c:=0;
 while(c<=maxtol) do
 begin
    x:=645;
    y:=85;
   if FindMiniColor(x,y,color,c,True) then
     begin
       result:=true;
       Exit;
     end;
   c:=c+inc;
 end;
end;

function indFallyRoadColor:integer;
var red,green,blue:integer;
var TestColor,a,b,GenericFallyRoadColor:integer;
begin
  GenericFallyRoadColor:=6518652;
  Flag;
  a:=595;
  b:=30;
  repeat
    b:=b+1;
    repeat;
      a:=a+1;
      if FindColorTolerance(x,y,GenericFallyRoadColor,a,b,700,120,60) then
      begin
        a:=x;
        b:=y;
        TestColor:=GetColor(x,y);
        red:=(TestColor mod 256);
        green:=((TestColor/256) mod 256);
        blue:=((TestColor/256) / 256);
        if Red-Green>=2 then if Red-Green<=15 then
        if Red-Blue>=20 then if Red-Blue<=30 then
        if Green-Blue>=10 then if Green-Blue<=26 then
        begin
          if GetColor(a+5,b+5)=TestColor then
          if GetColor(a+3,b+3)=TestColor then
          if GetColor(a,b+5)=TestColor then
          if GetColor(a+5,b)=TestColor then
          if GetColor(a,b+3)=TestColor then
          if GetColor(a+3,b)=TestColor then
          if GetColor(a+5,b+3)=TestColor then
          if GetColor(a+3,b+5)=TestColor then
          begin
            result:=TestColor;
            Writeln('Falador RoadColor = '+IntToStr(TestColor));
            exit;
          end;
        end;
      end else a:=700;
    until a>=700;
    a:=595;
  until b>=120;
  Writeln('Could not find Falador Road Color!');
  result:=0;
end;

procedure SetRoadColor;
begin
if LoggedIn then
if ((RoadColor=0) or (not(FindColor(x,y,RoadColor,MMX1,MMY1,MMX2,MMY2)))) then RoadColor:=FindFallyRoadColor;

end;

function CheckLogin:Boolean;
begin
if not(LoggedIn) then
begin
   LoginPlayer;
   wait(800 + random(250));
   SetRoadColor;
   result:=true;
end;
end;

function HaveFirstOre:Boolean;
begin
if FirstOre>0 then result:=FindItemBmpTol(FirstOreBMP,15);
end;

function HaveSecondOre:Boolean;
begin
if SecondOre>0 then result:=(CountItemBmpTol(SecondOreBMP,15)>=(SecondOre/FirstOre));
end;

function CustomOpenFurnace:Boolean;
var x,y,c:integer;
begin
c:=0;
  while (c < 30) do
  begin
    x:=259;
    y:=169;
     if FindMainColor(x,y,3625384,c,true) then
     begin;
        x:=x+random(50);
        y:=y+random(30);
        MMouse(x,y,0,0);
        if IsUpText('urna') then
        begin
          Mouse(x,y,1,1,true);
          result:=true;
          Flag;
          Exit;
        end;
     end;
     c:=c+5;
  end;
end;

procedure SetupBars(Var metal:string);
  Begin
    case Lowercase(metal) of
      'bronze' : Begin Ore1:='tin' Ore2:='copper' FirstOre:=14 SecondOre:=14 FirstOreBmp:=TinOre SecondOreBmp:=CopperOre BarBmp:=BronzeBar end;
      'iron' : Begin Ore1:='iron' Ore2:='' FirstOre:=28 SecondOre:=0 FirstOreBmp:=IronOre SecondOreBmp:=0 BarBmp:=IronBar end;
      'silver' : Begin Ore1:='silver' Ore2:='' FirstOre:=28 SecondOre:=0 FirstOreBmp:=SilverOre SecondOreBmp:=0 BarBmp:=SilverBar end;
      'steel' : Begin Ore1:='iron' Ore2:='coal' FirstOre:=9 SecondOre:=18 FirstOreBmp:=IronOre SecondOreBmp:=CoalOre BarBmp:=SteelBar end;
      'gold' : Begin Ore1:='gold' Ore2:='' FirstOre:=28 SecondOre:=0 FirstOreBmp:=GoldOre SecondOreBmp:=0 BarBmp:=GoldBar end;
      'mithril' : Begin Ore1:='mithril' Ore2:='coal' FirstOre:=5 SecondOre:=20 FirstOreBmp:=MithOre SecondOreBmp:=CoalOre BarBmp:=MithrilBar end;
      'admantite' : Begin Ore1:='adamantite' Ore2:='coal' FirstOre:=4 SecondOre:=24 FirstOreBmp:=AdamantOre SecondOreBmp:=CoalOre BarBmp:=AdamantBar end;
      'rune' : Begin Ore1:='rune' Ore2:='coal' FirstOre:=3 SecondOre:=24 FirstOreBmp:=RuniteOre SecondOreBmp:=CoalOre BarBmp:=RuniteBar end;
    end;
end;

procedure CheckOres;
begin
if not HaveFirstOre then TerminateScript;
if not HaveSecondOre then TerminateScript;
end;

function Smelt(var metal:string; Amount:Integer):boolean;
var bmp: integer;
var rx, ry:Integer;
begin
   case Lowercase(metal) of
      'bronze' : begin bmp:= BronzeBar end;
      'iron' :   begin bmp:=IronBar end;
      'silver' : begin bmp:=SilverBar end;
      'steel' :  begin bmp:=SteelBar end;
      'gold' :   begin bmp:=GoldBar end;
      'mithril' : begin bmp:=MithrilBar end;
      'admantite' : begin bmp:=AdamantBar end;
      'rune' :     begin bmp:=RuniteBar end;
    end;
    if FindBitMapTol(x,y,bmp,20,375,490,435) then
       begin
         mouse(x,y,0,0,false);
         if (Amount < 10) then
        begin
          if (Amount < 5) then
            ChooseOption(rx, ry, 'Smelt 5');
          if (Amount < 10) then
            ChooseOption(rx, ry, 'Smelt 10');
        end
        else
        begin
          ChooseOption(rx, ry, 'Smelt X');
          Wait(1000 + Random(100));
          TypeSend(IntToStr(Amount) + chr(13));
        end;
      result:= true;
    end
    else
    begin
        CustomOpenFurnace;
        result:=false;
    end;
end;

procedure WalkToBank;
begin
if ((Trips mod 5) > 0) then SetRun(true);
if not RadialRoadWalk(RoadColor,320,350,50,4,4) then
begin
  SetRoadColor;
  RadialRoadWalk(RoadColor,320,350,60,4,4);
end;
FFlag(10+random(6));
repeat
   if ClickMiniColor(WaterCol,4,4) then break;
   FindTalk;
   RadialRoadWalk(RoadColor,270,300,50,4,4);
   FFlag(10+random(16));
until (ClickMiniColor(WaterCol,4,4));
Flag;
repeat
   if DTM3FlagEX(FB1,FB2,FB3,2+Random(6),-2,True) then break;
   RadialRoadWalk(RoadColor,260,170,25,4,4);
   FFlag(5+random(10));
until(DTM3FlagEX(FB1,FB2,FB3,2+Random(6),-2,True))
Flag;
end;

procedure WithdrawFromCoords(rx,ry:integer; Amount:integer);
begin
if (BankScreen) then
  begin
    if (Amount = 1) then
    begin
      Mouse(rx, ry, 2, 2, True);
    end
    else
    begin
      if (Amount = 1) or (Amount = 5) or (Amount = 10) or (Amount = 0) then
      begin
        if (Amount = 5) then
        repeat
          Mouse(rx, ry, 2, 2, False);
          wait(250+random(100));
        until (ChooseOption(x,y,'Withdraw 5'));
        if (Amount = 10) then
        repeat
          Mouse(rx, ry, 2, 2, False);
          wait(250+random(100));
        until (ChooseOption(x,y,'Withdraw 10'));
        if (Amount = 0) then
        repeat
          Mouse(rx, ry, 2, 2, False);
          wait(250+random(100));
        until (ChooseOption(x,y,'Withdraw All'));
      end
      else
      begin
        repeat
          Mouse(rx, ry, 2, 2, False);
          wait(250+random(100));
        until (ChooseOption(x,y,'Withdraw X'));
        Wait(1000 + Random(100));
        TypeSend(IntToStr(Amount) + chr(13));
      end;
    end;
  end;
end;

Function CheckEastBank:Boolean;
var x,y:integer;
begin
if FindColorTolerance(x,y,RiverCol,MMX1,MMY1,MMX2,MMY2,60) then
begin
  if x<MMCX then result:=true;
end;
end;

Procedure EastToWest;
begin
SetRoadColor;
repeat
RadialRoadWalk(RoadColor,280,330,55,2,2)
FFlag(7+random(7));
until(ClickMiniColor(FurnaceCol,0,0))
Flag;
WalkToBank;
end;

Procedure BankStuff;
var timer:Integer;
var x,y:Integer;
begin
FindTalk;
if FindMiniTol(FurnaceCol,5,40) then
begin
  SetRoadColor;
  wait(50);
  WalktoBank;
  Wait(300+random(100));
end
if CheckEastBank then EastToWest;
if (CountItemBmpTol(FirstOreBMP,15)=FirstOre) and (CountItemBmpTol(SecondOreBMP,15)=SecondOre) then Exit;
MarkTime(Mark);
    if not BankScreen then
    begin
      timer:=6000;
      repeat
         if (not(Loggedin)) then  Exit;
         if not OpenBankQuietTimed('fwb',timer) then
         begin
            Timer:=Timer+2000;
            if not(DTM3FlagEX(FB1,FB2,FB3,6,-3,True)) then ClickMiniColor(BankCol,3,3);
         End;
      until(BankScreen or (TimeFromMark(Mark)>60000));
    end
    if(BankScreen)then
    begin
      Wait(Random(2000)+200);
      DepositAll;
      Wait(random(500)+300);
      FixBank;
      Wait(random(200) + 300);
      repeat
      if not(HaveFirstOre) then
      begin
        if FindBitmapToleranceIn(FirstOreBMP,x,y,MSX1,MSY1,MSX2,MSY2,15) then
        begin
          WithdrawFromCoords(x,y,FirstOre);
          wait(random(100) + 700);
        end
        else EndScript;
        if (CountItemBmpTol(FirstOreBMP,15)>FirstOre) then
        begin
          DepositAll;
          Wait(300+random(50));
        end;
      end;
      until (HaveFirstOre);
      if SecondOre>0 then
      begin
         repeat
         if not(HaveSecondOre) then
        if FindBitmapToleranceIn(SecondOreBMP,x,y,MSX1,MSY1,MSX2,MSY2,15) then
        begin
          WithdrawFromCoords(x,y,SecondOre);
          wait(random(100) + 700);
        end
        else EndScript;
         until(HaveSecondOre)
      end;
    end;
    if (random(6)=1) then CloseBank;
    SetRoadColor;
end;

procedure WalkToFurnace;
begin
if ClickMiniColor(FurnaceCol,0,0) then Exit;
ClickMiniColor(WaterCol,3,3);
wait(300+random(100));
Flag;
   repeat
      RadialRoadWalk(RoadColor,110,70,50,4,4)
      FFlag(12+random(11));
   until(ClickMiniColor(FurnaceCol,0,0));
Flag;
end;

procedure SmeltOres;
var sTime:Integer;
begin
repeat
if(not(CustomOpenFurnace)) then Mouse(655,100,2,2,true);
Flag;
wait(500+random(200));
until(Smelt(Bar,FirstOre));
MarkTime(sTime);
    repeat
      if (TimeFromMark(sTime) > (3000*FirstOre)) then
         begin
         if not HaveFirstOre then Exit
         else if not HaveSecondOre then Exit;
         CustomOpenFurnace;
            repeat
              wait(500+random(200));
            until((not(HaveFirstOre)) or (not(HaveSecondOre)) or (Smelt(Bar,FirstOre)));
            MarkTime(sTime);
         end;
      if ClickToContinue or FindTalk then begin
         repeat
            CustomOpenFurnace;
            wait(300+random(200));
         until((not(HaveFirstOre)) or (not(HaveSecondOre)) or (Smelt(Bar,FirstOre)));
         MarkTime(sTime);
      end;
      wait(500+random(100));
      if (Random(10)<4) then MoveMouseRandom;
    until((Not HaveFirstOre) or (Not HaveSecondOre))
    BarsSmelted:=BarsSmelted + CountItemBmpTol(BarBmp,20);
end;

procedure Setup;
begin
     ActivateClient;
     Trips:=0
     BarsSmelted:=0
     SetupSRL;
     SetUpSRLSmithing;
     DeclarePlayers;
     CurrentPlayer:=StartPlayer;
     Bar:=Lowercase(Players[CurrentPlayer].String1);
     SetupBars(Bar); //Bar to Use ;
     BenMouse:=True;
     MouseSpeed:=20;
     LampSkill:='smithing';
     FillMem;
end;

begin
     Setup;
     HighestAngle;
     repeat
        CheckLogin;
        SetRoadColor;
        SetRun(false);
        wait(100+random(100));
        BankStuff;
        wait(500+random(200));
        CheckOres;
        WalkToFurnace;
        wait(300+random(200));
        SmeltOres;
        FindTalk;
        wait(300+random(200));
        WalkToBank;
        Trips:=Trips + 1;
        writeln('Worked for ' + ScriptTime2(2) + '.');
        writeln('Made ' + inttostr(Trips) + ' Trips and ' +inttostr(BarsSmelted) + ' Bars.');
        wait(300+random(200));
     until(false)

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

power woodcutter

INSTRUCTIONS 
                      
       1. Fill in the setup below.                                
       1. Axe in first INV slot...                                
       2. Add your players in the DECLARE PLAYERS Lines 38-65.    
       3. Drag Crosshair into RS window.                          
       4. AXE HEAD FINDER WILL WORK!!!                   
                                  
     
                                                      
     
                                                                             

{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

Var
  LoadNumber : Integer;
  LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM : Integer;
  StartXP, EndXP, TotalXP, TotalLogs : Integer;

Const
  //---------------------------------------------------------------------------
 //                               SETUP
//-----------------------------------------------------------------------------
  AmmountOfLoads = 5; //Ammount of loads you want to chop before switching players. Random 5 is added.
  TheTreeName    = 'Oak'; //Just guess.
  Boxy           = True; // Use Box Solver?
  Sandy          = True; // Use Sandwich Solver?
//-----------------------------------------------------------------------------

//--------------------//
  Treecolor = 2132088;   //Probobly should change this...
  Treecolor2 = 3305568;
//--------------------//


//->Declare Players<-//
Procedure DeclarePlayers;
begin
  Status('Loading Players')

  HowManyPlayers  := 5;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;

     Players[0].Name      := 'Username';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'Nickname'; // 2-4 letters of username
     Players[0].Active    := True;

     Players[1].Name      := 'Username';
     Players[1].Pass      := 'Password';
     Players[1].Nick      := 'Nickname'; // 2-4 letters of username
     Players[1].Active    := True;
end;


//->Load Dtm's<-//
Procedure LoadDTMs;

begin
Status('Loading DTM''s')

LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
       '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
       'C41050B31FA8A698809AB384CD0100CBBD0D20');


AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
       '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
       'F81350F316A8C685809A97403541F8D50000D0090D3C');

RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
       '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
       '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
       'E0099720B7E');

end;


//->Setup<-//
Procedure MySetupScript;
Begin
  Status('Set-Up')
  SetupSRL;
  DeclarePlayers;
  LoadDTMs;
  UseSandwichSolver := Sandy;
  UseBoxSolver      := Boxy;
  Begin
    If (Not(LoggedIn)) then
      Begin
        Status('Logging In')
        Loginplayer;
      end;
   end;
end;


//->Anti Randoms<-//
Procedure TheAntiRandoms;
Begin
  Status('Random Check')
  FindNormalRandoms;
  wait(10)
  FindTalk;
  wait(10)
  if (FindFight) then
  begin
    RunAwayDirection('E');
    Wait(8500 + random(3500));
    RunBack;
  end;
  Wait(10);
  FindTalk;
end;


//->Anti Ban<-//
Var
  WCLEVEL, DONTBAN : Integer;

Procedure TheAntiBan;
begin
  TheAntiRandoms;
  Status('Preforming Antiban')
  if ( not ( LoggedIn )) then Exit;
  DONTBAN:= 1 + Random(140)
  case DONTBAN of
     1: RandomRClickEvery(2 + Random(10));
     2: HoverSkill('woodcutting', false);
     3: HoverSkill('random', false);
     4: DoEmote(1 + Random(20));
     6: PickUpMouse;
     9: MMouse(MSX1,MSX2,10,10)
    12: GameTab(1+random(7))
    13: HighestAngle;
    14: TypeSend('Lol my wc lvl is ' +IntToStr (WClevel)  + '.')
    15: TypeSend('Wc lvl ' +IntToStr (WClevel) + '! Sweet!')
    16: TypeSend('Grr, my wc lvl is only ' +IntToStr (WClevel) + '')
    17: GetSkillLevel('WoodCutting')
    18: GameTab(1+Random(7))
    21: TypeSend('I''m lvl ' +IntToStr (WClevel) + ', but I want ' +IntToStr (WClevel + 3 + Random(8)) + '')
    22: TypeSend('' +IntToStr (WClevel) + ' woodcuting.../')
    23: TypeSend('I can''t wait till im lvl ' +IntToStr (WClevel + 4 + Random(7)) + '')
    24: TypeSend('Hmm... im only lvl ' +IntToStr (WClevel) + ' woodcutting... i should go for ' +IntToStr (WClevel + 6 + Random(8))+'')
    25: TypeSend('yay... lvl ' +IntToStr (WClevel) + 'wc... still...')
    26: TypeSend('cool! only ' + IntToStr (10+random(8)) + 'k xp till lvl ' +IntToStr (WClevel + 1 + random(4)) + ' wc')
    27: TypeSend('WC lvl ' +IntToStr (WClevel) + '')
    28: TypeSend('hmph... only ' +IntToStr (WClevel) + '')
    end;
  TheAntiRandoms;
end;


//->Get Axe Colors<-//
Procedure GetAxeColors;
Begin
GameTab(4)
Wait(1000 + Random(100))
FindAxeHeadColor;
Wait(1000 + Random(100))
MakeCompass('N')
end;


//->Ent Checker<-//
Var
  EX, EY : integer;
  FX, FY : integer;
Procedure EntChecker;
Begin
  Status('Checking For Ent')
  Flag;
  If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    MMouse(Ex, EY, 0, 0)
      If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
      Begin
        Status('Ent Found');
        MouseFindFlag(648,83,5,5);
        Wait(15000+Random(5000));
      end;
   end;
end;


//->Check for Broken Axe<-//
Var
  BX, BY, NX, NY : integer;

Procedure IsAxeBroken;
Begin
  Status('Checking for broken axe')
  GameTab(4)
  Wait(400 + Random (100))
  If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
  Begin
    Status('Axe Not Broken')
    Exit;
  end;
  Begin
    If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
       (Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
    Begin
      Status('Broke an Axe, and you have no more.')
      NextPlayer(False)
      end;
   end;
end;


//->Axe Head Finder<-//
Procedure TheFindAxe;
Begin
Status ('Looking For Axe')
FindHead;
end;


//->Start Chopping<-//
Var
  TX, TY : Integer;

Procedure StartChopping;
Begin
 Repeat
 Begin
   IsAxeBroken;
   Status('Looking For Oak')
   If (InvFull) then
   Begin
     Exit;
end;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  EntChecker;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    Mouse(TX, TY, 3, 3, True)
    Wait( 100 + Random (200) )
    TheAntiRandoms;
    Wait(10)
    TheAntiBan;
    Wait(10)
    If ( Not (LoggedIn) ) Then NextPlayer (False)
    Wait(10)
    EntChecker;
    Wait(10)
    TheFindAxe;
    Wait(4000+Random(1000))
   end;
  end;
 Until (InvFull)
end;


//->Start Dropping<-//
Var
  LX, LY, DroppedLogsCount : Integer;

Procedure StartDropping;
  Begin
   If (InvFull) then
   Begin
     GameTab(4)
     DroppedLogsCount := CountItemDtm(LogDTM) + 6
     Repeat
       GameTab(4)
       If (FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)) then
       begin
         Mouse(LX, LY, 8, 8, false)
         ChooseOption(x,y,'Drop')
         If ( Not (LoggedIn) ) Then NextPlayer (False)
         TheAntiRandoms;
         wait(400+random(100))
       end;
      Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
      LoadNumber := LoadNumber + 1
  end;
end;

//->Progress Report<-//
Procedure ReportIt;
Begin
  SRLRandomsReport;
  WriteLn('[>-----------------------FOURS REPORT-----------------------<]')
  WriteLn('[>Script Time: ' + (TimeRunning) + '')
  WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
  WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
  WriteLn('[>----------------------------------------------------------<]')
end;


//->Main Stuff<-//
begin
  wait(1200)
  MySetupScript;
  HighestAngle;
  MakeCompass('W')
  WCLEVEL :=  GetSkillLevel('WoodCutting')
  Repeat
    GetAxeColors;
    StartXP := GetXp('Woodcutting')
    Repeat
      DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(AmmountOfLoads) + '] ' +(Players[CurrentPlayer].name) + '')
      StartChopping;
      If ( Not (LoggedIn) ) Then NextPlayer (False)
      StartDropping;
      EndXP := GetXp('Woodcutting')
      TotalLogs := TotalLogs + DroppedLogsCount
      TotalXP := (EndXP - StartXP) + (TotalXP)
      ReportIt;
      GetAxeColors;
      Until (LoadNumber + Random (5) > AmmountOfLoads)
        LogOut;
        NextPlayer(True);
        HighestAngle;
        MakeCompass('W')
        WCLEVEL :=  GetSkillLevel('WoodCutting')
        If ( Not (LoggedIn) ) Then NextPlayer (False)
      Until False;
end.

Im not voting.

yet


no need to double post you coulda just had the 2 scripts in there..

waiting for yohojo cause he can tell if they r copy or not..

to me they look copy cause the scripts are made different and have different standards.

but like i said i wont vote till yohojo looks over .. to me… they are copy.


Im going all out and saying its copy cause the scripts do look like they were made by 2 diffrent people… i mean i usually script in the same way..

Same as darky…


Why have SRL names passes and nicks in one, and just consts in the other…This gives it away the most dude. And second of all….

Look at the proggy on the first or second one, I think the second. It says four's report. This makes no sense to me at ALL. I mean, your name doestn' have a four, your chopper's name doesn't have a four…..lol. XD

I hold my vote



EDIT: PWND!!!!! http://www.sythe.org/showthread.php?t=150940


or Click Here

One has player switching, other doesn't….

Im votting no cause they are copy.


look at that… one has instructions the other does not…

the standards are difrent… he seperated and labled them diffrently (i mean completly diffrently)

they just seem so diffrent.

I vote no to.. because you seem to think he's a copier :p and I agree.

No offence you guys, but trust me, if you saw one of my earlier scripts, (maybe he scripted the first one a while ago), and one of my nowaday scripts…I am a copyier too then :P but with my evidence its all good.

he looks relitivly new to SRL… so why make script so much diffrent?

why didn't he respond to this when he was online.

K, but you are STILL assuming.

These are copied.
Ill site my sources ina sec.

Disappointed

Chopper is Fourscapes one my of very good friends
Link:
http://www.sythe.org/showthread.php?t=150940
(I see someone already cought this :p)
But since no one seems to belive him, take it from me a certified CopyBuster.
The woodcutter IS A COPIED SCRIPT

I cant seem to pinpoint the first script, but i caught one un-credited procedure.
function FindRoadColor:integer; Is tara's
http://www.sythe.org/showthread.php?t=163186

From: yohojo8
These are copied.
Ill site my sources ina sec.

Look up at my post.

Look up at mine

From: yohojo8

(I see someone already cought this :p)
But since no one seems to belive him, take it from me a certified CopyBuster.
The woodcutter IS A COPIED SCRIPT

told you they were 2 dif scripting styles i didnt assume on nothing ejj.
so this should be closed hes done :p

Is he going to get banned for doing that? sorry for the noobish question.. I'm a new member :p

Nope, fakawi believes in second chances.
He doesn't get banned.
Its just gonna get put on his "record" (doesn't exist) and will be remembered next time he tries to apply.

I shall be the only Darkie - darky - Dark on this forum!

XD

woot :)