#lang racket

(define efector%
  (class object%
    (field
     (accion 'accion)
     )
    (define/public proceso!
      (lambda (ordinal_vec output_sensorial lista-8vec-coord)
        (let ((item-e (list-ref output_sensorial ordinal_vec))
              )
          (cond
            ((equal? item-e (cons 1 1))
             (set! accion 'comer)
             (values
              accion
              (list-ref lista-8vec-coord ordinal_vec)
              )
             )
            (else
             (set! accion 'avanzar)
             (values
              accion
              (list-ref lista-8vec-coord ordinal_vec)
              )
             )
            )
          )
        ))
    (super-new)
    ))

(define efectores (make-object efector%))

(provide efectores)

