Simba Code:
Procedure BankDoesNotContainHerb;
var
i: integer;
begin
For i := 0 to 4 do
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
writeln('OUT OF HERBS, LOGGING OUT!');
CloseBank;
Logout;
TerminateScript;
end else
break;
end;
Simba Code:
Procedure BankDoesNotContainHerb;
begin
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
if NOT FindDTM(HERB,X, Y, MSX1, MSY1, MSX2, MSY2) then
writeln('OUT OF HERBS, LOGGING OUT!');
CloseBank;
Logout;
TerminateScript;
end;