SRL Archive - Archive

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

What is the meaning to life?
42? Why didnt this show up in app?


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


Programming Knowledge
Very Basic HTML

Other Communitys
None of importance to SRL.(Maybe www.Sp0rk-eh.com)

How Long have You Played Runescape
About 7 months.

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

I started playing RuneScape because of the cheating. I started downloading scripts, then noticed I understand what some of the code means because it's close to basic English. Inspired by this I read some tutorials and made an auto log in script. It was detectable and terrible, but I was still thrilled. After that I started making several different scripts that were pretty bad and never gave any out to the public. I've been scripting since SRL4 (very first version) came out, and at this point I believe I'm a decent scripter. I went public on this script, and it got 30+ downloads with no real problems by people who posted. With my knowledge I believe I'm ready to become a proud member of SRL.

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

program Abysslord;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
x,y,ty,tx,Logs,Cut,LoadsDone,ltl,waiter: integer;

Lost: Boolean;


const
YourSRLId = '';  //If you don't have leave blank.
YourSRLPassword =''; //If you don't have leave blank.
RunDirection = ('E'); //Direction to run if you find a fight.
Loads = 25;   //How many loads to do before switching characters?
RandomChat = False;    //Wanna Say Random Sheetz?


Procedure DeclarePlayers;
  begin
    HowManyPlayers := 4;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[0].Active :=True;
    Players[0].Strings[0]   := 'willow';// Tree,Oak,Willow,Other (Only banks Oak or Willows)
    
    Players[1].Name := '';
    Players[1].Pass := '';
    Players[1].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[1].Active :=False;
    Players[1].Strings[0]   := 'willow'; // Tree,Oak,Willow,Other  (Only banks Oak or Willows)
    
    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[2].Active :=False;
    Players[2].Strings[0]   := 'willow';  // Tree,Oak,Willow,Other  (Only banks Oak or Willows)
    
    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[3].Active :=False;
    Players[3].Strings[0]   := 'willow';  // Tree,Oak,Willow,Other  (Only banks Oak or Willows)
    

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  
  {[]========================================[]
---------------->AbyPowerCutting<----------------
  Script ran for : 1 Hours, 29 Minutes and 51 Seconds
  Script Did : 19 Loads
  Script Cut : 526 Logs
[]========================================[]}
end;


procedure Enting;
Var
Pie1: Integer;
begin
  Case Players[CurrentPlayer].strings[0] of
    'tree':   if FindObjCustom(TX, TY, ['Tre','ree'], [2373686,487006,4027758], 7) then
      Pie1 := 1;
    'oak':  if FindObjCustom(TX, TY, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
      Pie1 := 1;
    'willow':  if FindObjCustom(TX, TY, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
      Pie1 := 1;
    'other':  if FindObjCustom(TX, TY, ['Yew','Ye','ew'], [604462,3111790,5343100], 7) then
      Pie1 := 1;
  end;
  If Pie1 = 1 Then
  begin
    Pie1 := 0;
    MMouse(tx,ty,7,7);
    if(FindColorTolerance(x,y,122847,0,0,250,30,20)) then
    begin
      Mouse(238, 302,25,25,True);
      Wait(15000+random(3000));
      EntsAvoided:=EntsAvoided+1;
    end;
  end;
end;

procedure WannaChange;
begin
  if(Loads=ltl)then
  begin
    NextPlayer(True);
    ltl:=0;
    HighestAngle;
    MakeCompass('N');
    Writeln('Sucessfully switched characters.)');
  end;
  If(not(LoggedIn)) then
  begin
    LoginPlayer;
    HighestAngle;
    MakeCompass('N');
    Writeln('Sucessfully switched characters.)');
  end;
  If(Lost=True) then
  begin
    NextPlayer(False);
    ltl:=0;
    Lost:=False;
    HighestAngle;
    MakeCompass('N');
    Writeln('Sucessfully switched characters.)');
  end;
end;


procedure Randoms;
begin
  FindNormalRandoms;
  if FindFight then
  begin
    Runto(RunDirection, True);
    Wait(10000+random(456));
    RunBack;
  end;
  if FindBlackCHatMessage('have an axe') then
  begin
    NextPlayer(False);
  end;
end;







procedure DropEmV2;//Was bury bones procedure by WT-Fakawi. Edited to Dropper by me.
var
  x, y, i: Integer;
  TB: TBox;
begin
  Logs := DTMFromString('78DA639CCEC4C0F09C010C7821144380BB34C' +
         '37F20CD08C4FF8180B107A8E62E031A60442281743B50CD0B026A' +
         'BA816ADE12503315A8E63D01354B816A9E1250331FA8E60D0135F' +
         '3806A6E12503309A8E60E7E3500D6561333');
  GameTab(4);
  Wait((100)+ Random(50));
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
    begin
      if FindDTM(Logs, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
      begin
        MouseItem(i, False);
        ChooseOption('Drop');
        Cut:=Cut+1
        ReportVars[0]:= 1;
        SendSRLReport;
        Wait((250) + Random(150));
      end;
    end;
    FindNormalRandoms;
  end;
end;


Procedure AntiBan;

Begin
  Case Random(15) of

    1: MMouse(MSX1,MSY1,MSX2,MSY2);
    2: BoredHuman;
    3: begin
         HoverSkill('Woodcutting', False);
         GameTab(4);
       end;
    4: MMouse(300,300,300,300);
    5: Begin
         HoverSkill('Woodcutting', False);
         GameTab(4);
       end;
    6: Begin
         LowestAngle;
         MakeCompass('s');
         HighestAngle;
         MakeCompass('n');
       end;
    7: begin
         MakeCompass('w')
         MakeCompass('s')
         MakeCompass('e')
         MakeCompass('n')
       end;
    8: begin
         MakeCompass('e')
         MakeCompass('s')
         MakeCompass('w')
         MakeCompass('n')
       end;
   9: begin
       if(RandomChat=True) then
         Case Random(20) of
           1: TypeSend('WHO WANTS BACON?');

           2: TypeSend('I lost my hamster to the sea.');

           3: Typesend('Never Abuse Slow Motion.');

           4: TypeSend('Im not random, Im creative.');

           5: TypeSend('Im curious, does that make me a monkey?');

           6: TypeSend('iPor Suquesto!');

           7: TypeSend('Mi gusta comer');

           8: TypeSend('Im a homeless man with a laptop');

           9: TypeSend('Im to cool to talk to you nubz');

           10: TypeSend('Im to cool to talk to you nubz');

           11: TypeSend('I keep six pounds of bacon in my pocket at all times');

           12: TypeSend('I have a terrorism mood ring.');

           13: begin
                 TypeSend('I beat puppies.');
                 wait(548+random(456));
                 TypeSend('With kittens.');
               end;
               
           14: TypeSend('Dead Puppies arent much fun.');

           15: begin
                 TypeSend('All must obey abysslord.');
                 wait(548+random(456));
                 TypeSend('Not kidding here. Obey him.');
               end;
               
           16: TypeSend('How do you feel about paper plates?');

           17: TypeSend('I have found that you can find happiness in slavery.');

           18: begin
                 TypeSend('Press 777 if you boil bacon grease in your spare time.');
                 wait(548+random(456));
                 TypeSend('Anyone who presses 777 needs to go jump off a cliff.');
               end;
           19: TypeSend('I cant find my shoes..... T_T');

           20: Typesend('Twenty french calling gold rings.....nvm.');

           21: TypeSend('I will not obey!');

           22: TypeSend('Hey, this isnt war veterans online....');

           23: TypeSend('***** *** ********** ** * ****');

           24: TypeSend('Right to bear arms really means you can wear short sleeve shirts');

           25: TypeSend('Mircosoft Sam');

           26: TypeSend('Im getting really bored now....');

           27: TypeSend('Flip Flop Flip Flop Flip');

           28: begin
                 TypeSend('Find the logic in what im saying.');
                 wait(548+random(456));
                 TypeSend('Its there you just gotta look harder.');
               end;
               
           29: TypeSend('Beat to death with a shoe');

           30: TypeSend('What happens in vegas stays in vegas.');
             end;
           end;
    10: begin
          GameTab(random(11));
          GameTab(random(11));
          GameTab(random(11));
          GameTab(4);
        end;
  end;
end;

procedure ProgressReport;
begin
if(not(LoggedIn)) then exit;
ClearDebug;
    Writeln('[]========================================[]');
    Writeln('---------------->AbyPowerCutting<----------------');
    Writeln('  Script ran for : ' + TimeRunning);
    Writeln('  Script Did : ' + IntToStr(LoadsDone) + ' Loads' + '    ');
    Writeln('  Script Cut : ' + IntToStr(Cut) + ' Logs' + '    ');
    Writeln('[]========================================[]');
    SRLRandomsReport;
end;

procedure CutAllTrees;
Var
  Pie : Integer;
begin
  repeat
    Randoms;
    begin
      Case Players[CurrentPlayer].strings[0] of
        'tree':   if FindObjCustom(X, Y, ['Tre','ree'], [2373686,487006,4027758], 7) then
          Pie := 1;
        'oak':  if FindObjCustom(X, Y, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
          Pie := 1;
        'willow':  if FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
          Pie := 1;
        'other':  if FindObjCustom(X, Y, ['Yew','Ye','ew'], [604462,3111790,5343100], 7) then
          Pie := 1;
      end;
      If Pie = 1 Then
      begin
        Pie := 0;
        Waiter:=0;
        Mouse(x,y,3,3,False)
        ChooseOption('Chop')
        Wait(700+random(456));
        Enting;
        Randoms;
        Antiban;
        Randoms;
        wait(5048+random(456));
      end else
      begin
        Waiter:=waiter+1
        AntiBan;
        wait(548+random(456));
        Randoms;
        wait(548+random(456));
        Randoms;
      end;
    end;
    if(Waiter>20) then
    begin
      Writeln('Could Not Find A Tree, Switching Characters')
      Lost:=True;
      Break;
    end;
  Until(InvFull);
end;

Begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  SRLId := YourSRLId;
  SRLPassword:= YourSRLPassword;
  ScriptId:= '392';
  HighestAngle;
  MakeCompass('N');
  if(not(LoggedIn)) then
    begin
      LoginPlayer;
      HighestAngle;
      MakeCompass('N');
    end;
    repeat
      CutAllTrees;
      DropEmV2;
      LoadsDone:=loadsDone+1
      ltl:=ltl+1
      ReportVars[1]:= 1;
      FreeDTM(Logs);
      ProgressReport;
      Wait(500+random(568));
      WannaChange;
    until(False);
end.

Older Version.

program Abysslord;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
x,y,ty,tx,Logs,Cut,LoadsDone,ltl,waiter: integer;


const
YourSRLId = '';  //If you don't have leave blank.
YourSRLPassword =''; //If you don't have leave blank.
RunDirection = ('E'); //Direction to run if you find a fight.
Loads = 25;   //How many loads to do before switching characters?
RandomChat = False;    //Wanna Say Random Sheetz?


Procedure DeclarePlayers;
  begin
    HowManyPlayers := 4;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[0].Active :=True;
    Players[0].Strings[0]   := 'Willow';// Tree,Oak,Willow,Other (Default Other=Yew)
    
    Players[1].Name := '';
    Players[1].Pass := '';
    Players[1].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[1].Active :=False;
    Players[1].Strings[0]   := 'Willow'; // Tree,Oak,Willow,Other (Default Other=Yew) 
    
    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[2].Active :=False;
    Players[2].Strings[0]   := 'Willow';  // Tree,Oak,Willow,Other  (Default Other=Yew)
    
    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := ''; //3 - 4 letters of YOUR username, example: sern
    Players[3].Active :=False;
    Players[3].Strings[0]   := 'Willow';  // Tree,Oak,Willow,Other  (Default Other=Yew)
    

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  
  {[]========================================[]
---------------->AbyPowerCutting<----------------
  Script ran for : 1 Hours, 29 Minutes and 51 Seconds
  Script Did : 19 Loads
  Script Cut : 526 Logs
[]========================================[]}
end;


procedure Enting;
begin
  case Players[CurrentPlayer].strings[0] of
    'Willow' : begin
                 if FindObjCustom(TX, TY, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
                 begin
                   MMouse(tx,ty,7,7);
                   if(FindColorTolerance(x,y,122847,0,0,250,30,20)) then
                   begin
                     Mouse(238, 302,25,25,True);
                     Wait(15000+random(3000));
                     EntsAvoided:=EntsAvoided+1;
                   end;
                 end;
               end;
    'Oak' : begin
                 if FindObjCustom(TX, TY, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
                 begin
                   MMouse(tx,ty,7,7);
                   if(FindColorTolerance(x,y,122847,0,0,250,30,20)) then
                   begin
                     Mouse(238, 302,25,25,True);
                     Wait(15000+random(3000));
                     EntsAvoided:=EntsAvoided+1;
                   end;
                 end;
               end;
    'Tree' : begin
                 if FindObjCustom(TX, TY, ['Tre','ree'], [2373686,487006,4027758], 7) then
                 begin
                   MMouse(tx,ty,7,7);
                   if(FindColorTolerance(x,y,122847,0,0,250,30,20)) then
                   begin
                     Mouse(238, 302,25,25,True);
                     Wait(15000+random(3000));
                     EntsAvoided:=EntsAvoided+1;
                   end;
                 end;
               end;
    'Other' : begin
                 if FindObjCustom(TX, TY, ['Yew','Ye','ew'], [604462,3111790,5343100], 7) then
                 begin
                   MMouse(tx,ty,7,7);
                   if(FindColorTolerance(x,y,122847,0,0,250,30,20)) then
                   begin
                     Mouse(238, 302,25,25,True);
                     Wait(15000+random(3000));
                     EntsAvoided:=EntsAvoided+1;
                   end;
                 end;
               end;
  end;
end;


procedure WannaChange;
begin
  if(Loads=ltl)then
  begin
    NextPlayer(True);
    ltl:=0;
    HighestAngle;
    MakeCompass('N');
    DeclarePlayers;
    Writeln('Sucessfully switched characters.)');
  end;
  If(not(LoggedIn)) then
  begin
    NextPlayer(True);
    ltl:=0;
    HighestAngle;
    MakeCompass('N');
    DeclarePlayers;
    Writeln('Sucessfully switched characters.)');
  end;
end;


procedure Randoms;
begin
  FindNormalRandoms;
  if FindFight then
  begin
    Runto(RunDirection, True);
    Wait(10000+random(456));
    RunBack;
  end;
  if FindBlackCHatMessage('have an axe') then
  begin
    NextPlayer(False);
  end;
end;







procedure DropEmV2;//Was bury bones procedure by WT-Fakawi. Edited to Dropper by me.
var
  x, y, i: Integer;
  TB: TBox;
begin
  Logs := DTMFromString('78DA639CCEC4C0F09C010C7821144380BB34C' +
         '37F20CD08C4FF8180B107A8E62E031A60442281743B50CD0B026A' +
         'BA816ADE12503315A8E63D01354B816A9E1250331FA8E60D0135F' +
         '3806A6E12503309A8E60E7E3500D6561333');
  GameTab(4);
  Wait((100)+ Random(50));
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
    begin
      if FindDTM(Logs, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
      begin
        MouseItem(i, False);
        ChooseOption('Drop');
        Cut:=Cut+1
        ReportVars[0]:= 1;
        SendSRLReport;
        Wait((250) + Random(150));
      end;
    end;
    FindNormalRandoms;
  end;
end;


Procedure AntiBan;

Begin
  Case Random(15) of

    1: MMouse(MSX1,MSY1,MSX2,MSY2);
    2: BoredHuman;
    3: begin
         HoverSkill('Woodcutting', False);
         GameTab(4);
       end;
    4: MMouse(300,300,300,300);
    5: Begin
         HoverSkill('Woodcutting', False);
         GameTab(4);
       end;
    6: Begin
         LowestAngle;
         MakeCompass('s');
         HighestAngle;
         MakeCompass('n');
       end;
    7: begin
         MakeCompass('w')
         MakeCompass('s')
         MakeCompass('e')
         MakeCompass('n')
       end;
    8: begin
         MakeCompass('e')
         MakeCompass('s')
         MakeCompass('w')
         MakeCompass('n')
       end;
   9: begin
       if(RandomChat=True) then
         Case Random(20) of
           1: begin
               TypeSend('WHO WANTS BACON?');
               end;
           2: begin
                TypeSend('I lost my hamster to the sea.');
              end;
           3: begin
                 Typesend('Never Abuse Slow Motion.');
              end;
           4: begin
                 TypeSend('Im not random, Im creative.');
              end;
           5: Begin
                 TypeSend('Im curious, does that make me a monkey?');
               end;
           6: begin
                 TypeSend('iPor Suquesto!');
               end;
           7: begin
                 TypeSend('Mi gusta comer');
               end;
           8: begin
                 TypeSend('Im a homeless man with a laptop');
               end;
           9: begin
                 TypeSend('Im to cool to talk to you nubz');
               end;
           10: begin
                 TypeSend('Im to cool to talk to you nubz');
               end;
           11: begin
                 TypeSend('I keep six pounds of bacon in my pocket at all times');
               end;
           12: begin
                 TypeSend('I have a terrorism mood ring.');
               end;
           13: begin
                 TypeSend('I beat puppies.');
                 wait(548+random(456));
                 TypeSend('With kittens.');
               end;
           14: Begin
                 TypeSend('Dead Puppies arent much fun.');
               end;
           15: begin
                 TypeSend('All must obey abysslord.');
                 wait(548+random(456));
                 TypeSend('Not kidding here. Obey him.');
               end;
           16: begin
                 TypeSend('How do you feel about paper plates?');
               end;
           17: begin
                 TypeSend('I have found that you can find happiness in slavery.');
               end;
           18: begin
                 TypeSend('Press 777 if you boil bacon grease in your spare time.');
                 wait(548+random(456));
                 TypeSend('Anyone who presses 777 needs to go jump off a cliff.');
               end;
           19: begin
                 TypeSend('I cant find my shoes..... T_T');
               end;
           20: begin
                 Typesend('Twenty french calling gold rings.....nvm.');
               end;
           21: begin
                 TypeSend('I will not obey!');
               end;
           22: begin
                 TypeSend('Hey, this isnt war veterans online....');
               end;
           23: begin
                 TypeSend('***** *** ********** ** * ****');
               end;
           24: begin
                 TypeSend('Right to bear arms really means you can wear short sleeve shirts');
               end;
           25: begin
                 TypeSend('Mircosoft Sam');
               end;
           26: begin
                 TypeSend('Im getting really bored now....');
               end;
           27: begin
                 TypeSend('Flip Flop Flip Flop Flip');
               end;
           28: begin
                 TypeSend('Find the logic in what im saying.');
                 wait(548+random(456));
                 TypeSend('Its there you just gotta look harder.');
               end;
           29: begin
                 TypeSend('Beat to death with a shoe');
               end;
           30: begin
                 TypeSend('What happens in vegas stays in vegas.');
               end;
             end;
           end;
    10: begin
          GameTab(random(11));
          GameTab(random(11));
          GameTab(random(11));
          GameTab(4);
        end;
  end;
end;

procedure CutTrees;
begin
  repeat
    Randoms;
    begin
      if FindObjCustom(X, Y, ['Tre','ree'], [2373686,487006,4027758], 7) then
      begin
        if(IsUpText('Tree')) then
        begin
          Waiter:=0;
          Mouse(x,y,3,3,False)
          ChooseOption('Chop')
          Wait(700+random(456));
          Enting;
          Randoms;
          Antiban;
          Randoms;
          wait(5048+random(456));
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Tre','ree'], [2373686,487006,4027758], 7))) then
      begin
        Waiter:=waiter+1
        AntiBan;
        wait(548+random(456));
        Randoms;
        wait(548+random(456));
        Randoms;
      end;
      if(Waiter>25) then
      begin
        Writeln('Could Not Find A Tree, Switching Characters')
        NextPlayer(False);
      end;
    end;
  Until(InvFull);
end;


procedure CutOaks;
begin
  repeat
    Randoms;
    begin
      if FindObjCustom(X, Y, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
      begin
        if(IsUpText('Oak')) then
        begin
          Waiter:=0
          Mouse(x,y,3,3,False);
          ChooseOption('Chop')
          Wait(700+random(456));
          Enting;
          Randoms;
          Antiban;
          Randoms;
          wait(10048+random(456));
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7))) then
      begin
        Waiter:=Waiter+1
        Antiban;
        Randoms;
        Wait(456+random(591))
        Randoms;
      end;
      if(Waiter>25) then
      begin
        Writeln('Could Not Find A Tree, Switching Characters')
        NextPlayer(False);
      end;
    end;
  Until(InvFull);
end;



procedure CutWillows;
begin
  repeat
    Randoms;
    begin
      if FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
      begin
        if(IsUpText('Will')) then
        begin
          Waiter:=0
          Mouse(x,y,3,3,False);
          ChooseOption('Chop');
          Wait(2000+Random(500));
          Enting;
          Randoms;
          Antiban;
          Randoms;
          wait(10048+random(456));
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7))) then
      begin
        Waiter:=waiter+1
        AntiBan;
        Wait(456+random(591))
        Randoms;
        Wait(456+random(591))
        Randoms;
      end;
      If(Waiter>20) then
      begin
        Writeln('Could Not Find A Tree, Switching Characters')
        NextPlayer(False);
      end;
    end;
  Until(InvFull);
end;


procedure CutOthers;
begin
  repeat
    Randoms;
    begin
      if FindObjCustom(X, Y, ['Yew','Ye','ew'], [604462,3111790,5343100], 7) then
      begin
        if(IsUpText('Yew')) then
        begin
          Waiter:=0;
          Mouse(x,y,3,3,False);
          ChooseOption('Chop');
          Randoms;
          Antiban;
          Randoms;
          Wait(10056+random(591))
          Randoms;
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Yew','Ye','ew'], [604462,3111790,5343100], 7))) then
      begin
        Waiter:=Waiter+1
        AntiBan;
        Wait(456+random(591))
        Randoms;
        Wait(456+random(591));
        Randoms;
      end;
      if(Waiter>25) then
      begin
        Writeln('Could Not Find A Tree, Switching Characters')
        NextPlayer(False);
      end;
    end;
  Until(InvFull);
end;

procedure ChopYourTree;
begin
  case Players[CurrentPlayer].strings[0] of
    'Tree': CutTrees;
    'Oak': CutOaks;
    'Willow': CutWillows;
    'Other': CutOthers;
  end;
end;


procedure ProgressReport;
begin
if(not(LoggedIn)) then exit;
ClearDebug;
    Writeln('[]========================================[]');
    Writeln('---------------->AbyPowerCutting<----------------');
    Writeln('  Script ran for : ' + TimeRunning);
    Writeln('  Script Did : ' + IntToStr(LoadsDone) + ' Loads' + '    ');
    Writeln('  Script Cut : ' + IntToStr(Cut) + ' Logs' + '    ');
    Writeln('[]========================================[]');
    SRLRandomsReport;
end;


Begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  SRLId := YourSRLId;
  SRLPassword:= YourSRLPassword;
  ScriptId:= '392';
  HighestAngle;
  MakeCompass('N');
  if(not(LoggedIn)) then
  begin
    LoginPlayer;
    HighestAngle;
    MakeCompass('N');
  end;
  repeat
    WannaChange;
    ChopYourTree;
    DropEmV2;
    LoadsDone:=loadsDone+1
    ltl:=ltl+1
    ReportVars[1]:= 1;
    FreeDTM(Logs);
    ProgressReport;
    Wait(500+random(568));
  until(False);
end.

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

its good but i dont think this is good enough for the application =S

ill just hold my VOTE =) see what others say anyways

I'm expecting a blowout "No" vote. I thought that people might give me something useful here though. You were the only one to post anything at all useful in my thread.

Anyone who votes no could you please elaborate on why? If it's not good enough I would like to know what's not good enough.

Edit:Try testing it out before you vote. It runs for about 1-2 hours per char depending when a random event takes you away.

No from me sorry. You know enough to make scripts, but a powercutter with some mistakes isn't enough to really get into members.

Here are just a few things:

if FindObjCustom(X, Y, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
      begin
        if(IsUpText('Oak')) then

FindObjCustom already looks for the uptext. Theres no need to call this.

if FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
      begin
        if(IsUpText('Will')) then
        begin
          Waiter:=0
          Mouse(x,y,3,3,False);
          ChooseOption('Chop');
          Wait(2000+Random(500));
          Enting;
          Randoms;
          Antiban;
          Randoms;
          wait(10048+random(456));
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7))) then

No need to call not FindObj, thats precisely what the else statement does.

Also, you make individual procedures for each tree when you could just make one procedure that changes the colors and text to search for, and that would eliminate rougly 150 lines of code out of your 500 line script. Not saying you need a huge script to get into members, but the more efficient it is the betterk, and 1/5 of your script being unneeded code isn't that efficient.

On the plus side,
You have good standards, looking at your script didn't make my eyes bleed.
You have multi-player.
You've got some funny random-talk, but if more than one people said those things then they get banned lol. Randomtalk should be pretty generic for woodcutting scripts.

Clean it up a little, throw some fancy stuff in there (Banking, etc.) and apply again in another month and I'm sure you'll get in. You sound like a nice guy.

From: mickaliscious
No from me sorry. You know enough to make scripts, but a powercutter with some mistakes isn't enough to really get into members.

Here are just a few things:

if FindObjCustom(X, Y, ['Oak','Oa','ak'], [1720889,4688766,1995877], 7) then
      begin
        if(IsUpText('Oak')) then

FindObjCustom already looks for the uptext. Theres no need to call this.

if FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7) then
      begin
        if(IsUpText('Will')) then
        begin
          Waiter:=0
          Mouse(x,y,3,3,False);
          ChooseOption('Chop');
          Wait(2000+Random(500));
          Enting;
          Randoms;
          Antiban;
          Randoms;
          wait(10048+random(456));
        end;
      end else
      if (not(FindObjCustom(X, Y, ['Wil','ill','llo','low'], [5201502,2789500,2778457,6589340], 7))) then

No need to call not FindObj, thats precisely what the else statement does.

Also, you make individual procedures for each tree when you could just make one procedure that changes the colors and text to search for, and that would eliminate rougly 150 lines of code out of your 500 line script. Not saying you need a huge script to get into members, but the more efficient it is the betterk, and 1/5 of your script being unneeded code isn't that efficient.

On the plus side,
You have good standards, looking at your script didn't make my eyes bleed.
You have multi-player.
You've got some funny random-talk, but if more than one people said those things then they get banned lol. Randomtalk should be pretty generic for woodcutting scripts.

Clean it up a little, throw some fancy stuff in there (Banking, etc.) and apply again in another month and I'm sure you'll get in. You sound like a nice guy.

Thank you, Thank you, Thank you. This is EXACTLY what I was looking for. Good feedback on what is good and bad. Pointed out problems and good things. Thanks very very much.

Lol, no problem. We all start somewhere. If you ever need any help just talk to me on msn [email]MickeyM191@live.com[/email]

Sorry, your tree choping stuff could be done at least half shorter, and like someone above said, you call stuff what are really not needed…

procedure WannaChange;
begin
  if(Loads=ltl)then
  begin
    NextPlayer(True);
    ltl:=0;
    HighestAngle;
    MakeCompass('N');
    DeclarePlayers;
    Writeln('Sucessfully switched characters.)');
  end;
  If(not(LoggedIn)) then
  begin
    NextPlayer(True); // lol?
    ltl:=0;
    HighestAngle;
    MakeCompass('N');
    DeclarePlayers;
    Writeln('Sucessfully switched characters.)');
  end;
end;

And there is lot of more other stuff… Sorry mate, it's a NO, Good luck next time…

NextPlayer(True) means that the current player will stay active.
if your player is lost/in an unsolvable random you do NextPlayer(False) so that this player is set to active := False;
Also you don-t need to redo DeclarePlayers. you only need to do it once in the begin of the script.

also when you only have one action you don-t need begin and end:

Case Random(20) of
           1: TypeSend('WHO WANTS BACON?');
           2: TypeSend('I lost my hamster to the sea.');
           3: Typesend('Never Abuse Slow Motion.');
              
           4: TypeSend('Im not random, Im creative.');
           5: TypeSend('Im curious, does that make me a monkey?');
           6: TypeSend('iPor Suquesto!');
{and so on}

also on stuff like this:

procedure ChopYourTree;
begin
  case { lowercase( }Players[CurrentPlayer].strings[0]{ ) } of
    'tree': CutTrees;
    'oak': CutOaks;
    'willow': CutWillows;
    'other': CutOthers;
  end;
end;

you should lowercase the string, to make sure you get it in the case, otherwise you might be looking for 'Willow' and the user might have typed 'willow'.

also would you happen to have taken that bit from spaztaz66's powerminer? cus it's exactly the same thing only that yours does trees instead of rocks :/

also you should use arrays for you tree finding procedure, so that you only have one procedure that can be used for all of the trees.

I think you're very close to being able to get members, just a couple mistakes that don't take long to fix. seriously i prefer to vote yes on a really good powerchopper than an okish cutter+banker.

edit: also you free yur dtms in your loop in the main loop. you should load the DTM's once t the beginning and only free them before terminating script, because scar is not 100% efficient so it's faster to keep them loaded than to load and delete them all the time.

~RM

You understand multiplayer(sort of), randoms, DTM's, cases and more!
I say yes, it looks good enough.

I haven't voted here yet?

Why do I have a feeling that I've recently voted your app?

Meh anyhow, yes :)

Script is OK to me, except the little points pointed out before, and this one:

      if(Waiter>25) then
      begin
        Writeln('Could Not Find A Tree, Switching Characters')
        NextPlayer(False);
      end;

It'll switch in the middle of the mainloop. Let the script logout, and switch characters at the end of the loop :)

Yes

Auw:(, why do I always have the feeling that everybody is drunk? lol:p

My first thought was to don't vote/vot eno, because it's way to easy.
It's true that he understands player switching etc, but still.

I have to agree with mick and RM, 2 fresh SRL members who are alreadt, in my opinion, doing a great job helping other people at their application:)

I hope you guys are always that helpfull and prepared to make some huge reply with information:p

-Tsn.

Wow pretty good good use of cases. Need some more Time Marks and stuff. Also i dont see the point of chopping down yews? Surely you could add a banker? Any way Im going to hold my vote for now. But this is a very good app :) . And if you dont get in then just learn some more. comeback next month and suprise us :p


->{Nauman}<-

Well,, you know what you need to know IMO. yes from me.

I didn't vote yet because i see potential and i don't want to send that to waste. i was wondering if you could edit the script for tomorow/ in two days time? with the suggestions we gave you?

From: Markus

It'll switch in the middle of the mainloop. Let the script logout, and switch characters at the end of the loop

im not sure if you understood how important that is? the thing is in a bigger script, that has to walk somewhere this it is crucial to switch players in the main loop. why?
let's imagine your players start at the bank and walk to the trees. so player[1] walks to the trees and doesn't find them. he's in the lookingForTree loop and you do NextPlayer(False); the thing is your still in the looking loop, so when player[2] logs in he'll start looking for trees but he's still at the bank. he doesn't find them, logs out and so do all the other players, because no one walked to the tree place.

if you need any help changing your script pm me, and i hope to see an updated script posted :)

if you do that it'll show commitment and you'll probably get a lot more of yesses than just mine.

From: Tsn

I have to agree with mick and RM, 2 fresh SRL members who are alreadt, in my opinion, doing a great job helping other people at their application

I'm glad you seem to have changed your mind about me ;):P


~RM

OMFG Wizzup? voted yes..

I had no idea I was aloud to change the script. I'll get right on editing the things you told me. I'll fix the errors you guys told me. Hopefully I'll have that ready by tonight, maybe tomorrow. Thank you all voters, yes and no. I've gotten more useful feedback in 3 posts here than in 2 pages elsewhere.

Should I change the first post or should I make a new one with the edited script?

Edit it :p

From: richk1693

Should I change the first post or should I make a new one with the edited script?

that is a much debated question :P i think you should add it to the first post.

like:

old version:
blabla

updated version:
blabla

(Clue: put the updated version on top, that's the one that will get most of the looks ;) )

~RM

Made one procedure cutting. Fixed multiple errors you people pointed out. Cut over 100 lines of code.

me like. yes.

But i suggest you go read a couple more tuts on multiplayer;)

~RM

From: Rasta Magician

im not sure if you understood how important that is? the thing is in a bigger script, that has to walk somewhere this it is crucial to switch players in the main loop. why?

When Fakawi gave me my membership 8 months ago, I had that bug in my script too, but look, I'm in :)

From: Markus
When Fakawi gave me my membership 8 months ago, I had that bug in my script too, but look, I'm in :)

same I think

hey come on people get to press that yes button more often! ;)

he deserves it, and if we were to look at a tutorial that says what is needed for members: (Pwnaz0r's)

* The SRL Player Array(MultiPlayer)
* SRL functions
* AntiBan
* Antirandoms
* Not Breaking SRL Rules
* Use Scripting Standards!
* Use of DTM's
* Forms
* Make Sure to have a GOOD ATTITUDE and correct your scripts as soon as someone tells you your mistakes.
* Self Made Procedures
* Use of advanced SRL related actions such as finding rotated DTM's –> does FindObjCustom Count? :p
* Clever Idea's / Well constructed loops!

He's got most of those things. it's true this script is not an AMAZING script, but it's not the 'this is my feeble attempt at a power chopper' kind of script either. i would actually run this script with my army.

btw: you could do your ent procedure in the same way you did your cutting procedure.

~RM

From: Rasta Magician
hey come on people get to press that yes button more often! ;)

he deserves it, and if we were to look at a tutorial that says what is needed for members: (Pwnaz0r's)

* The SRL Player Array(MultiPlayer)
* SRL functions
* AntiBan
* Antirandoms
* Not Breaking SRL Rules
* Use Scripting Standards!
* Use of DTM's
* Forms
* Make Sure to have a GOOD ATTITUDE and correct your scripts as soon as someone tells you your mistakes.
* Self Made Procedures
* Use of advanced SRL related actions such as finding rotated DTM's –> does FindObjCustom Count? :p
* Clever Idea's / Well constructed loops!

He's got most of those things. it's true this script is not an AMAZING script, but it's not the 'this is my feeble attempt at a power chopper' kind of script either. i would actually run this script with my army.

btw: you could do your ent procedure in the same way you did your cutting procedure.

~RM

We can decide what we want, it's our decision, but ofcource, we can discuss;)

Let me edit this msg after I had a look to his apply:)

-Tsn.

EDIT: Well, ok, I don't feel voting yes, as I've stated before, I think it's a to basic script to get into SRL Members.

Btw Markus, you get auto-memberized and your script wasn't that bad at all;)

From: Rasta Magician
hey come on people get to press that yes button more often! ;)

he deserves it, and if we were to look at a tutorial that says what is needed for members: (Pwnaz0r's)

* The SRL Player Array(MultiPlayer)
* SRL functions
* AntiBan
* Antirandoms
* Not Breaking SRL Rules
* Use Scripting Standards!
* Use of DTM's
* Forms
* Make Sure to have a GOOD ATTITUDE and correct your scripts as soon as someone tells you your mistakes.
* Self Made Procedures
* Use of advanced SRL related actions such as finding rotated DTM's –> does FindObjCustom Count? :p
* Clever Idea's / Well constructed loops!

He's got most of those things. it's true this script is not an AMAZING script, but it's not the 'this is my feeble attempt at a power chopper' kind of script either. i would actually run this script with my army.

btw: you could do your ent procedure in the same way you did your cutting procedure.

~RM

I have self made procedures.

Thanks for standing up for me, but I honestly wasn't expecting to get in with this script. It was more to get feedback. People are voting no because its an easy script to make. I deserve the No in that aspect. Yes, it is well done with all good features, but it's still a power cutter.

From: Rasta Magician
hey come on people get to press that yes button more often! ;)

he deserves it, and if we were to look at a tutorial that says what is needed for members: (Pwnaz0r's)

* The SRL Player Array(MultiPlayer)
* SRL functions
* AntiBan
* Antirandoms
* Not Breaking SRL Rules
* Use Scripting Standards!
* Use of DTM's
* Forms
* Make Sure to have a GOOD ATTITUDE and correct your scripts as soon as someone tells you your mistakes.
* Self Made Procedures
* Use of advanced SRL related actions such as finding rotated DTM's –> does FindObjCustom Count? :p
* Clever Idea's / Well constructed loops!

He's got most of those things. it's true this script is not an AMAZING script, but it's not the 'this is my feeble attempt at a power chopper' kind of script either. i would actually run this script with my army.

btw: you could do your ent procedure in the same way you did your cutting procedure.

~RM

Sounds like he told you to say that ….
lol pwnz0rs tut says thats what you should do =S and than the rest depends on us

From: p1nky
Sounds like he told you to say that ….
lol pwnz0rs tut says thats what you should do =S and than the rest depends on us

yeh of course im not forcing anyone :P i just though he had the potential to get in. And to make it clear i had never met this guy before. he did not ask me for any of that.

~RM

I don't really like powercutters/miners, so I won't vote… But if I did vote, I'm leaning towards a yes.

Well now it'd be a yes but I already voted no from your older script. Hmm… Dang. I didn't know you could edit your application with new scripts either.

I'm not going to vote, but I would like to know why you used this procedure:

procedure DropEmV2;//Was bury bones procedure by WT-Fakawi. Edited to Dropper by me.
var
  x, y, i: Integer;
  TB: TBox;
begin
  Logs := DTMFromString('78DA639CCEC4C0F09C010C7821144380BB34C' +
         '37F20CD08C4FF8180B107A8E62E031A60442281743B50CD0B026A' +
         'BA816ADE12503315A8E63D01354B816A9E1250331FA8E60D0135F' +
         '3806A6E12503309A8E60E7E3500D6561333');
  GameTab(4);
  Wait((100)+ Random(50));
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
    begin
      if FindDTM(Logs, x, y, TB.x1, TB.y1, TB.x2, TB.y2) then
      begin
        MouseItem(i, False);
        ChooseOption('Drop');
        Cut:=Cut+1
        ReportVars[0]:= 1;
        SendSRLReport;
        Wait((250) + Random(150));
      end;
    end;
    FindNormalRandoms;
  end;
end;

Why is it that you only want to drop the logs? What if your players get filled up and log out with a load of security books and rolls? Maybe that is how you want it to be, as you like Gems or something, but then you could always do the DTM of the Gem and drop everything else. I use:

Procedure DropLogs;
Begin
  if Not(LoggedIn) then exit;
  GameTab(4);
  for i := 3 to 28 do
  Begin
    If ExistsItem(i) then
      DropItem(i);
    if (i = 10) or (i = 20) then
      FindNormalRandoms;
  end;
  PlayerReport;
  FindNormalRandoms;
end;

From: Rasta Magician

in a bigger script, that has to walk somewhere this it is crucial to switch players in the main loop. why?
let's imagine your players start at the bank and walk to the trees. so player[1] walks to the trees and doesn't find them. he's in the lookingForTree loop and you do NextPlayer(False); the thing is your still in the looking loop, so when player[2] logs in he'll start looking for trees but he's still at the bank. he doesn't find them, logs out and so do all the other players, because no one walked to the tree place.

Just would like to know why nobody told me about this when I was applying :p After like 25 versions of my tree chopper, I finally realize why it's been messing up straight away :duh:

I never really considered it to be that important. I normally like to keep all my random event items unless its reallly useless like sec book. I wont do drop all but gem, because what if they have an axe or something else? I could do DTMS of these items, but there are countless items they may want to keep, so that would be countless DTMs. There are other ways to keep valuable randoms, but I dont think it's that important.

Just use DropToPosition from srl no harm in using that :p


I vote … Yes :) i see bucket loads of potential in you and im sure you shall play an active role in members :p . Your script was all right but not something i could not debate on. Ive voted yes!

Alot of the script is a responder/talker…Player switching can be reduced to one third of its size…a few begins/ends not needed, and there's Until(False) in the main loop…

Making the script the shortest it can be, along with that Until(False)…sorry, it's a no.

From: Santa_Clause

Making the script the shortest it can be, along with that Until(False)…sorry, it's a no.

i was wondering if you ever looked at Wizzup?'s Ess miner main loop? But i rest my case. Don't feel like it's worth getting into any sort of "fight" if the applicant himself doesn't think he should get in :/

~RM

From: Santa_Clause
Alot of the script is a responder/talker…Player switching can be reduced to one third of its size…a few begins/ends not needed, and there's Until(False) in the main loop…

Making the script the shortest it can be, along with that Until(False)…sorry, it's a no.

Am i missing something as to why that's important? Only thing is you have to stop it yourself, which is an insignificant minor inconvenience.

WoW. 9-9 this is a really wierd app :p

i witheheld my vote the first time i looked at this app, i am now proud to make the vote 10-9, gratz so far man

Thanks! 11-10. Maybe I'll get into SRL members for Christmas! <3. Thank you anyone who voted or gave me opinions.

UMM Admin's you might want to lock this!



MERRY CHRISTMAS EVERYONE!!!

In? I voted no, but I really like hes attidude:)
It would be yes from me now…

Lets it snow, let it snow, let it snow… Xmas :)

From: richk1693
Am i missing something as to why that's important? Only thing is you have to stop it yourself, which is an insignificant minor inconvenience.

Well…you could have bother and made it stop repeating when all the players became inactive…

function AllPlayersInActive : Boolean;
var
  I : Integer;
begin
  for I := 0 to HowManyPlayers - 1 do
  if Players[I].Active then
    Exit;
  Result := True;
end;

In. Merry Christmas, btw.