nonzero checks and fixes

This commit is contained in:
Hat Kid
2024-04-06 00:44:09 +02:00
parent 689c8a8647
commit 2ef23b2786
4 changed files with 8 additions and 5 deletions
@@ -107,7 +107,8 @@
)
(defmethod projectile-method-40 ((this gun-red-3-grenade))
256
;; og:preserve-this increased stack size from 256
512
)
(defmethod init-proj-settings! ((this gun-red-3-grenade))
+1 -1
View File
@@ -3231,7 +3231,7 @@
(if (and *debug-segment* (!= (-> this tobot?) 'tobot))
(add-connection *debug-engine* this target-print-stats this *stdcon0* #f)
)
;; (activate-hud this)
(activate-hud this)
(set! (-> this fp-hud) (the-as handle #f))
(set! (-> this burn-proc) (the-as handle #f))
(set! (-> this water) (new 'process 'water-control this 10 0.0 8192.0 2048.0))
+2 -2
View File
@@ -71,7 +71,7 @@
(defmethod update-values! ((this hud-map))
(cond
((update! *minimap*)
((and (nonzero? *minimap*) (update! *minimap*))
(logior! (-> this flags) (hud-flags show))
(let ((t9-1 (method-of-type hud update-values!)))
(t9-1 this)
@@ -110,7 +110,7 @@
(set! (-> this sprites 1 flags) (hud-sprite-flags hsf2))
(set! (-> this sprites 1 pos z) #xffff00)
(set! (-> this values 0 current) 0)
(update! *minimap*)
(if (nonzero? *minimap*) (update! *minimap*))
0
(none)
)
+3 -1
View File
@@ -453,7 +453,9 @@
(process-spawn hud-ring-cell 11 (* -1.0 f30-0) 9 :name "hud-ring-cell" :to self)
)
(clear *stdcon1*)
(enable-drawing *bigmap*)
(if (nonzero? *bigmap*)
(enable-drawing *bigmap*)
)
(set-setting! 'scanlines 'abs 0.0 0)
(go-virtual come-in)
)