program project1;
var
stackgr :integer;
stack, bagpack, Ziel :integer;
begin
stack:= getQuantity($42078E30);
stackgr:= getQuantity($42078E30);
bagpack:= getQuantity($403283F3);
Ziel:= getQuantity($401CB695);
IF ((stack = 1)and(stackgr = 15)and(bagpack = 0)and(Ziel > 0))THEN
begin
DragItem($42078A68, 30);
DropItem($401CB695, 988, 566, 2);
end;
end.