Added introduction sprites...

source/main.adb

@@ -44,6 +44,9 @@ procedure main is
 		swap_text_box_panel'access
 	);
 
+	game_title      : sprite;
+	ashland_preview : sprite;
+
                                              ------------------------------------------------------------------------------------------
 
 	procedure check_move_camera_up is
@@ -105,7 +108,10 @@ procedure main is
 
 	procedure introduction is
 	begin
-		core.write ("[-- Please press Spacebar to continue]", 0, center_y (24), (102, 102, 102, 255));
+		draw (ashland_preview, center_x (ashland_preview.width * 2), center_y (ashland_preview.height * 2), factor => 2);
+		draw (game_title,      center_x (game_title.width      * 2), center_y (game_title.height      * 2), factor => 2);
+		--
+		write ("[-- Please press Spacebar to continue]", 0, center_y (24), (102, 102, 102, 255));
 	end introduction;
 
                                              ------------------------------------------------------------------------------------------
@@ -197,6 +203,9 @@ begin
 
 	camera := (1, 1);
 
+	game_title      := import_sprite ("./sprite/game_title.png",      1, 1);
+	ashland_preview := import_sprite ("./sprite/ashland_preview.png", 1, 1);
+
                                              ------------------------------------------------------------------------------------------
 
 	introduction_loop: loop