program UnfinishedPotions;
{.include SRL/SRL.scar}
// Original script by Hamster, Edited by Glovek77
// v 1.1 Special thanks to the SRL tutorials
// for helping me make my first script! Special thanks
// to Hamster!
//Instructions: Withdraw 14 unfinished potions, and 14 of the second ingredient.
//Run script, open bank after the potions are made, and repeat!
//Note: The banking will be done automatically as soon as possible.
//Suggestions (not comments) are appreciated! This is a learning based forum, and
//please make suggestions so I can improve my scripting!!
var
aantalbanks,x,y : integer;
const
aantal = 1000; //How many potions to make before stopping?
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Usernamehere';
Players[0].Pass := 'Passwordhere';
Players[0].Nick := 'Nicknamehere'; //Type in 3-4 letters of the name (works better if not the first letter!)
Players[0].Active :=True;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure TalkingRandoms;
begin
FindTalk;
wait(10)
FindFastRandoms;
wait(10);
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
FindTalk;
end;
procedure Bank;
begin
MoveMouseCC(253,208,10,3,3,3);
if IsUpText('ooth')then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
wait(100+random(50));
ChooseOption('quickly');
end;
repeat
wait(20+random(20));
until(BankScreen)
wait(100+random(50));
Withdraw(1,1,0);
Wait(100+random(50));
Deposit(1,1,2);
Wait(100+random(50));
Withdraw(2,1,0);
wait(100+random(50));
CloseBank;
aantalbanks := aantalbanks+1;
end;
procedure Herbalize;
begin
Mouse(608+random(23),327+random(22),0,0,true);
wait(100+random(50));
Mouse(650+random(23),328+random(20),0,0,true);
wait(600+random(150));
Mouse(181+random(200),381+random(68),0,0,false);
wait(300+random(100));
ChooseOption('All');
wait(7500+random(500));
end;
procedure Depositor;
var
time: Integer;
begin
wait(10000)
MarkTime(time);
repeat;
if (not(Loggedin)) then break;
OpenBankQuiet('feb'); // ^^
until(BankScreen or (TimeFromMark(time) > 120000))
end;
begin
Declareplayers;
SetupSRL;
gametab(4);
aantalbanks :=0;
repeat
Herbalize;
Depositor;
Bank;
until((aantalbanks*14)>=aantal)
writeln('//----------------------------------------\\');
writeln('//-------Ran for '+TimeRunning+'--\\');
writeln('//-----made '+IntToStr(aantalbanks*14)+' unfinished potions----------\\');
writeln('//----------------------------------------\\');
end.


Reply With Quote

