*** ManIX.c	Thu Mar 19 23:34:25 1992
--- /net/ulisses/user/calcado/fjp/pacman/ManIX/ManIX.c	Thu Mar 19 23:33:56 1992
***************
*** 912,943 ****
  
  LerTeclado()
  {
-     int i ;
      XEvent ev ;
      KeySym mykey ;
  
!     i = N_DELAY - 10 * Player.level ;
!     do
      {
!         if( XPending( display) )
  	{
! 	    XNextEvent( display, &ev ) ;
! 	    switch( ev.type )
! 	    {
! 		case KeyPress :
! 		    XLookupString( &ev, string, 10, &mykey, 0 ) ;	
! 		    return Tecla = LOW2UPPER( string[0] ) ;
! 		    break ;
! 		case LeaveNotify :
! 		case EnterNotify :
! 		    return TecCurr.pause ;
! 		case Expose :
! 		    ImprimirEcra() ;
! 		    ImprimirGraficos() ;
! 		default : break ;
! 	    }
  	}
!     } while( i-- ) ;
      return( '\0' );
  }
  
--- 912,939 ----
  
  LerTeclado()
  {
      XEvent ev ;
      KeySym mykey ;
  
!     usleep( 100000 - 4000 * Player.level );
!     while( XPending( display) )
      {
! 	XNextEvent( display, &ev ) ;
! 	switch( ev.type )
  	{
! 	    case KeyPress :
! 		XLookupString( &ev, string, 10, &mykey, 0 ) ;	
! 		return Tecla = LOW2UPPER( string[0] ) ;
! 		break ;
! 	    case LeaveNotify :
! 	    case EnterNotify :
! 		return TecCurr.pause ;
! 	    case Expose :
! 		ImprimirEcra() ;
! 		ImprimirGraficos() ;
! 	    default : break ;
  	}
!     }
      return( '\0' );
  }