Функция открыт ли банк с булевым результатом.

[drabadan]

это не решение, это костыль.

Впрочем, тогда уже лучше заюзать ивент evRejectMoveItem - http://stealth.od.ua/Doc:RU/Manual/Reference/Events

кому - как... А как в моей процедуре использовать ивент, они для меня - лес темнее тмного.

[Vizit0r]

по ссылке есть примеры.

[admir]

Вот то что я писал лет 5 назад :

Code: Select all

Procedure PutMoneyBank;
var
j:Integer;
Bank: Cardinal;
begin
  uosay('bank');
  checklag;
  Bank:=ObjAtLayer(BankLayer);
  if Bank <> 0 then
  begin
    for j:=1 to 3 do  
     while CountEx(GoldCoin[j],$0000,backpack) > 0 do 
     begin
       if (FindTypeEx (GoldCoin[j],$0000,Backpack,True) > 0) then MoveItem(FindItem,0,Bank,0,0,0);
      checklag;
     end;
  end;
end;