revolution-x/GXAERO.ASM

3160 lines
58 KiB
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

.MLIB "GXMACS.LIB"
.FILE "GXAERO.ASM"
.TITLE "<<< REVOLUTION X -- Aerosmith related material >>>"
.WIDTH 132
.OPTION B,D,L,T
.MNOLIST
**************************************************************************
* *
* COPYRIGHT (C) 1993 MIDWAY MANUFACTURING COMPANY. *
* ALL RIGHTS RESERVED. *
* *
**************************************************************************
.INCLUDE "GXENEMY.INC" ;SYSTEM EQUATES
.INCLUDE "IMGTBL.GLO"
.INCLUDE "GXCONTRL.H"
.INCLUDE "GXAERO.TBL"
.INCLUDE "GXAEROBS.TBL"
* SYMBOLS IN HERE
.DEF CREATE_STAGE_PRODBOY, CREATE_TOM_PEE, T161_1, TOM_TURN_ANIM
.DEF MAKE_AEROSMITH, BRAD_ON_FORK, WHITFORD_FLAG
.DEF MAKE_AEROSMITH_2
.DEF LGHL1ARM1
.DEF LGHL1ARM2
.DEF LGHL2ARM1
.DEF LGHL2ARM2
.DEF LGHL3ARM1
.DEF LGHL3ARM2
.DEF LGHL3ARM3
.DEF MAKE_BS_AEROSMITH
.DEF MAKE_BS_AEROSMITH_ANIM
.DEF CYMBOL1_OBJ
.DEF CYMBOL2_OBJ
.DEF BEAT_COUNT
.DEF LAST_RX
.DEF STEVEN_SOLO_LOOP, STEVEN_SOLO_ANIM
.DEF KRHUG06, KRHUG07, KRHUG08
.DEF CYMBOL_1_INIT
.DEF CYMBOL_2_INIT
.DEF CYMBOL_1L_INIT
.DEF CYMBOL_2R_INIT
.DEF STYLER_INIT
.DEF JOEP_INIT
.DEF TOM_INIT
.DEF SYNC_TOM
.DEF BRAD_INIT
.DEF SYNC_BRAD
.DEF JOEK_INIT
.DEF HIT_TWO_CYMBOL
.DEF HIT_CYMBOL
.DEF SYNC_KRAMER_WALK
.DEF NEXT_BEAT
.DEF SYNC_PERRY
.REF WHICH_SET_W
.REF CREATE_OUR_KERRI
.REF WAVE
.REF SND_EAT_THE_RICH2
.REF PROC_SND
* SYMBOLS FROM GXSND.ASM
.REF SOUND_RX
.REF EASYMAKE
.REF ONESND
.BSS JOEY_OBJ,32
.BSS JOE_OBJ,32
.BSS BRAD_OBJ,32
.BSS TOM_OBJ,32
.BSS STEVEN_OBJ,32
.BSS CYMBOL1_OBJ,32
.BSS CYMBOL2_OBJ,32
.BSS BEAT_COUNT,16
.BSS LAST_RX,16
* SYMBOLS FROM GXPOWER.ASM
.REF A_UNIVOBJ_TO_POWERUP, A_OBJ_TO_POWERUP
* SYMBOLS FROM GXPALL.ASM
.REF A_CHANGE_PAL
* SYMBOLS FROM GXUNILNK.ASM
.REF INSERT_LINK, GET_FREE_LINK, UNIV_ID
* SYMBOLS FROM GXUNILNK.ASM
.REF UNIVERR
* SYMBOLS FROM GXUNISEQ.ASM
.REF SND_MORPH
* SYMBOLS FROM GXD.ASM
.REF SET_ANIPU, SET_ANIPZU, STRTANIM_OFF, SET_ODAG, ZREL_OFF
* SYMBOLS FROM GXAFUNC.ASM
.REF A_SET_OXVEL, A_SOUND, A_Anim_DSJ, A_Set_AnimLoop, A_AUDIT
.REF A_STAY_TIL_OFFSCRN, A_STAY_TIL_ONSCRN, A_BRANCH_IF_FALSE
***** from GXDESK.ASM
.REF A_NOSCALE_NOSHAD
* SYMBOLS FROM GXUNIJP2.ASM
.REF DELETE_UNIV_OBJ
***** from GXHELGA.ASM
.REF START_HELGA
***** from GXRAM.ASM
.REF GAME_STATE
.REF MAKE_NOSCALE,GUNS_OFF,A_STAY_TIL_WY_GT,A_Set_Var_Word
.REF SCROLL_FLAG
.BSS WHITFORD_FLAG,16 ;Tell Brad to do his thang
.BSS UNUSED_WORD,16
.TEXT
.EVEN
SND_OOF
.WORD 0F340H,24,0A227H,0
SND_STEVEN_NO
.WORD 0F380H,36,08801H,0
SND_JOE_HANDS
.WORD 0F380H,62,08830H,0
SND_TOM_BACK
.WORD 0F380H,59,0883CH,0
SND_BRAD_WHAT
.WORD 0F380H,18,0883FH,0
SND_JOEY_HEY
.WORD 0F380H,35,08833H,1,043E6H,0
PRODBOY_LEGS EQU 4 ;(HEAD) LEGS PART ID
PRODBOY_XVEL EQU -010000H
;PRODBOY ODATA
OAEROBJ EQU ODATA ;UHL AEROSMITH MEMBER OBJECT
OAEROSCR EQU ODATA+020H ;UHL SCRIPT TO START FOR AEROSMITH GUY
OWALKANIM EQU ODATA+040H ;UHL WALK ANIMATION RESTART
OAEROXOFF EQU ODATA+060H ;UHL A-MEMBER X OFFSET TO START ANIM
OU_PRODHEAD EQU OU_ODATA ;UHL PRODBOY HEAD OBJECT
OU_PRODLEGS EQU OU_ODATA+020H ;UHL PRODBOY (HEAD) LEGS OBJECT
**************************************************************************
* *
* CREATE_STAGE_PRODBOY - CREATE A NONSCALE NONBOY THAT COMES ON STAGE AND*
* PRODS AN AEROSMITH MEMBER *
* *
* PASS: *
* A9 = UNIVERSE Z *
* A10 = WORLD X OFFSET TO START AEROSMITH MEMBER ANIMATION *
* A11 = ID OF AEROSMITH MEMBER *
* *
**************************************************************************
CREATE_STAGE_PRODBOY
MOVI PRODBOY_INIT,B0
CALLA MULTIMAKE
.if DEBUG
LOCKON Z
.endif
MOVI 0600000H,A1
; MOVI -0420000H,A2
MOVI -0410000H,A2
MOVE A9,A3
CALLA SET_ANIPU
MOVI PRODBOY_XVEL,A14
MOVE A14,*A8(OXVEL),L
CALLA INSERT_OBJ
MOVE A10,*A8(OAEROXOFF),L
MOVE A11,A14
SUBK 21,A14
SLL 5,A14
ADDI OFF_STAGE_SCRIPT_TABLE,A14
MOVE *A14(0),*A8(OAEROSCR),L
SLL 2,A11
MOVI FGLIST,A0
MOVE A0,A1
MOVI MASK_ID,A3
CSP_LUPE
MOVE *A0,A0,L
CMP A1,A0
JREQ CSP_ABORT
MOVE *A0(OID),A14,W
AND A3,A14
CMP A11,A14
JRNE CSP_LUPE
MOVE *A0(OPART1),A14,L
CMP A0,A14
JRNE CSP_LUPE
MOVE A0,*A8(OAEROBJ),L
MOVE A8,*A0(OU_PRODHEAD),L
MOVE A0,A2
MOVK PRODBOY_LEGS,A1
CALLA FINDPART
MOVE A0,*A2(OU_PRODLEGS),L
CSP_ABORT
DIE
**************************************************************************
* *
* CREATE_TOM_PEE - CREATE "PEEING" AEROSMITH MEMBER, TOM HAMILTON *
* *
* PASS: *
* A8 = UNIVERSE Z *
* A9 = UNIVERSE Y *
* A10 = UNIVERSE X *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
CREATE_TOM_PEE
CALLA GET_FREE_LINK
JRZ CTP_ABORT ;BR=NONE AVAILABLE
CLR A14
MOVE A14,*A0(MAP_FLAGS),W
MOVI T161_1,A14
MOVE A14,*A0(MAP_IMG),L
MOVE A0,A14
ADDI MAP_Z+020H,A14
MMTM A14,A8,A9,A10 ;SET POSITION
MOVE @UNIV_ID,A14,W ;SET ID AND OBJ
MOVE A14,*A0(MAP_ID),W
MOVI 080000000H,A14
MOVE A14,*A0(MAP_OBJ),L
CALLA INSERT_LINK
MOVK 1,A0
MOVE A0,@UNIVERR,W ;FORCE CREATION BY UPDATE_UNIV
CTP_ABORT
RETS
TOM_TURN_ANIM
LWLW T161_1,30|AFunc,A_AUDIT+1,AUDHAMILTON
LWLL T161_2,3|AFunc,A_SOUND+2,SND_TOM_WOAH
LW T161_3,3
LW T161_4,30
; LW 1,30
LWLL HAMLTNMRPH_01,1|AFunc,A_CHANGE_PAL+2,HMORPH
LWLL 1,2|AFunc,A_SOUND+2,SND_MORPH
LW HAMLTNMRPH_02,3
LW HAMLTNMRPH_03,3
LWLL H_AEROLOGO,1|AFunc,A_CHANGE_PAL+2,AROLOGO2
LWLW 1,1|AFunc,A_UNIVOBJ_TO_POWERUP+1, OID_WINGS
SND_TOM_WOAH
.WORD 0F380H,49,08838H,0
**************************************************************************
* *
* BRAD_ON_FORK *
* *
* Create Brad Whitford sitting on something *
* *
* A8 = Ptr to the something, in position. *
* *
**************************************************************************
BRAD_ON_FORK
PUSH A8
MOVI BRAD_FORK_INIT,B0
CALLA MULTIMAKE
PULL A0
JRZ PBOF_X
MOVE *A0(OXVAL),A1,L
MOVE *A0(OYVAL),A2,L
MOVE *A0(OZVAL),A3,L
SUBK 10,A3
ADDI 16 << 15,A1
ADDI -77 << 15,A2
CALLA SET_ANIPU
PBOF_X
RETS
*Initialize Brad Whitford
BRAD_FORK_INIT
.BYTE 4,0,0,1
.LONG BRAD
.WORD OID_BRAD, OM_DUMCOLL|OM_INSERT
.LONG BH125_1
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG ANIM_BRAD_FORK
.LONG BT125_1
.WORD DMAWNZ, 0, 0,0
.LONG BZ125_1
.WORD DMAWNZ, 0, 0,0
.LONG BL125_1
.WORD DMAWNZ, 0, 0,0
ANIM_BRAD_FORK
LWL 1,30|AFunc,A_STAY_TIL_ONSCRN
ABF_LOOP
LWL 1,1|AFunc,A_OFF_DELETE_OBJ
LWLLL 1,5|AFunc,A_BRANCH_IF_FALSE+4,WHITFORD_FLAG,ABF_LOOP
LWLW 1,1|AFunc,A_AUDIT+1,AUDWHITFORD
LWL BH125_2,1|AMulti|AFunc,A_NOSCALE_NOSHAD
LWL BT125_2,1|AMulti|AFunc,A_NOSCALE_NOSHAD
LWL BZ125_2,1|AMulti|AFunc,A_NOSCALE_NOSHAD
LWL 1,4|AFunc,A_NOSCALE_NOSHAD
LWLL BH125_3,1|AMulti|AFunc,A_SOUND+2,SND_BRAD_YEAH
LW BT125_3,1|AMulti
LW BZ125_3,4
LW BH125_4,1|AMulti
LW BT125_4,1|AMulti
LW BZ125_4,4
LW BH125_5,1|AMulti
LW BT125_5,1|AMulti
LW BZ125_5,4
LW BH125_6,1|AMulti
LW BT125_6,1|AMulti
LW BZ125_6,40
LWLL 1,1|AFunc,A_SOUND+2,SND_MORPH
LWLL BRADMRPH_H1,1|AMulti|AFunc,A_CHANGE_PAL+2,BMORPH
LWLL BRADMRPH_L1,1|AMulti|AFunc,A_CHANGE_PAL+2,BMORPH
LWLL BRADMRPH_Z1,1|AMulti|AFunc,A_CHANGE_PAL+2,BMORPH
LWLL BRADMRPH_T1,5|AFunc,A_CHANGE_PAL+2,BMORPH
LW BRADMRPH_H2,1|AMulti
LW BRADMRPH_L2,1|AMulti
LW BRADMRPH_T2,1|AMulti
LW BRADMRPH_Z2,5
LW BRADMRPH_H3,1|AMulti
LW BRADMRPH_L3,1|AMulti
LW BRADMRPH_T3,1|AMulti
LW BRADMRPH_Z3,5
LWLL B_AEROLOGO,1|AMulti|AFunc,A_CHANGE_PAL+2,AROLOGO2
LWL 1,1|AMulti|AFunc,DELETE_OBJ
LWL 1,1|AMulti|AFunc,DELETE_OBJ
LWL 1,1|AFunc,DELETE_OBJ
LWLW 1,1|AFunc,A_OBJ_TO_POWERUP+1, OID_WINGS
SND_BRAD_YEAH
.WORD 0F3D1H,67,08840H,0 ;"Yeah"
**************************************************************************
* *
* A_CHECK_AERODUDE *
* *
**************************************************************************
A_CHECK_AERODUDE
MOVE *A8(OXVAL),A1,L
MOVE *A8(OAEROXOFF),A14,L
SUB A14,A1
MOVE *A8(OAEROBJ),A0,L
MOVE *A0(OXVAL),A14,L
SUB A14,A1
JRNN ACA_DONE
MOVE *A8(OAEROSCR),A1,L
CALLA STRTANIM
JAUC PULL_ANIM
ACA_DONE
RETS
**************************************************************************
* *
* A_SET_STEVEN_Z *
* *
**************************************************************************
A_SET_STEVEN_Z
MOVI 06A465H,A14
MOVE A14,*A8(OZVAL),L
JAUC MAKE_NOSCALE
**************************************************************************
* *
* A_SET_JOEY_Y *
* *
**************************************************************************
A_SET_JOEY_Y
MOVE *A8(OXVAL),A1,L
MOVI -0480000H,A2
MOVE *A8(OZVAL),A3,L
CALLA SET_ANIPU
CALLA SET_ODAG
MOVE *A8(OPARTS),A8,L
CALLA SET_ODAG
MOVE *A8(OPARTS),A8,L
CALLA SET_ODAG
MOVE *A8(OPARTS),A8,L
JAUC SET_ODAG
**************************************************************************
* *
* A_PROD *
* *
**************************************************************************
A_PROD
MOVE *A8(OU_PRODHEAD),A0,L
MOVI PRODBOY_PROD_ANIM,A1
JAUC STRTANIM
**************************************************************************
* *
* A_STOP_PRODBOY *
* *
**************************************************************************
A_STOP_PRODBOY
MOVE *A8(OU_PRODHEAD),A0,L
CLR A14
MOVE A14,*A0(OXVEL),L
MOVE *A8(OU_PRODLEGS),A0,L
MOVE *A0(AnimFrm),*A0(OWALKANIM),L
CALLA PULLANIM
RETS
**************************************************************************
* *
* A_START_PRODBOY *
* *
**************************************************************************
A_START_PRODBOY
MOVE *A8(OU_PRODHEAD),A0,L
MOVI PRODBOY_XVEL,A14
MOVE A14,*A0(OXVEL),L
MOVE *A8(OU_PRODLEGS),A0,L
MOVE *A0(OWALKANIM),A1,L
MOVE *A0(AnimScr),A14,L
CALLA STRTANIM_OFF
RETS
**************************************************************************
* *
* A_MAKE_MIKE *
* *
**************************************************************************
A_MAKE_MIKE
MOVI MIKE_INIT,B0
CALLA MULTIMAKE
MOVE *A8(OXVAL),*A0(OXVAL),L
MOVE *A8(OYVAL),*A0(OYVAL),L
MOVE *A8(OZVAL),A14,L
SUBK 2,A14
MOVE A14,*A0(OZVAL),L
MOVI DUMRETS,A14
MOVE A14,*A0(OGUNVECT),L
RETS
MIKE_INIT
.BYTE 2,0,0,1
.LONG MIKEP
.WORD OID_JUNK, OM_DUMCOLL
.LONG MICROPH1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG MICROPH2
.WORD DMAWNZ, M_NOSCALE, 0, 0
PRODBOY_CHECK_ANIM
LWL 1,1|AFunc,A_CHECK_AERODUDE
.long 0
PRODBOY_PROD_ANIM
LW G_HPRODX3,1|AMulti
LW G_TPRODX3,1|AMulti
LW G_APRODX3,5
LW G_HPRODX4,1|AMulti
LW G_TPRODX4,1|AMulti
LW G_APRODX4,5
LW G_HPRODX5,1|AMulti
LW G_TPRODX5,1|AMulti
LW G_APRODX5,10
LW G_HPRODX3,1|AMulti
LW G_TPRODX3,1|AMulti
LW G_APRODX3,5
LWL G_HPRODX1,1|AMulti|AFunc,PULL_ANIM
LW G_TPRODX1,1|AMulti
LW G_APRODX1,5
PRODBOY_WALK_ANIM
LW G_LPROD2,1|AMulti
LW G_ZPROD2,5
LW G_LPROD3,1|AMulti
LW G_ZPROD3,5
LW G_LPROD4,1|AMulti
LW G_ZPROD4,5
LW G_LPROD6,1|AMulti
LW G_ZPROD6,5
LW G_LPROD7,1|AMulti
LW G_ZPROD7,5
LW G_LPROD8,1|AMulti
LW G_ZPROD8,5
LWL G_LPROD1,1|AMulti|AFunc,A_OFF_DELETE_OBJ
LW G_ZPROD1,5
.long 0
PRODBOY_INIT
.byte 5, 0, 0, 1 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long P_NONBOYY ;IMGPAL
.word OID_NONBOY, OM_DUMCOLL ;OID, GLOBAL_OPTIONS
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW G_HPRODX1, DMAWNZ|M_FLIPH, M_NOSCALE, 0, OM_GUNV|OM_ANIM
.LONG DUMRETS
.LONG PRODBOY_CHECK_ANIM
LWWWW G_TPRODX1, DMAWNZ|M_FLIPH, M_NOSCALE, 0, OM_PRVGUNV
LWWWW G_APRODX1, DMAWNZ|M_FLIPH, M_NOSCALE, 0, OM_PRVGUNV
LWWWW G_LPROD1, DMAWNZ|M_FLIPH,M_NOSCALE, 1, OM_PRVGUNV|OM_ANIM
.LONG PRODBOY_WALK_ANIM
LWWWW G_ZPROD1, DMAWNZ|M_FLIPH,M_NOSCALE, 1, OM_PRVGUNV
OFF_STAGE_SCRIPT_TABLE
.LONG STEVEN_OFF_ANIM, JOE_OFF_ANIM, TOM_OFF_ANIM, BRAD_OFF_ANIM
.LONG JOEY_OFF_ANIM
STEVEN_OFF_ANIM
LWL 1,1|AFunc,A_SET_STEVEN_Z
LW SH161_1,7|AMulti
LW ST161_1,7|AMulti
LW SL161_1,7|AMulti
LW SA161_1,7
LW SH161_2,7|AMulti
LW ST161_2,7|AMulti
LW SL161_2,7|AMulti
LW SL161_2,7
LW SH161_4,7|AMulti
LW ST161_4,7|AMulti
LW SL161_4,7|AMulti
LW SL161_4,7
LW SH161_5,7|AMulti
LW ST161_5,7|AMulti
LW SL161_5,7|AMulti
LW SA161_5,7
LW SH161_8,7|AMulti
LW ST161_8,7|AMulti
LW SL161_8,7|AMulti
LW SL161_8,7
LWL SH161_9,6|AMulti|AFunc,A_PROD
LW ST161_9,6|AMulti
LW SL161_9,6|AMulti
LW SL161_9,6
LW SH161_11,6|AMulti
LW ST161_11,6|AMulti
LW SL161_11,6|AMulti
LW SL161_11,6
LWL SH391_7,1|AMulti|AFunc,A_MAKE_MIKE
LW ST391_7,1|AMulti
LW SL391_7,1|AMulti
LW SA391_7,1
LWLL 1,2|AFunc,A_SET_OXVEL+2,PRODBOY_XVEL*3/2
LWLL 1,3|AFunc,A_SOUND+2,SND_OOF
LW SH391_6,5|AMulti
LW ST391_6,5|AMulti
LW SL391_6,5|AMulti
LW SA391_6,5
LW SH391_5,5|AMulti
LW ST391_5,5|AMulti
LW SL391_5,5|AMulti
LW SA391_5,5
LWW ST423_1,5|AMulti|AFlip,M_FLIPH
LWW SA423_1,5|AMulti|AFlip,M_FLIPH
LWW SL423_1,5|AMulti|AFlip,M_FLIPH
LWW SL423_1,5|AFlip,M_FLIPH
LWLL ST423_2,5|AMulti|AFunc,A_SET_OXVEL+2,-PRODBOY_XVEL*3/4
LW SA423_2,5|AMulti
LW SL423_2,5|AMulti
LW SL423_2,5
LWLL SH423_3,5|AMulti|AFunc,A_SOUND+2,SND_STEVEN_NO
LW ST423_3,5|AMulti
LW SA423_3,5|AMulti
LW SL423_3,5
LW SH423_4,5|AMulti
LW ST423_4,5|AMulti
LW SA423_4,5|AMulti
LW SL423_4,5
LW ST423_5,5|AMulti
LW SA423_5,5|AMulti
LW SL423_5,5|AMulti
LW SL423_5,5
LW SH423_6,5|AMulti
LW ST423_6,5|AMulti
LW SA423_6,5|AMulti
LW SL423_6,5
LW SH423_7,5|AMulti
LW ST423_7,5|AMulti
LW SZ423_7,5|AMulti
LW SL423_7,5
LW ST423_8,5|AMulti
LW ST423_8,5|AMulti
LW SL423_8,5|AMulti
LW SL423_8,5
LWW SH391_10,4|AMulti|AFlip,0
LWW ST391_10,4|AMulti|AFlip,0
LWW SL391_10,4|AMulti|AFlip,0
LWW SA391_10,4|AFlip,0
LWL 1,1|AFunc,A_PROD
LW ST413_3,5|AMulti
LW SL413_3,5|AMulti
LW SA413_3,5|AMulti
LW SZ413_3,5
LW ST413_4,5|AMulti
LW SL413_4,5|AMulti
LW SA413_4,5|AMulti
LW SZ413_4,5
LWW SH391_5,4|AMulti|AFlip,M_FLIPH
LWW ST391_5,4|AMulti|AFlip,M_FLIPH
LWW SL391_5,4|AMulti|AFlip,M_FLIPH
LWW SA391_5,4|AFlip,M_FLIPH
LWLL 1,1|AFunc,A_SOUND+2,SND_OOF
LWLL SH391_6,5|AMulti|AFunc,A_SET_OXVEL+2,-PRODBOY_XVEL*3/2
LW ST391_6,5|AMulti
LW SL391_6,5|AMulti
LW SA391_6,5
LW SH391_7,5|AMulti
LW ST391_7,5|AMulti
LW SL391_7,5|AMulti
LW SA391_7,5
LW SH391_8,5|AMulti
LW ST391_8,5|AMulti
LW SL391_8,5|AMulti
LW SA391_8,5
LWLL SH391_9,6|AMulti|AFunc,A_SET_OXVEL+2,-PRODBOY_XVEL
LW ST391_9,6|AMulti
LW SL391_9,6|AMulti
LW SA391_9,6
LW SH391_10,6|AMulti
LW ST391_10,6|AMulti
LW SL391_10,6|AMulti
LW SA391_10,6
LW SH391_11,6|AMulti
LW ST391_11,6|AMulti
LW SL391_11,6|AMulti
LW SA391_11,6
LW SH391_12,6|AMulti
LW ST391_12,6|AMulti
LW SL391_12,6|AMulti
LW SA391_12,6
LW SH391_13,6|AMulti
LW ST391_13,6|AMulti
LW SL391_13,6|AMulti
LW SA391_13,6
LW SH391_14,11|AMulti
LW ST391_14,11|AMulti
LW SL391_14,11|AMulti
LW SA391_14,11
LWL 1,1|AFunc,DELETE_OBJ
JOE_OFF_ANIM
LWL 1,1|AFunc,MAKE_NOSCALE
LWL JH101_2,5|AMulti|AFunc,A_STOP_PRODBOY
LW JT101_2,5|AMulti
LW JL101_2,5|AMulti
LW JA101_2,5
LWL JH101_7,5|AMulti|AFunc,A_PROD
LW JT101_7,5|AMulti
LW JL101_7,5|AMulti
LW JA101_7,5
LWL JH101_10,5|AMulti|AFunc,A_START_PRODBOY
LW JT101_10,5|AMulti
LW JL101_10,5|AMulti
LW JA101_10,5
LWLL JH233_16,5|AMulti|AFunc,A_SET_OXVEL+2,PRODBOY_XVEL
LW JT233_16,5|AMulti
LW JL233_16,5|AMulti
LW JA233_16,5
LWLL JH233_15,5|AMulti|AFunc,A_SOUND+2,SND_OOF
LW JT233_15,5|AMulti
LW JL233_15,5|AMulti
LW JA233_15,5
LW JH233_14,5|AMulti
LW JT233_14,5|AMulti
LW JL233_14,5|AMulti
LW JA233_14,5
LW JH233_13,5|AMulti
LW JT233_13,5|AMulti
LW JL233_13,5|AMulti
LW JA233_13,5
LW JH233_12,5|AMulti
LW JT233_12,5|AMulti
LW JL233_12,5|AMulti
LW JA233_12,5
LWW JH263_5,5|AMulti|AFlip,M_FLIPH
LWW JT263_5,5|AMulti|AFlip,M_FLIPH
LWW JL263_5,5|AMulti|AFlip,M_FLIPH
LWW JA263_5,5|AFlip,M_FLIPH
LW JH263_4,5|AMulti
LW JT263_4,5|AMulti
LW JL263_4,5|AMulti
LW JA263_4,5
LWLL JH263_3,5|AMulti|AFunc,A_SOUND+2,SND_JOE_HANDS
LW JT263_3,5|AMulti
LW JL263_3,5|AMulti
LW JA263_3,5
LW JH263_1,5|AMulti
LW JT263_1,5|AMulti
LW JL263_1,5|AMulti
LW JA263_1,5
LWW JH233_11,5|AMulti|AFlip,0
LWW JT233_11,5|AMulti|AFlip,0
LWW JL233_11,5|AMulti|AFlip,0
LWW JA233_11,5|AFlip,0
LW JH233_10,5|AMulti
LW JT233_10,5|AMulti
LW JL233_10,5|AMulti
LW JA233_10,5
LW JH233_9,5|AMulti
LW JT233_9,5|AMulti
LW JL233_9,5|AMulti
LW JA233_9,5
LW JH233_8,5|AMulti
LW JT233_8,5|AMulti
LW JL233_8,5|AMulti
LW JA233_8,5
LW JH233_7,5|AMulti
LW JT233_7,5|AMulti
LW JL233_7,5|AMulti
LW JA233_7,5
LW JH233_6,5|AMulti
LW JT233_6,5|AMulti
LW JL233_6,5|AMulti
LW JA233_6,5
LW JH233_5,5|AMulti
LW JT233_5,5|AMulti
LW JL233_5,5|AMulti
LW JA233_5,5
LW JH233_4,5|AMulti
LW JT233_4,5|AMulti
LW JL233_4,5|AMulti
LW JA233_4,5
LW JH233_3,5|AMulti
LW JT233_3,5|AMulti
LW JL233_3,5|AMulti
LW JA233_3,5
LW JH233_2,5|AMulti
LW JT233_2,5|AMulti
LW JL233_2,5|AMulti
LW JA233_2,5
LW JH233_1,5|AMulti
LW JT233_1,5|AMulti
LW JL233_1,5|AMulti
LW JA233_1,5
LWL JH233_11,5|AMulti|AFunc,A_PROD
LW JT233_11,5|AMulti
LW JL233_11,5|AMulti
LW JA233_11,5
LW JH233_10,5|AMulti
LW JT233_10,5|AMulti
LW JL233_10,5|AMulti
LW JA233_10,5
LW JH233_9,5|AMulti
LW JT233_9,5|AMulti
LW JL233_9,5|AMulti
LW JA233_9,5
LW JH233_8,5|AMulti
LW JT233_8,5|AMulti
LW JL233_8,5|AMulti
LW JA233_8,5
LW JH233_7,5|AMulti
LW JT233_7,5|AMulti
LW JL233_7,5|AMulti
LW JA233_7,5
LW JH233_6,5|AMulti
LW JT233_6,5|AMulti
LW JL233_6,5|AMulti
LW JA233_6,5
LW JH233_5,5|AMulti
LW JT233_5,5|AMulti
LW JL233_5,5|AMulti
LW JA233_5,5
LW JH233_4,5|AMulti
LW JT233_4,5|AMulti
LW JL233_4,5|AMulti
LW JA233_4,5
LW JH233_3,5|AMulti
LW JT233_3,5|AMulti
LW JL233_3,5|AMulti
LW JA233_3,5
LW JH233_2,5|AMulti
LW JT233_2,5|AMulti
LW JL233_2,5|AMulti
LW JA233_2,5
LW JH233_1,5|AMulti
LW JT233_1,5|AMulti
LW JL233_1,5|AMulti
LW JA233_1,5
LW JH233_11,5|AMulti
LW JT233_11,5|AMulti
LW JL233_11,5|AMulti
LW JA233_11,5
LW JH233_10,5|AMulti
LW JT233_10,5|AMulti
LW JL233_10,5|AMulti
LW JA233_10,5
LW JH233_9,5|AMulti
LW JT233_9,5|AMulti
LW JL233_9,5|AMulti
LW JA233_9,5
LW JH233_8,5|AMulti
LW JT233_8,5|AMulti
LW JL233_8,5|AMulti
LW JA233_8,5
LW JH233_7,5|AMulti
LW JT233_7,5|AMulti
LW JL233_7,5|AMulti
LW JA233_7,5
LW JH233_6,5|AMulti
LW JT233_6,5|AMulti
LW JL233_6,5|AMulti
LW JA233_6,5
LW JH233_5,5|AMulti
LW JT233_5,5|AMulti
LW JL233_5,5|AMulti
LW JA233_5,5
LW JH233_4,5|AMulti
LW JT233_4,5|AMulti
LW JL233_4,5|AMulti
LW JA233_4,5
LW JH233_3,5|AMulti
LW JT233_3,5|AMulti
LW JL233_3,5|AMulti
LW JA233_3,5
LW JH233_2,5|AMulti
LW JT233_2,5|AMulti
LW JL233_2,5|AMulti
LW JA233_2,5
LW JH233_1,5|AMulti
LW JT233_1,5|AMulti
LW JL233_1,5|AMulti
LW JA233_1,5
LWL 1,1|AFunc,DELETE_OBJ
TOM_OFF_ANIM
LWL 1,1|AFunc,MAKE_NOSCALE
LW TH081_1,5|AMulti
LW TT081_1,5|AMulti
LW TA081_1,5|AMulti
LW TZ081_1,5
LW TH081_2,5|AMulti
LW TT081_2,5|AMulti
LW TA081_2,5|AMulti
LW TZ081_2,5
LW TH081_3,5|AMulti
LW TT081_3,5|AMulti
LW TA081_3,5|AMulti
LW TZ081_3,5
LW TH081_4,5|AMulti
LW TT081_4,5|AMulti
LW TA081_4,5|AMulti
LW TZ081_4,5
LWL TH081_5,5|AMulti|AFunc,A_PROD
LW TT081_5,5|AMulti
LW TA081_5,5|AMulti
LW TZ081_5,5
LW TH081_6,5|AMulti
LW TT081_6,5|AMulti
LW TA081_6,5|AMulti
LW TZ081_6,5
LWLL TH183_3,5|AMulti|AFunc,A_SET_OXVEL+2,PRODBOY_XVEL*3/2
LW TL183_3,5|AMulti
LW TT183_3,5|AMulti
LW TA183_3,5
LWLL TH183_2,5|AMulti|AFunc,A_SOUND+2,SND_OOF
LW TL183_2,5|AMulti
LW TT183_2,5|AMulti
LW TA183_2,5
LW TH183_1,5|AMulti
LW TL183_1,5|AMulti
LW TT183_1,5|AMulti
LW TA183_1,5
LWLL TT183_16,5|AMulti|AFunc,A_SET_OXVEL+2,PRODBOY_XVEL
LW TA183_16,5|AMulti
LW TL183_16,5|AMulti
LW TL183_16,5
LWLL TT183_15,5|AMulti|AFunc,A_SOUND+2,SND_TOM_BACK
LW TL183_15,5|AMulti
LW TA183_15,5|AMulti
LW TZ183_15,5
LW TT183_14,5|AMulti
LW TL183_14,5|AMulti
LW TA183_14,5|AMulti
LW TZ183_14,5
LW TH183_13,5|AMulti
LW TT183_13,5|AMulti
LW TL183_13,5|AMulti
LW TA183_13,5
LW TH183_12,5|AMulti
LW TT183_12,5|AMulti
LW TL183_12,5|AMulti
LW TA183_12,5
LW TL183_11,5|AMulti
LW TT183_11,5|AMulti
LW TA183_11,5|AMulti
LW TZ183_11,5
LW TT183_10,5|AMulti
LW TL183_10,5|AMulti
LW TA183_10,5|AMulti
LW TA183_10,5
LW TT183_9,6|AMulti
LW TL183_9,6|AMulti
LW TA183_9,6|AMulti
LW TA183_9,6
LW TL183_8,20|AMulti
LW TT183_8,20|AMulti
LW TA183_8,20|AMulti
LW TZ183_8,20
LWL 1,1|AFunc,DELETE_OBJ
BRAD_OFF_ANIM
LWL 1,1|AFunc,MAKE_NOSCALE
LWLL BT081_2,5|AMulti|AFunc,A_SOUND+2,SND_BRAD_WHAT
LW BA081_2,5|AMulti
LW BZ081_2,5|AMulti
LW BL081_2,5
LW BT081_4,5|AMulti
LW BA081_4,5|AMulti
LW BZ081_4,5|AMulti
LW BL081_4,5
LW BT081_5,5|AMulti
LW BA081_5,5|AMulti
LW BZ081_5,5|AMulti
LW BL081_5,5
LWL BT081_6,5|AMulti|AFunc,A_PROD
LW BA081_6,5|AMulti
LW BZ081_6,5|AMulti
LW BL081_6,5
LW BT193_1,4|AMulti
LW BH193_1,4|AMulti
LW BL193_1,4|AMulti
LW BA193_1,4
LWLL BT183_13,5|AMulti|AFunc,A_SET_OXVEL+2,PRODBOY_XVEL*3/2
LW BH183_13,5|AMulti
LW BL183_13,5|AMulti
LW BA183_13,5
LWLL BT183_12,5|AMulti|AFunc,A_SOUND+2,SND_OOF
LW BH183_12,5|AMulti
LW BL183_12,5|AMulti
LW BL183_12,5
LW BT183_11,5|AMulti
LW BH183_11,5|AMulti
LW BL183_11,5|AMulti
LW BA183_11,5
LW BT183_12,5|AMulti
LW BH183_12,5|AMulti
LW BL183_12,5|AMulti
LW BL183_12,5
LW BT183_13,9|AMulti
LW BH183_13,9|AMulti
LW BL183_13,9|AMulti
LW BA183_13,9
LWL 1,1|AFunc,DELETE_OBJ
JOEY_OFF_ANIM
LWL 1,1|AFunc,MAKE_NOSCALE
LW KT101_2,5|AMulti
LW KA101_2,5|AMulti
LW KZ101_2,5|AMulti
LW KZ101_2,5
LW KT101_3,5|AMulti
LW KA101_3,5|AMulti
LW KZ101_3,5|AMulti
LW KZ101_3,5
LW KT101_4,5|AMulti
LW KA101_4,5|AMulti
LW KZ101_4,5|AMulti
LW KZ101_4,5
LWL KT101_7,5|AMulti|AFunc,A_PROD
LW KA101_7,5|AMulti
LW KZ101_7,5|AMulti
LW KZ101_7,5
LW KT101_8,5|AMulti
LW KA101_8,5|AMulti
LW KZ101_8,5|AMulti
LW KZ101_8,5
LWWL KA231_1,5|AMulti|AFlip|AFunc,M_FLIPH,A_SET_JOEY_Y
LWW KT231_1,5|AMulti|AFlip,M_FLIPH
LWW KL231_1,5|AMulti|AFlip,M_FLIPH
LWW KZ231_1,5|AFlip,M_FLIPH
LWLL KH231_2,5|AMulti|AFunc,A_SET_OXVEL+2,-PRODBOY_XVEL*3/2
LW KT231_2,5|AMulti
LW KL231_2,5|AMulti
LW KL231_2,5
LWLL KH231_3,5|AMulti|AFunc,A_SOUND+2,SND_JOEY_HEY
LW KT231_3,5|AMulti
LW KL231_3,5|AMulti
LW KL231_3,5
LW KT231_4,5|AMulti
LW KA231_4,5|AMulti
LW KL231_4,5|AMulti
LW KL231_4,5
LW KH231_5,5|AMulti
LW KT231_5,5|AMulti
LW KA231_5,5|AMulti
LW KL231_5,5
LW KH231_6,5|AMulti
LW KT231_6,5|AMulti
LW KA231_6,5|AMulti
LW KL231_6,5
LWLL KL291_1,5|AMulti|AFunc,A_SET_OXVEL+2,-PRODBOY_XVEL
LW KL291_1,5|AMulti
LW KT291_1,5|AMulti
LW KA291_1,5
LW KH291_2,5|AMulti
LW KT291_2,5|AMulti
LW KL291_2,5|AMulti
LW KA291_2,5
LW KT291_3,5|AMulti
LW KL291_3,5|AMulti
LW KA291_3,5|AMulti
LW KA291_3,5
LW KT291_4,5|AMulti
LW KL291_4,5|AMulti
LW KA291_4,5|AMulti
LW KA291_4,5
LW KT291_5,5|AMulti
LW KL291_5,5|AMulti
LW KZ291_5,5|AMulti
LW KH291_5,5
LWL KT291_6,5|AMulti|AFunc,A_PROD
LW KL291_6,5|AMulti
LW KA291_6,5|AMulti
LW KA291_6,5
LW KH291_7,5|AMulti
LW KT291_7,5|AMulti
LW KL291_7,5|AMulti
LW KA291_7,5
LW KH291_8,5|AMulti
LW KT291_8,5|AMulti
LW KL291_8,5|AMulti
LW KA291_8,5
LW KT291_9,5|AMulti
LW KA291_9,5|AMulti
LW KL291_9,5|AMulti
LW KL291_9,5
LW KT291_1,5|AMulti
LW KL291_1,5|AMulti
LW KA291_1,5|AMulti
LW KA291_1,5
LW KH291_2,5|AMulti
LW KL291_2,5|AMulti
LW KT291_2,5|AMulti
LW KA291_2,5
LW KT291_3,5|AMulti
LW KL291_3,5|AMulti
LW KA291_3,5|AMulti
LW KA291_3,5
LW KT291_4,5|AMulti
LW KL291_4,5|AMulti
LW KA291_4,5|AMulti
LW KA291_4,5
LW KT291_5,5|AMulti
LW KL291_5,5|AMulti
LW KZ291_5,5|AMulti
LW KH291_5,5
LWL KT291_6,5|AMulti|AFunc,START_HELGA
LW KL291_6,5|AMulti
LW KA291_6,5|AMulti
LW KA291_6,5
LW KH291_7,5|AMulti
LW KT291_7,5|AMulti
LW KL291_7,5|AMulti
LW KA291_7,5
LW KH291_8,5|AMulti
LW KT291_8,5|AMulti
LW KL291_8,5|AMulti
LW KA291_8,5
LW KT291_9,5|AMulti
LW KA291_9,5|AMulti
LW KL291_9,5|AMulti
LW KL291_9,5
LWL 1,1|AFunc,DELETE_OBJ
;**************************************************************************
;* *
;* MAKE_AEROSMITH *
;* *
;* Process to create the Aerosmith band members by hand *
;* so that they exist on the stage in CLUB X. *
;* *
;**************************************************************************
MAKE_AEROSMITH
SLEEP 15 ;Delay while portaling through
MAKE_AEROSMITH_2
CREATE PID_JUNK,NEXT_BEAT
CLR A0
MOVE A0,@SOUND_RX
MOVE A0,@LAST_RX
MOVE A0,@BEAT_COUNT
MOVE @GAME_STATE,A14,W
CMPI INAMODE,A14
JRNE MA_NO_MUSIC ;BR = music is started for us
MOVI 10,A10
MOVI SND_EAT_THE_RICH2,A11
CREATE PID_JUNK,PROC_SND
MA_NO_MUSIC
MOVI STYLER_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
CREATEP PID_JUNK,SYNC_STEVEN
MOVI -0F0000H,A1
MOVI -480000H,A2
MOVI 0C5DEH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI JOEP_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
CREATEP PID_JUNK,SYNC_PERRY
MOVI 24BBE4H,A1
MOVI -480000H,A2
MOVI 0C5E1H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI JOEK_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
CREATEP PID_JUNK,SYNC_KRAMER_EAT
MOVI -278000H,A1
MOVI -510000H,A2
MOVI 0CEECH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI BRAD_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
CREATEP PID_JUNK,SYNC_BRAD
MOVI -760000H,A1
MOVI -480000H,A2
MOVI 0C5E3H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI TOM_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
CREATEP PID_JUNK,SYNC_TOM
MOVI -4B0000H,A1
MOVI -480000H,A2
MOVI 0C5E5H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI CYMBOL_1_INIT,B0
CALLA EASYMAKE
MOVE A0,@CYMBOL1_OBJ,L
MOVE A0,A8
MOVI -3F8000H,A1
MOVI -848000H,A2
MOVI 0CEEAH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI CYMBOL_2_INIT,B0
CALLA EASYMAKE
MOVE A0,@CYMBOL2_OBJ,L
MOVE A0,A8
MOVI -80000H,A1
MOVI -840000H,A2
MOVI 0CEEAH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI CYMBOL_1L_INIT,B0
CALLA EASYMAKE
MOVE A0,A8
MOVI -460000H,A1
MOVI -7C8000H,A2
MOVI 0CEEAH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI CYMBOL_2R_INIT,B0
CALLA EASYMAKE
MOVE A0,A8
MOVI -18000H,A1
MOVI -7C8000H,A2
MOVI 0CEEAH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
DIE
CYMBOL_1_INIT
.LONG CYMBOL2
.WORD DMAWNZ|DMAHFL,0
.WORD OM_INSERT|OM_DUMCOLL
CYMBOL_2_INIT
.LONG CYMBOL2
.WORD DMAWNZ,0
.WORD OM_INSERT|OM_DUMCOLL
CYMBOL_1L_INIT
.LONG CYMBOL2
.WORD DMAWNZ|DMAHFL,0
.WORD OM_INSERT|OM_DUMCOLL
CYMBOL_2R_INIT
.LONG CYMBOL2
.WORD DMAWNZ,0
.WORD OM_INSERT|OM_DUMCOLL
*Initialize Steven Tyler
STYLER_INIT
.BYTE 4,0,0,1
.LONG STEVEN
.WORD OID_STEVEN,OM_DUMCOLL|OM_INSERT
.LONG SH031_2
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG EAT_THE_RICH_ANIM
.LONG ST031_2
.WORD DMAWNZ, 0, 0,0
.LONG SL031_2
.WORD DMAWNZ, 0, 0,0
.LONG SZ031_2
.WORD DMAWNZ, 0, 0,0
*Animate Steven Tyler
EAT_THE_RICH_ANIM
LW SH051_1,7|AMulti
LW ST051_1,7|AMulti
LW SL051_1,7|AMulti
LW SZ051_1,7
LW SH051_2,7|AMulti
LW ST051_2,7|AMulti
LW SL051_2,7|AMulti
LW SZ051_2,7
LW SH051_4,7|AMulti
LW ST051_4,7|AMulti
LW SL051_4,7|AMulti
LW SZ051_4,7
LW SH051_5,7|AMulti
LW ST051_5,7|AMulti
LW SL051_5,7|AMulti
LW SZ051_5,7
LW SH051_6,7|AMulti
LW ST051_6,7|AMulti
LW SL051_6,7|AMulti
LW SL051_6,7
LW SH051_7,7|AMulti
LW ST051_7,7|AMulti
LW SL051_7,7|AMulti
LW SL051_7,7
LW SH051_8,7|AMulti
LW ST051_8,7|AMulti
LW SL051_8,7|AMulti
LW SL051_8,7
LW SH051_9,7|AMulti
LW ST051_9,7|AMulti
LW SL051_9,7|AMulti
LW SZ051_9,7
LW SH051_10,7|AMulti
LW ST051_10,7|AMulti
LW SL051_10,7|AMulti
LW SL051_10,7
LW SH051_12,7|AMulti
LW ST051_12,7|AMulti
LW SL051_12,7|AMulti
LW SL051_12,7
LWL 1,1|AFunc,RESET_TO_YAW_YAW_YAW
THIS_HERE_FORK_ANIM
LW SH071_1,9|AMulti
LW ST071_1,9|AMulti
LW SL071_1,9|AMulti
LW SZ071_1,9
LW SH071_2,9|AMulti
LW ST071_2,9|AMulti
LW SL071_2,9|AMulti
LW SZ071_2,9
LW SA071_3,9|AMulti
LW ST071_3,9|AMulti
LW SL071_3,9|AMulti
LW SZ071_3,9
LW SH071_5,9|AMulti
LW ST071_5,9|AMulti
LW SA071_5,9|AMulti
LW SZ071_5,9
LW SH071_6,9|AMulti
LW ST071_6,9|AMulti
LW SA071_6,9|AMulti
LW SZ071_6,9
LW SA071_7,9|AMulti
LW ST071_7,9|AMulti
LW SL071_7,9|AMulti
LW SZ071_7,9
LW SH071_9,9|AMulti
LW ST071_9,9|AMulti
LW ST071_9,9|AMulti
LW SZ071_9,9
LW SH071_10,9|AMulti
LW ST071_10,9|AMulti
LW SL071_10,9|AMulti
LW SZ071_10,9
LW SA071_11,9|AMulti
LW ST071_11,9|AMulti
LW SL071_11,9|AMulti
LW SZ071_11,9
LW SH071_12,9|AMulti
LW ST071_12,9|AMulti
LW SL071_12,9|AMulti
LW SZ071_12,9
LW SH071_13,9|AMulti
LW ST071_13,9|AMulti
LW SL071_13,9|AMulti
LW SZ071_13,9
LW SH071_15,9|AMulti
LW ST071_15,9|AMulti
LW SL071_15,9|AMulti
LW SZ071_15,9
FORK_LOOP
LW SH071_16,10|AMulti
LW ST071_16,10|AMulti
LW SL071_16,10|AMulti
LW SZ071_16,10
LW SH071_18,10|AMulti
LW ST071_18,10|AMulti
LW SL071_18,10|AMulti
LW SZ071_18,10
LW SH071_16,10|AMulti
LW ST071_16,10|AMulti
LW SL071_16,10|AMulti
LW SZ071_16,10
LW SH071_15,10|AMulti
LW ST071_15,10|AMulti
LW SL071_15,10|AMulti
LW SZ071_15,10
LWL 1,1|AFunc,RESET_TO_FORK_LOOP
STEVEN_SOLO_ANIM
LW SH131_3,7|AMulti
LW ST131_3,7|AMulti
LW SL131_3,7|AMulti
LW SZ131_3,7
LW SH131_4,7|AMulti
LW ST131_4,7|AMulti
LW SL131_4,7|AMulti
LW SZ131_4,7
LW SH131_5,7|AMulti
LW ST131_5,7|AMulti
LW SL131_5,7|AMulti
LW SZ131_5,7
LW SH131_7,7|AMulti
LW ST131_7,7|AMulti
LW SL131_7,7|AMulti
LW SZ131_7,7
LW SH131_8,7|AMulti
LW ST131_8,7|AMulti
LW SL131_8,7|AMulti
LW SZ131_8,7
LW SH131_10,7|AMulti
LW ST131_10,7|AMulti
LW SL131_10,7|AMulti
LW SZ131_10,7
LW SH131_11,7|AMulti
LW ST131_11,7|AMulti
LW SL131_11,7|AMulti
LW SZ131_11,7
LW SH131_12,7|AMulti
LW ST131_12,7|AMulti
LW SA131_12,7|AMulti
LW SZ131_12,7
LW SH131_14,7|AMulti
LW ST131_14,7|AMulti
LW SA131_14,7|AMulti
LW SZ131_14,7
LW SA131_15,7|AMulti
LW ST131_15,7|AMulti
LW SL131_15,7|AMulti
LW SZ131_15,7
LW SA131_16,7|AMulti
LW ST131_16,7|AMulti
LW SL131_16,7|AMulti
LW SZ131_16,7
LWL 1,1|AFunc,RESET_STEVEN_LOOP
STEVEN_SOLO_LOOP
LW SH131_18,7|AMulti
LW ST131_18,7|AMulti
LW SL131_18,7|AMulti
LW SZ131_18,7
LW SH131_19,8|AMulti
LW ST131_19,8|AMulti
LW SL131_19,8|AMulti
LW SZ131_19,8
LW SH131_20,7|AMulti
LW ST131_20,7|AMulti
LW SL131_20,7|AMulti
LW SZ131_20,7
LW SH131_19,8|AMulti
LW ST131_19,8|AMulti
LW SL131_19,8|AMulti
LW SZ131_19,8
.LONG 0
RESET_TO_FORK_LOOP
MOVI FORK_LOOP,A1
JRUC RESET_STEVEN_ANIM
RESET_STEVEN_LOOP
MOVI STEVEN_SOLO_LOOP,A1
RESET_STEVEN_ANIM
MOVE A1,*A8(AnimScr),L
MOVE A1,*A8(AnimFrm),L
CLR A4
MOVE A4,*A8(AnimSLP)
RETS
RESET_TO_YAW_YAW_YAW
MOVI ANIM_STYLER,A1
JRUC RESET_STEVEN_ANIM
;YAW YAW YAW
ANIM_STYLER
LW SH031_2,3|AMulti
LW ST031_2,3|AMulti
LW SL031_2,3|AMulti
LW SZ031_2,3
LW SH031_3,3|AMulti
LW ST031_3,3|AMulti
LW SL031_3,3|AMulti
LW SZ031_3,3
LW SH031_4,3|AMulti
LW ST031_4,3|AMulti
LW SL031_4,3|AMulti
LW SZ031_4,3
LW SH031_5,3|AMulti
LW ST031_5,3|AMulti
LW SL031_5,3|AMulti
LW SZ031_5,3
LW SH031_6,4|AMulti
LW ST031_6,4|AMulti
LW SL031_6,4|AMulti
LW SZ031_6,4
LW SH031_5,3|AMulti
LW ST031_5,3|AMulti
LW SL031_5,3|AMulti
LW SZ031_5,3
LW SH031_4,3|AMulti
LW ST031_4,3|AMulti
LW SL031_4,3|AMulti
LW SZ031_4,3
LW SH031_3,2|AMulti
LW ST031_3,2|AMulti
LW SL031_3,2|AMulti
LW SZ031_3,2
LWL 1,1|AFunc,SHOULD_WE_RESET_STEVEN
.LONG 0
SHOULD_WE_RESET_STEVEN
MOVE @SOUND_RX,A1
ANDI 0F0H,A1
CMPI 020H,A1
JREQ YEP
CMPI 030H,A1
JRNE NOPE
YEP
MOVI STEVEN_SOLO_ANIM,A2
MOVE A2,*A8(AnimScr),L
MOVE A2,*A8(AnimFrm),L
CLR A4
MOVE A4,*A8(AnimSLP)
NOPE
RETS
SYNC_STEVEN
MOVE *A8(OPART1),A8,L
MOVE *A8(AnimScr),A1,L
CMPI STEVEN_OFF_ANIM,A1
JRNE SYNCH_UP_STEVEN
DIE
SYNCH_UP_STEVEN
MOVE @LAST_RX,A3
MOVE A3,A4
MOVE @SOUND_RX,A1
MOVE A1,A5
SLL 28,A5
SLL 28,A3
CMP A3,A5
JREQ IGNORE_NEW_ANIM
SLL 24,A4
SRL 25,A4
SLL 2,A4
ADDI WHICH_SET_STEVEN-020h,A4
MOVE *A4,A4,L
MOVE @BEAT_COUNT,A5
SLL 5,A5
ADD A5,A4
MOVE *A4,A4,L
JRZ CHECK_IF_WE_ARE_BOUNCING
MOVE A4,*A8(AnimFrm),L
MOVE A4,*A8(AnimScr),L
CLR A4
MOVE A4,*A8(AnimSLP)
IGNORE_NEW_ANIM
SLOOP 1,SYNC_STEVEN
CHECK_IF_WE_ARE_BOUNCING
MOVI STEVEN_SOLO_LOOP,A2
MOVE *A8(AnimScr),A1,L
CMP A2,A1
JRNE IGNORE_NEW_ANIM
MOVE A2,*A8(AnimFrm),L
CLR A4
MOVE A4,*A8(AnimSLP)
SLOOP 1,SYNC_STEVEN
.LONG SET_PART1-20H ;1
WHICH_SET_STEVEN
.LONG SET_PART1-20H ;1
.LONG SET_PART2-20H ;2
.LONG SET_PART3-20H ;3
.LONG SET_PART4-20H ;4
.LONG SET_PART5-20H ;5
.LONG SET_PART6-20H ;6
.LONG 0
SET_PART1
.LONG 0,0,0,0,0,0,0,0
SET_PART2
.LONG 0,0,0,0
.LONG 0,0,0,0
.LONG 0,0,0,0
.LONG 0,0,0,ANIM_STYLER
SET_PART3
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,ANIM_STYLER
SET_PART4
.LONG 0,0,0,0,0,0,0
.LONG THIS_HERE_FORK_ANIM,0,0,0,0,0,0,0,EAT_THE_RICH_ANIM
SET_PART5
.LONG 0,0,0
.LONG 0,0,0,0
.LONG EAT_THE_RICH_ANIM,0,0,0
.LONG 0,0,0,0
.LONG EAT_THE_RICH_ANIM,0,0,0
.LONG 0,0,0,0
.LONG EAT_THE_RICH_ANIM,0,0,0
.LONG 0,0,0,STEVEN_SOLO_ANIM,0
SET_PART6
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,ANIM_STYLER,0
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
*Initialize Joe Perry
JOEP_INIT
.BYTE 4,0,0,1
.LONG PERRY
.WORD OID_JOE,OM_DUMCOLL|OM_INSERT
.LONG JL031_7
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG ANIM_JOEP
.LONG JH031_7
.WORD DMAWNZ, 0, 0,0
.LONG JA031_7
.WORD DMAWNZ, 0, 0,0
.LONG JT031_7
.WORD DMAWNZ, 0, 0,0
SYNC_PERRY
MOVE *A8(OPART1),A8,L
MOVI ANIM_JOEP,A2
MOVI JP_WAIT_FOR_BEAT1,A3
MOVE *A8(AnimScr),A1,L
CMP A2,A1
JREQ SYNCH_UP_PERRY
MOVI PERRY_SOLO,A2
MOVI JP_WAIT_FOR_BEAT2,A3
MOVE *A8(AnimScr),A1,L
CMP A2,A1
JREQ SYNCH_UP_PERRY
DIE
SYNCH_UP_PERRY
MOVE @SOUND_RX,A1
SLL 28,A1
MOVE @LAST_RX,A4
SLL 28,A4
CMP A1,A4
JREQ NO_SYNCHING_P_YET
MOVE A1,A1
JRZ FIRST_BEAT_P
MOVE A3,A2
FIRST_BEAT_P
MOVE A2,*A8(AnimFrm),L
CLR A2
MOVE A2,*A8(AnimSLP)
NO_SYNCHING_P_YET
SLOOP 1,SYNC_PERRY
ANIM_JOEP
LWL JH031_11,7|AMulti|AFunc,IS_PERRY_SOLO
LW JL031_11,7|AMulti
LW JA031_11,7|AMulti
LW JT031_11,7
LW JH031_10,7|AMulti
LW JL031_10,7|AMulti
LW JA031_10,7|AMulti
LW JT031_10,7
LW JH031_9,6|AMulti
LW JL031_9,6|AMulti
LW JA031_9,6|AMulti
LW JT031_9,6
LW JH031_8,6|AMulti
LW JL031_8,6|AMulti
LW JA031_8,6|AMulti
LW JT031_8,6
JP_WAIT_FOR_BEAT1
LW JL031_7,7|AMulti
LW JH031_7,7|AMulti
LW JA031_7,7|AMulti
LW JT031_7,7
LW JH031_8,7|AMulti
LW JL031_8,7|AMulti
LW JA031_8,7|AMulti
LW JT031_8,7
LW JH031_9,6|AMulti
LW JL031_9,6|AMulti
LW JA031_9,6|AMulti
LW JT031_9,6
LW JH031_10,7|AMulti
LW JL031_10,7|AMulti
LW JA031_10,7|AMulti
LW JT031_10,7
.LONG 0
PERRY_SOLO
LWL JH031_12,8|AMulti|AFunc,IS_PERRY_NORMAL
LW JL031_12,8|AMulti
LW JA031_12,8|AMulti
LW JT031_12,8
LW JH031_13,8|AMulti
LW JL031_13,8|AMulti
LW JT031_13,8|AMulti
LW JA031_13,8
LW JH031_14,8|AMulti
LW JL031_14,8|AMulti
LW JT031_14,8|AMulti
LW JA031_14,8
JP_WAIT_FOR_BEAT2
LW JH031_15,8|AMulti
LW JL031_15,8|AMulti
LW JT031_15,8|AMulti
LW JA031_15,8
LW JH031_14,8|AMulti
LW JL031_14,8|AMulti
LW JT031_14,8|AMulti
LW JA031_14,8
LW JH031_13,8|AMulti
LW JL031_13,8|AMulti
LW JT031_13,8|AMulti
LW JA031_13,8
.LONG 0
IS_PERRY_SOLO
MOVE @WAVE,A1
.IF DEBUG
INC A1
.ENDIF
CMPI 6,A1
JRNE EAT_THE_RICH_SOLO
MOVE @SOUND_RX,A1
SLL 32-8,A1
SRL 32-4,A1
CMPI 1,A1
JREQ NO_WORRY_ABOUT_SYNCH
CMPI 3,A1
JREQ NO_WORRY_ABOUT_SYNCH
CMPI 4,A1
JREQ NO_WORRY_ABOUT_SYNCH
JRUC PERRY_IS_NOW_SOLO
EAT_THE_RICH_SOLO
MOVE @SOUND_RX,A1
SLL 32-8,A1
SRL 32-4,A1
CMPI 4,A1
JREQ NO_WORRY_ABOUT_SYNCH
CMPI 5,A1
JREQ NO_WORRY_ABOUT_SYNCH
PERRY_IS_NOW_SOLO
MOVI PERRY_SOLO,A1
MOVE A1,*A8(AnimFrm),L
MOVE A1,*A8(AnimScr),L
CLR A1
MOVE A1,*A8(AnimSLP)
RETS
IS_PERRY_NORMAL
MOVE @WAVE,A1
.IF DEBUG
INC A1
.ENDIF
CMPI 6,A1
JRNE EAT_THE_RICH_NORMAL
MOVE @SOUND_RX,A1
SLL 32-8,A1
SRL 32-4,A1
CMPI 1,A1
JREQ PERRY_IS_NOW_NORMAL
CMPI 3,A1
JREQ PERRY_IS_NOW_NORMAL
CMPI 4,A1
JREQ PERRY_IS_NOW_NORMAL
RETS
EAT_THE_RICH_NORMAL
MOVE @SOUND_RX,A1
SLL 32-8,A1
SRL 32-4,A1
CMPI 4,A1
JREQ PERRY_IS_NOW_NORMAL
CMPI 5,A1
JREQ PERRY_IS_NOW_NORMAL
RETS
PERRY_IS_NOW_NORMAL
MOVI ANIM_JOEP,A1
MOVE A1,*A8(AnimFrm),L
MOVE A1,*A8(AnimScr),L
CLR A1
MOVE A1,*A8(AnimSLP)
NO_WORRY_ABOUT_SYNCH
RETS
*Initialize Tom Hamilton
TOM_INIT
.BYTE 4,0,0,1
.LONG HAMILTON
.WORD OID_TOM, OM_DUMCOLL|OM_INSERT
.LONG TH031_3
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG ANIM_TOM
.LONG TL031_3
.WORD DMAWNZ, 0, 0,0
.LONG TA031_3
.WORD DMAWNZ, 0, 0,0
.LONG TT031_3
.WORD DMAWNZ, 0, 0,0
ANIM_TOM
LW TH031_3,6|AMulti
LW TL031_3,6|AMulti
LW TA031_3,6|AMulti
LW TT031_3,6
LW TH031_4,5|AMulti
LW TL031_4,5|AMulti
LW TA031_4,5|AMulti
LW TT031_4,5
LW TH031_5,6|AMulti
LW TL031_5,6|AMulti
LW TA031_5,6|AMulti
LW TT031_5,6
LW TH031_6,5|AMulti
LW TL031_6,5|AMulti
LW TA031_6,5|AMulti
LW TT031_6,5
LW TH031_7,6|AMulti
LW TL031_7,6|AMulti
LW TA031_7,6|AMulti
LW TT031_7,6
LW TH031_8,5|AMulti
LW TL031_8,5|AMulti
LW TA031_8,5|AMulti
LW TT031_8,5
LW TH031_7,6|AMulti
LW TL031_7,6|AMulti
LW TA031_7,6|AMulti
LW TT031_7,6
LW TH031_6,5|AMulti
LW TL031_6,5|AMulti
LW TA031_6,5|AMulti
LW TT031_6,5
LW TH031_5,6|AMulti
LW TL031_5,6|AMulti
LW TA031_5,6|AMulti
LW TT031_5,6
LW TH031_4,5|AMulti
LW TL031_4,5|AMulti
LW TA031_4,5|AMulti
LW TT031_4,5
.LONG 0
SYNC_TOM
MOVE *A8(OPART1),A8,L
MOVE @SOUND_RX,A1
SLL 28,A1
MOVE @LAST_RX,A4
SLL 28,A4
CMP A1,A4
JREQ NO_SYNCHING_T_YET
MOVE A1,A1
JRNZ NO_SYNCHING_T_YET
MOVI ANIM_TOM,A2
MOVE A2,*A8(AnimFrm),L
CLR A2
MOVE A2,*A8(AnimSLP)
NO_SYNCHING_T_YET
SLOOP 1,SYNC_TOM
*Initialize Brad Whitford
BRAD_INIT
.BYTE 4,0,0,1
.LONG BRAD
.WORD OID_BRAD, OM_DUMCOLL|OM_INSERT
.LONG BH061_1
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG ANIM_BRAD
.LONG BL061_1
.WORD DMAWNZ, 0, 0,0
.LONG BA061_1
.WORD DMAWNZ, 0, 0,0
.LONG BT061_1
.WORD DMAWNZ, 0, 0,0
ANIM_BRAD
LW BH061_1,5|AMulti
LW BL061_1,5|AMulti
LW BA061_1,5|AMulti
LW BT061_1,5
LW BH061_2,4|AMulti
LW BL061_2,4|AMulti
LW BA061_2,4|AMulti
LW BT061_2,4
LW BH061_3,5|AMulti
LW BL061_3,5|AMulti
LW BA061_3,5|AMulti
LW BT061_3,5
LW BH061_5,4|AMulti
LW BL061_5,4|AMulti
LW BA061_5,4|AMulti
LW BT061_5,4
LW BH061_7,5|AMulti
LW BL061_7,5|AMulti
LW BA061_7,5|AMulti
LW BT061_7,5
LW BH061_8,4|AMulti
LW BL061_8,4|AMulti
LW BA061_8,4|AMulti
LW BT061_8,4
LW BH061_9,5|AMulti
LW BL061_9,5|AMulti
LW BA061_9,5|AMulti
LW BT061_9,5
LW BH061_8,4|AMulti
LW BL061_8,4|AMulti
LW BA061_8,4|AMulti
LW BT061_8,4
LW BH061_7,5|AMulti
LW BL061_7,5|AMulti
LW BA061_7,5|AMulti
LW BT061_7,5
LW BH061_5,5|AMulti
LW BL061_5,5|AMulti
LW BA061_5,5|AMulti
LW BT061_5,5
LW BH061_3,5|AMulti
LW BL061_3,5|AMulti
LW BA061_3,5|AMulti
LW BT061_3,5
LW BH061_2,5|AMulti
LW BL061_2,5|AMulti
LW BA061_2,5|AMulti
LW BT061_2,5
.LONG 0
SYNC_BRAD
MOVE *A8(OPART1),A8,L
MOVE @SOUND_RX,A1
SLL 28,A1
MOVE @LAST_RX,A4
SLL 28,A4
CMP A1,A4
JREQ NO_SYNCHING_B_YET
MOVE A1,A1
JRNZ NO_SYNCHING_B_YET
MOVI ANIM_BRAD,A2
MOVE A2,*A8(AnimFrm),L
CLR A2
MOVE A2,*A8(AnimSLP)
NO_SYNCHING_B_YET
SLOOP 1,SYNC_BRAD
*Initialize JOEY KRAMER
JOEK_INIT
.BYTE 4,0,0,1
.LONG K101_9P
.WORD OID_JOEY,OM_DUMCOLL|OM_INSERT
.LONG K041_1A
.WORD DMAWNZ, 0, 0, OM_ANIM
.LONG ANIM_JOEK
.LONG K041_1B
.WORD DMAWNZ, 0, 0,0
.LONG K041_1C
.WORD DMAWNZ, 0, 0,0
.LONG K041_1D
.WORD DMAWNZ, 0, 0,0
HIT_TWO_CYMBOL
LW K061_1A,6|AMulti
LW K061_1B,6|AMulti
LW K061_1C,6|AMulti
LW K061_1D,6
LW K061_2A,5|AMulti
LW K061_2B,5|AMulti
LW K061_2C,5|AMulti
LW K061_2D,5
LW K061_4A,5|AMulti
LW K061_4B,5|AMulti
LW K061_4C,5|AMulti
LW K061_4D,5
LW K061_5A,6|AMulti
LW K061_5B,6|AMulti
LW K061_5C,6|AMulti
LW K061_5D,6
LWL K061_6A,5|AMulti|AFunc,BASH_CYMBOL_1
LW K061_6B,5|AMulti
LW K061_6C,5|AMulti
LW K061_6D,5
LW K061_8A,5|AMulti
LW K061_8B,5|AMulti
LW K061_8C,5|AMulti
LW K061_8D,5
LW K061_9A,5|AMulti
LW K061_9B,5|AMulti
LW K061_9C,5|AMulti
LW K061_9D,5
LW K061_10A,5|AMulti
LW K061_10B,5|AMulti
LW K061_10C,5|AMulti
LW K061_10D,5
HIT_CYMBOL
LW K061_11A,5|AMulti
LW K061_11B,5|AMulti
LW K061_11C,5|AMulti
LW K061_11D,5
LW K061_12A,5|AMulti
LW K061_12B,5|AMulti
LW K061_12C,5|AMulti
LW K061_12D,5
LW K061_13A,5|AMulti
LW K061_13B,5|AMulti
LW K061_13C,5|AMulti
LW K061_13D,5
LW K061_14A,5|AMulti
LW K061_14B,5|AMulti
LW K061_14C,5|AMulti
LW K061_14D,5
LWL K061_15A,6|AMulti|AFunc,BASH_CYMBOL_2
LW K061_15B,6|AMulti
LW K061_15C,6|AMulti
LW K061_15D,6
LW K061_16A,6|AMulti
LW K061_16B,6|AMulti
LW K061_16C,6|AMulti
LW K061_16D,6
ANIM_JOEK
LW K041_1A,6|AMulti
LW K041_1B,6|AMulti
LW K041_1C,6|AMulti
LW K041_1D,6
LW K041_2A,6|AMulti
LW K041_2B,6|AMulti
LW K041_2C,6|AMulti
LW K041_2D,6
LW K041_3A,6|AMulti
LW K041_3B,6|AMulti
LW K041_3C,6|AMulti
LW K041_3D,6
LW K041_4A,7|AMulti
LW K041_4B,7|AMulti
LW K041_4C,7|AMulti
LW K041_4D,7
JK_WAIT_FOR_BEAT1
LW K041_5A,6|AMulti
LW K041_5B,6|AMulti
LW K041_5C,6|AMulti
LW K041_5D,6
LW K041_6A,6|AMulti
LW K041_6B,6|AMulti
LW K041_6C,6|AMulti
LW K041_6D,6
LW K041_7A,6|AMulti
LW K041_7B,6|AMulti
LW K041_7C,6|AMulti
LW K041_7D,6
LW K041_8A,7|AMulti
LW K041_8B,7|AMulti
LW K041_8C,7|AMulti
LW K041_8D,7
.LONG 0
SYNC_KRAMER_WALK
MOVI WHICH_SET_W-020H,A10
JRUC SYNC_KRAMER
SYNC_KRAMER_EAT
MOVI WHICH_SET-020H,A10
SYNC_KRAMER
MOVE *A8(OPART1),A8,L
MOVE *A8(AnimScr),A1,L
CMPI JOEY_OFF_ANIM,A1
JRNE SYNCH_UP_KRAMER
DIE
SYNCH_UP_KRAMER
MOVE @LAST_RX,A3
MOVE @SOUND_RX,A1
MOVE A1,A5
SLL 28,A5
SLL 28,A3
CMP A3,A5
JREQ CARRY_ON_NORMAL_ANIM
MOVE A1,A4
SLL 24,A4
SRL 28,A4
SLL 5,A4
CMPI 01E0H,A4
JRLE CAP_SONG_SEG
CLR A4
CAP_SONG_SEG
ADD A10,A4
MOVE *A4,A4,L
MOVE @BEAT_COUNT,A5
SLL 27,A5
SRL 22,A5
ADD A5,A4
MOVE *A4,A4,L
JRZ CARRY_ON_NORMAL_ANIM
MOVE A4,*A8(AnimFrm),L
CLR A4
MOVE A4,*A8(AnimSLP)
SLOOP 1,SYNC_KRAMER
CARRY_ON_NORMAL_ANIM
MOVE *A8(AnimFrm),A4,L
CMPI ANIM_JOEK,A4
JRLT NO_SYNCHING_K_YET
SLL 28,A1
MOVE @LAST_RX,A4
SLL 28,A4
CMP A1,A4
JREQ NO_SYNCHING_K_YET
MOVI ANIM_JOEK,A2
MOVE A1,A1
JRZ FIRST_BEAT_K
MOVI JK_WAIT_FOR_BEAT1,A2
FIRST_BEAT_K
MOVE A2,*A8(AnimFrm),L
CLR A2
MOVE A2,*A8(AnimSLP)
NO_SYNCHING_K_YET
SLOOP 1,SYNC_KRAMER
.LONG NOTHING_SPECIAL1 ;1
WHICH_SET
.LONG NOTHING_SPECIAL1 ;1
.LONG BASH_BASH2 ;2
.LONG NOTHING_SPECIAL3 ;3
.LONG BASH_BASH4 ;4
.LONG BASH_BASH5 ;5
.LONG NOTHING_SPECIAL6 ;6
NOTHING_SPECIAL1
.LONG 0,0,0,0,0,0,0,0
.LONG 0,0,0,0,0,0,0,0
BASH_BASH2
.LONG HIT_CYMBOL,HIT_CYMBOL,HIT_CYMBOL,HIT_CYMBOL
.LONG HIT_CYMBOL,HIT_CYMBOL,0,0
.LONG HIT_CYMBOL,HIT_CYMBOL,HIT_CYMBOL,HIT_CYMBOL
.LONG HIT_CYMBOL,HIT_CYMBOL,0,HIT_CYMBOL
BASH_BASH4
.LONG 0,0,0,HIT_TWO_CYMBOL,0,0,0
.LONG 0,HIT_CYMBOL,0,HIT_CYMBOL,0,0,0,0
.LONG HIT_CYMBOL,0,0,0
BASH_BASH5
.LONG 0,0,0,0,0,0,HIT_TWO_CYMBOL,0
.LONG 0,0,0,0,0,0,HIT_TWO_CYMBOL,0
.LONG 0,0,0,0,0,0,HIT_TWO_CYMBOL,0
.LONG 0,0,0,0,0,0,0,HIT_CYMBOL
NOTHING_SPECIAL3
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
NOTHING_SPECIAL6
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,HIT_TWO_CYMBOL
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
NEXT_BEAT
MOVE @LAST_RX,A1
MOVE @SOUND_RX,A2
MOVE A2,@LAST_RX
MOVE A1,A3
MOVE A2,A4
SLL 24,A3
SLL 24,A4
SRL 28,A3
SRL 28,A4
CMP A3,A4
JREQ NO_NEW_SECTION
CLR A3
MOVE A3,@BEAT_COUNT
NO_NEW_SECTION
SLL 28,A1
SRL 28,A1
SLL 28,A2
SRL 28,A2
CMP A1,A2
JREQ NO_NEW_BEAT
MOVE @BEAT_COUNT,A1
INC A1
CMPI 64,A1
JRGE NO_NEW_BEAT
MOVE A1,@BEAT_COUNT
NO_NEW_BEAT
SLOOP 1,NEXT_BEAT
CYMBOL
LW CYMBOL2,4
LW CYMBOL6,4
LW CYMBOL4,4
LW CYMBOL5,4
LW CYMBOL6,4
LW CYMBOL7,4
LW CYMBOL8,4
LW CYMBOL9,4
LW CYMBOL2,4
LW CYMBOL11,4
LW CYMBOL6,4
LW CYMBOL13,4
LW CYMBOL14,4
LW CYMBOL15,4
LW CYMBOL9,4
LWL 1,1|AFunc,PULL_ANIM
BASH_CYMBOL_1
MOVI CYMBOL,A1
MOVE @CYMBOL1_OBJ,A8,L
JAUC STRT_ANIM
BASH_CYMBOL_2
MOVI CYMBOL,A1
MOVE @CYMBOL2_OBJ,A8,L
JAUC STRT_ANIM
BS_JOEY_INIT
.BYTE 6,0,0,1
.LONG P_BSKRAM
.WORD OID_JOEY,OM_DUMCOLL|OM_INSERT
.LONG JKBSTG_LA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JKBSTG_LB1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JKBSTG_LC1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JKBSTG_TA2
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JKBSTG_TB2
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JKBSTG_TC2
.WORD DMAWNZ, M_NOSCALE, 0, 0
BS_JOEY_ANIM
LW JKBSTG_TA2,4|AMulti
LW JKBSTG_TB2,4|AMulti
LW JKBSTG_TC2,4
LW JKBSTG_TA3,4|AMulti
LW JKBSTG_TB3,4|AMulti
LW JKBSTG_TC3,4
LW JKBSTG_TA4,4|AMulti
LW JKBSTG_TB4,4|AMulti
LW JKBSTG_TC4,4
LW JKBSTG_TA5,4|AMulti
LW JKBSTG_TB5,4|AMulti
LW JKBSTG_TC5,4
LW JKBSTG_TA6,4|AMulti
LW JKBSTG_TB6,4|AMulti
LW JKBSTG_TC6,4
LW JKBSTG_TA7,4|AMulti
LW JKBSTG_TB7,4|AMulti
LW JKBSTG_TC7,4
LW JKBSTG_TA8,4|AMulti
LW JKBSTG_TB8,4|AMulti
LW JKBSTG_TC8,4
.LONG 0
BS_BRAD_INIT
.BYTE 4,0,0,1
.LONG P_BSBRAD
.WORD OID_BRAD,OM_DUMCOLL|OM_INSERT
.LONG BWBSTG_TA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG BWBSTG_TB1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG BWBSTG_TC1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG BWBSTG_LA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
BRAD_BS_ANIM
LW BWBSTG_TA1,5|AMulti
LW BWBSTG_TB1,5|AMulti
LW BWBSTG_TC1,5
LW BWBSTG_TA2,5|AMulti
LW BWBSTG_TB2,5|AMulti
LW BWBSTG_TC2,5
LW BWBSTG_TA4,5|AMulti
LW BWBSTG_TB4,5|AMulti
LW BWBSTG_TC4,5
LW BWBSTG_TA5,15|AMulti
LW BWBSTG_TB5,15|AMulti
LW BWBSTG_TC5,15
LW BWBSTG_TA4,5|AMulti
LW BWBSTG_TB4,5|AMulti
LW BWBSTG_TC4,5
LW BWBSTG_TA2,5|AMulti
LW BWBSTG_TB2,5|AMulti
LW BWBSTG_TC2,5
LW BWBSTG_TA1,5|AMulti
LW BWBSTG_TB1,5|AMulti
LW BWBSTG_TC1,5
LWL 1,1|AFunc,PULL_ANIM
BS_TOM_INIT
.BYTE 4,0,0,1
.LONG P_BSTOM
.WORD OID_TOM,OM_DUMCOLL|OM_INSERT
.LONG THBSTG_TA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG THBSTG_TB1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG THBSTG_TC1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG THBSTG_LA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
TOM_BS_ANIM
LW THBSTG_TA1,8|AMulti
LW THBSTG_TB1,8|AMulti
LW THBSTG_TC1,8
LW THBSTG_TA2,5|AMulti
LW THBSTG_TB2,5|AMulti
LW THBSTG_TC2,5
LW THBSTG_TA3,5|AMulti
LW THBSTG_TB3,5|AMulti
LW THBSTG_TC3,5
LW THBSTG_TA2,5|AMulti
LW THBSTG_TB2,5|AMulti
LW THBSTG_TC2,5
.LONG 0
BS_PERRY_INIT
.BYTE 7,0,0,1
.LONG P_BSJOE
.WORD OID_JOE,OM_DUMCOLL|OM_INSERT
.LONG JPBSTG_TA3
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_TB3
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_TC3
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_TD3
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_TE3
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_LA1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG JPBSTG_LB1
.WORD DMAWNZ, M_NOSCALE, 0, 0
BS_PERRY_ANIM
LW JPBSTG_LA1,4|AMulti
LW JPBSTG_LB1,4
LW JPBSTG_LA2,4|AMulti
LW JPBSTG_LB2,4
LW JPBSTG_LA3,4|AMulti
LW JPBSTG_LA3,4
LW JPBSTG_LA4,4|AMulti
LW JPBSTG_LB4,4
LW JPBSTG_LA3,4|AMulti
LW JPBSTG_LA3,4
LW JPBSTG_LA2,4|AMulti
LW JPBSTG_LB2,4
.LONG 0
BS_STEVEN_INIT
.BYTE 4,0,0,1
.LONG P_BSSTEV
.WORD OID_STEVEN,OM_DUMCOLL|OM_INSERT
.LONG SL261SE_1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG SZ261SE_1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG ST261SE_1
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG ST261SE_1
.WORD DMAWNZ, M_NOSCALE, 0, 0
STEVEN_BS_ANIM
LW SL261SE_2,9+83|AMulti
LW SZ261SE_2,9+83|AMulti
LW ST261SE_2,9+83|AMulti
LW ST261SE_2,9+83
LW SL261SE_3,10|AMulti
LW SZ261SE_3,10|AMulti
LW ST261SE_3,10|AMulti
LW ST261SE_3,10
LW SL261SE_4,11|AMulti
LW SZ261SE_4,11|AMulti
LW ST261SE_4,11|AMulti
LW ST261SE_4,11
LW SL261SE_5,12|AMulti
LW SZ261SE_5,12|AMulti
LW SH261SE_5,12|AMulti
LW ST261SE_5,12
LW SL261SE_6,12|AMulti
LW SH261SE_6,12|AMulti
LW SZ261SE_6,12|AMulti
LW ST261SE_6,12
LW SL261SE_7,13|AMulti
LW SA261SE_7,13|AMulti
LW SZ261SE_7,13|AMulti
LW ST261SE_7,13
LW SL261SE_8,14|AMulti
LW SH261SE_8,14|AMulti
LW SZ261SE_8,14|AMulti
LW ST261SE_8,14
LW SL261SE_9,14|AMulti
LW SH261SE_9,14|AMulti
LW ST261SE_9,14|AMulti
LW ST261SE_9,14
LW SA261SE_10,14|AMulti
LW SZ261SE_10,14|AMulti
LW ST261SE_10,14|AMulti
LW ST261SE_10,14
LW SH261SE_11,16|AMulti
LW SA261SE_11,16|AMulti
LW SL261SE_11,16|AMulti
LW ST261SE_11,16
LW SH261SE_12,14|AMulti
LW SA261SE_12,14|AMulti
LW SL261SE_12,14|AMulti
LW ST261SE_12,14
LW SH261SE_13,14|AMulti
LW SA261SE_13,14|AMulti
LW SZ261SE_13,14|AMulti
LW ST261SE_13,14
LW SH261SE_14,14|AMulti
LW SL261SE_14,14|AMulti
LW ST261SE_14,14|AMulti
LW ST261SE_14,14
LW SH261SE_15,13|AMulti
LW SZ261SE_15,13|AMulti
LW SL261SE_15,13|AMulti
LW ST261SE_15,13
LW SH261SE_16,12|AMulti
LW SA261SE_16,12|AMulti
LW SL261SE_16,12|AMulti
LW ST261SE_16,12
LW SH261SE_17,10|AMulti
LW SL261SE_17,10|AMulti
LW SZ261SE_17,10|AMulti
LW ST261SE_17,10
LW SH261SE_18,12|AMulti
LW SL261SE_18,12|AMulti
LW SZ261SE_18,12|AMulti
LW ST261SE_18,12
LW SH261SE_19,20|AMulti
LW SL261SE_19,20|AMulti
LW SZ261SE_19,20|AMulti
LW ST261SE_19,20
LW SH271SA_1,10|AMulti
LW SL271SA_1,10|AMulti
LW SZ271SA_1,10|AMulti
LW ST271SA_1,10
LW SH271SA_2,9|AMulti
LW SL271SA_2,9|AMulti
LW SZ271SA_2,9|AMulti
LW ST271SA_2,9
LW SH271SA_3,9|AMulti
LW SL271SA_3,9|AMulti
LW SZ271SA_3,9|AMulti
LW ST271SA_3,9
LW SH271SA_4,8|AMulti
LW SL271SA_4,8|AMulti
LW SZ271SA_4,8|AMulti
LW ST271SA_4,8
LW SH271SA_5,9|AMulti
LW SL271SA_5,9|AMulti
LW SZ271SA_5,9|AMulti
LW ST271SA_5,9
LW SH271SA_6,12|AMulti
LW ST271SA_6,12|AMulti
LW SA271SA_6,12|AMulti
LW SL271SA_6,12
LW SH271SA_7,16|AMulti
LW ST271SA_7,16|AMulti
LW SA271SA_7,16|AMulti
LW SL271SA_6,16
LW SH271SA_8,25|AMulti
LW ST271SA_8,25|AMulti
LW SA271SA_8,25|AMulti
LW SL271SA_6,25
LW SH271SA_9,9|AMulti
LW ST271SA_9,9|AMulti
LW SA271SA_9,9|AMulti
LW SL271SA_6,9
LW SL281SC_1,7|AMulti
LW SA281SC_1,7|AMulti
LW SZ281SC_1,7|AMulti
LW ST281SC_1,7
LW SL281SC_2,7|AMulti
LW SA281SC_2,7|AMulti
LW SZ281SC_2,7|AMulti
LW ST281SC_2,7
LW SL281SC_3,8|AMulti
LW SA281SC_3,8|AMulti
LW SZ281SC_3,8|AMulti
LWL ST281SC_3,8|AFunc,MAKE_BRAD_ANIM
LW SL281SC_4,8|AMulti
LW SA281SC_4,8|AMulti
LW SZ281SC_4,8|AMulti
LW ST281SC_4,8
LWL SL281SC_5,8|AMulti|AFunc,CREATE_OUR_KERRI
LW SA281SC_5,8|AMulti
LW SZ281SC_5,8|AMulti
LW ST281SC_5,8
LW SH281SC_6,40|AMulti
LW SL281SC_10,40|AMulti
LW SA281SC_10,40|AMulti
LW ST281SC_10,40
LW SH281SC_8b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_9,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_10b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_11,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_13,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_14,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_13,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_11,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_10b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_9,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_8b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_6,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_8b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_9,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_10b,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_11,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_13,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_14,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_13,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
LW SH281SC_11,8|AMulti
LW SL281SC_10,8|AMulti
LW SA281SC_10,8|AMulti
LW ST281SC_10,8
;WFD start 5/24/1994
; LW SH281SC_10b,8|AMulti
; LW SL281SC_10,8|AMulti
; LW SA281SC_10,8|AMulti
; LW ST281SC_10,8
LW SH281SC_10b,8+50|AMulti
LW SL281SC_10,8+50|AMulti
LW SA281SC_10,8+50|AMulti
LW ST281SC_10,8+50+45
;WFD end 5/24/1994
LWL SH281SC_10b,10|AFunc,GO_AERO_SCROLLER
LWL 1,1|AFunc,PULL_ANIM
GO_AERO_SCROLLER
CREATE PID_JUNK,SET_END_SCROLLER
RETS
SET_END_SCROLLER
SLEEP 130
MOVKM 1,@SCROLL_FLAG,W
DIE
BS_CHAIR_INIT
.BYTE 3,0,0,1
.LONG P_STCHR
.WORD OID_JUNK,OM_DUMCOLL|OM_INSERT
.LONG STCHAIR_A
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG STCHAIR_B
.WORD DMAWNZ, M_NOSCALE, 0, 0
.LONG STCHAIR_C
.WORD DMAWNZ, M_NOSCALE, 0, 0
MAKE_BS_AEROSMITH
MOVI BS_STEVEN_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 4C0000H,A1
MOVI 3A0000H,A2
MOVI -0102AH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVE A8,@STEVEN_OBJ,L
MOVI BS_CHAIR_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 4C0000H,A1
MOVI 3A0000H,A2
MOVI -01020H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI BS_PERRY_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI -0A0000H,A1
MOVI 3A0000H,A2
MOVI -0102AH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVE A8,@JOE_OBJ,L
MOVI BS_JOEY_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 768000H,A1
MOVI 3A0000H,A2
MOVI -01028H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVE A8,@JOEY_OBJ,L
MOVI BS_CHAIR_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 728000H,A1
MOVI 3A0000H,A2
MOVI -01026H,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVI BS_BRAD_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 0A00000H,A1
MOVI 3A0000H,A2
MOVI -0102AH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVE A8,@BRAD_OBJ,L
MOVI BS_TOM_INIT,B0
CALLA MULTIMAKE
MOVE A0,A8
MOVI 1E0000H,A1
MOVI 3A0000H,A2
MOVI -0101AH,A3
MOVE @ZREL_OFF,A4,L
SRA ZFRAC,A4
ADD A4,A3
CALLA SET_ANIPU
MOVE A8,@TOM_OBJ,L
RETS
MAKE_BS_AEROSMITH_ANIM
CREATE PID_JUNK,WAIT_AND_ANIM
RETS
WAIT_AND_ANIM
MOVE @JOEY_OBJ,A8,L
MOVE *A8(OPART1),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVI BS_JOEY_ANIM,A1
CALLA STRT_ANIM
MOVE @JOE_OBJ,A8,L
MOVE *A8(OPART1),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVE *A8(OPARTS),A8,L
MOVI BS_PERRY_ANIM,A1
CALLA STRT_ANIM
MOVE @TOM_OBJ,A8,L
MOVE *A8(OPART1),A8,L
MOVE *A8(OPART1),A8,L
MOVI TOM_BS_ANIM,A1
CALLA STRT_ANIM
MOVE @STEVEN_OBJ,A8,L
MOVE *A8(OPART1),A8,L
MOVI STEVEN_BS_ANIM,A1
CALLA STRT_ANIM
SOUND1 STEVEN_END_SND
DIE
MAKE_BRAD_ANIM
MOVE @BRAD_OBJ,A8,L
MOVE *A8(OPART1),A8,L
MOVE *A8(OPART1),A8,L
MOVI BRAD_BS_ANIM,A1
JAUC STRT_ANIM
STEVEN_END_SND
.WORD 0F380H,083,08825H ;
.WORD 0F380H,0120H,08828H ;
.WORD 0F380H,08AH,08829H ;
.WORD 0F380H,04AH,08826H ;
.WORD 0F380H,078H,0882AH ;
.WORD 0
.END