SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Scar,html,php,basic

Other Communitys
sythe.org

How Long have You Played Runescape
4 years

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

I am 25 years old and I love Runescape, I am a runescape Member and this scar scripting is now starting to click and I worked 18 hours on this script posted. Please accept me into the Members section.

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

{       Proresearch's Seers Maple Cutter and Dropper Beta 0.01
        Start NW of seers bank near the farming patch
        that is by the coal trucks tracks tons of maples there
        Dont cut at maples by the bank...
        
        Weild a axe and Have a backup axe in 1st Inventory Spot
        Start Near the Top In the middle of the Forrest
        This is because you run south during a fight and it dont walk
        back, there is no need to, looks suspicious. :)
        Forrest has ton's of Maples, it's the secret Woodcut Guild
        
        My 1st ever Script Spent 23 hours on it. This Scar thing is now
        starting to click in to my head. I am starting to get it.
 }
program SeersMapleCutterDropper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}

 const
  DirrectionR = 'S'; //Which way to run if in fight.
  HowManyLoads = 10; //
  MySRLID = '0000'; // optional.
  MySRLPassword = 'Pass';
  

var
  AxeH, WoodcutLv, TreeToCut, x, y: Integer;
  ML, Burnt, Maple, i, Nest, NumberOfLogs, CurrentLoad,
  Drop: Integer;
  
   procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := ''; //3 letters of your username
  Players[0].Active := True;
  
   end;
   
   procedure LoadDTMS;
begin
  AxeH := DTMFromString('78DA63EC63666058C1C8800C9A92781974804' +
    '220D1FF40C0D80D54B305550D48968B01A206CCEB01AA5949400D' +
    'C8AE8504D44C04AA994540CD1CA09AD944A8594C847BD61150D30' +
    'B54B309BF1A00B817109E');
  ML := DTMFromString('78DA631465606010604001599EBC0CFF81342' +
       '310FF0702461920831D554DAC030F986684F2191580041F031A60' +
       '4455A30C24C408A811041252A82ADA538C50D580AC1647555317A' +
       'B87AA86134888A0AA6949324055C30D24B851D5F4669AA0A80100' +
       '619B0C0D');

  LogMask := BitmapFromString(31, 25, 'z78DAED97810D002008C35' +
    'EE20AFF3FC90F0806852EB207A88EC030EBD1726530C5D938FCA7' +
    '24B7C8575AAF5FCA712D5397D0695D7EFD49AEDB2DEAE47106E62' +
    'EF349983BD77781CF9CEFA5211FF221AF9F90BAE4CC1BE434E757' +
    'DE869555EE7232F39B56FE519954845FDD2F1893E2')
    
  Nest := DTMFromString('78DA63B4606460D0016224E0EECF05A661A28' +
       'C20356AA86A9C6C7551D5D80159DA04D4D8025906A86AF4745451' +
       'D5980159C6A86A02BC1D50D59860BAD93B841B558D11A65D4E76A' +
       '6286A00C9220791');

end;






procedure Check;
begin
  if (not (LoggedIn)) then Exit
    GameTab(4);
end;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  Writeln('Looking for Randoms');
  for i := 1 to 8 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].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);

  end;
end;

Function LoadsDone: Boolean;
Begin
  If(CurrentLoad >= HowManyLoads)Then
    Result:= True;
End;

  procedure FindRandoms;
begin
  if (not (LoggedIn)) then Exit
      Writeln('Looking for Randoms');
    FindFastRandoms;
  FindNormalRandoms;
  Wait(20)
    FindTalk;
  FTWait(3)
  if (FindFight) then
  begin
    RunAwayDirection(DirrectionR);
    Wait(8000 + Random(2000));
    RunBack;
  end;
  Wait(20)
    FindTalk;
end;

 procedure DropRandoms;
begin
  if (not (LoggedIn)) then Exit
      Writeln('Quickie Randoms');
    FindFastRandoms;
  FindNormalRandoms;
  Wait(2)
    FindTalk;
  FTWait(3)
  if (FindFight) then
  begin
    RunAwayDirection(DirrectionR);
    Wait(8000 + Random(2000));
    RunBack;
  end;
  Wait(2)
    FindTalk;
end;

procedure AntiBannage;
begin
  case random(16) of
    0: GameTab(5 + Random(12));
    1: BoredHuman;
    2: GameTab(4 + Random(12));
    3: GameTab(1 + Random(12));
    4: GameTab(2 + Random(12));
    5: RandomMovement
    6: BoredHuman;
    7: PickUpMouse;
    8: RandomRClick;
    9: BoredHuman;
    10: GameTab(1 + Random(12));
    11: RandomMovement;
    12: GameTab(5 + Random(12));
    13: GameTab(6 + Random(12));
    14: BoredHuman;
    15: GameTab(7 + Random(12));


  end;
end;


procedure MoveIfProblem;
begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    MouseFindFlag(643, 78, 2, 2)
      FindFastRandoms;
      FindRandoms;

  end;
end;







procedure DropMaple;
Begin
  NumberOfLogs := NumberOfLogs + 27;
  if Not(LoggedIn) then exit;
  GameTab(4);
  for i := 2 to 28 do
  Begin
    Writeln('Droping your Maples you Noob, Be Patient');
    DropItem(i);
    if (i = 5) or (i = 10) or (i = 15) or (i = 20) or (i = 25) then
      DropRandoms;
  end;

end;


procedure FindBirdsNnest;
 ////dunno if this works might have to change the color///
  begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;

    begin
    Writeln ('Looking for Birds Nest')
      wait(10 + random(2));
      if FindObj(x, y, 'Birds Nest', 4082254, 5) then
      begin
        getmousepos(x, y);
        mouse(x, y, 0, 0, true);
        Writeln ('Found Birds Nest')

        wait(10 + random(2));
            FindFastRandoms;
      end;
    end;
  end;





procedure check1;
begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    Setrun(false);
    WoodcutLv := GetSkillLevel('woodcutting')
      WriteLn('Starting WC level: ' + IntToStr(WoodcutLv));
  end;
end;



procedure MainLoop;
begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    if invfull then
      DropMaple;
    begin

      wait(1000 + random(2000));
      if FindObj(x, y, 'Maple', 12911, 5) then
      begin
        getmousepos(x, y);
        mouse(x, y, 0, 0, true);
        wait(1000 + random(2000));

            FindFastRandoms;
      FindRandoms;
       FindBirdsNnest;
      end;
    end;
  end;
end;


procedure Cut;
begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    HighestAngle;
    if ((GetSkillLevel('woodcutting')) < 99) and
      ((GetSkillLevel('woodcutting')) >= 1) then
      TreeToCut := Maple;
      begin
      MainLoop;
    end;

  end;
end;



procedure MapleSearch;
begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    HighestAngle;
    Writeln('Looking for Maples, be patient you Autoer;');
    if (TreeToCut = Maple) then
    begin
     MainLoop;
         FindFastRandoms;
      FindRandoms;
    end;
 end;
end;

procedure ProgressReport;
begin
WoodcutLv := GetSkillLevel('woodcutting')
  ClearDebug;
  Writeln('-------------------------------------------------------');
  Writeln('  Proresearchs Maple Cutter and Dropper                      ');
  Writeln('              Report!        ');
  WriteLn('  Worked for ' + TimeRunning + '.');
  Writeln('  Logs Cut ' + IntToStr(NumberOfLogs) + '' + '    ');
    Writeln('  Ents Avoided ' + IntToStr(EntsAvoided) + '' + '    ');
  Writeln('  Please Post Proggies in SRL-Forums ');
  WriteLn('Current WC level: ' + IntToStr(WoodcutLv));
  Writeln('---------------------------------------------------------');
end;


procedure Setup;
begin
  Burnt := 0;
end;
begin
  ActivateClient;
  SetupSRL;
  ActivateClient;
  wait(100);
  Setup;
  DeclarePlayers;
  if (not (loggedIn)) then
  begin
    LoginPlayer;
  end;
  begin
    Check;
    check1
      FindRandoms;
    Cut;
    repeat
      repeat;
        FindRandoms;
        AntiBannage;
        ProgressReport;
        MapleSearch;

      until (invfull);
      if (invfull) then
       begin
  if (not (LoggedIn)) then
  begin
    Nextplayer(false);
  end;
  begin
    if InChatMulti('of 15', 'Maple', 'aple logs.') then
    begin
      if FindDTM(ML, x, y, 553, 209, 725, 457) then
      begin
        MMouse(x, y, 5, 5);
        wait(500);
        if IsUpText('Maple') then
          wait(100);
        Mouse(x, y, 1, 1, False);
        wait(500);
        ChooseOption('Drop');
        Drop := Drop + 1;
      end;
    end;
  end;
end;
  begin
      MainLoop;
    end;

      begin
        repeat

          FindRandoms;
          ProgressReport;
        until (not (FindBitmapMaskTolerance(LogMask, x, y, 553, 209, 725, 457, 10, 2))) or
          (ML = (ML));
        if (ML >= ML) then
        begin
          NextPlayer(True);
        end;
      end;
    until (false);
  end;

end.

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

Sorry, quite simple, no correct standards, multiplayer hasn't been used properly a) 1 player b) nextplayer in wrong place

I tested Mutliplayer and it does work

Shouldn't you have waited a month? Or doesn't that rule count when you don't include a script the first time?

Anyways, abit to simple and you really need to fix those standards.

if ((GetSkillLevel('woodcutting')) < 99) and
((GetSkillLevel('woodcutting')) >= 1) then
TreeToCut := Maple;

If i understand correctly you will try to cut maple trees when your level is above 1, you need atleast lvl45 to cut maple

begin
ActivateClient;
SetupSRL;
ActivateClient;

Why 2 times activateclient? 1 should be enough.

procedure DropMaple;
Begin
NumberOfLogs := NumberOfLogs + 27;

Better create a procedure that effectively counts the logs, if you get an item from a random your +27 wouldn't be correct anymore

Edit: You could leave out FindFastRandoms and just keep FindNormalRandoms
It's a good start, just read a few more tuts and better luck next time *cough* once a month *cough*

I tested Mutliplayer and it does work

How did you "test multiplayer", especially when you are using just one char?

I used a freinds account for the 2nd one, I am still learning and readng on the radial walking now, i plan on adding in burning logs, after your load gets full it clicks the farm patch icon then radial walks to the beginning of the tracks and burn the logs on the tracks, then goes back up and cuts again.

You have misunderstood what multiplayer means, it means that the script changes characters.

Decent. With little improving you'd get a yes from me. I'm not voting.

One thing I saw:

 repeat
 
          FindRandoms;
          ProgressReport;
        until (not (FindBitmapMaskTolerance(LogMask, x, y, 553, 209, 725, 457, 10, 2))) or
          (ML = (ML));

Thats about it when the character timeout logouts and hangs in there until you wake up in the morning :(


EDIT: Oh, Im not gonna vote btw.

Good script. Did a very gj. As gof said bang it up a bit and ill lean towards a yea!

Why does everyone still use FindFastRandoms! Agh, FindNormalRandoms does everything but FindFight dude. Somebody put that in a sticky or something geeze.

Well while i was trying to give creative critism i continually had an old nursery rhyme in my mind for some reason. Something the kids used to sings in the old days. It goes something like this:

1…2… Psychor's coming for you.
3…4… Read tutorials more.
5…6… Abandon your tricks.
7…8… A month you'll wait.
9…10… Never copy again.

http://www.villavu.com/forum/showthread.php?t=15973
a few changes here and there, but the basics are from that one, so i dare to believe that the other 10% of the script is from someone else also.

BUSTED LOL though its 10% so 90% only urs suppose to be 95%

From: mickaliscious
Why does everyone still use FindFastRandoms! Agh, FindNormalRandoms does everything but FindFight dude. Somebody put that in a sticky or something geeze.

That I was wondering aswell, every apply what's longer than 100 lines has FFR in it…hate that…extra lagg…

Dude, fix your crappy standards, and make multiplayer work propely…No

Script don't need to be an uber_pwnage_l33t, just for me it's must be standarized and logical, what's the point of it, if it hangs on one player…

Still, what's the point of Procedure check?
If it's loggedin then it clicks on inv?
Why can't you just do gametab(4), lot shorter ^^

lol =D he wanted to make it complex =p

Lol BUSTED!

From: Psychor
Well while i was trying to give creative critism i continually had an old nursery rhyme in my mind for some reason. Something the kids used to sings in the old days. It goes something like this:

1…2… Psychor's coming for you.
3…4… Read tutorials more.
5…6… Abandon your tricks.
7…8… A month you'll wait.
9…10… Never copy again.

http://www.villavu.com/forum/showthread.php?t=15973
a few changes here and there, but the basics are from that one, so i dare to believe that the other 10% of the script is from someone else also.

After Nielsie and Ray became moderators, plus the two copybusters we have…I think you can stop playing detective now ;)

No from me. Sorry.

11-12 yay nub dont copy my very nub script :D

From: Santa_Clause
After Nielsie and Ray became moderators, plus the two copybusters we have…I think you can stop playing detective now ;)

Like the tale of the "turtle and the scorpion", it is in my nature

From: Santa_Clause
After Nielsie and Ray became moderators, plus the two copybusters we have…I think you can stop playing detective now ;)

No from me. Sorry.

Actually I think he is doing a good job.

Good find Psychor.
Closed.