Remove curact, implement selact

src/api.ps

@@ -146,10 +146,8 b''
   (void))
 
 (defun call-act (title)
-  (setf *current-action title)
   (with-frame
       (funcall (getprop *acts title :act)))
-  (setf *current-action nil)
   (void))
 
 ;;; Text windows
@@ -190,8 +188,8 b''
         (create :title title :img img :act act :selected nil))
   (update-acts))
 
-(defun del-act (&optional title)
-  (delete (getprop *acts (or title *current-action)))
+(defun del-act (title)
+  (delete (getprop *acts title))
   (update-acts))
 
 (defun clear-act ()

src/intrinsic-macros.lisp

@@ -102,9 +102,6 b''
 
 ;;; 14act
 
-(defpsmacro curact ()
-  `*current-action)
-
 (defpsmacro showacts (enable)
   `(api-call enable-frame :acts ,enable))
 

src/intrinsics.ps

@@ -191,6 +191,11 b''
 
 ;;; 14act
 
+(defun selact ()
+  (loop :for (k v) :of *acts
+     :do (when (@ v :selected)
+           (return-from selact (@ v :name)))))
+
 (defun curacts ()
   (let ((acts (api-call copy-obj *acts)))
     (lambda ()

src/main.ps

@@ -7,7 +7,6 b''
 ;; Inventory (objects)
 (var *objs (create))
 (var *current-location nil)
-(var *current-action nil)
 ;; Game time
 (var *started-at (chain *date (now)))
 ;; Timers

src/package.lisp

@@ -8,7 +8,7 b''
   (:export #:api-call #:by-id
            #:has
 
-           #:*globals #:*objs #:*current-location #:*current-action
+           #:*globals #:*objs #:*current-location
            #:*started-at #:*timer-interval #:*timer-obj #:*loaded-games
 
            #:*acts #:*state-stash #:*playing #:*locals