SRL Archive - Jr. Member RS3 Script Requests

Oph. Incubation Script

kladinko

2015-02-24 00:15:31

I tried my hand at making one, but coding to me is just a completely different language that I can't understand at all, no matter how hard I try. If anyone has a script that does this and would be willing to share I would be extremely grateful, although I would gladly accept help in making the script myself, although I swear I have some form of disability when it comes to learning this haha, I will keep trying my hand at it.

cosmasjdz

2015-02-24 00:57:19

What part are you stuck at? I have holly trinity: eggs, incubator, papayas and incubator defitinely was eaziest of those. Not sharing thought. One of these became unproffitable, might be my brother leaked to someone as i botted on his pc too…

Neva Banned

2015-02-24 01:43:11

This a basic script, I just slopped it together and I made over 20k eggs w/o ban but I would say take the time and make it better.
BTW set your familiar actions to = which is in settings then controls.
Put a summoning potion (3) in your action bar then change the key in the script to match it.
It also uses presets


program SnakeFondler;

{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}

procedure declarePlayers();
begin
  setLength(players, 1);
  with players[0] do
  begin
    loginName := 'username';  // Enter Username here
    password := 'password';  // Password here
    isActive := true;
    isMember := true;
  end
  currentPlayer := 0;
end;

var
  bankType: integer = BANK_CHEST_SHANTAY;
  timeRan: TTimeMarker;

//////////////////////////////////////////////////////////////////////
//                                                                  //
//    * To change banker, change top variable to one of these *     //
//                                                                  //
//  BANK_NPC_GREY;                                                  //
//  BANK_NPC_GREEN;                                                 //
//  BANK_NPC_DRAYNOR;                                               //
//  BANK_BOOTH;                                                     //
//  BANK_CHEST_SW;                                                  //
//  BANK_CHEST_SHANTAY;                                             //
//  BANK_CHEST_DUEL;                                                //
//  BANK_CHEST_CW8;                                                 //
//  BANK_CHEST_GROTT;                                               //
//  BANK_CHEST_LUMBRIDGE;                                           //
//  BANK_TABLE_BURTHORPE;                                           //
//                                                                  //
//////////////////////////////////////////////////////////////////////


/////////////////////////////////////////////////////////////////
//                                                             //
//                       SCRIPT STARTS HERE                    //
//                                                             //
//                                                             //
/////////////////////////////////////////////////////////////////




procedure invReplensh();

begin


 if isLoggedin() then
  begin
    timeRan.start();
    wait(randomRange(15,50));
    bankScreen.open(bankType);
  end;

if not (bankScreen.isOpen) then
    repeat
    begin
    wait(randomRange(25,85));
    bankScreen.open(bankType);
    end;
    until  (bankScreen.isOpen);


if (bankScreen.isOpen()) then
  begin
    writeLn('Opening bank and withdrawing items');
    wait(randomRange(75,150));
    bankScreen.clickButton(BANK_BUTTON_PRESET_1);  // Change preset option here.
  end;
end;



procedure Pot();
begin
TypeSend('-',False);
 wait(randomRange(450,545));
TypeSend('-',False);
 wait(randomRange(550,645));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));

end;

procedure Cast();
var
  i:Integer;
begin
for i := BACKPACK_SLOT_LOW to 25 do
begin
  TypeSend('=',False);
  wait(randomRange(350,445));
  tabBackpack.mouseSlot(i, MOUSE_LEFT);
  wait(randomRange(350,445));
end;

end;

procedure loopy();
begin
 repeat
  invReplensh();
  wait(randomRange(25,45));
  Cast();
  wait(randomRange(75,110));
  Pot();
  wait(randomRange(25,45));
 until (not isLoggedIn());


end;
//procedure reSummon();
//begin

//end;

begin
  clearDebug();
  disableSrlDebug := true;
  smartEnableDrawing := true;
  setupSRL();
  declarePlayers();
  invReplensh();
  Cast();
  Pot();
  repeat
    loopy();
  until (not isLoggedIn());


  if not isLoggedIn() then
  begin
    players[currentPlayer].login();
    exitSquealOfFortune();
    minimap.setAngle(MM_DIRECTION_NORTH);
    mainScreen.setAngle(MS_ANGLE_HIGH);
  end;
end.

kladinko

2015-02-24 03:04:56

From: Neva Banned
This a basic script, I just slopped it together and I made over 20k eggs w/o ban but I would say take the time and make it better.
BTW set your familiar actions to = which is in settings then controls.
Put a summoning potion (3) in your action bar then change the key in the script to match it.
It also uses presets


program SnakeFondler;

{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}

procedure declarePlayers();
begin
  setLength(players, 1);
  with players[0] do
  begin
    loginName := 'username';  // Enter Username here
    password := 'password';  // Password here
    isActive := true;
    isMember := true;
  end
  currentPlayer := 0;
end;

var
  bankType: integer = BANK_CHEST_SHANTAY;
  timeRan: TTimeMarker;

//////////////////////////////////////////////////////////////////////
//                                                                  //
//    * To change banker, change top variable to one of these *     //
//                                                                  //
//  BANK_NPC_GREY;                                                  //
//  BANK_NPC_GREEN;                                                 //
//  BANK_NPC_DRAYNOR;                                               //
//  BANK_BOOTH;                                                     //
//  BANK_CHEST_SW;                                                  //
//  BANK_CHEST_SHANTAY;                                             //
//  BANK_CHEST_DUEL;                                                //
//  BANK_CHEST_CW8;                                                 //
//  BANK_CHEST_GROTT;                                               //
//  BANK_CHEST_LUMBRIDGE;                                           //
//  BANK_TABLE_BURTHORPE;                                           //
//                                                                  //
//////////////////////////////////////////////////////////////////////


/////////////////////////////////////////////////////////////////
//                                                             //
//                       SCRIPT STARTS HERE                    //
//                                                             //
//                                                             //
/////////////////////////////////////////////////////////////////




procedure invReplensh();

begin


 if isLoggedin() then
  begin
    timeRan.start();
    wait(randomRange(15,50));
    bankScreen.open(bankType);
  end;

if not (bankScreen.isOpen) then
    repeat
    begin
    wait(randomRange(25,85));
    bankScreen.open(bankType);
    end;
    until  (bankScreen.isOpen);


if (bankScreen.isOpen()) then
  begin
    writeLn('Opening bank and withdrawing items');
    wait(randomRange(75,150));
    bankScreen.clickButton(BANK_BUTTON_PRESET_1);  // Change preset option here.
  end;
end;



procedure Pot();
begin
TypeSend('-',False);
 wait(randomRange(450,545));
TypeSend('-',False);
 wait(randomRange(550,645));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));
TypeSend('-',False);
wait(randomRange(450,545));

end;

procedure Cast();
var
  i:Integer;
begin
for i := BACKPACK_SLOT_LOW to 25 do
begin
  TypeSend('=',False);
  wait(randomRange(350,445));
  tabBackpack.mouseSlot(i, MOUSE_LEFT);
  wait(randomRange(350,445));
end;

end;

procedure loopy();
begin
 repeat
  invReplensh();
  wait(randomRange(25,45));
  Cast();
  wait(randomRange(75,110));
  Pot();
  wait(randomRange(25,45));
 until (not isLoggedIn());


end;
//procedure reSummon();
//begin

//end;

begin
  clearDebug();
  disableSrlDebug := true;
  smartEnableDrawing := true;
  setupSRL();
  declarePlayers();
  invReplensh();
  Cast();
  Pot();
  repeat
    loopy();
  until (not isLoggedIn());


  if not isLoggedIn() then
  begin
    players[currentPlayer].login();
    exitSquealOfFortune();
    minimap.setAngle(MM_DIRECTION_NORTH);
    mainScreen.setAngle(MS_ANGLE_HIGH);
  end;
end.

Thank you so much, there was a problem with the timing of it but I fixed that, I'm working on adding an antiban now. I understand it much more now that I have a blueprint of sorts haha, thanks again man

Neva Banned

2015-02-24 03:07:52

From: kladinko
Thank you so much, there was a problem with the timing of it but I fixed that, I'm working on adding an antiban now. I understand it much more now that I have a blueprint of sorts haha, thanks again man

Thats why this community is the best for learning and teaching. It helps that you can create a script in less than an hour depending how complex it is but yeah. Pascal is one of the best starting languages and then having all these scripts to look at really helps.