Results 1 to 13 of 13

Thread: Leyser's Vial Filler

  1. #1
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Leyser's Vial Filler

    Leyser Vial Filler (LeyVial) V-1.0.
    Basic script at the moment I've tested it and it works for the moment its still running right now.
    02/06/2012

    This works at Varrock East Bank.
    Simba Code:
    program VialFiller;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i srl/srl/core/sps/sps.simba}
    // {$i sps/sps.simba} if you get an error put a // above and before the include and delete the // in this and this message.

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

    Players[0].Name := '';  //Your UserName
    Players[0].Pass := '';          //Your PassWord
    Players[0].Nick := '';                //Your NickName
    Players[0].Pin  := '';                      //Your Pin if you dont have a pin
    Players[0].Active:=True;                    //leave pin blank

    end;

    var
    VialDTM, VialDTM2:Integer;

    Procedure Antiban;
    begin
    begin
      Wait(300 + RandomRange(250, 300));
      Case Random(60) Of
        10:
        begin
          HoverSkill('random', False);
        end;

        20:
        begin
          Boredhuman;
        end;

        30:
        begin
          RandomRClick;
        end;
      end;
    end;
    end;

    procedure DeclareDTMs;

    begin
    WriteLn('Declaring DTMs');
    VialDTM := DTMFromString('mggAAAHicY2NgYOgD4ilAPAGIO4G4DYjbgXgOEM8C4mVAvBTKng7EIaERDMbGxkAWEwrmYsAOGHFgCAAAUp0Isw==');
    VialDTM2 := DTMFromString('mwQAAAHicjcyxCYAwAAXRH63ihBEynFUKQYQ0gm6SQi0ERZfwKsvEg9eelXTU0o0HOxJWbDhxIRppxIwFEwYEdOjhWs+tympUzvzw9QJZQQ+H');
    end;

    procedure FreeeDTMs;

    begin
    WriteLn('Freeing DTMs');
    FreeDTM(VialDTM);
    FreeDTM(VialDTM2);
    end;
    procedure TakeOutVials;
    var
    x, y:Integer;
    begin
    if OpenBankFast('veb') then
    DepositAll;
    if FindDTM(VialDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
    begin
    Mouse(x, y, 5, 5, 0);
    ChooseOption('ithdraw-All');
    end;
    end;

    procedure WalkToMiddle;
    var
    x, y:Integer;
    MyPath:TPointArray;
    begin
    SPS_Areas := ['11_3'];
    MyPath := [Point(4634, 1422), Point(4638, 1400), Point(4633, 1388), Point(4623, 1388), Point(4603, 1378), Point(4590, 1374), Point(4583, 1366)];
    if SPS_WalkPath(MyPath) then
    begin
    Wait(575+random(1556));
    if FindDTM(VialDTM2, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Mouse(x, y, 5, 5, 1);
    end;
    end;
    end;

    procedure FillIt;
    var
    c, v:Integer;
    begin
    if FindObjCustom(c, v, ['ountain'], [1006119, 15968903], 5) then
    if IsUpText('ountain') then
    wait(450+random(50));
    Mouse(c, v, 5, 5, 1);
    Wait(20000+random(1300))
    end;

    procedure WalkBackNBANk;
    var
    MyPath2:TPointArray;
    begin
    SPS_Areas := ['11_3'];
    MyPath2 := [Point(4580, 1367), Point(4588, 1376), Point(4601, 1388), Point(4612, 1388), Point(4644, 1391), Point(4642, 1397), Point(4640, 1413), Point(4640, 1418)];
    if SPS_WalkPath(MyPath2) then
    begin
    if FindBank('veb') then
    Wait(500+random(156));
    DepositAll;
    end;
    end;





    begin
    SetUpSRL;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    repeat
    DeclareDTMs;
    TakeOutVials;
    WalkToMiddle;
    FillIt;
    WalkBackNBANk;
    FreeeDTMs;
    until(False);
    end.
    Last edited by Leyser; 06-06-2012 at 02:24 PM.

  2. #2
    Join Date
    Nov 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where does this even work?

  3. #3
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Looks nice you just need to work on those standards that'll increase the readability.

    @Twisterz it works at Varrock East Bank
    Current Project: Retired

  4. #4
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesnt run =/

  5. #5
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Scarface9703 View Post
    Doesnt run =/

    Can you give more info? What is it doing?

  6. #6
    Join Date
    Nov 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I get errors like crazy. I had to manually change
    {$i srl/srl/core/sps/sps.simba} to {$sps/sps.simba}
    to get it to even go further than the first line.

    Then there were about 3 more errors I can't remember.

  7. #7
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    how do i change "DTMFromString" to a different item. Ive been trying to figure that out for ages.

  8. #8
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Twisterz View Post
    I get errors like crazy. I had to manually change
    {$i srl/srl/core/sps/sps.simba} to {$sps/sps.simba}
    to get it to even go further than the first line.

    Then there were about 3 more errors I can't remember.
    Ahh, yes I had to manually use my own SPS because its very weird for me.

  9. #9
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bump

  10. #10
    Join Date
    Mar 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    {$i srl/srl/core/sps/sps.simba}
    Should be:
    Code:
    {$i sps/sps.simba}
    Problem fixed lawl...

    But this shiz only give errors -.-

  11. #11
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bump, Updated the script

  12. #12
    Join Date
    Jul 2012
    Location
    Australia
    Posts
    553
    Mentioned
    1 Post(s)
    Quoted
    4 Post(s)

    Default

    I'll give it a go and see how it turns out.

    I keep getting this as an error:
    Exception in Script: Unable to find file 'srl/srl/core/sps/sps.simba' used from ''
    Last edited by Leonardo Da Vinci; 07-06-2012 at 11:13 PM.
    Sinking. Always. Sinking.

  13. #13
    Join Date
    Feb 2012
    Location
    Discord
    Posts
    3,114
    Mentioned
    37 Post(s)
    Quoted
    538 Post(s)

    Default

    Quote Originally Posted by Leonardo Da Vinci View Post
    I'll give it a go and see how it turns out.

    I keep getting this as an error:
    Exception in Script: Unable to find file 'srl/srl/core/sps/sps.simba' used from ''
    l2read :P
    change
    Simba Code:
    {$i srl/srl/core/sps/sps.simba}
    // {$i sps/sps.simba} if you get an error put a // above and before the include and delete the // in this and this message.

    to
    Simba Code:
    {$i sps/sps.simba}

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •