nice looking... some problems tho
SCAR Code:
until (w = 8) or findsymbol(x, y, 'tanner');//change to w >= 8
if (w > 8) then// change to w >= 8 here
w will never be greater than 8...
mainloop fix
SCAR Code:
repeat
if not OpenBankFast('akb') then
begin
Writeln('Didnt find Bank =(');
LogOff;
NextPlayer(False);
end else
begin
FixBank;
count:= 0;
repeat
HidesToInv;
CloseBank;
ClickRoad;
IntoEllisHouse;
FindEllis('Ellis');
TannAllHides;
count:= count + 1;
Hides:= count*27
Setrun(true);
ClickRoad2;
ToBank;
if not OpenBankFast('akb') then
begin
Writeln('Didnt find Bank =(');
LogOff;
NextPlayer(False);
end;
Wait(1800+random(200));
if BankScreen then Deposit(2, 28, True);
Report;
until(count >= Invs);
if (count >= Invs) then
begin
Writeln('Player did all loads successfully =)');
LogOff;
NextPlayer(True);
end else
begin
Writeln('Player has failed =(');
LogOff;
NextPlayer(False);
end;
end;
until (CurrentPlayer > HowManyPlayers - 1);
could use a lot more help...
i suggest making a walk procedure that has a which option and make it a case of toback and toellis. also make a deposit procedure and use that instead of
SCAR Code:
if not OpenBankFast('akb') then
begin
Writeln('Didnt find Bank =(');
LogOff;
NextPlayer(False);
end;
Wait(1800+random(200));
if BankScreen then Deposit(2, 28, True);
Report;
until(count >= Invs);
same with withdraw procedure. if you want an example you can look at my stick smither in the jun mem smithing section... pretty good script in all!