Page 1 of 2 12 LastLast
Results 1 to 25 of 26

Thread: Vial Emptyer.

  1. #1
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default Vial Emptyer.

    well saw this on sythe. You buy attack pots (1) then empty them. sell vials for 80gp each. if this was say a script which

    Bought>banked>emptied>banked>sells empty ones.
    Did someone say GDK?

  2. #2
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    saw this methode too.

  3. #3
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what are the costs of atk pots?

  4. #4
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    18gp ea. so easy money.
    Did someone say GDK?

  5. #5
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Making it, ill post in a min

    SCAR Code:
    program New;
    {.include SRL/SRL/Misc/SMART.scar}
    {.include SRL/SRL.scar}


    Const
    SmartWorld='World22';
    Signed=True;
    Bank='veb';//where to bank?

    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; // number of players
      CurrentPlayer:= 0; // starting player

      NumberOfPlayers(HowManyPlayers);

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:= True;
    end;

    var
    x, y, i, AttPot, EmptyVial: Integer;

    procedure SetupSmart;
    begin
      SmartSetup(SmartWorld, False, Signed, False);
      ClearDebug;
      WriteLn('Setting up Smart! Chill out man!');
      Wait(10000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartActive) do Wait(100);
    end;

    Procedure LoadEverything;
    begin
      AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
           '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
           '7B36E25703008E9E0B07');
      EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
           '344FF03016328903515550D44164602E930206B130135B140D62A' +
           '026A7C81ACE5F8D500002CE50A62');
    end;

    Function EmptyVials : Boolean;
    var
      Count : Integer;
    begin
      LoadEverything;
      repeat
        If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
        begin
          Mouse(x,y,5,5,false);
          wait(300+random(200));
          if ChooseOption('mpty') then
            Result:=True;
        end;
      until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end else
        Result:=True;
    end;

    Function DepositVials : Boolean;
    var
      count : Integer;
    begin
      repeat
        OpenBankFast(Bank);
        Flag;
        Wait(300+random(200));
        Count:=count+1;
      until (BankScreen) or (Count>=5);
      if BankScreen then
      begin
        Count:=0
        If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
        repeat
          mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
          Wait(500+random(400));
          Count:=Count+1;
        until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
        if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
          Result:=True;
        if Count>=5 then
        begin
          writeln('Couldnt deposit vials');
          Logout;
          Players[CurrentPlayer].Active:=False;
        end else
          Result:=true;
      end;
    end;

    Function WithdrawVials : Boolean;
    Var
      count:Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
        begin
          count:=Count+1;
          Mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
        end;
      Until (InvFull) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end;
    end;

    begin
      SetupSRL;
      SetupSmart;
      repeat
        WithDrawVials;
        EmptyVials;
        DepositVials;
      until false
    end.

    there, not intended to run without being watched

  6. #6
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could anyone make a script that fill the vials with water? That will give us even more profit.

    You mean attack mix (1)?

    Attack potion (1) sells for 126gp

  7. #7
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In that case, youll have to change the DTM's in the script i posted =/, and im too lazy to do it myself, as i wont use this anyway...

  8. #8
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    this req was a sucsess, thans a lot.
    Did someone say GDK?

  9. #9
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jakeyboy29 View Post
    this req was a sucsess, thans a lot.
    You could express thanks in rep lol

    but youre welcome...

  10. #10
    Join Date
    Dec 2007
    Posts
    203
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well this script dosent seem too hard to make I am learning so I might be able to make it but theres no promises, seeing I have alot of school work as well.

  11. #11
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cheater95 View Post
    Well this script dosent seem too hard to make I am learning so I might be able to make it but theres no promises, seeing I have alot of school work as well.
    Already posted one if you wanna add to it feel free, just mention me in the credits

  12. #12
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    thanks, rep +

    ill try ur script now.
    Did someone say GDK?

  13. #13
    Join Date
    Dec 2007
    Posts
    203
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok then but I will change bitmap first, and see if I can edit it good enough

  14. #14
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cheater95 View Post
    Ok then but I will change bitmap first, and see if I can edit it good enough
    Its a DTM, not bitmap all i did was get the image from tip.it and use that to make the DTM, its not hard :P

    and thanks for the rep

  15. #15
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Got this error with your script sirlaughsalot:

    [Runtime Error] : Exception: Access violation at address 006D72AA in module 'scar.exe'. Read of address 00000000 in line 108 in script

  16. #16
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by simen236 View Post
    Could anyone make a script that fill the vials with water? That will give us even more profit.

    You mean attack mix (1)?

    Attack potion (1) sells for 126gp
    i already made, was selling that script but it got outdated since rs updated ill update and release soonnnn

  17. #17
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL/Misc/SMART.scar}
    {.include SRL/SRL.scar}


    Const
    SmartWorld='World22';
    Signed=True;
    Bank='veb';//where to bank?

    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; // number of players
      CurrentPlayer:= 0; // starting player

      NumberOfPlayers(HowManyPlayers);

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:= True;
    end;

    var
    x, y, i, AttPot, EmptyVial: Integer;

    procedure SetupSmart;
    begin
      SmartSetup(SmartWorld, False, Signed, False);
      ClearDebug;
      WriteLn('Setting up Smart! Chill out man!');
      Wait(10000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartActive) do Wait(100);
    end;

    Procedure LoadEverything;
    begin
      AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
           '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
           '7B36E25703008E9E0B07');
      EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
           '344FF03016328903515550D44164602E930206B130135B140D62A' +
           '026A7C81ACE5F8D500002CE50A62');
    end;

    Function EmptyVials : Boolean;
    var
      Count : Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
        begin
          Mouse(x,y,5,5,false);
          wait(300+random(200));
          if ChooseOption('mpty') then
            Result:=True;
        end;
      until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end else
        Result:=True;
    end;

    Function DepositVials : Boolean;
    var
      count : Integer;
    begin
      repeat
        OpenBankFast(Bank);
        Flag;
        Wait(300+random(200));
        Count:=count+1;
      until (BankScreen) or (Count>=5);
      if BankScreen then
      begin
        Count:=0
        If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
        repeat
          mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
          Wait(500+random(400));
          Count:=Count+1;
        until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
        if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
          Result:=True;
        if Count>=5 then
        begin
          writeln('Couldnt deposit vials');
          Logout;
          Players[CurrentPlayer].Active:=False;
        end else
          Result:=true;
      end;
    end;

    Function WithdrawVials : Boolean;
    Var
      count:Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
        begin
          count:=Count+1;
          Mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
        end;
      Until (InvFull) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end;
    end;

    begin
      SetupSRL;
      SetupSmart;
      LoadEverything;
      repeat
        WithDrawVials;
        EmptyVials;
        DepositVials;
      until false
    end.

    That should work, im pretty sure...

  18. #18
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    ye sorry. ment attack mix (1) sorry :S
    Did someone say GDK?

  19. #19
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ~~Joker~~ View Post
    i already made, was selling that script but it got outdated since rs updated ill update and release soonnnn
    Did it get outdatet today? Some other scripts I'm using got too.


    Sirlaughsalot, the script doesn't do anything! Won't log me in either.
    It only says: "Setting up Smart! Chill out man!"

  20. #20
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL/Misc/SMART.scar}
    {.include SRL/SRL.scar}
     
     
    Const
    SmartWorld='World22';
    Signed=True;
    Bank='veb';//where to bank?
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; // number of players
      CurrentPlayer:= 0; // starting player
     
      NumberOfPlayers(HowManyPlayers);
     
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:= True;
    end;
     
    var
    x, y, i, AttPot, EmptyVial: Integer;
     
    procedure SetupSmart;
    begin
      SmartSetup(SmartWorld, False, Signed, False);
      ClearDebug;
      WriteLn('Setting up Smart! Chill out man!');
      Wait(10000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartActive) do Wait(100);
    end;
     
    Procedure LoadEverything;
    begin
      AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
           '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
           '7B36E25703008E9E0B07');
      EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
           '344FF03016328903515550D44164602E930206B130135B140D62A' +
           '026A7C81ACE5F8D500002CE50A62');
    end;
     
    Function EmptyVials : Boolean;
    var
      Count : Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
        begin
          Mouse(x,y,5,5,false);
          wait(300+random(200));
          if ChooseOption('mpty') then
            Result:=True;
        end;
      until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end else
        Result:=True;
    end;
     
    Function DepositVials : Boolean;
    var
      count : Integer;
    begin
      repeat
        OpenBankFast(Bank);
        Flag;
        Wait(300+random(200));
        Count:=count+1;
      until (BankScreen) or (Count>=5);
      if BankScreen then
      begin
        Count:=0
        If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
        repeat
          mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
          Wait(500+random(400));
          Count:=Count+1;
        until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
        if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
          Result:=True;
        if Count>=5 then
        begin
          writeln('Couldnt deposit vials');
          Logout;
          Players[CurrentPlayer].Active:=False;
        end else
          Result:=true;
      end;
    end;
     
    Function WithdrawVials : Boolean;
    Var
      count:Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
        begin
          count:=Count+1;
          Mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
        end;
      Until (InvFull) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end;
    end;
     
    begin
      SetupSRL;
      SetupSmart;
      LoginPlayer;
      LoadEverything;
      repeat
        WithDrawVials;
        EmptyVials;
        DepositVials;
      until false
    end.

    There >_< now it should work... thats what happens when i dont test scripts :P the stupid little mistake...

  21. #21
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sirlaughsalot View Post
    There >_< now it should work... thats what happens when i dont test scripts :P the stupid little mistake...
    So you just made it, but didn't test it?

    What's this now:

    [Runtime Error] : Out Of Range in line 383 in script C:\Program Files\Scar3.15\includes\SRL/SRL/Core/Login.scar

  22. #22
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL/Misc/SMART.scar}
    {.include SRL/SRL.scar}
     
     
    Const
    SmartWorld='World22';
    Signed=True;
    Bank='veb';//where to bank?
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; // number of players
      CurrentPlayer:= 0; // starting player
     
      NumberOfPlayers(HowManyPlayers);
     
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:= True;
    end;
     
    var
    x, y, i, AttPot, EmptyVial: Integer;
     
    procedure SetupSmart;
    begin
      SmartSetup(SmartWorld, False, Signed, False);
      ClearDebug;
      WriteLn('Setting up Smart! Chill out man!');
      Wait(10000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartActive) do Wait(100);
    end;
     
    Procedure LoadEverything;
    begin
      AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
           '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
           '7B36E25703008E9E0B07');
      EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
           '344FF03016328903515550D44164602E930206B130135B140D62A' +
           '026A7C81ACE5F8D500002CE50A62');
    end;
     
    Function EmptyVials : Boolean;
    var
      Count : Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
        begin
          Mouse(x,y,5,5,false);
          wait(300+random(200));
          if ChooseOption('mpty') then
            Result:=True;
        end;
      until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end else
        Result:=True;
    end;
     
    Function DepositVials : Boolean;
    var
      count : Integer;
    begin
      repeat
        OpenBankFast(Bank);
        Flag;
        Wait(300+random(200));
        Count:=count+1;
      until (BankScreen) or (Count>=5);
      if BankScreen then
      begin
        Count:=0
        If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
        repeat
          mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
          Wait(500+random(400));
          Count:=Count+1;
        until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
        if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
          Result:=True;
        if Count>=5 then
        begin
          writeln('Couldnt deposit vials');
          Logout;
          Players[CurrentPlayer].Active:=False;
        end else
          Result:=true;
      end;
    end;
     
    Function WithdrawVials : Boolean;
    Var
      count:Integer;
    begin
      repeat
        If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
        begin
          count:=Count+1;
          Mouse(x,y,5,5,false);
          Wait(300+random(200));
          ChooseOption('ll');
        end;
      Until (InvFull) or (Count>=5);
      if Count>=5 then
      begin
        writeln('Couldnt withdraw the vials');
        Logout;
        Players[currentPlayer].Active:=False;
      end;
    end;
     
    begin
      SetupSRL;
      SetupSmart;
      DeclarePlayers;
      LoginPlayer;
      LoadEverything;
      repeat
        WithDrawVials;
        EmptyVials;
        DepositVials;
      until false
    end.

    There durr forgot to put declareplayer...

  23. #23
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what bank am I supposed to be in?

  24. #24
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    u chosse, the one already is vorack east.
    Did someone say GDK?

  25. #25
    Join Date
    Feb 2007
    Location
    Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jakeyboy29 View Post
    u chosse, the one already is vorack east.
    Does this script work for you jakeyboy?

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Vial Emptyer
    By Dervish in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 11-06-2008, 05:44 PM
  2. Vial Emptyer
    By simen236 in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 11-04-2008, 05:48 PM
  3. Vial EMPTY'ER
    By crimedevil in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-23-2007, 01:34 PM
  4. Vial Wanker
    By wtf i sp4nk in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 04-18-2007, 04:36 PM
  5. Vial Wanker
    By wtf i sp4nk in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 01-28-2007, 02:50 PM

Posting Permissions

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