PDA

View Full Version : [Herblore] unfinished potion maker



slackeru
02-17-2010, 09:13 AM
I really really need an unfinished potion maker. Thanks.

i luffs yeww
02-17-2010, 09:21 AM
WT-Fakawi is making one atm I think. I dunno if it'll be public or not, though..

Baked0420
02-17-2010, 11:29 AM
I've made one before, I can either update it or make a new one if I get some time after school.

You want it to just take out 14 herbs and vials and mix them then bank and repeat? also, are yours grimy or clean? I could always just put in an option to check, so it could be either.

slackeru
02-17-2010, 02:10 PM
I've made one before, I can either update it or make a new one if I get some time after school.

You want it to just take out 14 herbs and vials and mix them then bank and repeat? also, are yours grimy or clean? I could always just put in an option to check, so it could be either.

Well thanks. Yes, that simple. Withdraw 14 clean herbs and 14 vial of water and mix. Do some random mouse movements while they are being mixed for anti-random, and repeat.

Baked0420
02-17-2010, 05:09 PM
you mean for antiban.. and the reason I asked what just to make sure your herbs weren't grimy, but I'll most likely add it in incase other people use the script with grimy herbs. I'll try to start this today and hopefully have it finished by friday, depending on free time.

slackeru
02-17-2010, 05:27 PM
you mean for antiban.. and the reason I asked what just to make sure your herbs weren't grimy, but I'll most likely add it in incase other people use the script with grimy herbs. I'll try to start this today and hopefully have it finished by friday, depending on free time.

Thanks, appreciate it :)

Baked0420
02-21-2010, 01:27 AM
Not yet done but I have at least started it. I have the basic's done so far, a little more time and I'll have the rest finished. I'm going to be going out tonight, but when I get home if I don't go to sleep I'll try to get some more done, I might also work on it tomorrow, if I do it should be done before monday. Sorry bout saying it'd be done by a certain day and not having the time to finish it by then.

RAM
02-21-2010, 01:41 AM
a simple 1 I made awhile ago... for some reason it uses the second row, second and 3rd spots..I think...

Do not leave unattended !

cleans herbs, then adds them to water filled vials...


program RAMuPotMaker;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}

var
x, y :integer;
const
WhatBank = 'vwb';

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[0] := ''; //BankPin, Leave blank if you don't have one.
Players[0].Active := True;

end;
////////////////////////////////////////////////////////////////////////////////
procedure Bankopen;
begin
Writeln('Bankopen');
OpenBankFast(lowercase(WhatBank));
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[0]);
FixBank;
Exit;
end;

procedure QuickBank;
begin
Writeln('QuickBank');
BankOpen;
Depositall;
FixBank;
wait(1000);
Withdraw(1, 1, 14);
wait(25 + random(25));
Withdraw(2, 1, 14);
wait(25 + random(25));
CloseBank;
wait(825 + random(625));
end;

procedure CleanHerbs;
Var
I: Byte;
Begin
For I:=1 to 14 Do
Begin
If ExistsItem(I) Then
Begin
Writeln('CleanHerbs');
MouseItem(I, true);
// until(ChooseOption('Use'));
FindNormalRandoms;
Wait(1125+random(925));
End;
End;
End;

procedure AddCleanHerbtoVial;
begin
Writeln('AddCleanHerbtoVial');
wait(810+random(10));//RAM
repeat InvMouse(15, 1); until
ItemActivated(15); then
wait(310+random(10));//RAM
InvMouse(1, 1);
wait(310+random(10));//RAM
end;


procedure Clickonpot;
begin
Writeln('Clickonpot');
wait(800+random(300));//RAM
MMouse(240, 400, 20, 20);
wait(200+random(100));
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption('All')
end;

procedure SetUp;
begin
Smart_Members:= True;
Smart_Signed := True;
Playersetup;
setupsrl;
LoginPlayer;
MakeCompass('N');
SetAngle(true);
wait(750 + random(500));
end;

begin
SetUp;
repeat
QuickBank;
wait(750 + random(500));
CleanHerbs;
AddCleanHerbtoVial;
wait(750 + random(500));
ClickOnPot;
wait(10800+random(300));
until(false)
end.

Baked0420
02-21-2010, 09:18 PM
I have finished mine, but it's not tested, you're welcome to test it so I can get out any bugs, just don't leave it unattended yet. Here's the URL: http://villavu.com/forum/showthread.php?p=686854

slackeru
02-22-2010, 06:08 PM
Thanks to both of you :)

slackeru
02-22-2010, 06:39 PM
a simple 1 I made awhile ago... for some reason it uses the second row, second and 3rd spots..I think...

Do not leave unattended !

cleans herbs, then adds them to water filled vials...


program RAMuPotMaker;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}

var
x, y :integer;
const
WhatBank = 'vwb';

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[0] := ''; //BankPin, Leave blank if you don't have one.
Players[0].Active := True;

end;
////////////////////////////////////////////////////////////////////////////////
procedure Bankopen;
begin
Writeln('Bankopen');
OpenBankFast(lowercase(WhatBank));
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[0]);
FixBank;
Exit;
end;

procedure QuickBank;
begin
Writeln('QuickBank');
BankOpen;
Depositall;
FixBank;
wait(1000);
Withdraw(1, 1, 14);
wait(25 + random(25));
Withdraw(2, 1, 14);
wait(25 + random(25));
CloseBank;
wait(825 + random(625));
end;

procedure CleanHerbs;
Var
I: Byte;
Begin
For I:=1 to 14 Do
Begin
If ExistsItem(I) Then
Begin
Writeln('CleanHerbs');
MouseItem(I, true);
// until(ChooseOption('Use'));
FindNormalRandoms;
Wait(1125+random(925));
End;
End;
End;

procedure AddCleanHerbtoVial;
begin
Writeln('AddCleanHerbtoVial');
wait(810+random(10));//RAM
repeat InvMouse(15, 1); until
ItemActivated(15); then
wait(310+random(10));//RAM
InvMouse(1, 1);
wait(310+random(10));//RAM
end;


procedure Clickonpot;
begin
Writeln('Clickonpot');
wait(800+random(300));//RAM
MMouse(240, 400, 20, 20);
wait(200+random(100));
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption('All')
end;

procedure SetUp;
begin
Smart_Members:= True;
Smart_Signed := True;
Playersetup;
setupsrl;
LoginPlayer;
MakeCompass('N');
SetAngle(true);
wait(750 + random(500));
end;

begin
SetUp;
repeat
QuickBank;
wait(750 + random(500));
CleanHerbs;
AddCleanHerbtoVial;
wait(750 + random(500));
ClickOnPot;
wait(10800+random(300));
until(false)
end.

Line 73: [Error] (22024:20): Identifier expected in script
?

Baked0420
02-22-2010, 06:47 PM
Line 73: [Error] (22024:20): Identifier expected in script
?



program RAMuPotMaker;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}

var
x, y :integer;
const
WhatBank = 'vwb';

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[0] := ''; //BankPin, Leave blank if you don't have one.
Players[0].Active := True;

end;
////////////////////////////////////////////////////////////////////////////////
procedure Bankopen;
begin
Writeln('Bankopen');
OpenBankFast(lowercase(WhatBank));
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[0]);
FixBank;
Exit;
end;

procedure QuickBank;
begin
Writeln('QuickBank');
BankOpen;
Depositall;
FixBank;
wait(1000);
Withdraw(1, 1, 14);
wait(25 + random(25));
Withdraw(2, 1, 14);
wait(25 + random(25));
CloseBank;
wait(825 + random(625));
end;

procedure CleanHerbs;
Var
I: Byte;
Begin
For I:=1 to 14 Do
Begin
If ExistsItem(I) Then
Begin
Writeln('CleanHerbs');
MouseItem(I, true);
// until(ChooseOption('Use'));
FindNormalRandoms;
Wait(1125+random(925));
End;
End;
End;

procedure AddCleanHerbtoVial;
begin
Writeln('AddCleanHerbtoVial');
wait(810+random(10));//RAM
repeat
InvMouse(15, 1);
until(ItemActivated(15));
wait(310+random(10));//RAM
InvMouse(1, 1);
wait(310+random(10));//RAM
end;


procedure Clickonpot;
begin
Writeln('Clickonpot');
wait(800+random(300));//RAM
MMouse(240, 400, 20, 20);
wait(200+random(100));
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption('All')
end;

procedure SetUp;
begin
Smart_Members:= True;
Smart_Signed := True;
Playersetup;
setupsrl;
LoginPlayer;
MakeCompass('N');
SetAngle(true);
wait(750 + random(500));
end;

begin
SetUp;
repeat
QuickBank;
wait(750 + random(500));
CleanHerbs;
AddCleanHerbtoVial;
wait(750 + random(500));
ClickOnPot;
wait(10800+random(300));
until(false)
end.

slackeru
02-22-2010, 07:41 PM
program RAMuPotMaker;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}

var
x, y :integer;
const
WhatBank = 'vwb';

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[0] := ''; //BankPin, Leave blank if you don't have one.
Players[0].Active := True;

end;
////////////////////////////////////////////////////////////////////////////////
procedure Bankopen;
begin
Writeln('Bankopen');
OpenBankFast(lowercase(WhatBank));
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[0]);
FixBank;
Exit;
end;

procedure QuickBank;
begin
Writeln('QuickBank');
BankOpen;
Depositall;
FixBank;
wait(1000);
Withdraw(1, 1, 14);
wait(25 + random(25));
Withdraw(2, 1, 14);
wait(25 + random(25));
CloseBank;
wait(825 + random(625));
end;

procedure CleanHerbs;
Var
I: Byte;
Begin
For I:=1 to 14 Do
Begin
If ExistsItem(I) Then
Begin
Writeln('CleanHerbs');
MouseItem(I, true);
// until(ChooseOption('Use'));
FindNormalRandoms;
Wait(1125+random(925));
End;
End;
End;

procedure AddCleanHerbtoVial;
begin
Writeln('AddCleanHerbtoVial');
wait(810+random(10));//RAM
repeat
InvMouse(15, 1);
until(ItemActivated(15));
wait(310+random(10));//RAM
InvMouse(1, 1);
wait(310+random(10));//RAM
end;


procedure Clickonpot;
begin
Writeln('Clickonpot');
wait(800+random(300));//RAM
MMouse(240, 400, 20, 20);
wait(200+random(100));
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption('All')
end;

procedure SetUp;
begin
Smart_Members:= True;
Smart_Signed := True;
Playersetup;
setupsrl;
LoginPlayer;
MakeCompass('N');
SetAngle(true);
wait(750 + random(500));
end;

begin
SetUp;
repeat
QuickBank;
wait(750 + random(500));
CleanHerbs;
AddCleanHerbtoVial;
wait(750 + random(500));
ClickOnPot;
wait(10800+random(300));
until(false)
end.


Did you forget to write anything? Or did you update the script inside the CODE tags?

Baked0420
02-22-2010, 07:43 PM
fixed the identifier expected, it was easy, and the only error in RAM's script.

slackeru
02-22-2010, 07:57 PM
fixed the identifier expected, it was easy, and the only error in RAM's script.

Thanks, but none of the scripts work. they just run north. Well, they don't work. But thanks for your time :)

Edit: Bakers script opens bank and closes, and RAMS just runs north :P