|
|
@@ -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 |
|
|
|