|
|
@@ -53,11 +53,16 @@ procedure main is |
|
|
|
procedure zoom_in is begin core.zoom := 2; end zoom_in; |
|
|
|
procedure zoom_out is begin core.zoom := 1; end zoom_out; |
|
|
|
|
|
|
|
procedure move_camera_up is begin core.move_camera_up; if world.map.clips (core.camera.x, core.camera.y) then core.increment (core.camera.y); end if; end move_camera_up; |
|
|
|
procedure move_camera_down is begin core.move_camera_down; if world.map.clips (core.camera.x, core.camera.y) then core.decrement (core.camera.y); end if; end move_camera_down; |
|
|
|
procedure move_camera_left is begin core.move_camera_left; if world.map.clips (core.camera.x, core.camera.y) then core.increment (core.camera.x); end if; end move_camera_left; |
|
|
|
procedure move_camera_right is begin core.move_camera_right; if world.map.clips (core.camera.x, core.camera.y) then core.decrement (core.camera.x); end if; end move_camera_right; |
|
|
|
|
|
|
|
signal_list : constant array (core.signal_code) of access procedure := ( |
|
|
|
core.signal_up => core.move_camera_up'access, |
|
|
|
core.signal_down => core.move_camera_down'access, |
|
|
|
core.signal_left => core.move_camera_left'access, |
|
|
|
core.signal_right => core.move_camera_right'access, |
|
|
|
core.signal_up => move_camera_up'access, |
|
|
|
core.signal_down => move_camera_down'access, |
|
|
|
core.signal_left => move_camera_left'access, |
|
|
|
core.signal_right => move_camera_right'access, |
|
|
|
core.signal_v => ui_main_style'access, |
|
|
|
core.signal_kp_add => zoom_in'access, |
|
|
|
core.signal_kp_subtract => zoom_out'access, |
|
|
|