(load file)\r
(print-message "Module is successfully loaded."))\r
\r
-(defun test-seq (&optional (rm nil))\r
+(defun test-seq (&optional (rm *repl-mode*))\r
"Test sequence emulating interactive fiction interpreter"\r
- (load-cfg "iflib.cfg")\r
+ ;;(load-cfg "iflib.cfg")\r
(setf *score* 0 \r
*turns* 0\r
*gamestate* 0)\r
(defun interactive-start ()\r
"Function intended to be used by user"\r
(load-cfg "iflib.cfg")\r
- (run-console #'seq #'lib :interactive t)\r
- (when *hard-quit* (quit-lisp)))\r
+ (unless *repl-mode*\r
+ (run-console #'seq #'lib :interactive t)\r
+ (when *hard-quit* (quit-lisp))))\r
\r
;;SECTION 9: Other stuff\r
\r
`(defpackage ,name\r
(:use :common-lisp :if-basic-lib :if-lib :verb-lib ,@other-packages)\r
(:shadowing-import-from :if-lib :room)\r
- (:shadowing-import-from :verb-lib :listen)))\r
+ (:shadowing-import-from :verb-lib :listen :fill)))\r
\r
(defmacro free-symbol (id)\r
"Frees a symbol from current package using shadow"\r