Add remaining important primitive windows v0.34.02 globals.

start.lisp

@@ -113,16 +113,34 @@
 (defun prompt (fmt &rest args)
   (apply #'format t fmt args)
   (finish-output *standard-output*)
-  (read))
+  (with-simple-restart (continue "Ignore parse error")
+    (read-from-string (concatenate 'string "(" (read-line) ")"))))
 
 (defun find-changes ()
-  (let ((info (begin-find-changes *memory*)))
-    (loop for cmd = (prompt "~S~%Enter 0/1/2/done/abort: " info)
-       do (case cmd
-            (0 (update-find-changes info *memory* :unchanged))
-            (1 (update-find-changes info *memory* :changed-back))
-            (2 (update-find-changes info *memory* :changed-again))
-            (abort (return))
-            (done
-             (browse (get-found-changes info *memory*))
-             (return))))))
+  (refresh)
+  (prompt "Make the first change and press enter...")
+  (let ((info (begin-find-changes *memory*))
+        (found nil))
+    (loop for cmd = (prompt "~S~%Enter 0-~A/+ delta/new/done/abort: "
+                            info (1- (length (value-sets-of info))))
+       do (with-simple-restart (continue "Ignore error")
+            (if (numberp (first cmd))
+                ;; Return to a previous state
+                (update-find-changes info :state (first cmd))
+                (case (first cmd)
+                  ;; Known increment to a previous value
+                  (+ (update-find-changes info
+                                          :increment (or (second cmd) 1)
+                                          :state (third cmd)))
+                  ;; Completely new value
+                  ((n new) (update-find-changes info))
+                  ;; Quit
+                  (abort
+                   (return))
+                  (done
+                   (setf found (get-found-changes info))
+                   (return))))))
+    (refresh)
+    (if found
+        (browse found)
+        (format t "No changes found.~%"))))

symbols.xml

@@ -145,15 +145,15 @@
 
         <global-address name="current_weather"/>
 
-        <global-address name='job_next_id'/>
-        <global-address name="pause_state"/>
+        <global-address name='job_next_id' value='0xef41d0'/>
+        <global-address name="pause_state" value='0x15c8756'/>
 
-        <global-address name='ui_building_item_cursor'/>
-        <global-address name='ui_look_cursor'/>
+        <global-address name='ui_building_item_cursor' value='0xfd31ec'/>
+        <global-address name='ui_look_cursor' value='0xfbaad0'/>
         <global-address name='ui_selected_unit' value='0xfce3b8'/>
-        <global-address name='ui_unit_view_mode'/>
-        <global-address name='ui_workshop_in_add'/>
-        <global-address name='ui_workshop_job_cursor'/>
+        <global-address name='ui_unit_view_mode' value='0xfa0f8c'/>
+        <global-address name='ui_workshop_in_add' value='0xf8c8da'/>
+        <global-address name='ui_workshop_job_cursor' value='0x15c8728'/>
 
         <global-address name="window_x" value="0xf8c8cc" />
         <global-address name="window_y" value="0xfbaad8" />

v0.34.02.lst

@@ -204,7 +204,7 @@
 "dye_info" :STATUS :UNCHECKED
 "effect" :STATUS :UNCHECKED
 "effect_type" :STATUS :UNCHECKED
-"embark_finder_option" :STATUS :UNCHECKED
+"embark_finder_option" :STATUS :VERIFIED
 "engraving" :STATUS :UNCHECKED
 "engraving_flags" :STATUS :VERIFIED
 "entity_population" :STATUS :VERIFIED
@@ -921,9 +921,9 @@
 "vermin" :STATUS :VERIFIED
 "vermin_flags" :STATUS :VERIFIED
 "viewscreen" :STATUS :VERIFIED
-"viewscreen_choose_start_sitest" :STATUS :UNCHECKED
-"viewscreen_choose_start_sitest.finder" :STATUS :UNCHECKED
-"viewscreen_choose_start_sitest.page" :STATUS :UNCHECKED
+"viewscreen_choose_start_sitest" :STATUS :VERIFIED
+"viewscreen_choose_start_sitest.finder" :STATUS :VERIFIED
+"viewscreen_choose_start_sitest.page" :STATUS :VERIFIED
 "viewscreen_createquotast" :STATUS :UNCHECKED
 "viewscreen_dwarfmodest" :STATUS :VERIFIED
 "viewscreen_itemst" :STATUS :VERIFIED