SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java

Other Communitys
Sythe

How Long have You Played Runescape
2 years

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

I have been editing moparscape servers and that's how i got into the world of coding, in pascal, the language SCAR uses, i have learned very well, as ii first thought: "Oh my gosh never", but then i realised how easy and clean it is. So i started to make scripts as i had used others scripts and they made me happy.

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

//ScriptName = Lolislol Powa Choppah
//ScriptAuthor = Lolislol
//Description = Chops The Kind Of Tree You Want Then Drops The Logs
//Version = 1.1
//Credits = The Rs Monkey, Your Tutorial Teached Me Everything Mate, Thanks A Lot!!!
 {Logs out if axe not found}
//========Instructions=========================================\\
// 1.Fill the lines 15 - 18 and the player setup.
// 2.Open up runescape with low detail, any world.
// 3.Log in and go close to the trees you want to cut.
// 4.AXE MUST BE WIELDED!!!!!
// 5.Drag the crosshair to the runescape window and press play.
// 6.You can start the script logged in or out (i suggest out).
// 7.Go do whatever you want. =D
// 8.Post feedback and progress reports. =)
//=============================================================\\
program LolislolPowaChoppah;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
//<==============Setup===============>\\
const
  LoadsPerPlayer = 10; //How many loads you want it to cut with every player.
  TreeColor = 0; //Fill in the tree color here.
  WaitPerTree = 5000; //the time to wait to click again in Milliseconds.
  TreeName = 'Tree'; //Name of the Tree.
  RunDir = 'N'; //Direction to run if in fight: N, S, E, W.

  var
 Chopped : integer;
 Loadies : integer;

procedure DeclarePlayers;
begin
  SetupPlayers;

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

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

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

  LoadPlayerArray;
end;

function FindEnts(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then
    Exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
    MMouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(Result)then
  begin
    WriteLn('Ent Found!!');
    if(AvoidWhenFound)then
    begin
      Writeln('Waiting for it to go away.');
      MarkTime(EntTime);
      while(TimeFromMark(EntTime) < 35000)do
        if(Random(20) > 15)then
          IdleTime(500, 500, 0.4)
        else
          Wait(500 + Random(500));
      EntsAvoided := EntsAvoided + 1;
    end;
  end;
end;

function FindAxes: Boolean;
var
  InvAxe, WieldAxe, Ix, Iy, i: Integer;
  dtmAxes: array[0..6] of Integer;
begin
  if LoggedIn then
  begin
    GameTab(4);
    dtmAxes[1] := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
      '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
      'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03'); //rune
    dtmAxes[2] := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
      '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
      '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8'); //addy
    dtmAxes[3] := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
      '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
      'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64'); //mith
    dtmAxes[4] := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
      '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
      'D594E5E5A2AA29C154D3545989A20600C3BC0E32'); //steel
    dtmAxes[5] := DTMFromString('78DA63BCC9C4C0309191010498182020C6859' +
      '34103488344FF0301E353A04C2F230332F0707161E082AA0101C6' +
      '0740356DA86A22838351D5BC00AAE94655932ACA89AAE639A6394' +
      '1DEDE286A00B1F90F6D'); //iron
    dtmAxes[6] := DTMFromString('78DA63EC626060086140016DA97C0C22409A1' +
      '188FF0301E33420C307558D97A5220317540D08304E051201A86A' +
      'DCCCE451D54C07129EA86AFC6C5450D40000D77E0AA2'); //bronze
    GameTab(5);
    for WieldAxe := 1 to 7 do
    begin
      if(WieldAxe = 7)then
        Break;
      if(FindDtm(dtmAxes[WieldAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
        Break;
    end;
    GameTab(4);
    for InvAxe := 1 to 7 do
    begin
      if(InvAxe = 7)then
        Break;
      if(FindDtm(dtmAxes[InvAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
       Break;
    end;

    if(InvAxe = 7)and(WieldAxe = 7)then
    begin
      Result := False;
      Writeln('No axe was found.');
      for i := 0 to 6 do
        FreeDtm(dtmAxes[i]);
      Exit;
    end;
    if((InvAxe - WieldAxe) < 0)then
      EquipAxe := False
    else
      EquipAxe := True;
    case Min(WieldAxe, InvAxe) of
      1: WriteLn('Using Rune axe');
      2: WriteLn('Using Addy axe');
      3: WriteLn('Using Mith axe');
      4: WriteLn('Using Steel axe');
      5: WriteLn('Using Iron axe');
      6: WriteLn('Using Bronze axe');
    end;
    Result := True;
    for i := 0 to 6 do
//     FreeDtm(dtmAxes[i]);
  end;
end;


procedure checkaxe;
begin
if not LoggedIn then Exit;
  if(FindAxes = false)then
  begin
    writeln('No axe. Logging out');
    Players[CurrentPlayer].Active := False;
    Logout;
    Exit;
  end;
end;

procedure Randoms;
Begin
 FindTalk;
 FindNormalRandoms;
 FindLamp('woodcutting');
  if FindFight then
   begin
    RunAwayDirection(RunDir);
    Wait(10000+random(2000));
    RunBack;
  If (FindDead) Then Begin Logout; NextPlayer(false); Writeln('Player died...');
 End;
end;
end;
procedure AntiBanActs;
var
 DBanMe: Integer;
begin
DBanMe:= Random(9);
 case DBanMe of

   0: GameTab(1 + Random(12));
   1: HoverSkill('Woodcutting', False);
   2: PickUpMouse;
   3: BoredHuman;
   4: checkaxe;
   5: RandomMovement;
   6: GameTab(5 + Random(12));
   7: checkaxe;
   8: RandomMovement;
   9: BoredHuman;
   10: checkaxe;

  end;
 end;

procedure ChopTree;
var
  x, y, MyMark : integer;
begin
  if not Loggedin then Exit;
  MarkTime(MyMark);
  repeat
    if FindObj(x, y, TreeName, TreeColor, 15) then
    begin
      Mouse(x, y, 0, 0, False);
      if ChooseOption('hop') then
      begin
       FindEnts(x,y,true);
        Randoms;
         AntiBanActs;
        Wait(WaitPerTree+Random(300));
       Exit; //We clicked chop, now we can exit this procedure.
      end;
   end;
 until false
end;

procedure ProgressReport;
begin
 ClearDebug;
  Writeln('---------------------------');
  Writeln('     Thanks For Using      ');
  Writeln('   Lolislol''s WoodCutter  ');
  Writeln('      Logs Cutted: ' + IntToStr(Chopped));
  Writeln('       Loads Done: ' + IntToStr(Loadies));
  Writeln('---------------------------');
 end;

begin
  SetupSRL;
  DeclarePlayers;
  MouseSpeed := 8;
  if LoggedIn then Logout;
  LoginPlayer;
  repeat
    SetTimeOut(1 * 60,'ProgressReport');
    ChopTree;
    ProgressReport;
    if InvFull then
    begin
      DropToPosition(2, 28);
      Chopped := Chopped + 27;
      Loadies := Loadies + 1;
      Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
      begin
        NextPlayer(True);
      end;
    end;
    if not Loggedin then NextPlayer(False);
  until false
end.

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

I dont know what to vote, but Im pretty much leaning towards yes.

However, I'll wait for other peoples statements, since I had only a quick look..

function FindAxes: Boolean;

Where are the credits ? I think i made that ? And why did you comment out FreeDtm ? And why did you copy SRL's (which is mine too) Ent function in your script ?

Im leaning towards no, sorry.

From: Sumilion

function FindAxes: Boolean;

Where are the credits ? I think i made that ? And why did you comment out FreeDtm ? And why did you copy SRL's (which is mine too) Ent function in your script ?

Im leaning towards no, sorry.

I'm also leaning towards no, I have to admit with what Sumilion said, but also you don't made it with 100% of you abilities, if you did I'll have to vote no!
You just drop 2>28 inv slots instead of making a DTM of a log and search for that to trop it!

I can see which procedures you made, the less beter one, the better ones is from SRL or isn't made as it should be made, for example:

procedure ChopTree;
var
  x, y, MyMark : integer;
begin
  if not Loggedin then Exit;
  MarkTime(MyMark);
  repeat
    if FindObj(x, y, TreeName, TreeColor, 15) then
    begin
      Mouse(x, y, 0, 0, False);
      if ChooseOption('hop') then
      begin
       FindEnts(x,y,true);
        Randoms;
         AntiBanActs;
        Wait(WaitPerTree+Random(300));
       Exit; //We clicked chop, now we can exit this procedure.
      end;
   end;
 until false
end;

*until false: I know you ahve an exit, but that aint enough! falisafes?
*MarkTime(MyMark);: you don't use any TimeFromMark in your script, so this is useless.

Thus, like i stated, the ones you made aren't made as they should be..

That axes thing is ssoooooo ripped from SLInclude in the VYC….

NO. If you copy next time, please give proper credits………

yes most of the script is not even yours, so that a no

I vote no because the script is simple and short. As said above your dropping procedure isn't very good like what if the user wanted to use axes. The main thing is that you didn't credit properly so I vote no.

Try some walking? Some banking? some failsafes? anything that sets a script apart from the norm… basically i suggest you come up with an idea for a script and then go to a how to become an SRL members tutorial and try and fit in as many of thsoe techniques as you can :D

1. most is from srl
2. the part you made that wasnt in srl wasnt great imo.

(using just findobject)

sorry a no to for above reasons.

gl scripting

Closed for Above Reasons.
And masterkill, please say WHY you say no, i just say 'for above reasons' to let the user know why im closing the thread. You should give some feedback or just vote no and leave.