Clear stats before saving initial state

Author: Shinmera

editor/editor.lisp

@@ -436,6 +436,8 @@
     (decode-payload (first (parse-sexps (depot:read-from (depot:entry "init.lisp" depot) 'character))) (region +world+) depot 'save-v0)))
 
 (defmethod edit ((action (eql 'save-initial-state)) (editor editor))
+  (setf (clock +world+) 0.0)
+  (reset (stats (u 'player)))
   (let ((depot (depot:ensure-entry "region" (depot +world+) :type :directory)))
     (depot:with-open (tx (depot:ensure-entry "init.lisp" depot) :output 'character)
       (princ* (encode-payload (region +world+) NIL depot 'save-v0) (depot:to-stream tx)))))

mods/hello-world/world/region/init.lisp

@@ -1 +1 @@
-(:create-new nil :ephemeral ((player :inventory nil :unlocked nil :stats #S(stats :distance 91591.80466548586d0 :play-time 634.0799858272076d0 :kills 0 :deaths 97 :longest-session 0 :secrets-found 0 :money-accrued 0 :chunks-uncovered 148 :secrets-total 0 :chunks-total 1) :palette 0 :sword-level 0 :map-markers nil :nametag "Stranger" :location (-216.33525 -145.0) :velocity (0.0 0.0) :direction 1 :state :normal :animation stand :frame 1 :health 1050.0 :level 1 :experience 100 :stun-time 0.0 :active-effects nil) (chunk-3640 :unlocked-p t)))
+(:create-new nil :ephemeral ((player :inventory nil :unlocked nil :stats #S(stats :distance 91591.80466548586d0 :play-time 0.0 :kills 0 :deaths 97 :longest-session 0 :secrets-found 0 :money-accrued 0 :chunks-uncovered 148 :secrets-total 0 :chunks-total 1) :palette 0 :sword-level 0 :map-markers nil :nametag "Stranger" :location (-216.33525 -145.0) :velocity (0.0 0.0) :direction 1 :state :normal :animation stand :frame 1 :health 1050.0 :level 1 :experience 100 :stun-time 0.0 :active-effects nil) (chunk-3640 :unlocked-p t)))

stats.lisp

@@ -27,6 +27,18 @@
 
 ;; FIXME: track longest-session
 
+(defmethod reset ((stats stats))
+  (setf (stats-distance stats) 0d0)
+  (setf (stats-play-time stats) 0d0)
+  (setf (stats-kills stats) 0)
+  (setf (stats-deaths stats) 0)
+  (setf (stats-longest-session stats) 0)
+  (setf (stats-secrets-found stats) 0)
+  (setf (stats-money-accrued stats) 0)
+  (setf (stats-chunks-uncovered stats) 0)
+  (setf (stats-secrets-total stats) 0)
+  (setf (stats-chunks-total stats) 0))
+
 (defmethod hurt :after ((animatable animatable) (attacker stats-entity))
   (when (<= (health animatable) 0)
     (incf (stats-kills (stats attacker)))))