(setf w0 (make-tw 
    :rows 20
    :cols 20
    :slice 1000
    :is-automatic t
    :must-match-shapes nil
    :hole-knobs (make-knob :ms-appear 500 :ms-disappear nil
			   :num (make-subknob :start 2 :min 1 :max 5)
			   :cells (make-subknob :min 1 :max 1)
			   :depth (make-subknob :min 1 :max 1)
			   :score (make-subknob :min 0 :max 100)
			   :timeout (make-subknob :min 250 :max 2000)
			   :score-decay nil
			   :score-decay-is-relative t)
    :obstacle-knobs (make-knob :ms-appear nil :ms-disappear nil
			       :num (make-subknob :start 6 :min 4 :max 9)
			       :cells (make-subknob :min 1 :max 10))
    :tile-knobs (make-knob :ms-appear nil :ms-disappear nil
			   :num (make-subknob :start 30 :min 6 :max 30)
			   :cells (make-subknob :min 1 :max 1))
    :agent-knobs (make-knob :ms-appear nil :ms-disappear nil
			    :num (make-subknob :start 1 :min 1 :max 1)
			    :cells (make-subknob :min 1 :max 1))
))

(defun specify-agent-parms ()
  (make-agent
   :think-strategy 'deliberate-first
   :act-time 200
   :wait-time 1000))

(setf a0 (specify-agent-parms))

(setf *game-length* 200000)
