Have you considered adding support for an alternate set of armour? My guthans healing AZK simply uses DTM's the find the guthans armour pieces and marks their locations for where the other armour pieces will go when unequipped (If it is using a 1h and shield it needs the first inv slot open).
There is a lot of potential for a bandit camp script, potion support with un-noting at the general store or even teleporting to cw, restocking and getting back with the lodestone network would be very useful as far as exp per hour is concerned.
Have you considered having a failsafe for if someone steals your spot? Ie. if it does not enter combat for a certain amount of time is moves to the next spot and marks off the original spot, if it runs out of spots to move to it removes the zam/sara item and hops worlds.
also
procedure DoWait;
begin
if InFight then
begin
repeat
Wait(250);
Writeln('In a fight');
until((not(LoggedIn)) or (not(InFight)));
end;
end;
Do you really need to spam the debug box that hard? If you want to keep that functionality you could try something like
Function NotInFight: Boolean;
begin
if not InFight then
Result := True
else
Result := False;
end;
begin
while InFight do
begin
Antiban;
WaitFunc(@NotInFight, RandomRange(50,150), 4000);
Writeln('Still In a Fight');
end;
end.
Your proggy could also do with an exp gained and exp per hour part.
var
StartExp: Integer;
begin
ToggleXPBar(True);
StartExp:= GetXPBarTotal;
//Mainloop
Writeln('You have managed to gain ' + IntToStr(GetXpBarTotal - StartExp) + ' exp!');
Writeln('You are gaining ' + IntToStr(((GetXpBarTotal - StartExp) * 3600) / (GetTimeRunning / 1000)) + ' exp per hour!');
end.
These are just some suggestions ;)
~Caotom