SRL Archive - OSR Help

I had another thread for this but it was getting very long and messy.



This is what I have so far. If someone can try getting this to just start smart it would be great.

Right now I have to things I need to get done:

I need help implementing pin usage

and I need to get it to open.

Any help appreciated.

//Script by rol Prodigy
//Version 1.0
program AirBattlestaffMaker;

{$DEFINE SMART}
{$i SRL/SRL.simba}


const
//  ----------------SETUP-----------------------------
//For now you gotta be in swbank
loadcount= 1000  ;  //how many cycles you need (14 to a cycle)
colb=  2                 ;  //Battlestaff col
rowb=  1                 ;  //Battlestaff Row
cola=  3                 ;  //AirOrb col
rowa=  1                 ;  //AirOrb row


bankty= 2                ;
//0 for any npc bank, 1 for specific bank, 2 for soul wars chest
specific='fwb'           ; //some valed inputs are: 'veb', 'vwb' 'feb'


var
  x, y: integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';  //set username
    Pass := '';       //set password
    Pin  := '';          //set pin
    Active := True;
    LampSkill := 'Crafting'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the Crafting skill
//  ---------------END SETUP----------------------------------------
  end;
end;


procedure AntiRandoms;
begin
  ClickToContinue;
  FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
  LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
end;

procedure Antiban;
begin
  case Random(60) of // Random(60) generates a random integer from 0 to 59
    10: RandomRClick;
    20: HoverSkill('Fletching', False);
    30: PickUpMouse;
    40: RandomMovement;
    50: BoredHuman;
    59: ExamineInv;
  end;
end;

Procedure banksw;

var
  X, Y: Integer;
  begin
  FindNormalRandoms;
  if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
    Mouse(X, Y, 0, 0, True);
    Wait(1500 + Random(300));
end;

Procedure MakeStaff;
begin
  WriteLn('opening sw bank');
  mousespeed:=(7+random(3));
  wait(200);
  if bankty=2 then
    banksw;
  wait(500+random(600))
  depositall;
  wait(800+random(300));
  WithdrawEx(colb,rowb,14,[]);
  wait(500+random(500));
  withdraw(cola,rowa,0);
  wait(500+random(1000));
  closebank;
  wait(1800+random(500));
  invmouse((random(13)+1),1);
  wait(700+random(300));
  Invmouse((15+random(14)),1)
  wait(1000+random(1000));
  mmouse(359,408,200,200);
  mmouse(259,408,30,30);
  wait(100+random(200));
  getmousepos(x,y);
     begin
      if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
      Mouse(x,y,1,1,true)else
      exit;
      end;
  repeat
    wait(1000);
    Antirandoms;
  until invcount=14
  Antiban;
  wait(random(5000));
  if random(2)=1 then
    begin
      writeln('taking mini break');
      wait(random(20000));
      Antiban;
      AntiRandoms;
    end;
  writeln('14 more  staffs made');
end;

Procedure mainloop;
var
  counter:integer;
begin
  counter:=0;
  repeat
    counter:=1+counter;
    findnormalrandoms;
      MakeStaff;
    writeln(loadcount-counter);
    writeln('loads to go');
  until counter=loadcount
  writeln('Another set, problem free');
end;

begin
mainloop;
end.  

InPin('0000')

Check the SRL Includes =]

Yo I need you to talk to me like I'm a little slow tbh very fucking confused at this point.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer  := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Pin  := '1234';

    Active := True;
  end;
end;

procedure Example;
var
  Pin: string;
begin
  if (not(LoggedIn)) then
    Exit;
  FindNonInventoryRandoms;

  Pin := Players[CurrentPlayer].Pin;

  if (PinScreen) then
    InPin(Pin);
end;

Language. There is a Function in the includes, which you already included in your script ( {$i SRL/SRL.simba} ). This Function InPin('0000') inputs your pin, for example if your pin was 0001 then you would put InPin('0001') if it was 2583 Then you would put in InPin('2583'), just call this after you've opened your bank,

If PinScreen Then InPin('0000');

So what color are you dying things here? Blue, red, green, purple? I'm a professional dyer, it makes quite the pretty coin.

K I think I got that part but it keeps opening another tab called smart everytime I click run now

and in this tab there are errors such as

Error:Error: Exception: Access violation at line 101

Line 101:end;

any ideas guys?

anyone?

From: rol prodigy
anyone?

Use the edit button.

What exactly do you need help with?