program project1 var menge Integer validquelle Boolean validziel Boole

program project1;

var
  menge : Integer;
  validquelle : Boolean;
  validziel : Boolean;
const
  zielbp  = $42078E30;
  quellbp = $403283F3;
  tauschitem = $401CB695;
  
begin

  menge := GetQuantity(tauschitem); 
  validquelle := IsObjectExist(quellbp);
  validziel := IsObjectExist(zielbp);

  if(Menge > 0) and (validquelle) and (validziel) then
  begin
	DragItem(tauschitem, 30);
	DropItem(zielbp, 988, 566, 2);
  end;
end.