SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Little Java, HTML, Little PHP, Some JavaScript , Little Batch and Scar

Other Communitys
Moparisthebest, Moparscape, KYAB, Sp0rk-eh, Java Ownz U (MY Own Forums), EliteHackers, RsCheata

How Long have You Played Runescape
5 Years

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

Well, I started off just a regular runescape player a long time ago I often quit but could never stay away. I then found out about private servers through youtube and joined moparscape was a member there for a while and made my own private server and all and played them but then got sick of them and went to moparisthebest and just learnt things and helped people out. I now really just come to these forums and some other mentioned above including my own. I have known HTML for a while now and I have learnt small bits of all the above programming languages I mentioned and now am trying to become fluent in scar because I see it as a very usefull, fun and interesting language.

I would love to be a member because I would love the benefits and would love to contribute more to this community because I actually see it as the best community I have been involved in so far, there is no fighting like I have seen constantly at moparisthebest/moparscape I notice the admins here do an awesome job of controlling this place (don't hesitate to ban idiots) and yeah I would love to go further in this community so thanks in advance if I am accepted :)

Ps, I see a "Meaning to life" question when I preview but I don't see it in this form so I am guessing it used to be there but isn't anymore ? Well anyway just thought I'd point that out.

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

{
################################################################################
#          _____                                                               #
#         /  _  \__  _  __ ____   __________   _____                           #
#        /  /_\  \ \/ \/ // __ \ /  ___/  _ \ /     \                          #
#       /    |    \     /\  ___/ \___ (  <_> )  Y Y  \                         #
#       \____|__  /\/\_/  \___  >____  >____/|__|_|  /                         #
#               \/            \/     \/            \/                          #
#   __      __.__.__  .__                  _________         __                #
#  /  \    /  \__|  | |  |   ______  _  __ \_   ___ \ __ ___/  |_      .__     #
#  \   \/\/   /  |  | |  |  /  _ \ \/ \/ / /    \  \/|  |  \   __\   __|  |___ #
#   \        /|  |  |_|  |_(  <_> )     /  \     \___|  |  /|  |    /__    __/ #
#    \__/\  / |__|____/____/\____/ \/\_/    \______  /____/ |__|       |__|    #
#         \/                                       \/                          #
#                      __________                __                            #
#                      \______   \_____    ____ |  | __                        #
#                       |    |  _/\__  \  /    \|  |/ /                        #
#                       |    |   \ / __ \|   |  \    <                         #
#                       |______  /(____  /___|  /__|_ \                        #
#                              \/      \/     \/     \/                        #
#                                                                              #
################################################################################


================================================================================
|                           Instructions:                                      |
|          1. Declare Players                                                  |
|          2. Set Rs to Brightest                                              |
|          3. Drag CrossHair.                                                  |
|          4. Start in DraYnor Bank                                            |
|          5. Run!                                                             |
================================================================================
  }
program WillowCutBank;

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

Const
   DebugMode = False;                    // Leave this.
   StartPlayer = 1;                      // Player number to start on.
   Loads = 2;                            // Number of loads.
   NumOfPlayers = 4;                     // Number of players.
   LoadsTime = 10;                       // In minutes.
   YourSRLID  = '';                      // Not your forums username.
   YourSRLPASS =  '';                    // Password.

Var
   BankDTM, WillowDTM, AxeMask, BrokenAxeHeadMask: Integer;
   AxeHeadColor1, AxeHeadColor2, AxeHeadColor3: Integer;
   NormalRandomsTime, FastRandomsTime, FindTalkTime, CallBTime: LongInt;
   NoAxe :Boolean;
   Mark, tx, ty, iWillowLogs, iAxesBroke: Integer;

Procedure DeclarePlayers;

Begin
  HowManyPlayers  := NumOfPlayers;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := StartPlayer;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
  Players[0].Loc := 'Bank';

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active:=False;
  Players[1].Loc := 'Bank';

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

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active:=False;
  Players[3].Loc := 'Bank';

  Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
End;

{======================================================
STOP DONT GO DOWN THERE OR YOU COULD FUCK THE SCRIPT UP!
=======================================================}

Procedure Main(TheText: String);
Begin
  if (DebugMode) then
  Begin
    Writeln(TheText);
  End;
End;


Function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for i:=1 to 10 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: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].rand := 'No GameTab';
               Logout;
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               Players[CurrentPlayer].rand := 'InBlack';
               Logout;
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10: If FindTalk Then Result := True;
    End;
    Wait(1);
  end;
end;

Function Randoms: Boolean; // Not Mine

Var
  TempTime, Time1, Time2: LongInt;

Begin
  TempTime := GetSystemTime;
  If TempTime - NormalRandomsTime > 6000 Then
  Begin
    NormalRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindNormalRandoms;
    Time2 := GetSystemTime;
    Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

  If TempTime - FastRandomsTime > 2000 Then
  Begin
    FastRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindFastRandoms;
    Time2 := GetSystemTime;
    Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;

  If TempTime - FindTalkTime > 500 Then
  Begin
    FindTalkTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindTalk;
    Time2 := GetSystemTime;
    Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
  End;
End;


Function DraynorBank(Var x, y: Integer): Boolean;

Var
   BankA: Extended;

Begin
  Main('DraynorBank');
  Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
  Main('DraynorBank');
End;


Function GetAxeFromBank: Boolean;

Var
   x, y: Integer;

Begin

   Main('GetAxeFromBank');

   FixBank;
   Wait(Random(250)+300);

   If(FindBitmapMaskTolerance(AxeMask, x, y, MSX1, MSY1, MSX2, MSY2, 20, 10))then
   Begin
      Mouse(x, y, 1, 1, True);
      Main('GetAxeFromBank - Spare Axe retrieved from bank');
      Result := True;
   End
   else
   Begin
      Main('GetAxeFromBank - Spare Axe Not Found');
      Players[CurrentPlayer].Loc:= 'No Axes';
      Result := False;
   End

   Main('GetAxeFromBank');
End;


Function Banking: Boolean;

Var
   x, y, Tries: Integer;

begin

  Main('Deposit Load');
  
  Result := False;
    If DraynorBank(x, y) Then
  Begin
    Mouse(x, y, 0, 0, True);
    Wait(100);
    FFlag(0);
    Wait(500);
  End;
  

  Players[CurrentPlayer].Loc := 'Bank';
  

  Repeat
    OpenBankFast('db');
    Tries := Tries + 1;
    ReportVars[1] := ReportVars[1] + 1;
  Until ((BankScreen) Or (Tries > 4));


  If BankScreen Then
  Begin
     iWillowLogs := iWillowLogs  + CountItemBmpTol(WillowDTM, 35);
     Deposit(2, 28, 2);
     Result := True;
     If(NoAxe= True) then
     Begin
        if not (GetAxeFromBank) then
        Begin
           Result := False;
        End
     End;
  End;

  CloseBank;
  Main('Deposit Load');
End;

procedure BankWalk;
begin
   If Not(LoggedIn) Then
   begin
     LoginPlayer;
     Exit;
   end;
   Main('BankWalk');

   If Not LoggedIn Then Exit;
    Randoms;
   Mouse(650, 30, 5, 5, True);
   Wait(4000);
   FFlag(0);
   Wait(500);
   Randoms;
   MakeCompass('N');
   Wait(500);

   Main('BankWalk');
end;


Function WillowWalk: Boolean;
Begin
   Main('WillowsWalk');
   Randoms;
   Result := False;
   
   If Not(LoggedIn) Then
   begin
      LoginPlayer;
      Exit;
   end;
   
   Mouse(623, 134, 5, 5, True);
   Wait(6000);
   FFlag(0);
   Wait(1500);
   Randoms;
   Result :=True;
   Players[CurrentPlayer].Loc := 'Chopping';
   Main('WillowsWalk');
end;


Procedure RunFromCunts;

Begin
   Main('RunFromCunts');
   MakeCompass('N');
   BankWalk;
   Wait(4000);
   WillowWalk;
   MakeCompass('N');
   Main('RunFromCunts');
End;

Procedure Chop;
Begin
   Main('Chop');
   Case Random(5) of
      0: Begin
            Mouse(tx, ty, 0, 0, False);
            ChooseOption('hop');
            If Not(IsUpText('hop')) Then
            begin
               wait(200+Random(1000));
               MMouse(tx, ty, 10, 10);
            end
            else
            exit;
         end;
      1,2,3,4: Begin
            Mouse(tx, ty, 0, 0, True);
            wait(200+Random(1000));
         end;
   end;
   Main('Chop');
end;


function WillowColor: integer;
Begin
   Main('Willow Color');
   
   If Not(LoggedIn) Then
   begin
      LoginPlayer;
      Exit;
   end;
   
   Case Random(5) of
      0: Result := 3693410;
      1: Result := 2655089;
      2: Result := 2315338;
      3: Result := 2579794;
      4: Result := 2967888;
   end;
   
   Main('Willow Color');
end;


Function CheckEnt(ex, ey: Integer): Boolean;

Var
Xe, Ye: Integer;

Begin

   If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
   Begin
      MMouse(Xe, Ye, 5, 5);
      Wait(100+Random(50));
   End
   else
   Begin
      Exit;
   End

   If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
   Begin
      If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
        (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
        (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
      Begin
         Main('Check Ent - Found Ent!');
         Mouse(MMCX, MMCY, 5, 5, True);
         FindTalk;
         Wait(10000+Random(5000));
         FindNormalRandoms;
         EntsAvoided:= EntsAvoided + 1;
         ReportVars[2] := ReportVars[2] + 1;
      End;
   End;
End;

Function FindFishSymbol: Boolean; // Not Mine

Var
   x, y: Integer;
Begin
   Main('FindFishSymbol');
   If Not LoggedIn Then Exit;
  
   If GetSystemTime - CallBTime < 25000 Then Exit;
   CallBTime := GetSystemTime;
   Result := FindSymbol(x, y, 'fishing spot');
   If Result Then
   Begin
      Mouse(x, y, 8, 8, True);
      Wait(100);
      FFlag(0);
      Wait(1000);
   End;
   Main('FindFishSymbol');
End;


Function DetectNoAxe: Boolean;
Var
   XH, YH, x, y: Integer;
   bAxeNeeded: Boolean;
Begin

   Main('NoAxe');

   Result := False;

   If(not(LoggedIn))then Exit;


   If(EquipAxe= False)then
   Begin
      Main('NoAxe - Looking for axe in inventory');
      GameTab(4);
      Wait(50+Random(50));
      If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then bAxeNeeded:= True;
   End


   If(EquipAxe= True)then
   Begin
      Main('NoAxe - Looking for axe in equipped');
      GameTab(5);
      Wait(50+Random(50));
      If(not(FindBitmapMaskTolerance(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10)))then bAxeNeeded:= True;
   End


   If(bAxeNeeded = True)then
   Begin
      Result := True;
      NoAxe := True;
      Main('DetectNoAxe - We don''t have an Axe, Investigating..');


      If(FindBitmapMaskTolerance(BrokenAxeHeadMask, XH, YH, MIX1, MIY1, MIX2, MIY2, 20, 25))then
      Begin
         iAxesBroke:= iAxesBroke + 1;
         Main('NoAxe - Broken Axe Found!');
         Players[CurrentPlayer].Loc:= 'Broken Axe';
         Result:= True;
         NoAxe := True;
         Exit;
     End
   End
   Main('NoAxe');
End;

procedure ChopWillows;

Var iBefore_x, iBefore_y, iCurrent_x, iCurrent_y, iTTimes : Integer;
begin
   If Not(LoggedIn) Then
   begin
      LoginPlayer;
      Exit;
   end;
   Main('Chop Willows');
   SetRun(True);
   iTTimes := 0;
   ReportVars[0] := ReportVars[0] + 1;

   Repeat

      If FindFight Then RunFromCunts;


      GetMousePos(iBefore_x, iBefore_y);
      
      Main('ChopWillows - Before mouse position x:' + IntToStr(iBefore_x) + 'y: ' + IntToStr(iBefore_y));
      

      If(FindColorSpiralTolerance(tx, ty, WillowColor, 1, 1, 514, 336, 4)) Then
      Begin
      

         wait(150+Random(500));
         MMouse(tx, ty, 10, 10);
         iTTimes := iTTimes + 1;
         Main('ChopWillows - Trying to Find Willow Try #: ' + IntToStr(iTTimes));


         If(iTTimes mod 10 = 0) Then
         Begin
            FindFishSymbol;
         end;


         If(iTTimes > 50) Then
         Begin
            Main('ChopWillows - Didn''t Find Tree after 50 tries.');
            iTTimes := 0;
            Exit;
         end;


         If(IsUpText('illow')) Then
         Begin

            CheckEnt(tx, ty);
            if (DetectNoAxe) then exit;
            Chop;
            wait(100);
            

            iCurrent_x := iBefore_x + (tx - iBefore_x);
            iCurrent_y := iBefore_y + (ty - iBefore_y);
            

            CheckEnt(tx, ty);
            FindNormalRandoms;
            iTTimes := 0;
            

            Repeat
               Main('ChopWillows - Waiting for tree to be gone');

               If FindFight Then RunFromCunts;
               wait(2000+Random(4000));
               

               MMouse(iCurrent_x, iCurrent_y, 10, 10);
               

               If (IsUpText('illow')) then
               Begin
                  tx := iCurrent_x;
                  ty := iCurrent_y;
                  if (DetectNoAxe) then exit;
                  Chop;
               End;
               

               CheckEnt(tx, ty);
               FindNormalRandoms;
            Until(not(IsUpText('illow')) or InvFull)
         end;
      end;
      iTTimes := iTTimes + 1;
      If(iTTimes > 50) Then
      Begin
         Main('ChopWillows - Didn''t Find Approxiamate Color of Tree after 50 tries.');
         iTTimes := 0;
         Exit;
      end;
   Until(InvFull)
   SetRun(False);
   Main('ChopWillows');
end;


Function AxeHeadColors: Boolean;
Var
AX, AY, Tries: Integer;
Begin

   Main('AxeHeadColors');

   If(not(LoggedIn))then Exit;

   GameTab(4);


   If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
   Begin
      Main('AxeHeadColors');
      AxeHeadColor1:= GetColor(AX + 5, AY + 3);
      AxeHeadColor2:= GetColor(AX + 7, AY + 2);
      AxeHeadColor3:= GetColor(AX, AY + 3);
      EquipAxe:= False;
      Result:= True;
   End
   else
   Begin

      GameTab(5);
      Wait(100+Random(75));

      If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
      Begin
         Main('AxeHeadColors - Axe Found in Equipped Page!');
         AxeHeadColor1:= GetColor(AX + 5, AY + 3);
         AxeHeadColor2:= GetColor(AX + 7, AY + 2);
         AxeHeadColor3:= GetColor(AX, AY + 3);
         EquipAxe:= True;
         Result:= True;
      End
      GameTab(4);
   End


   if (Result = False) then
   Begin

      Repeat
         OpenBankFast('db');
         Tries := Tries + 1;
      Until ((BankScreen) Or (Tries > 4));


      If BankScreen Then
      Begin
         Result := GetAxeFromBank;
         Closebank;
      End
   End
   

   If(Result= True)then
   Begin

      NoAxe:= False;
      Main('AxeHeadColors - Axe head colors - ' + IntToStr(AxeHeadColor1) + ', '
                                                           + IntToStr(AxeHeadColor2) + ', and '
                                                           + IntToStr(AxeHeadColor3));
   End
   else
   Begin

      Main('AxeHeadColors - Could NOT Find Axe Colors!, Logging Out!');
      Players[CurrentPlayer].Loc:= 'No Axe';
      Logout;
   End
   
   Main('AxeHeadColors');
End;


Procedure Bitmaps;

Begin
   BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
        '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
        '809A0AC26A00E665129F');
   WillowDTM := DTMFromString('78DA63CC62626078CA80026CCD4419FE03694' +
             '620FE0F048C20357718D000231209A413816A1E1350930A54F381' +
             '809A12A09AB704D49401D53CC2AF0600C8560D88');
   AxeMask := BitmapFromString(10, 10, 'z78DA7373230D18500028316' +
       '130E825353470A921DE3DE499409EDB480D25FCE10000B72C7CE1' +
       '');
   BrokenAxeHeadMask := BitmapFromString(9, 10, 'z78DA7373230D1890' +
       '05C8D34BAA2EE2D5E3F21131FEC56FCBE091A53C34007F307225');
End;

Procedure SetupScript;

Begin
   ScriptID := '504';
   SRLID := YourSRLID;
   SRLPassword := YourSRLPASS;
     if (YourSRLID = '') then
  begin
    ClearDeBug;
    WriteLn('Register at http://www.stats.srl-forums.com');
    WriteLn('And put your ID and Password at the top.');
    WriteLn('If you dont register the script will take 20 seconds to run.');
    Wait(20000);
  end;
   RCLoc := 'Bank';
   DeclarePlayers;
   Disguise ('Windows Media Player')
   Bitmaps;
   LoginPlayer;
   wait(2000+Random(4000));
   AxeHeadColors;
   NormalRandomsTime := GetSystemTime;
   FastRandomsTime := GetSystemTime;
   FindTalkTime := GetSystemTime;
   CallBTime := GetSystemTime;
End;


Procedure ProgressReport;

Begin
   WriteLn('©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©');
   Writeln('Awesom Willow Cut + Bank 1.5                        ');
   Writeln('Worked for '+ TimeRunning);
   If Banks > 0 Then WriteLn('©Banked '+IntToStr(Banks)+' times.                       ');
   If iWillowLogs > 0 Then WriteLn('#Willow logs chopped: ' +IntToStr(iWillowLogs)+'. ');
   Writeln('Post this http://www.villavu.com/forum/showthread.php?t=22127Here');
   WriteLn('©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©');
   SendSRLReport;
End;
begin
   ClearDebug;
   Main('After ClearDebug');
   SetupSRL;
   SetupScript;
   Wait(1000);
   Repeat
   
      Main('MainLoop - Top of main loop');

      If Players[CurrentPlayer].Loc = 'Bank' Then
      Begin
         Main('MainLoop - In bank state');
         MakeCompass('N');
         If LoggedIn Then
         Begin

             If Not WillowWalk then
            Begin
               Main('MainLoop - Lost');
               Players[CurrentPlayer].Loc := 'Lost';
               NextPlayer(False);
               AxeHeadColors;
               continue;
            End;
         End;
      End;
    

      If Players[CurrentPlayer].Loc = 'Chopping' Then
      Begin
         Main('MainLoop - In chopping state');
         ChopWillows;
         BankWalk;

         if Not Banking Then
         Begin
            Main('MainLoop - Bank Failed');
            Players[CurrentPlayer].Loc := 'Bank Failed';
            NextPlayer(False);
            AxeHeadColors;
            continue;
         End
         Else
         Begin
            Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
            Banks := Banks + 1;
         End;
      End;

      Main('MainLoop - Player Banked ' +
                 IntToStr(Players[CurrentPlayer].Banked) + ' times');

      If LoggedIn And (Players[CurrentPlayer].Banked Mod Loads = 0) Then
      Begin
         Main('MainLoop - Loads Banked Mod 0');
         MarkTime(Mark);
         SetChat('off',1);
         Repeat
            Randoms;
            Wait(10);
            If TimeFromMark(Mark) > 240000 Then Begin Logout; Break; End;
         Until Not LoggedIn;
         NextPlayer(True);
         AxeHeadColors;
         GetAllLevels;
      End;


      If Not LoggedIn Then
      Begin
         Main('MainLoop - Not LoggedIn Calling NextPlayer');
         NextPlayer(False);
         AxeHeadColors;
         GetAllLevels;
      End;
    
      ProgressReport;
  Until False;
  Main('At very end of script');
end.

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

Hmm, I'm Looking Though It Now, Although You Made 2 Applications, Please Have One Deleted?

EDIT: Whoa… You Have Alot For Wizzup's Draynor Netter, and NO Credit Was Supplied… :( thats a minus, anddd you dont need FindFastRandoms anymore… FindNormalRandoms Does It All, but the script is pretty good on my opinion [Holding My Vote]

I had my password in the first one by accident and only saw it when I clicked submit :( I hope it gets deleted.

Awesom, use EDIT -.-

Umm… Wizzups Draynor netter? wth?

Netter !== Cutter

Im kinda balancing in the 51% yes, but I will wait what others have to say.

Btw, pmed the answer for your SRL Stats problem.

I didn't know I could see this after applying I thought it was all secretive members business :P

Most of them are from Wizzups Draynor netter or mayorly based on it.

Your ChopWillows and WillowColor procedure come from http://www.villavu.com/forum/showthread.php?t=20283

CheckEnt and AxeHeadColors come from http://www.gamerzneeds.net/forums/runescape/55612-willow-cutter-banker-scar-scipt.html

I'm sure you understand scripting otherwise you wouldn't be able to take a few scripts and Frankenstein a new one. But i would rather see your own creation or atleast see you giving credits

Never been to that gamerzneeds website and I learn from tutorials AND looking through other peoples work I don't really know who originally created some things I used so I didn't know who to credit.

seems like you know most of your stuff…

but why would you only coord click for the banking and willow walking? You should always find an alternative for that because it is unreliable. Only use coord clicking as a failsafe. Like for example you couldnt find the bank color or bank symbol…or some bitmap that you autocolored…THEN you would have the script coord click

im leaning towards a yes though, can you tell me what parts you took from the netter?

I actually never took anything from the netter but looking through it I see 3 procedures that are in my script but I got from somewhere else.

ChArM's Willow Raper has been posted on many sites, sythe has it also, just gave one of the sites as an example in this case gamerzneeds.

If you don't know who to credit or from what script it is then IMHO you should state that it's not your own procedure.

Yeah I definetly will in the future its pretty simple to just go // [Not my Procedure] :P

lol well its important that you let me know which ones arent yours specifically so i can make my decision :rolleyes:

Check first post I edited the script.

BTW whoever said no mind saying why ?

Before anybody votes yes to this application can I suggest that you compare this script to the one I used for my application. (where I did credit Wizzup and Charms).

Also compare things like the main loop and the ChopWillows procedure which were written by myself and I think that you will see that there is very little original stuff in here. btw - the script that I used is in Junior Members - Woodcutting.

Paul

hmm alright im going to give you the benefit of the doubt and say that you understand how the procedures that arent yours work. I vote yes.

Things you definately need to improve on though:

- More failsafes, especially the walking and banking
- I guess your standards are good with the horizontal spacing, but that double space shit between the lines kills my eyes and i cant follow your code as easily. Some areas its ok to do this, but you do it way too much imo.
- Try to improve your chopping procedure by either autocoloring the trees or by having the user imput the colors before the start of the script.

other than that i think you have some potential. Keep working at it and good luck ;)

The most part of the script is not yource.. no sorry

-Tsn.

Sorry, no from me, if the code were your it would be a yes.

It is mostly mine I just use common and similar ways as others.. :(

Sorry,

Most of them are from Wizzups Draynor netter or mayorly based on it.

Your ChopWillows and WillowColor procedure come from http://www.srl-forums.com/forum/sebo...er-t22150.html

CheckEnt and AxeHeadColors come from http://www.gamerzneeds.net/forums/ru...car-scipt.html

CheckEnt and ChopWillows are some of the key procedures :(


EDIT: Some sick weirdo is running my script O.o I hope danky responds me soon that can the Logs Cut be changed to Loads Banked * 27, I had a lil mistake in the earlier version stats reporting :p

From: awesom
It is mostly mine I just use common and similar ways as others.. :(

what about all the "//Not Mine"? and the chopping etc.
Just say we're right, the most part isn't yource..

-Tsn.

If the script is not all your work then please give credits where credits are due. If you do not provide a example of your scripting knowledge that is at least 90% original work by you then your application will be automatically declined.

There probably has been exceptions to this, but this is not one of them. (Imho)

Sorry, no.

From: n3ss3s
Sorry, CheckEnt and ChopWillows are some of the key procedures :(


EDIT: Some sick weirdo is running my script O.o I hope danky responds me soon that can the Logs Cut be changed to Loads Banked * 27, I had a lil mistake in the earlier version stats reporting :p

Use reset. ;)

Dude, its 131 banks, over a milestone (100) I don't wanna reset :(

I don't think its that hard to change one value…

sorry no you used coords for walking =S soz

I don't know why people are buttering up the kid, if he takes procedures from other scripts and fails to mention that it is not his then isn't that STEALING? Fairly sure around the time I got accepted that was unacceptable and was pretty much instant no.

Even if it wasn't all that much that wasn't credited, you said yourselves that the most important functions were not written by him and even though it demonstrates SOME understanding by making a working script ( didn't test it ) it doesn't show that he can make a procedure to do that himself. If he is a member shouldn't we know that he can write those procedures without copying other people? I mean once that is established you can borrow ( with credit ), of course, but isn't the point of the SRL members application is to demonstrate YOUR programming ability and to see if YOUR programming ability is up to par with that of a member?

( excuse me if programming is incorrect, just pretend I said 'scripting' )

Not on a rant here, just saying that if the kid took things that weren't his and didn't write the crucial functions then he is not ready for members, period. He can apply again, and when he does he'll know to demonstrate that HE can write the procedures, because we already know that other members and the developers are capable of writing them.

1 Yes
13 No
Poll Expired .
TONS of feedback given.
Good luck on making another/ fixing up this script.
Keep working at it, take all the feedback, and you'll get in next time.