mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-10 03:06:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

increase airlock open and post-close speed (#2758)

Browse Source 
open: 150% -> 175%
post-close: 100% -> 175%
This commit is contained in:
ManDude
2023-06-20 19:31:20 +01:00
committed by GitHub
parent 15ef95e036
commit b350525294
5 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
goal_src/jak2/engine/entity/entity.gc
+2
View File
@@ -2233,6 +2233,8 @@
;; ban specific entities
(not (let ((name (res-lump-struct (-> sv-48 entity) 'name string)))
(or (string= name "fort-entry-gate-11")
(string= name "fort-elec-gate-11")
(string= name "fort-elec-gate-12")
(string= name "com-airlock-outer-13")
(string= name "com-airlock-inner-41")
(string= name "under-lift-4")
goal_src/jak2/levels/common/airlock.gc
+2 -1
View File
@@ -559,7 +559,8 @@
)
(rotate-gear! self 65536.0)
(suspend)
(ja :num! (seek! 0.0))
;; pc port note: added speed modifier
(ja :num! (seek! 0.0 (get-airlock-close-speed *pc-settings*)))
(transform-post)
)
(when (nonzero? (-> self sound-id))
goal_src/jak2/pc/debug/entity-debug.gc
+1 -1
View File
@@ -48,7 +48,7 @@
(bucket-id debug-no-zbuf1))
;; basic info, actor id, etc
(draw-string-xy
(string-format "~3L~A~0L ~A~%tags: ~D size: ~D aid: #x~x level: ~S~%R1/L1 scroll L3 toggle display-actor-info~%--------------------" (-> e type) name (length e) (asize-of e) (-> e aid) (aif (-> e extra) (-> it level name)))
(string-format "~3L~A~0L ~A~%tags: ~D size: ~D aid: #x~x level: ~S~%R1/L1 to scroll~%--------------------" (-> e type) name (length e) (asize-of e) (-> e aid) (aif (-> e extra) (-> it level name)))
debug-buf 352 cur-y (font-color default) (font-flags shadow kerning middle))
(+! cur-y (* LINE_HEIGHT 4))
(cond
goal_src/jak2/pc/pckernel-impl.gc
+1
View File
@@ -60,6 +60,7 @@
(:methods
(eligible-for-fast-elevator? (_type_ process) symbol)
(get-airlock-speed (_type_) float)
(get-airlock-close-speed (_type_) float)
)
)
goal_src/jak2/pc/pckernel.gc
+11 -4
View File
@@ -101,16 +101,23 @@
(defmethod eligible-for-fast-elevator? pc-settings-jak2 ((obj pc-settings-jak2) (proc process))
"is this a valid process for a fast elevator?"
(and (-> obj fast-elevator?) (not (or (string= (-> proc name) "drill-lift-1")
(string= (-> proc name )"drill-lift-2"))))
(string= (-> proc name) "drill-lift-2"))))
)
(define *airlock-speed* 1.5)
(define *airlock-speed* 1.75)
(define *airlock-close-speed* 1.75)
(defmethod get-airlock-speed pc-settings-jak2 ((obj pc-settings-jak2))
"return the current speed modifier for airlocks"
(if (-> obj fast-airlock?)
*airlock-speed*
1.0)
)
1.0))
(defmethod get-airlock-close-speed pc-settings-jak2 ((obj pc-settings-jak2))
"return the current closing speed modifier for airlocks"
(if (-> obj fast-airlock?)
*airlock-close-speed*
1.0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;