diff --git a/source/ai.f90 b/source/ai.f90
index 017d2bd..b79c1d0 100644
--- a/source/ai.f90
+++ b/source/ai.f90
@@ -1,8 +1,8 @@
-subroutine fairy_synchronize (level)
+subroutine ai_synchronize (level)
 
  implicit none
  integer, intent (in) :: level
- write (*, '(a)', advance='no') "Heyo Fortran!"
- print *
+ write (*, '(a)', advance='no') "Heyo Fortran! "
+ print *, level
 
-end subroutine fairy_synchronize
+end subroutine ai_synchronize
diff --git a/source/world.adb b/source/world.adb
index e59ebaa..c88a326 100644
--- a/source/world.adb
+++ b/source/world.adb
@@ -129,17 +129,19 @@ package body world is
 			core.hexagonal_grid (x, y, width, height, true);
 		end if;
 		--
-		--~for object in 0 .. construction_limit
-		--~loop
-			--~if map.construction (object).x > width
-			--~or map.construction (object).y > height then
-				--~goto skip_drawing_out_of_view_construction;
-			--~end if;
-			--~--
-			--~construction.draw (construction.codex'val (map.construction (object).index), map.construction (object).x, map.construction (object).y);
-			--~--
-			--~<<skip_drawing_out_of_view_construction>>
-		--~end loop;
+		for object in 0 .. construction_limit
+		loop
+			if map.construction (object).x > width
+			or map.construction (object).y > height then
+				goto skip_drawing_out_of_view_construction;
+			end if;
+			--
+			construction.draw (construction.codex'val (map.construction (object).index),
+			                   map.construction (object).x - core.camera.x * core.base,
+			                   map.construction (object).y - core.camera.y * core.base);
+			--
+			<<skip_drawing_out_of_view_construction>>
+		end loop;
 	end draw;
 
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------