(class (Player)
  (attribute _current-piece)
  (attribute _name)
  (attribute _color)
  (attribute _number)
  (attribute _items '())

  (method (init name color start-field number)
          (set! _name name)
          (set! _color color)
          (set! _current-piece (send start-field piece))
          (set! _number number)
          (send _current-piece player self))

  (method (set-current-piece piece) (set! _current-piece piece))
  (method (current-piece) _current-piece)
  (method (set-items items) (set! _items items))
  (method (name) _name)
  (method (finished?) _items)
  (method (find item) #f)
  (method (next-item) #f)
  (method (move direction) #f)
  (method (draw viewport width height left top) (display "Method draw in Player called") #f))

(define (create-Player name color start-field number) (create-instance Player name color start-field number))