This commit is contained in:
water
2024-04-12 20:14:25 -04:00
parent b1bc22330e
commit bd14760dda
6 changed files with 29 additions and 14 deletions
+2 -2
View File
@@ -10840,8 +10840,8 @@
:flag-assert #x1400001430
(:methods
(new (symbol type int) _type_) ;; 0
(add-setting (_type_ process symbol object object object) none) ;; 9
(persist-with-delay (_type_ symbol time-frame symbol symbol float int) none) ;; 10
(add-setting (_type_ process symbol object object object) connection) ;; 9
(persist-with-delay (_type_ symbol time-frame symbol symbol float int) connection) ;; 10
(set-setting (_type_ process symbol object object object) none) ;; 11
(remove-setting (_type_ process symbol) none) ;; 12
(kill-persister (_type_ engine-pers object) none) ;; 13
+5 -5
View File
@@ -29,10 +29,10 @@
"DGO/WCASEEM.DGO",
"DGO/WASCAST.DGO",
// // arena
// "DGO/WASSTADA.DGO",
// "DGO/WASSTADB.DGO",
// "DGO/WASSTADC.DGO",
// "DGO/ARENACST.DGO",
"DGO/WASSTADA.DGO",
"DGO/WASSTADB.DGO",
"DGO/WASSTADC.DGO",
"DGO/ARENACST.DGO",
// // desert
// "DGO/DESA.DGO",
// "DGO/DESB.DGO",
@@ -50,7 +50,7 @@
// "DGO/DESH.DGO",
// "DGO/DESHOVER.DGO",
// "DGO/DESHUNT.DGO",
// "DGO/DESINTER.DGO",
"DGO/DESINTER.DGO",
// "DGO/DESJUMP.DGO",
// "DGO/DESLIZ.DGO",
// "DGO/DESOASIS.DGO",
+8
View File
@@ -2781,6 +2781,14 @@
(defconstant *default-boot-level* 'halfpipe)
(defmacro play-desert ()
`(start 'play (get-continue-by-name *game-info* "desert-start"))
)
(defmacro play-was ()
`(start 'play (get-continue-by-name *game-info* "wascitya-start"))
)
(defun play ((arg0 symbol) (arg1 symbol))
"Start (or restart) the game!
This will start up the display process, and load the initial level."
+6
View File
@@ -11,6 +11,12 @@
(format 0 "unimplemented cloth-base-method-10~%")
0)
(defmethod cloth-system-method-34 ((this cloth-system))
(format 0 "unimplemented cloth-system-method-34~%")
(none)
)
(defmethod init! ((this cloth-base))
;; this looks more like run! than init to me.
0)
+3 -2
View File
@@ -3499,8 +3499,9 @@
;; og:preserve-this
(let* ((a3-1 (the int (+ (* (the-as uint 320) (-> arg1 class icon-xy x)) 8)))
(t0-1 (the int (+ (* (the-as uint 320) (-> arg1 class icon-xy y)) 8)))
(a1-65 (+ a3-1 312))
(a2-14 (+ t0-1 312))
;; adjusted:
(a1-65 (+ a3-1 300))
(a2-14 (+ t0-1 300))
)
(set! (-> (the-as (pointer uint128) v1-122) 0) (-> this sprite-tmpl dma-vif quad))
(set! (-> (the-as (pointer uint128) v1-122) 1) (-> this sprite-tmpl quad 1))
+5 -5
View File
@@ -113,10 +113,10 @@
(cgo-file "wascast.gd" common-dep)
(cgo-file "wasall.gd" common-dep)
; ;; arena
; (cgo-file "wasstada.gd" common-dep)
; (cgo-file "wasstadb.gd" common-dep)
; (cgo-file "wasstadc.gd" common-dep)
; (cgo-file "arenacst.gd" common-dep)
(cgo-file "wasstada.gd" common-dep)
(cgo-file "wasstadb.gd" common-dep)
(cgo-file "wasstadc.gd" common-dep)
(cgo-file "arenacst.gd" common-dep)
; ;; desert
; (cgo-file "desa.gd" common-dep)
; (cgo-file "desb.gd" common-dep)
@@ -134,7 +134,7 @@
; (cgo-file "desh.gd" common-dep)
; (cgo-file "deshover.gd" common-dep)
; (cgo-file "deshunt.gd" common-dep)
; (cgo-file "desinter.gd" common-dep)
(cgo-file "desinter.gd" common-dep)
; (cgo-file "desjump.gd" common-dep)
; (cgo-file "desliz.gd" common-dep)
; (cgo-file "desoasis.gd" common-dep)