program project1 var stackgr integer stack bagpack Ziel integer begin

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.