SRL Archive - Archive

//This can be used either for fletching or herblore to join Bows(u) with strings
// and/or herbs with vials , then Unf pots with the other material.
program ItemJoiner;
{.include srl/srl.scar}

var
  x, y, ItemsDone, Anti :integer;
  Working :Boolean;

const
   WhatBank = 'eb'; //What Bank To Use (Codes Above)
   Dir = 'N';    //Run Away Direction (N, S, W, E)
   AmountToDo = 0; //Amount of items you want to make by joining

////////////////////////////////////////////////////////////////////////////////
procedure PlayerSetup;
begin
  SRLID     := '';
  SRLPassword   := '';
  CurrentPlayer   := 0;
  HowManyPlayers  := 1;
  NumberOfPlayers(HowManyPlayers);
  
  Players[0].Name        := '';         //UserName
  Players[0].Pass        := '';         //Password
  Players[0].Nick        := '';         //NickName
  Players[0].Strings[1]  := '';         //BankPin, Leave blank if you don't have one.
  Players[0].Active      := True;
  
  Players[1].Name        := '';         //UserName
  Players[1].Pass        := '';         //Password
  Players[1].Nick        := '';         //NickName
  Players[1].Strings[1]  := '';         //BankPin, Leave blank if you don't have one.
  Players[1].Active      := True;
  
  Players[2].Name        := '';         //UserName
  Players[2].Pass        := '';         //Password
  Players[2].Nick        := '';         //NickName
  Players[2].Strings[1]  := '';         //BankPin, Leave blank if you don't have one.
  Players[2].Active      := True;

end;

////////////////////////////////////////////////////////////////////////////////

procedure Randoms;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  if FindFight then
    RunAway(Dir, true, 1, 1000);
  if FindBox then
  begin
    CloseBank;
    SolveBox;
  end;

end;

////////////////////////////////////////////////////////////////////////////////
procedure BankOpen;
begin
  OpenBankFast(lowercase(WhatBank));
  if PinScreen Then
    InPin(Players[CurrentPlayer].Strings[1]);
  FixBank;
  Exit;
end;

////////////////////////////////////////////////////////////////////////////////
procedure Intro;
begin
  ClearDebug;
  Writeln('ItemJoiner');
  Writeln('Joining Time!! So lets go!...');
end;


////////////////////////////////////////////////////////////////////////////////
procedure Join;
begin
  if not LoggedIn then Exit;
  if ExistsItem(14) then
  begin
     MouseItem(14, true)
  end;
  wait(750 + random(500));
  if ExistsItem(15) then
      begin
     MouseItem(15, true)
     end;
end;

////////////////////////////////////////////////////////////////////////////////
procedure Join2;
begin
  if not LoggedIn then Exit;
  if ExistsItem(28) then
  begin
     MouseItem(14, true)
     Wait(750 + random(500));
     MouseItem(28, true)
  end;
end;

////////////////////////////////////////////////////////////////////////////////

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  if (ClickToContinue) then Join2;
  case random(15) of
    0,6,8,12,13:  begin
                    MMouse(MSX1, MSY1, MSX2, MSY2);
                    Anti := Anti + 1;
                  end;
    1,14:  begin
              case random(20) of
                1..3: begin
                           SetAngle(false);
                           Wait(random(1000));
                           SetAngle(true);
                           Wait(500 + random(1000));
                           Anti := Anti + 1;
                         end;
                6..8: begin
                           MakeCompass('E');
                           Wait(random(1000));
                           MakeCompass('N');
                           Wait(random(1000));
                           Anti := Anti + 1;
                         end;
                10..12: begin
                             MakeCompass('E');
                             Wait(random(1000));
                             MakeCompass('W');
                             Wait(random(1000));
                             MakeCompass('N');
                             Anti := Anti + 1;
                           end;
                15..17: begin
                              SetAngle(false);
                              MakeCompass('E');
                              Wait(random(1000));
                              SetAngle(true);
                              Wait(random(800));
                              SetAngle(true);
                              Anti := Anti + 1;
                            end;
              end;
           end;
    2,3,5:  begin
                   HoverSkill('random',False);
                   Anti := Anti + 1;
                 end;
    1,7,11:  begin
                   Gametab(Random(14));
                   Anti := Anti + 1;
                 end;
    4,9,10:  begin
                   RandomRClick;
                   Anti := Anti + 1;
                 end;
  end;
end;

////////////////////////////////////////////////////////////////////////////////

procedure ClickOnOption;
begin
  if not LoggedIn then Exit;
  MMouse(240, 400, 20, 20);
  wait(200+random(100));
  GetMousePos(x, y);
  Mouse(x, y, 1, 1, false);
  if ChooseOption('All') then
  Working := true;
end;

////////////////////////////////////////////////////////////////////////////////
procedure WaitWhileWorking;
begin
  if not LoggedIn then Exit;
  if Working = true then
  begin
    repeat
      wait(250);
      Randoms;
      AntiBan;
    until(not(ExistsItem(28))or not LoggedIn);
    Working := False;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
procedure Bank;
begin
  if not LoggedIn then Exit;
  Bankopen;
  Depositall;
  FixBank;
  wait(1000+ Random(200));
  Withdraw(1, 1, 14) ;
  Withdraw(2, 1, 0) ;
  ItemsDone := ItemsDone + 14;
  Disguise('Joined so far:'+ inttostr(ItemsDone) )
  ReportVars[0] := ReportVars[0] + 14;
  wait(500);
  CloseBank;
end;

////////////////////////////////////////////////////////////////////////////////
procedure Proggy;
begin
  ClearDebug;
  Writeln('________________________________________');
  Writeln('________Item Joiner By Dracody__________');
  Writeln('=========================================');
  Writeln('-----------------------------------------');
  Writeln('________Items Joined: ' + inttostr(ItemsDone)+ '________________');
  Writeln('________Time: ' + TimeRunning + '__');
  Writeln('________Did Anti Ban: ' + inttostr(Anti) + ' time(s)'+ '________');
  Writeln('_________________________________________');
end;

////////////////////////////////////////////////////////////////////////////////
procedure Mainloop;
begin
  if not LoggedIn then
  begin
    LoginPlayer;
    MakeCompass('N');
    SetAngle(True);
  end;
  if not(invfull) then
  begin
    Bank;
  end;
  repeat
     Join;
     Randoms;
     wait(750 + random(500));
     ClickOnOption;
     WaitWhileWorking;
     BankOpen;
     Randoms;
     Bank;
     Randoms;
     Proggy;
     SRLRandomsReport;
   if ItemsDone >= AmountToDo then
   begin
     WriteLn('Done!!!!') ;
     WriteLn('We already did: '+ IntToString(AmountToDo));
     WriteLn('I hope you enjoyed autoing!');
     Logout;
     NextPlayer(true);
   end;
  until(false)
end;

////////////////////////////////////////////////////////////////////////////////
begin
  Intro;
  Playersetup;
  setupsrl;
  activateclient;
  wait(1000);
  mainloop;
end.

From: Scaper
umm yes i guess :)

good luck

From: Dracody
Thanks a lot dude , I hope everything goes fine.:)
If not, just try again:)

From: noidea
Its just too simple… Try and make something skill related ;) It pushes you to do more, and find more effecient ways to do it.

Sorry, no.

From: Metagen
grrr vote yes more! he has been a long time contributer to srl, i think he deserves membership.

From: Runescapian
Yeah, the script is too simple.

However, you are active and helpful around the forums.

So I vote Yes =)

From: lordsaturn
Yes from me, you've learned a lot in your short time here.

From: N1ke!
Yes.

FindDTM(DTMName,x,y,0,0,50,50);

DTM := DTMFromString('dgjls95349683943584968349863948693486938469839486348693486');

var
  x,y,IronOreDTM : Integer;

IronOreDTM := DTMFromString(text from "DTMToString" in debugbox");

FreeDTM(IronOreDTM);

If FindDTM(IronOreDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
  MMouse(x,y,0,0);
  If (IsUpTextMultiCustom(['ron','re','iron','ore')) then 
  begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,false);
    ChooseOption('rop');//Drop
  end;
end;

case Random(14) of
  0..5: DoThis;
  6..9: DoSomethingElse;
  11..13: TerminateScript;
end;

From: Rubix
to lazy to look at script, but since Wizzup & WT-Fakawi both voted yes, its a yes from me :D

From: JuKKa
Based on the proggy and u seem to have contributed to srl community, and sound like a nice guy, u know the basics of scripting.

-Yeash!

From: WT-Fakawi
Yes.

From: Quickmarch
Yes. You seem to have a good attitude and the script is ok. :)

From: Pure1993
Yes… you seem to be eager to learn something, and your current scipting capability/knowledge will improve quite fast (it always does when someone is interested ^^).

From: Richard
I'm loving your standards, probably some of the best that I have seen in a long time!

I must admit that it would have been nice to see some walking in there, but then again I got in with a non-walking script, so not changing my vote there.

The AntiBan made up for the fact that you didn't have multi-player, so I have a feeling you know what my answer is right now :)

I've also seen you around the forums alot back when I was on here, and you seem like the kinda guy whos here to learn, not to leech, so brownie points there.

My answer is… YES!

From: lordsaturn
Also, on case statements, if there are sequential numbers in a single statement, then you can use the '..' operator. Ex:

case Random(14) of
  0..5: DoThis;
  6..9: DoSomethingElse;
  11..13: TerminateScript;
end;

It reduces space greatly, and makes your code look a lot cleaner. :)

From: Rubix
to lazy to look at script, but since Wizzup & WT-Fakawi both voted yes, its a yes from me :D

From: Metagen
Grats on all the yesses dude.

From: Dr D. Dervish
I don't think you're ready sorry.

Good attitude.

No. Sorry.