fix plant-boss decomp (#1407)

This commit is contained in:
ManDude
2022-06-02 02:29:26 +01:00
committed by GitHub
parent f89054baad
commit b9e23514dc
3 changed files with 36 additions and 35 deletions
+15 -15
View File
@@ -41,12 +41,7 @@
plant-boss-idle
plant-boss-intro
(plant-boss-reset int)
(plant-boss-root-die symbol)
plant-boss-root-idle
plant-boss-spawn
(plant-boss-vine-die symbol)
(plant-boss-vine-hit basic)
plant-boss-vine-idle
plant-boss-vulnerable
)
)
@@ -118,6 +113,11 @@
(plant-boss-back-arms-die symbol)
(plant-boss-back-arms-hit symbol)
plant-boss-back-arms-idle
(plant-boss-root-die symbol)
plant-boss-root-idle
(plant-boss-vine-die symbol)
(plant-boss-vine-hit basic)
plant-boss-vine-idle
)
)
@@ -519,7 +519,7 @@
)
;; failed to figure out what this is:
(defstate plant-boss-vine-idle (plant-boss)
(defstate plant-boss-vine-idle (plant-boss-arm)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
@@ -545,11 +545,11 @@
(none)
)
:post
(the-as (function none :behavior plant-boss) ja-post)
(the-as (function none :behavior plant-boss-arm) ja-post)
)
;; failed to figure out what this is:
(defstate plant-boss-vine-hit (plant-boss)
(defstate plant-boss-vine-hit (plant-boss-arm)
:event
(-> plant-boss-vine-idle event)
:code
@@ -571,11 +571,11 @@
(none)
)
:post
(the-as (function none :behavior plant-boss) ja-post)
(the-as (function none :behavior plant-boss-arm) ja-post)
)
;; failed to figure out what this is:
(defstate plant-boss-vine-die (plant-boss)
(defstate plant-boss-vine-die (plant-boss-arm)
:code
(behavior ((arg0 symbol))
(when (not arg0)
@@ -598,11 +598,11 @@
(none)
)
:post
(the-as (function none :behavior plant-boss) ja-post)
(the-as (function none :behavior plant-boss-arm) ja-post)
)
;; failed to figure out what this is:
(defstate plant-boss-root-idle (plant-boss)
(defstate plant-boss-root-idle (plant-boss-arm)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
@@ -625,11 +625,11 @@
(none)
)
:post
(the-as (function none :behavior plant-boss) ja-post)
(the-as (function none :behavior plant-boss-arm) ja-post)
)
;; failed to figure out what this is:
(defstate plant-boss-root-die (plant-boss)
(defstate plant-boss-root-die (plant-boss-arm)
:code
(behavior ((arg0 symbol))
(when (not arg0)
@@ -643,7 +643,7 @@
(none)
)
:post
(the-as (function none :behavior plant-boss) ja-post)
(the-as (function none :behavior plant-boss-arm) ja-post)
)
;; definition for function plant-boss-arm-init