with Graphics; use Graphics;
with Graphics.Snake; use Graphics.Snake;
With Ada.Text_IO; use Ada.Text_IO; 

procedure Snake is
	   C : Character; 
	   S : Snake_Type (1 .. 5) := ((10, 10),
                              (10, 11),
                              (10, 12),
                              (11, 12),
                              (12, 12));



   task Run_Snake is
      entry Input_ReceCed (S : Snake_Type; x : Integer; y : Integer);
   end Run_Snake;

   task body Run_Snake is
      D : constant Duration := 0.07;
      B : Buffer (1 .. 24, 1 .. 80);
   begin
      loop
         select
            accept Input_ReceCed (S : Snake_Type; x : Integer; y : Integer) do
               Move (S, x, y);  --Error here snake.adb:27:22: actual for "ASnake" must be a variable
            end;
         or
            delay D;
            Empty (B);
            Draw_Rect (B, (1, 1), Width => 80, Height => 24);
            Draw (B, S);
            Update (B);
         end select;
      end loop;
   end Run_Snake;

                                
 

begin
   loop
   	get(C);
   	
   	case C is 
   			when 'w' =>	Run_Snake.Input_ReceCed(S, 0, 1); 
   			when 'a' =>	Run_Snake.Input_ReceCed(S, -1, 0);
   			when 'd' =>	Run_Snake.Input_ReceCed(S, 1, 0); 
   			when 's' =>	Run_Snake.Input_ReceCed(S, 0, -1);
   			when 'x' => exit; 
   			when Others =>null;
   	end case; 
   		
      
   end loop;
end Snake;