OpenBox - Гарантированное открытие бокса (для RunUO)

[randomnoob]

кто знает как можно гарантировано открыть банк и сумку в нём? пытаюсь сделать это вашим скриптом, но увы - результата 0

Code: Select all

Program CheckEat;
 VAR    Stime:TDateTime;

 CONST BankBox = $
            BoxInBank = $
            Steak = $

procedure OpenBox(Box: Cardinal);
	var opboxi: Integer;
   
	begin
  opboxi:=0;
  If FindTypeEx($FFFF,$FFFF,Box,True) = 0 Then
  begin
  repeat
    UseObject(Box);
    Wait(500);
    CheckSave;
    AddToSystemJournal('open $'+IntToHex(Box,8));
    FindTypeEx($FFFF,$FFFF,Box,True);
    opboxi:=opboxi+1;
  until (FindCount > 0) or (opboxi > 50);
  wait(100);
  end;
end;

Procedure OpenBank(Box: Cardinal);
var opboxi: Integer;

begin
  opboxi:=0;
  If FindTypeEx($FFFF,$FFFF,Box,True) = 0 Then
  begin
  repeat
    UOSay('bank');
    Wait(500);
    CheckSave;
    AddToSystemJournal('open $'+IntToHex(Box,8));
    FindTypeEx($FFFF,$FFFF,Box,True);
    opboxi:=opboxi+1;
  until (FindCount > 0) or (opboxi > 10);
  wait(100);
  end;
end;

Begin
OpenBank(BankBox);
wait(500);
OpenBox(BoxInBank);
wait(500);
FindType(Steak,BoxInBank);
If FindQuantity>30 then
  begin
    Grab(FindItem,30);
    Wait(500);
    repeat
      STime:=Now;
      UseType(Steak,$FFFF);
      wait(500);
      AddToSystemJournal('Eating...Have fun!');
    until (InJournalBetweenTimes('manage to eat|feel quite full after|are stuffed!|are simply too full',STime,Now)<>-1);    
    FindType(Steak,backpack);
    If FindCount>0 then
      begin
      AddToSystemJournal('Огрызки кидаем обратно');
      MoveItem(FindItem,0,BoxInBank,0,0,0);
      Wait(500);
      end;
    end;
End;

[Alexej]

какой сервер и под чем?

эта открывалка гарантированно работает на RunUO|RunUO2 серверах
а по работе и так видно как она и что проверяет

[randomnoob]

какой сервер и под чем?

эта открывалка гарантированно работает на RunUO|RunUO2 серверах
а по работе и так видно как она и что проверяет

FW. 55 sphere

с банком разобрался, вроде работает:

Code: Select all

   Procedure OpenBankk;
	VAR
		Stime:TDateTime;
   begin
	repeat
      		STime:=Now;
      		UOSay('bank');
      		wait(500);
      		AddToSystemJournal('Открываем банк...');
  	until (InJournalBetweenTimes('lost a coin from|stones in your bank|is my unfortunate lot|the money of others',STime,Now)<>-1);
   end;

а вот с простыми коробками проблема. хелп плз

[Alexej]

насколько я знаю сфера неотсылает тултипы итемов, поэтому надо убить парсер с вычиткой кол-ва итемов в контейнере и оставить только часть, которая находит/перещитывает итемы в контейнере...
вот только проверку надо добавить если в контейнере реально 0 итемов (которая и проводилась парсером по тултипу контейнера)