File tree Expand file tree Collapse file tree 4 files changed +10
-10
lines changed
Expand file tree Collapse file tree 4 files changed +10
-10
lines changed Original file line number Diff line number Diff line change 5555 ; A `fraction.Fraction`, the dose of ambient poison per turn.
5656 time-limit
5757 ; An integer (counting in turns), or `None`.
58- exit-speed moving -exit-start
58+ exit-delay timed -exit-start
5959 ; These fields would be used to implement moving exits, but
6060 ; moving exits are not yet implemented, so they're ignored.
6161 map])
Original file line number Diff line number Diff line change @@ -78,7 +78,7 @@ quest definitions from other files in this directory."
7878 [title None ]
7979 [next-level None ]
8080 [poison-intensity (Fraction 0 )]
81- [time-limit None ] [exit-speed None ] [moving -exit-start None ]]
81+ [time-limit None ] [exit-delay None ] [timed -exit-start None ]]
8282 (if map
8383 (setv [m player-start] (parse-text-map map map-marks wrap-x wrap-y))
8484 (do
@@ -95,8 +95,8 @@ quest definitions from other files in this directory."
9595 :player-start (Pos m #* player-start)
9696 :poison-intensity poison-intensity
9797 :time-limit time-limit
98- :exit-speed exit-speed
99- :moving -exit-start moving -exit-start))
98+ :exit-delay exit-delay
99+ :timed -exit-start timed -exit-start))
100100
101101(defn parse-text-map [text [map-marks #()] [wrap-x False ] [wrap-y False ]]
102102 (setv text (dedent
Original file line number Diff line number Diff line change 112112 :light Int16ub
113113 :poison-interval Int16ub
114114 :time-limit Int16ub
115- :exit-speed Int16ub
115+ :exit-delay Int16ub
116116 (Const (bytes [0 ]))
117117 :wall-image Byte
118- :moving -exit-start iq-pos
118+ :timed -exit-start iq-pos
119119 :map (Bytes (* this.width this.height))
120120 :tile-extras (Array this.n-tile-extras (kw-struct
121121 :pos iq-pos
246246 (f/ 0 )
247247 (f/ 1 l.poison-interval))
248248 :time-limit (or l.time-limit None )
249- :exit-speed l.exit-speed
250- :moving -exit-start (mk-pos l.moving -exit-start)
249+ :exit-delay l.exit-delay
250+ :timed -exit-start (mk-pos l.timed -exit-start)
251251 :map m))))))
252252
253253;; --------------------------------------------------------------
Original file line number Diff line number Diff line change 4545 l.next-level 2
4646 l.poison-intensity (f/ 1 5 )
4747 l.time-limit None
48- l.exit-speed 10
49- l.moving -exit-start None
48+ l.exit-delay 10
49+ l.timed -exit-start None
5050 l.map.wrap-x False
5151 l.map.wrap-y False ])]
5252 (assert (= got expected)))
You can’t perform that action at this time.
0 commit comments