wwf-wrestlemania/ADMSEQ1.ASM

640 lines
15 KiB
NASM
Raw Normal View History

2021-04-06 15:21:54 -07:00
**************************************************************
*
* Software: Jamie Rivett
* Initiated: 10/12/93
*
* COPYRIGHT (C) 1992 WILLIAMS ELECTRONICS GAMES, INC.
*
**************************************************************
.file "admseq1.asm"
.title "Adam Bomb animation sequences"
.width 132
.option b,d,l,t
.mnolist
.include "macros.h"
.include "mproc.equ" ;Mproc equates
.include "sys.equ"
.include "game.equ"
.include "plyr.equ"
.include "anim.equ"
.include "sound.h"
.include "adamimg.h"
******************************************************************************
* EXTERNAL REFERENCES
;from ROPES.ASM
.ref rope_command
******************************************************************************
* SYMBOLS DEFINED IN THIS FILE
******************************************************************************
* EQUATES FOR THIS FILE
TSEC equ 53
#*****************************************************************************
*
* STANDS
SUBR adm_zip_anim
WL TSEC*60,A2ST2D+FR1
.word 0
#STNA2_SPD equ 6
SUBR adm_stand2_anim
SUBR adm_stand8_anim
.word ANI_SETMODE,MODE_NORMAL
WL #STNA2_SPD,A2ST2D+FR1
WL #STNA2_SPD,A2ST2D+FR2
WL #STNA2_SPD,A2ST2D+FR3
WL #STNA2_SPD,A2ST2D+FR4
WL #STNA2_SPD,A2ST2D+FR5
WL #STNA2_SPD,A2ST2D+FR6
WL #STNA2_SPD,A2ST2D+FR7
WL #STNA2_SPD,A2ST2D+FR8
WL #STNA2_SPD,A2ST2D+FR9
WL #STNA2_SPD,A2ST2D+FR10
WL #STNA2_SPD,A2ST2D+FR11
WL #STNA2_SPD,A2ST2D+FR12
.word ANI_REPEAT
#STNA4_SPD equ 6
SUBR adm_stand4_anim
SUBR adm_stand6_anim
.word ANI_SETMODE,MODE_NORMAL
WL #STNA4_SPD,A4ST4J+FR1
WL #STNA4_SPD,A4ST4J+FR2
WL #STNA4_SPD,A4ST4J+FR3
WL #STNA4_SPD,A4ST4J+FR4
WL #STNA4_SPD,A4ST4J+FR5
WL #STNA4_SPD,A4ST4J+FR6
WL #STNA4_SPD,A4ST4J+FR7
WL #STNA4_SPD,A4ST4J+FR8
WL #STNA4_SPD,A4ST4J+FR9
WL #STNA4_SPD,A4ST4J+FR10
WL #STNA4_SPD,A4ST4J+FR11
.word ANI_REPEAT
#*****************************************************************************
*
* WALKING TORSOS
#TORSO2_SPD equ 4
SUBR adm_torso2_anim
SUBR adm_torso8_anim
WL #TORSO2_SPD,A2TW2Z+FR1
.word ANI_REPEAT
#TORSO4_SPD equ 4
SUBR adm_torso4_anim
SUBR adm_torso6_anim
WL #TORSO4_SPD,A4TW4Z+FR1
WL #TORSO4_SPD,A4TW4Z+FR2
.word ANI_REPEAT
#*****************************************************************************
*
* WALKS FACING #2
#W1F2_SPD equ 2
SUBR adm_walk1_f2_anim
WL #W1F2_SPD,A2WL1A+FR1
WL #W1F2_SPD,A2WL1A+FR2
WL #W1F2_SPD,A2WL1A+FR3
WL #W1F2_SPD,A2WL1A+FR4
WL #W1F2_SPD,A2WL1A+FR5
WL #W1F2_SPD,A2WL1A+FR6
WL #W1F2_SPD,A2WL1A+FR7
WL #W1F2_SPD,A2WL1A+FR8
WL #W1F2_SPD,A2WL1A+FR9
WL #W1F2_SPD,A2WL1A+FR10
WL #W1F2_SPD,A2WL1A+FR11
WL #W1F2_SPD,A2WL1A+FR12
WL #W1F2_SPD,A2WL1A+FR13
WL #W1F2_SPD,A2WL1A+FR14
WL #W1F2_SPD,A2WL1A+FR15
WL #W1F2_SPD,A2WL1A+FR16
WL #W1F2_SPD,A2WL1A+FR17
WL #W1F2_SPD,A2WL1A+FR18
.word ANI_REPEAT
#W2F2_SPD equ 2
SUBR adm_walk2_f2_anim
WL #W2F2_SPD,A2WL2B+FR1
WL #W2F2_SPD,A2WL2B+FR2
WL #W2F2_SPD,A2WL2B+FR3
WL #W2F2_SPD,A2WL2B+FR4
WL #W2F2_SPD,A2WL2B+FR5
WL #W2F2_SPD,A2WL2B+FR6
WL #W2F2_SPD,A2WL2B+FR7
WL #W2F2_SPD,A2WL2B+FR8
WL #W2F2_SPD,A2WL2B+FR9
WL #W2F2_SPD,A2WL2B+FR10
WL #W2F2_SPD,A2WL2B+FR11
WL #W2F2_SPD,A2WL2B+FR12
WL #W2F2_SPD,A2WL2B+FR13
WL #W2F2_SPD,A2WL2B+FR14
WL #W2F2_SPD,A2WL2B+FR15
WL #W2F2_SPD,A2WL2B+FR16
WL #W2F2_SPD,A2WL2B+FR17
WL #W2F2_SPD,A2WL2B+FR18
WL #W2F2_SPD,A2WL2B+FR19
WL #W2F2_SPD,A2WL2B+FR20
.word ANI_REPEAT
#W4F2_SPD equ 2
SUBR adm_walk4_f2_anim
WL #W4F2_SPD,A2WL8B+FR1
WL #W4F2_SPD,A2WL8B+FR2
WL #W4F2_SPD,A2WL8B+FR3
WL #W4F2_SPD,A2WL8B+FR4
WL #W4F2_SPD,A2WL8B+FR5
WL #W4F2_SPD,A2WL8B+FR6
WL #W4F2_SPD,A2WL8B+FR7
WL #W4F2_SPD,A2WL8B+FR8
WL #W4F2_SPD,A2WL8B+FR9
WL #W4F2_SPD,A2WL8B+FR10
WL #W4F2_SPD,A2WL8B+FR11
WL #W4F2_SPD,A2WL8B+FR12
WL #W4F2_SPD,A2WL8B+FR13
WL #W4F2_SPD,A2WL8B+FR14
WL #W4F2_SPD,A2WL8B+FR15
WL #W4F2_SPD,A2WL8B+FR16
WL #W4F2_SPD,A2WL8B+FR17
.word ANI_REPEAT
#W5F2_SPD equ 2
SUBR adm_walk5_f2_anim
WL #W5F2_SPD,A2WL1A+FR18
WL #W5F2_SPD,A2WL1A+FR17
WL #W5F2_SPD,A2WL1A+FR16
WL #W5F2_SPD,A2WL1A+FR15
WL #W5F2_SPD,A2WL1A+FR14
WL #W5F2_SPD,A2WL1A+FR13
WL #W5F2_SPD,A2WL1A+FR12
WL #W5F2_SPD,A2WL1A+FR11
WL #W5F2_SPD,A2WL1A+FR10
WL #W5F2_SPD,A2WL1A+FR9
WL #W5F2_SPD,A2WL1A+FR8
WL #W5F2_SPD,A2WL1A+FR7
WL #W5F2_SPD,A2WL1A+FR6
WL #W5F2_SPD,A2WL1A+FR5
WL #W5F2_SPD,A2WL1A+FR4
WL #W5F2_SPD,A2WL1A+FR3
WL #W5F2_SPD,A2WL1A+FR2
WL #W5F2_SPD,A2WL1A+FR1
.word ANI_REPEAT
#W6F2_SPD equ 2
SUBR adm_walk6_f2_anim
WL #W6F2_SPD,A2WL2B+FR20
WL #W6F2_SPD,A2WL2B+FR19
WL #W6F2_SPD,A2WL2B+FR18
WL #W6F2_SPD,A2WL2B+FR17
WL #W6F2_SPD,A2WL2B+FR16
WL #W6F2_SPD,A2WL2B+FR15
WL #W6F2_SPD,A2WL2B+FR14
WL #W6F2_SPD,A2WL2B+FR13
WL #W6F2_SPD,A2WL2B+FR12
WL #W6F2_SPD,A2WL2B+FR11
WL #W6F2_SPD,A2WL2B+FR10
WL #W6F2_SPD,A2WL2B+FR9
WL #W6F2_SPD,A2WL2B+FR8
WL #W6F2_SPD,A2WL2B+FR7
WL #W6F2_SPD,A2WL2B+FR6
WL #W6F2_SPD,A2WL2B+FR5
WL #W6F2_SPD,A2WL2B+FR4
WL #W6F2_SPD,A2WL2B+FR3
WL #W6F2_SPD,A2WL2B+FR2
WL #W6F2_SPD,A2WL2B+FR1
.word ANI_REPEAT
#W8F2_SPD equ 2
SUBR adm_walk8_f2_anim
WL #W8F2_SPD,A2WL8B+FR17
WL #W8F2_SPD,A2WL8B+FR16
WL #W8F2_SPD,A2WL8B+FR15
WL #W8F2_SPD,A2WL8B+FR14
WL #W8F2_SPD,A2WL8B+FR13
WL #W8F2_SPD,A2WL8B+FR12
WL #W8F2_SPD,A2WL8B+FR11
WL #W8F2_SPD,A2WL8B+FR10
WL #W8F2_SPD,A2WL8B+FR9
WL #W8F2_SPD,A2WL8B+FR8
WL #W8F2_SPD,A2WL8B+FR7
WL #W8F2_SPD,A2WL8B+FR6
WL #W8F2_SPD,A2WL8B+FR5
WL #W8F2_SPD,A2WL8B+FR4
WL #W8F2_SPD,A2WL8B+FR3
WL #W8F2_SPD,A2WL8B+FR2
WL #W8F2_SPD,A2WL8B+FR1
.word ANI_REPEAT
#*****************************************************************************
*
* WALKS FACING #4
#W1F4_SPD equ 2
SUBR adm_walk1_f4_anim
WL #W1F4_SPD,A4WL5B+FR20
WL #W1F4_SPD,A4WL5B+FR19
WL #W1F4_SPD,A4WL5B+FR18
WL #W1F4_SPD,A4WL5B+FR17
WL #W1F4_SPD,A4WL5B+FR16
WL #W1F4_SPD,A4WL5B+FR15
WL #W1F4_SPD,A4WL5B+FR14
WL #W1F4_SPD,A4WL5B+FR13
WL #W1F4_SPD,A4WL5B+FR12
WL #W1F4_SPD,A4WL5B+FR11
WL #W1F4_SPD,A4WL5B+FR10
WL #W1F4_SPD,A4WL5B+FR9
WL #W1F4_SPD,A4WL5B+FR8
WL #W1F4_SPD,A4WL5B+FR7
WL #W1F4_SPD,A4WL5B+FR6
WL #W1F4_SPD,A4WL5B+FR5
WL #W1F4_SPD,A4WL5B+FR4
WL #W1F4_SPD,A4WL5B+FR3
WL #W1F4_SPD,A4WL5B+FR2
WL #W1F4_SPD,A4WL5B+FR1
.word ANI_REPEAT
#W2F4_SPD equ 2
SUBR adm_walk2_f4_anim
WL #W2F4_SPD,A4WL2B+FR1
WL #W2F4_SPD,A4WL2B+FR2
WL #W2F4_SPD,A4WL2B+FR3
WL #W2F4_SPD,A4WL2B+FR4
WL #W2F4_SPD,A4WL2B+FR5
WL #W2F4_SPD,A4WL2B+FR6
WL #W2F4_SPD,A4WL2B+FR7
WL #W2F4_SPD,A4WL2B+FR8
WL #W2F4_SPD,A4WL2B+FR9
WL #W2F4_SPD,A4WL2B+FR10
WL #W2F4_SPD,A4WL2B+FR11
WL #W2F4_SPD,A4WL2B+FR12
WL #W2F4_SPD,A4WL2B+FR13
WL #W2F4_SPD,A4WL2B+FR14
WL #W2F4_SPD,A4WL2B+FR15
WL #W2F4_SPD,A4WL2B+FR16
WL #W2F4_SPD,A4WL2B+FR17
WL #W2F4_SPD,A4WL2B+FR18
WL #W2F4_SPD,A4WL2B+FR19
WL #W2F4_SPD,A4WL2B+FR20
.word ANI_REPEAT
#W4F4_SPD equ 2
SUBR adm_walk4_f4_anim
WL #W4F4_SPD,A4WL4A+FR1
WL #W4F4_SPD,A4WL4A+FR2
WL #W4F4_SPD,A4WL4A+FR3
WL #W4F4_SPD,A4WL4A+FR4
WL #W4F4_SPD,A4WL4A+FR5
WL #W4F4_SPD,A4WL4A+FR6
WL #W4F4_SPD,A4WL4A+FR7
WL #W4F4_SPD,A4WL4A+FR8
WL #W4F4_SPD,A4WL4A+FR9
WL #W4F4_SPD,A4WL4A+FR10
WL #W4F4_SPD,A4WL4A+FR11
WL #W4F4_SPD,A4WL4A+FR12
WL #W4F4_SPD,A4WL4A+FR13
WL #W4F4_SPD,A4WL4A+FR14
WL #W4F4_SPD,A4WL4A+FR15
WL #W4F4_SPD,A4WL4A+FR16
WL #W4F4_SPD,A4WL4A+FR17
WL #W4F4_SPD,A4WL4A+FR18
WL #W4F4_SPD,A4WL4A+FR19
.word ANI_REPEAT
#W5F4_SPD equ 2
SUBR adm_walk5_f4_anim
WL #W5F4_SPD,A4WL5B+FR1
WL #W5F4_SPD,A4WL5B+FR2
WL #W5F4_SPD,A4WL5B+FR3
WL #W5F4_SPD,A4WL5B+FR4
WL #W5F4_SPD,A4WL5B+FR5
WL #W5F4_SPD,A4WL5B+FR6
WL #W5F4_SPD,A4WL5B+FR7
WL #W5F4_SPD,A4WL5B+FR8
WL #W5F4_SPD,A4WL5B+FR9
WL #W5F4_SPD,A4WL5B+FR10
WL #W5F4_SPD,A4WL5B+FR11
WL #W5F4_SPD,A4WL5B+FR12
WL #W5F4_SPD,A4WL5B+FR13
WL #W5F4_SPD,A4WL5B+FR14
WL #W5F4_SPD,A4WL5B+FR15
WL #W5F4_SPD,A4WL5B+FR16
WL #W5F4_SPD,A4WL5B+FR17
WL #W5F4_SPD,A4WL5B+FR18
WL #W5F4_SPD,A4WL5B+FR19
WL #W5F4_SPD,A4WL5B+FR20
.word ANI_REPEAT
#W6F4_SPD equ 2
SUBR adm_walk6_f4_anim
WL #W6F4_SPD,A4WL2B+FR20
WL #W6F4_SPD,A4WL2B+FR19
WL #W6F4_SPD,A4WL2B+FR18
WL #W6F4_SPD,A4WL2B+FR17
WL #W6F4_SPD,A4WL2B+FR16
WL #W6F4_SPD,A4WL2B+FR15
WL #W6F4_SPD,A4WL2B+FR14
WL #W6F4_SPD,A4WL2B+FR13
WL #W6F4_SPD,A4WL2B+FR12
WL #W6F4_SPD,A4WL2B+FR11
WL #W6F4_SPD,A4WL2B+FR10
WL #W6F4_SPD,A4WL2B+FR9
WL #W6F4_SPD,A4WL2B+FR8
WL #W6F4_SPD,A4WL2B+FR7
WL #W6F4_SPD,A4WL2B+FR6
WL #W6F4_SPD,A4WL2B+FR5
WL #W6F4_SPD,A4WL2B+FR4
WL #W6F4_SPD,A4WL2B+FR3
WL #W6F4_SPD,A4WL2B+FR2
WL #W6F4_SPD,A4WL2B+FR1
.word ANI_REPEAT
#W8F4_SPD equ 2
SUBR adm_walk8_f4_anim
WL #W8F4_SPD,A4WL4A+FR19
WL #W8F4_SPD,A4WL4A+FR18
WL #W8F4_SPD,A4WL4A+FR17
WL #W8F4_SPD,A4WL4A+FR16
WL #W8F4_SPD,A4WL4A+FR15
WL #W8F4_SPD,A4WL4A+FR14
WL #W8F4_SPD,A4WL4A+FR13
WL #W8F4_SPD,A4WL4A+FR12
WL #W8F4_SPD,A4WL4A+FR11
WL #W8F4_SPD,A4WL4A+FR10
WL #W8F4_SPD,A4WL4A+FR9
WL #W8F4_SPD,A4WL4A+FR8
WL #W8F4_SPD,A4WL4A+FR7
WL #W8F4_SPD,A4WL4A+FR6
WL #W8F4_SPD,A4WL4A+FR5
WL #W8F4_SPD,A4WL4A+FR4
WL #W8F4_SPD,A4WL4A+FR3
WL #W8F4_SPD,A4WL4A+FR2
WL #W8F4_SPD,A4WL4A+FR1
.word ANI_REPEAT
#*****************************************************************************
*
* TURNS (STANDS)
SUBR adm_2_to_4_turn_anim
SUBR adm_8_to_6_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR2
WL 3,A1TT5Z+FR3
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_2_turn_anim
SUBR adm_6_to_8_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR3
WL 3,A1TT5Z+FR2
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_6_turn_anim
SUBR adm_6_to_4_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR4
.word ANI_XFLIP
WL 3,A1TT5Z+FR4
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_2_to_8_turn_anim
SUBR adm_8_to_2_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR1
.word ANI_XFLIP
WL 3,A1TT5Z+FR1
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_8_turn_anim
SUBR adm_6_to_2_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR3
WL 3,A1TT5Z+FR2
WL 3,A1TT5Z+FR1
.word ANI_XFLIP
WL 3,A1TT5Z+FR1
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_2_to_6_turn_anim
SUBR adm_8_to_4_turn_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TT5Z+FR1
.word ANI_XFLIP
WL 3,A1TT5Z+FR1
WL 3,A1TT5Z+FR2
WL 3,A1TT5Z+FR3
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
#*****************************************************************************
*
* TURNS (TORSOS)
SUBR adm_2_to_4_turn2_anim
SUBR adm_8_to_6_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TR5Z+FR2
.word ANI_SETFACING
WL 3,A1TR5Z+FR3
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_2_turn2_anim
SUBR adm_6_to_8_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TR5Z+FR3
.word ANI_SETFACING
WL 3,A1TR5Z+FR2
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_6_turn2_anim
SUBR adm_6_to_4_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TR5Z+FR4
.word ANI_SETFACING ;ANI_XFLIP <- not primary anim
WL 3,A1TR5Z+FR4
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_2_to_8_turn2_anim
SUBR adm_8_to_2_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
WL 3,A1TR5Z+FR1
.word ANI_SETFACING ;ANI_XFLIP <- not primary anim
WL 3,A1TR5Z+FR1
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_4_to_8_turn2_anim
SUBR adm_6_to_2_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
SUBR adm_2_to_6_turn2_anim
SUBR adm_8_to_4_turn2_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP ;uninterruptable
.word ANI_SETSPEED,100h
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
#*****************************************************************************
*
* RUNNING IN #3
SUBR adm_run2_anim
.word ANI_SETMODE,MODE_NORMAL
WL ANI_GOTO,#lp0
#RUN_SPD equ 2
SUBR adm_run_anim
.word ANI_SETMODE,MODE_UNINT ;uninterruptable
#lp0
#lp1
WL #RUN_SPD+1,A3RN3A+FR10
WL #RUN_SPD,A3RN3A+FR11
WL #RUN_SPD,A3RN3A+FR12
WL #RUN_SPD,A3RN3A+FR13
WL #RUN_SPD,A3RN3A+FR1
WL #RUN_SPD+1,A3RN3A+FR2
WL #RUN_SPD,A3RN3A+FR3
.word ANI_SOUND,run_snd
.word ANI_SETMODE,MODE_NORMAL ;clear UNINT bit
WL #RUN_SPD+1,A3RN3A+FR4
WL #RUN_SPD,A3RN3A+FR5
WL #RUN_SPD+1,A3RN3A+FR6
WL #RUN_SPD,A3RN3A+FR7
WL #RUN_SPD+1,A3RN3A+FR8
.word ANI_SOUND,run_snd
WL #RUN_SPD,A3RN3A+FR9
WL ANI_GOTO,#lp1
*
* OUT OF CONTROL RUN IN #3
SUBR adm_ocrun_anim
.word ANI_SETMODE,MODE_NOAUTOFLIP ;don't change facing
WL 15,A3RN3A+FR1
#lp
WL #RUN_SPD+1,A3RN3A+FR10
WL #RUN_SPD,A3RN3A+FR11
WL #RUN_SPD,A3RN3A+FR12
WL #RUN_SPD,A3RN3A+FR13
WL #RUN_SPD,A3RN3A+FR1
WL #RUN_SPD+1,A3RN3A+FR2
WL #RUN_SPD,A3RN3A+FR3
.word ANI_SOUND,run_snd
WL #RUN_SPD+1,A3RN3A+FR4
WL #RUN_SPD,A3RN3A+FR5
WL #RUN_SPD+1,A3RN3A+FR6
WL #RUN_SPD,A3RN3A+FR7
WL #RUN_SPD+1,A3RN3A+FR8
.word ANI_SOUND,run_snd
WL #RUN_SPD,A3RN3A+FR9
WL ANI_GOTO,#lp
#*****************************************************************************
*
* BOUNCE OFF ROPES
SUBR adm_bounce_anim
.word ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP| MODE_NOCONFINE ;uninterruptable
.word ANI_ZEROVELS
WL 4,A3BO3A+FR1
WL 3,A3BO3A+FR2
.word ANI_BOUNCEROPE,0
WL 1,A3BO3A+FR2
WL 3,A3BO3A+FR3
.word ANI_BOUNCEROPE,1
WL 1,A3BO3A+FR3
WL 3,A3BO3A+FR4
.word ANI_BOUNCEROPE,2
WL 1,A3BO3A+FR4
WL 5,A3BO3A+FR5
.word ANI_BOUNCEROPE,4
WL 1,A3BO3A+FR5
WL 3,A3BO3A+FR6
.word ANI_BOUNCEROPE,-1 ;release
WL 1,A3BO3A+FR6
WL 4,A3BO3A+FR7
.word ANI_SOUND,run_snd
.word ANI_SETMODE,MODE_NORMAL
.word ANI_END
#*****************************************************************************
SUBR adm_slave_image_table
.long #s2_grapple ;0 S2_GRAPPLE
.long #s4_grapple ;1 S4_GRAPPLE
.long #s3_grap_to_hh ;2 S3_GRAP_TO_HH
.long #s3_pile_driven ;3 S3_PILE_DRIVEN
#s2_grapple ;ABOMB #2 grapple
.long A2GR3Z+FR5 ;0 (most forward)
.long A2GR3Z+FR6 ;1
.long A2GR3Z+FR7 ;2
.long A2GR3Z+FR8 ;3 (most back)
#s4_grapple ;ABOMB #4 grapple
.long A4GR3B+FR7 ;0 (most forward)
.long A4GR3B+FR6 ;1
.long A4GR3B+FR5 ;2
.long A4GR3B+FR4 ;3 (most back)
#s3_grap_to_hh ;ABOMB #3 from grapple to head being held
#s3_pile_driven ;ABOMB #3 pile driven
******************************************************************************
.end