Code: Select all
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;
{$Include 'OpenBox.inc'}
Используется:
OpenBox(Sunduk);
или
OpenBox(BackPack);
Sunduk и BackPack - Cardinal
и могут задаваться как $XXXXXXXX;