Code: Select all

procedure svs;
var saveTimer : TDateTime;
Begin
if InJournalBetweenTimes('Saving World State', Now - MsToDateTime(30000), Now) >= 0 then Begin
   saveTimer := Now;
   UOSay('SaveCheck');
   WaitJournalLine(saveTimer, 'SaveCheck', 30000);
   wait(1000);
   End;
End;

Code: Select all

procedure StackColor(ItemType : Cardinal; Color : Cardinal);
......
End;

procedure Stack(ItemType : Cardinal);
Begin
  StackColor(ItemType, $FFFF);
End;