ExtraInputControl:
;;; occasionally, there is input code that may be very specific, and it may be
;;; difficult to implement via the visual interface and accompanying scripts.
;;; this is a code that runs after all input checks, and allows for custom ASM.
LDA gameState
CMP #GS_MainGame
BEQ doMainGameUpdates
JMP skipMainGameExtraInputControl
doMainGameUpdates:
LDX player1_object
GetCurrentActionType player1_object
STA temp
LDA Object_physics_byte,x
AND #%00000010
BEQ isNotClimbing
LDA temp
CMP #$04
BNE isNotClimbing
LDA gamepad
AND #%11000000
BEQ noDirWhileClimbing
;ChangeObjectState #$02, #$04
noDirWhileClimbing:
; is climbing.
; which means don't check to change to idle.
JMP skipMainGameExtraInputControl
isNotClimbing:
LDA temp
CMP #$03 ;; is it shooting (shooting is same anim in air and on ground)
BNE isNotAttackingAction
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
JMP skipMainGameExtraInputControl
isNotAttackingAction:
LDA gamepad
AND #%11000000 ; left and right
BEQ dontskipMainGameExtraInputControl
JMP skipMainGameExtraInputControl
dontskipMainGameExtraInputControl:
; if left and right are not pressed
LDA screenFlags
AND #%00100000 ; does it use gravity?
; if it does not, it would not have jumping or ducking, so
; skip state updates for jumping and ducking.
BNE proceedFurther ; just will change to idle.
JMP notDucking
proceedFurther:
LDA Object_physics_byte,x
AND #%00000001 ; if is in air
BNE notInAir
GetCurrentActionType player1_object
CMP #$02 ; is it already state 2?
BNE proceedFurther2
RTS
proceedFurther2:
ChangeObjectState #$02, #$04
JMP skipMainGameExtraInputControl
notInAir:
; add an extra "set to idle state" here for fixing jump state animation glitching.
GetCurrentActionType player1_object
CMP #$05
BEQ skipMainGameExtraInputControl
ChangeObjectState #$00, #$03
LDA Object_h_speed_lo,x
ORA Object_h_speed_hi,x
BNE skipMainGameExtraInputControl
; controller is not pressed
; horizontal speed is zero.
; check to see if in air, shooting, etc.
; TO-DO: figure out what this is used for ??
LDA gamepad
AND #%00100000 ; if down is pressed
BEQ notDucking
ChangeObjectState #$05, #$04
JMP skipMainGameExtraInputControl
skipMainGameExtraInputControl:
RTS
notDucking:
LDA gamepad
AND #%11110000
BNE skipMainGameExtraInputControl2
GetCurrentActionType player1_object ; check curren state
BEQ skipMainGameExtraInputControl2 ; if already 0, don't change it again.
ChangeObjectState #$00, #$04
skipMainGameExtraInputControl2:
RTS
RTS
