historicalsource
/
revolution-x
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
revolution-x/GXHELI.ASM

7137 lines
168 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 "GXHELI.ASM"
.TITLE " <<< REVOLUTION X -- HELICOPTER ROUTINES >>>"
.WIDTH 132
.OPTION B,D,L,T
.MNOLIST
**************************************************************************
* *
* COPYRIGHT (C) 1992 MIDWAY MANUFACTURING COMPANY. *
* ALL RIGHTS RESERVED. *
* *
**************************************************************************
.INCLUDE "GXENEMY.INC"
.INCLUDE "GXHELI.H"
.INCLUDE "GXHELI2.H"
.INCLUDE "GXCONTRL.H"
.INCLUDE "IMGTBL.GLO"
.INCLUDE "GXHELI.TBL"
* SYMBOLS IN HERE
.DEF SIDE_COPTER_INTRO_INIT
.DEF MAKE_FRONT_COPTER_PROC, MAKE_SIDE_COPTER_PROC
.DEF MAKE_COPTER_ONTOP_PROC, DELETE_COPTER_FRAME
.DEF SCROLL_HOVER_PROC, SND_COPTER_FULL
.DEF SIDE_COPTER_INTRO_COLLISIONS, PICK_ENTRY2
.DEF GET_PCENTRY
.BSS COPTER_OBJ,32 ;FRONT HELICOPTER OBJECT ADDRESS
.BSS COPTER_OBJ2,32 ;SIDE HELICOPTER OBJECT ADDRESS
.BSS LAST_ROCKET,32 ;ROCKET FARTHEST AWAY IN Z
.BSS COPTER_SND,16 ;COPTER SOUND CONTROL
.BSS WING_COUNT,16 ;NUMBER OF WINGS LEFT
.BSS MISSLETIME_TABLE,32 ;TIME OF PLAYER MISSLE TIMES
.BSS ROW_TIME,32 ;TIME OF LAST HIT IN A ROW
.BSS ROW_HITS,16 ;NUMBER OF HITS IN A ROW
.BSS DESTROYING_PARTS,16 ;COUNT OF DESTROYING PARTS
.BSS THREAT_SPEECH_FLAGS,32 ;THREAT SPEECH FLAGS
.BSS DAMAGE_SPEECH_FLAGS,32 ;DAMAGE SPEECH FLAGS
; .BSS FRED_FLINTSTONE,16 ;ALIGN TO 32 BITS
.TEXT
.EVEN
**************************************************************************
* *
* COPTER_SPARK - SPARK ON COPTER *
* *
* A2 = PLAYER *
* A8 = OBJECT *
* *
**************************************************************************
COPTER_SPARK
PUSH B0
MOVI INIT_SPARK,B0
CALLA PASTE_ON_DAMAGE_OFFSET
PULLQ B0
RETS
;**************************************************************************
;* *
;* CCHECK *
;* *
;**************************************************************************
;
;CCHECK
; MOVE *A8(OPART1),A14,L
; JRZ $
; MOVE *A14(OHZFLYTO),A14,L
; JRNZ $
; RETS
**************************************************************************
* *
* SCROLL_HOVER_PROC - SIMULATE HOVERING IN Y *
* *
* PASS: *
* NUTIN' *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
SCROLL_HOVER_PROC
; MOVE @YBASE,A8,L
MOVI 07528000H,A8 ;Y MIDPOINT
MOVI 0800H,A9 ;Y ACCEL SPEED
MOVI 010000H,A10 ;MAX Y SPEED
MOVE A10,A11
NEG A11
; MOVE A11,@YSCROLL,L ;SET INITIAL UP VELOCITY
CLR A14
MOVE A14,@YSCROLL,L ;SET INITIAL UP VELOCITY
SHP_LUPE
MOVE A9,@YSACCEL,L ;SET DOWN ACCEL
SHP_GOIN_DOWN
SLEEP 1
MOVE @YSCROLL,A14,L
CMP A10,A14
JRLT SHP_GOIN_DOWN ;BR=WE HAVEN'T REACHED THE MIDDL
MOVE A9,A14
NEG A14
MOVE A14,@YSACCEL,L ;SET UP ACCEL
SHP_GOIN_UP
SLEEP 1
MOVE @YSCROLL,A14,L
CMP A11,A14
JRGT SHP_GOIN_UP ;BR=WE HAVEN'T REACHED THE MIDDL
MOVE A8,@YBASE,L ;ADJUST Y MIDPOINT IF WE BOGGED
MOVE @SCROLL_FLAG,A14,L
JRZ SHP_LUPE ;BR=KEEP ON HOVERIN'
CLR A14 ;STOP Y MOTION
MOVE A14,@YSCROLL,L
MOVE A14,@YSACCEL,L
MOVE A14,@SCROLL_FLAG,L ;FLAG DONE
DIE
**************************************************************************
* *
* MAKE_COPTER_ONTOP_PROC - MAKE THE HELICOPTER ONTOP OF THE BUILDING *
* AND THE FRAME *
* *
**************************************************************************
ONTOP_ROOF_XBASE EQU 03600000H
GROUP_OFFSET EQU 0680000H
PACK_OFFSET EQU 01C0000H
ONTOP_PACK_TABLE
.LONG ONTOP_ROOF_XBASE-GROUP_OFFSET-PACK_OFFSET
.LONG ONTOP_ROOF_XBASE-GROUP_OFFSET
.LONG ONTOP_ROOF_XBASE-GROUP_OFFSET+PACK_OFFSET
.LONG ONTOP_ROOF_XBASE-PACK_OFFSET
.LONG ONTOP_ROOF_XBASE
.LONG ONTOP_ROOF_XBASE+PACK_OFFSET
.LONG ONTOP_ROOF_XBASE+GROUP_OFFSET-PACK_OFFSET
.LONG ONTOP_ROOF_XBASE+GROUP_OFFSET
.LONG ONTOP_ROOF_XBASE+GROUP_OFFSET+PACK_OFFSET
MAKE_COPTER_ONTOP_PROC
.if BILL
JRUC MCO_TEST
.endif
MOVK 9,A0 ;PUT WEAPON CRATES ON TOP
MOVI ONTOP_PACK_TABLE,A1
MOVI -03E86H,A9 ;UNIVERSE Z
MOVI -021D8000H,A10 ;UNIVERSE Y
MCOP_PUT_PACKS
MOVE *A1+,A11,L
CALLA PUT_PROCK_TIMED
DSJ A0,MCOP_PUT_PACKS ;BR=ANOTHER PACK
; MOVI COPTER_ONTOP_INIT,B0 ;COPTER ON TOP OF BUILDING
MOVI SIDE_COPTER_ONTOP_INIT,B0
CALLA MULTIMAKE
LOCKON Z
CLR A14
MOVE A14,*A8(OSTUTTER),W
MOVI 03578000H,A1
MOVI -02618000H-0100000H,A2
MOVI 0B17AH,A3
CALLA SET_ANIPU
MOVI 0400040H,A9
MCO_LUPE
SLEEP 1
MOVE *A8(OSCALE),A14,L
CMP A9,A14
JRGE MCO_LUPE
; SLEEP 4
; MOVE *A8(OZVAL),A14,L
; MOVE @ZBASE,A0,L
; SUB A0,A14 ;CONVERT TO WORLD
; CMP A9,A14
; JRGE MCO_LUPE ;BR=NOT OFF SCREEN JUST YET
CALLA DELETE_OBJ
MCO_WAIT
SLEEP 1
MOVE @ZSCROLL,A14,L
JRNZ MCO_WAIT ;BR=WE'RE STILL MOVIN'
MCO_TEST
MOVI [SCRTOP+SCORE_HEIGHT+22,SCRLFT],A14
MOVE A14,@SCRNTL,L
CALLA INIT_UCHECK_TBL
MOVI INSIDE_COPTER_INIT,B0 ;INSIDE THE COPTER FRAME
CALLA MULTIMAKE
; LOCKON Z
MOVE *A8(OPAL),A1,W
MOVI [32,-1],A3
MOVI [DMAWNZ,0],A5
MOVI FRAMETOP,A14
CALLA QDMA2 ; OUTPUT THE SUCKER
MOVI [32,200],A3
MOVI [DMAWNZ|M_FLIPH,0],A5
MOVI FRAMETOP,A14
CALLA QDMA2 ; OUTPUT THE SUCKER
DIE
**************************************************************************
* *
* DELETE_COPTER_FRAME *
* *
**************************************************************************
DELETE_COPTER_FRAME
MOVI FGLIST,A0
MOVE A0,A8
MOVI OID_COPTER,A1
MOVK 6,A2
DCF_LUPE
MOVE *A0,A0,L
DCF_CHECK
CMP A0,A8
JREQ DCF_DONE
MOVE *A0(OID),A14,W
CMP A1,A14
JRNE DCF_LUPE ;BR=NOT A FRAME PIECE
MOVE *A0,A3,L ;SAVE NEXT OBJECT
CALLA DELOBJ
DEC A2
JRZ DCF_DONE ;BR=NO MORE FRAME PIECES
MOVE A3,A0 ;CONTINUE WITH NEXT OBJECT
JRUC DCF_CHECK
DCF_DONE
MOVI SCRNST,A14
MOVE A14,@SCRNTL,L
CALLA INIT_UCHECK_TBL
MOVK 1,A14
MOVE A14,@GUNS_OFF,W
ALLPLYR PCURSOR_OFF
RETS
INSIDE_COPTER_INIT
.byte 6, 0, 0, 1 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long FRAMEPAL ;IMGPAL
.word OID_COPTER, OM_SPOS|OM_INSERT
.LONG [54-22,200], -06FFF0000H
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW FRAMECORN, DMAWNZ, M_SCRNOBJ, 0, 0
LWWWW FRAMESIDE, DMAWNZ, M_SCRNOBJ, 0, 0
LWWWW FRAMESIDE, DMAWNZ, M_SCRNOBJ, 0, OM_OPARTS
.LONG [80,0]
LWWWW FRAMECORN, DMAWNZ|M_FLIPH, M_SCRNOBJ, 0, 0
LWWWW FRAMESIDE, DMAWNZ|M_FLIPH, M_SCRNOBJ, 0, 0
LWWWW FRAMESIDE, DMAWNZ|M_FLIPH, M_SCRNOBJ, 0, OM_OPARTS
.LONG [80,0]
**************************************************************************
**************************************************************************
**************************************************************************
SND_BELLY_GUN
.WORD 0F304H,82,0A108H,0
SND_GAT_GUN
.WORD 0F306H,18,0A102H,0
;SND_FUSE_GUN
; .WORD 0F304H,48,0A10BH,0
;SND_NOSE_GUN
; .WORD 0F304H,82,0A102H,0
SND_CLANG_LOW
.word 0F308H,30,0A111H,0
SND_CLANG_HIGH
.word 0F308H,30,0A123H,0
SND_CLANG_GEAR
.word 0F308H,34,0A191H,0
SND_RICOCHET
.word 0F309H,63,0A1A3H,0
SND_ROCKET_LAUNCH
.WORD 0F30CH,94,0A3B0H,0
SND_WINDOW_CRACK
.WORD 0E310H,47,0A32BH,0
SND_GAT_TURN
.WORD 0F318H,21,0A1F7H,0
SND_BELLY_TURN
.WORD 0F318H,22,0A1FAH,0
SND_GRILL_OPENCLOSE
.WORD 0F318H,11,0A42FH,0
SND_THUD
.word 0F320H,69,0A14AH,0
SND_METALLIC_FUCKUP
.word 0F320H,60,0A147H,0
SND_WINDOW_BREAK
.WORD 0F321H,70,0A32EH,0
;FROM GXMONDR2.ASM
;SND_FIRE_HISS
; .WORD 0F340H,36,0A396H,0 ;FireBall hissing
;SND_FB_HIT_SCRN
; .WORD 0F341H,60,0A393H,0 ;FireBall hits the screen
;SND_PROJECTILE_FLY
; .WORD 0F141H,62,0A1A1H,0 ;Projectile gets blown back
;SND_FIRE_BALL
; .WORD 0F342H,44,08292H,0 ;FireBall being launched
SND_ROCKET_HIT
.WORD 0F341H,60,0A390H,0 ;ROCKET HITS SCREEN
SND_EXPLO_COPTER
.WORD 0F343H,60,0A38DH,0
SND_STEP_OUT
.word 0F250H,134,082BFH,0
SND_YOU_HAVE_DIS
.word 0F250H,168,082C0H,0
SND_LAND_OR
.word 0F250H,180,082C1H,0
SND_THIS_IS
.word 0F250H,111,082C2H,180,082C1H,0
SND_YOU_ARE_ILL
.word 0F250H,198,082C3H,0
SND_CAPTURE
.WORD 0F250H,102,082CDH,0
SND_REPEAT_CAPTURE
.WORD 0F250H,50,082CEH,102,082CDH,0
SND_TURN
.WORD 0F250H,74,082CFH,0
SND_REPEAT_TURN
.WORD 0F250H,50,082CEH,74,082CFH,0
SND_GIVE
.WORD 0F250H,73,082D0H,0
SND_REPEAT_GIVE
.WORD 0F250H,50,082CEH,73,082D0H,0
SND_SURRENDER
.WORD 0F250H,81,082D1H,0
SND_REPEAT_SURRENDER
.WORD 0F250H,50,082CEH,81,082D1H,0
SND_MAKE_IT_EASY
.WORD 0F250H,97,082D2H,0
SND_REPEAT_MAKE_IT_EASY
.WORD 0F250H,50,082CEH,97,082D2H,0
SND_YOU_HAVE_NO
.WORD 0F250H,91,082D3H,0
SND_REPEAT_YOU_HAVE_NO
.WORD 0F250H,50,082CEH,91,082D3H,0
SND_NO_ESCAPE
.WORD 0F250H,113,082D4H,0
SND_REPEAT_NO_ESCAPE
.WORD 0F250H,50,082CEH,113,082D4H,0
SND_WHAT_THE
.word 0F251H,63,082D5H,0
SND_SHES_BREAKIN_UP
.word 0F251H,62,082D6H,0
SND_NOT_GOOD
.word 0F251H,49,082D7H,0
SND_WERE_GOIN_DOWN
.word 0F252H,78,082D8H,0
SND_FINAL_EXPLO_COPTER1
.WORD 0E1F0H,88,08303H,0 ;Final explosion sound, channel 1
SND_FINAL_EXPLO_COPTER2
.WORD 0E2F0H,40,0838FH,0 ;Final explosion sound, channel 2
SND_FINAL_EXPLO_COPTER3
.WORD 0E3F0H,88,08390H,0 ;Final explosion sound, channel 3
SND_COPTER_FULL
.word 0F3F0H,60*60*5,0830EH,0
THREAT_SPEECHES EQU 7
THREAT_SPEECH_TABLE
.LONG SND_CAPTURE, SND_TURN, SND_GIVE, SND_SURRENDER
.LONG SND_MAKE_IT_EASY, SND_YOU_HAVE_NO, SND_NO_ESCAPE
DAMAGE_SPEECHES EQU 3
DAMAGE_SPEECH_TABLE
.LONG SND_WHAT_THE, SND_SHES_BREAKIN_UP, SND_NOT_GOOD
**************************************************************************
* *
* PICK_ENTRY2 - PICK ENTRY OUT OF A TABLE *
* *
* PASS: *
* A0 = NUMBER OF TABLE ENTRIES (NEGATIVE IF TABLE OF LONG WORDS) *
* A1 = ENTRY PICKED FLAGS *
* A3 = ROM TABLE *
* *
* RETURN: *
* A0 = NUMBER OF TABLE ENTRIES LEFT (Z SET IF LAST) *
* A1 = UPDATED ENTRY PICKED FLAGS *
* A4 = ENTRY PICKED *
* *
**************************************************************************
PICK_ENTRY2
MMTM SP,A0,A2
MOVE A0,A4
ABS A0
CALLA RAND0 ;GET RANDOM INDEX
MOVI -1,A2
MOVE A2,A14
PE2_FIND
INC A2 ;NEXT TABLE INDEX
BTST A2,A1
JRNZ PE2_FIND ;BR=ENTRY ALREADY PICKED
INC A14 ;NEXT ENTRY COUNT
CMP A0,A14
JRNE PE2_FIND ;BR=NOT THE PICKED ENTRY
MOVK 1,A14
SLL A2,A14
OR A14,A1 ;SET ENTRY PICKED FLAG
MOVE A4,A4
JRN PE2_LONG ;BR=GET LONG ENTRY
SLL 4,A2
ADD A3,A2
MOVE *A2,A4,W ;GET WORLD ENTRY
MMFM SP,A0,A2
JRUC PE2_DONE
PE2_LONG
SLL 5,A2
ADD A3,A2
MOVE *A2,A4,L
MMFM SP,A0,A2
ABS A0
PE2_DONE
DEC A0 ;ONE LESS NUMBER OF ENTRIES
RETS
**************************************************************************
* *
* MAKE_DAMAGE_SPEECH - MAKE RANDOM COPTER DAMAGE SPEECH *
* *
* PASS: *
* NUTIN' *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
MAKE_DAMAGE_SPEECH
MMTM SP,A0,A1,A3,A4,A5
MOVE @DAMAGE_SPEECH_FLAGS,A1,L
MOVE A1,A0
SRL 16,A0
NEG A0 ;FLAG TABLE OF LONG WORDS
ZEXT A1,W
MOVE A1,A5
MOVI DAMAGE_SPEECH_TABLE,A3
CALLR PICK_ENTRY2
JRNZ MDS_SAVE ;BR=NOT LAST ENTRY PICKED
MOVK DAMAGE_SPEECHES-1,A0
XOR A5,A1
MDS_SAVE
SLL 16,A0
OR A0,A1
MOVE A4,A0
CALLA ONESND
JRNZ MDS_NOGOOD ;BR=SANS SOUND
MOVE A1,@DAMAGE_SPEECH_FLAGS,L
MDS_NOGOOD
MMFM SP,A0,A1,A3,A4,A5
RETS
**************************************************************************
* *
* MAKE_THREAT_SPEECH - MAKE RANDOM COPTER THREAT SPEECH *
* *
* PASS: *
* NUTIN' *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
MAKE_THREAT_SPEECH
MMTM SP,A0,A1,A3,A4,A5
MOVE @THREAT_SPEECH_FLAGS,A1,L
MOVE A1,A0
SRL 16,A0
NEG A0 ;FLAG TABLE OF LONG WORDS
ZEXT A1,W
MOVE A1,A5
MOVI THREAT_SPEECH_TABLE,A3
CALLR PICK_ENTRY2
JRNZ MTS_SAVE ;BR=NOT LAST ENTRY PICKED
MOVK THREAT_SPEECHES-1,A0
XOR A5,A1
MTS_SAVE
SLL 16,A0
OR A0,A1
MOVE A4,A0
CALLA ONESND
JRNZ MTS_NOGOOD ;BR=SANS SOUND
MOVE A1,@THREAT_SPEECH_FLAGS,L
MTS_NOGOOD
MMFM SP,A0,A1,A3,A4,A5
RETS
**************************************************************************
* *
* MAKE_SIDE_COPTER_PROC *
* *
**************************************************************************
INIT_SIDE_MISSLETIME_TABLE
.WORD 15, 15, 15
MAKE_SIDE_COPTER_PROC
.if BILL
CLR A8
MOVE A8,@COPTER_OBJ2,L
DIE
.endif
MOVI SIDE_COPTER_INIT,B0
CALLA MULTIMAKE
LOCKON Z
MOVE A8,@COPTER_OBJ2,L
MOVE A8,A0
MOVI 0101H,A1
MOVI [0800H,0800H],A2
MOVI SIDE_COLLISION_TABLE,A3
MSCP_CONST_LUPE
MOVE A1,*A0(OCONST),W
MOVE A2,*A0(OZDEPTH),L
MOVE *A3+,A14,L
MOVE A14,*A0(OCOLLISION),L
MOVE *A0(OPARTS),A0,L
JRNZ MSCP_CONST_LUPE
MOVI GATFLASH_ANIM,A2
MOVI LEFT_GUN,A1
CALLA FINDPART
LOCKON Z
MOVE A2,*A0(OFLASHANIM),L
MOVI 0800H,A14
MOVE A14,*A8(OHXACCEL),W
MOVE A14,*A8(OHYACCEL),W
MOVK 010H,A14
MOVE A14,*A8(OHZACCEL),W
MOVI INIT_SIDE_MISSLETIME_TABLE,A14
MOVE A14,@MISSLETIME_TABLE,L
CLR A14
MOVE A14,*A8(OHZFLYTO),L
MOVE A14,*A8(OCOMMAND),W
MOVE A14,*A8(OSTUTTER),W
CALLR COPTER_OFF
; CREATE PID_IND,COPTER_INTRO_2
DIE
SIDE_COLLISION_TABLE
.LONG COPTER_LCLANG_FLASH_COLLISION, FLIGHT_WEAPON_COLLISION
.LONG FLIGHT_HCOLLISION, FLIGHT_WEAPON_COLLISION
.LONG FLIGHT_HCOLLISION, FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_HCOLLISION, FLIGHT_LCOLLISION, 0
.LONG 0, 0, 0, 0
FRONT_COLLISION_TABLE
.LONG COPTER_LCLANG_COLLISION, FLIGHT_WEAPON_COLLISION
.LONG FLIGHT_HCOLLISION, FLIGHT_WEAPON_COLLISION
.LONG FLIGHT_HCOLLISION, FLIGHT_WEAPON_COLLISION
.LONG FLIGHT_HCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_LCOLLISION, FLIGHT_LCOLLISION
.LONG FLIGHT_9S_COLLISION, FLIGHT_9S_COLLISION
.LONG COPTER_HCLANG_COLLISION, COPTER_HCLANG_COLLISION
.LONG COPTER_LCLANG_COLLISION, COPTER_LCLANG_COLLISION
.LONG 0, 0
.LONG 0, 0, 0
FINAL_COPTER_VECTORS_TABLE
.LONG COPTER_LCLANG_GUNVECT, COPTER_LCLANG_COLLISION
.LONG WING_WEAPON_GUNVECT, WING_WEAPON_COLLISION
.LONG WING_WEAPON_GUNVECT, WING_WEAPON_COLLISION
.LONG WING_WEAPON_GUNVECT, WING_WEAPON_COLLISION
.LONG WING_WEAPON_GUNVECT, WING_WEAPON_COLLISION
.LONG BELLY_WEAPON_GUNVECT, BELLY_WEAPON_COLLISION
.LONG COPTER_HCLANG_GUNVECT, COPTER_HCLANG_COLLISION
.LONG ENGINE_GUNVECT, ENGINE_COLLISION
.LONG ENGINE_GUNVECT, ENGINE_COLLISION
.LONG COPTER_LCLANG_GUNVECT, COPTER_LCLANG_COLLISION
.LONG COPTER_LCLANG_GUNVECT, COPTER_LCLANG_COLLISION
.LONG COCKPIT_GUNVECT, COCKPIT_COLLISION
.LONG COCKPIT_GUNVECT, COCKPIT_COLLISION
.LONG FUSEGUN_GUNVECT, FUSEGUN_COLLISION
.LONG FUSEGUN_GUNVECT, FUSEGUN_COLLISION
.LONG COPTER_HCLANG_GUNVECT, COPTER_HCLANG_COLLISION
.LONG COPTER_LCLANG_GUNVECT, COPTER_LCLANG_COLLISION
.LONG COPTER_LCLANG_GUNVECT, COPTER_LCLANG_COLLISION
**************************************************************************
* *
* MAKE_FRONT_COPTER_PROC *
* *
**************************************************************************
INIT_FRONT_MISSLETIME_TABLE
.WORD 30, 30, 30
MAKE_FRONT_COPTER_PROC
MOVK 2,A14
MOVE A14,@WING_COUNT,W
CLR A14
MOVE A14,@LAST_ROCKET,L
MOVE A14,@DESTROYING_PARTS,L
MOVE A14,@ROW_HITS,W
MOVE @WAVEIRQS,A14,L
MOVE A14,@ROW_TIME,L
MOVI FRONT_COPTER_INIT,B0
CALLA MULTIMAKE
LOCKON Z
CALLA INC_ENEMY_COUNT
MOVE A8,@COPTER_OBJ,L
MOVE A13,*A8(OPLINK),L
MOVE A8,A0
MOVI 0101H,A1
MOVI [0800H,0800H],A2
MOVI FRONT_COLLISION_TABLE,A3
MFCP_CONST_LUPE
MOVE A1,*A0(OCONST),W
MOVE A2,*A0(OZDEPTH),L
MOVE *A3+,A14,L
MOVE A14,*A0(OCOLLISION),L
MOVE *A0(OPARTS),A0,L
JRNZ MFCP_CONST_LUPE
MOVI GATFLASH_ANIM,A2
MOVI LEFT_GUN,A1
CALLA FINDPART
LOCKON Z
MOVE A2,*A0(OFLASHANIM),L
MOVI RGHT_GUN,A1
CALLA FINDPART
LOCKON Z
MOVE A2,*A0(OFLASHANIM),L
MOVI 0800H,A14
MOVE A14,*A8(OHXACCEL),W
MOVE A14,*A8(OHYACCEL),W
MOVK 010H,A14
MOVE A14,*A8(OHZACCEL),W
CLR A14
MOVE A14,*A8(OHZFLYTO),L
MOVE A14,*A8(OCOMMAND),W
MOVE A14,*A8(OSTUTTER),W
MOVI INIT_FRONT_MISSLETIME_TABLE,A14
MOVE A14,@MISSLETIME_TABLE,L
.if BILL
CALLR COPTER_OFF
; CREATE PID_IND,COPTER_INTRO_1
.else
CREATE PID_IND,COPTER_INTRO_1
.endif
MFCP_CONTROL_LUPE
SLEEP 2
MOVE @DESTROYING_PARTS,A14,W
JRNZ MFCP_CONTROL_LUPE
MOVE *A8(OCOMMAND),A14,W
BTST B_CFLYTOPT,A14
JRZ MFCP_CHECK_MORE_0 ;BR=NO FLY TO POINT COMMAND
JSRP COPTER_TO_POINT
MOVE *A8(OCOMMAND),A14,W
ANDNI M_CFLYTOPT,A14
MOVE A14,*A8(OCOMMAND),W
JRUC MFCP_CONTROL_LUPE
MFCP_CHECK_MORE_0
BTST B_CHOVER,A14
JRZ MFCP_CHECK_MORE_1 ;BR=NO HOVER COMMAND
; JSRP HOVER_PROC
MFCP_HOVER
SLEEP 1
MOVE @DESTROYING_PARTS,A14,W
JRNZ MFCP_CONTROL_LUPE
MOVI 0A000H,A0
MOVI 06000H,A1
MOVI 0100H,A2
CALLR DO_HOVER
MOVE *A8(OCOMMAND),A14,W
BTST B_CHOVER,A14
JRNZ MFCP_HOVER
JRUC MFCP_CONTROL_LUPE
MFCP_CHECK_MORE_1
BTST B_CCHARGE,A14
JRZ MFCP_CHECK_MORE_2 ;BR=NO CHARGE COMMAND
BTST B_CFINAL,A14
JRZ MFCP_CHARGE
JSRP COPTER_FINAL_CHARGE
JRUC MFCP_CONTROL_LUPE
MFCP_CHARGE
JSRP COPTER_CHARGE
JRUC MFCP_CONTROL_LUPE
MFCP_CHECK_MORE_2
BTST B_CACCTOPT,A14
JRZ MFCP_CHECK_MORE_3 ;BR=NO FLY TO POINT COMMAND
JSRP COPTER_ACCEL_TO_POINT
MOVE *A8(OCOMMAND),A14,W
ANDNI M_CACCTOPT,A14
MOVE A14,*A8(OCOMMAND),W
JRUC MFCP_CONTROL_LUPE
MFCP_CHECK_MORE_3
JRUC MFCP_CONTROL_LUPE
**************************************************************************
**************************************************************************
**************************************************************************
PFTIME EQU PDATA
**************************************************************************
* *
* COPTER_ACCEL_TO_POINT *
* *
**************************************************************************
COPTER_ACCEL_TO_POINT
MOVE *A8(OFLYTIME),A7,W
CALLR DETERMINE_LIMIT_CHECKS
ADD A1,A2 ;Z DESTINATION
ADD A9,A4 ;Y DESTINATION
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
JRUC CTP_LUPE
**************************************************************************
* *
* COPTER_ACCEL_TO_WORLD_POINT *
* *
**************************************************************************
COPTER_ACCEL_TO_WORLD_POINT
MOVE *A8(OFLYTIME),A7,W
CALLR DETERMINE_WORLD_LIMIT_CHECKS
ADD A1,A2 ;Z DESTINATION
ADD A9,A4 ;Y DESTINATION
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_WORLD_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
JRUC CTWP_LUPE
**************************************************************************
* *
* COPTER_TO_POINT *
* *
**************************************************************************
COPTER_TO_POINT
MOVE *A8(OFLYTIME),A7,W
SRA 1,A7 ;ACCELERATE THE FIRST HALF
CALLR DETERMINE_LIMIT_CHECKS
SRA 1,A1 ;HALFWAY
ADD A1,A2 ;Z DESTINATION
SRA 1,A9 ;HALFWAY
ADD A9,A4 ;Y DESTINATION
SRA 1,A11 ;HALFWAY
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
; JSRP CTP_LUPE
GETPC A14
ADDI 060h,A14
MOVE A14,-*A12,L ;PUSH RET ADDR
JAUC CTP_LUPE
JRC CTP_RETP ;BR=STOP!
MOVE *A8(OFLYTIME),A14,W
SRA 1,A14 ;DECELERATE THE SECOND HALF
MOVE A7,A7
JRN CTP_TIMEOK ;BR=WE LOST TIME
CLR A7
CTP_TIMEOK
ADD A14,A7 ;COMPENSATE FOR LOST TIME
CALLR DETERMINE_LIMIT_CHECKS
ADD A1,A2 ;Z DESTINATION
ADD A9,A4 ;Y DESTINATION
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
; JSRP CTP_LUPE
GETPC A14
ADDI 060h,A14
MOVE A14,-*A12,L ;PUSH RET ADDR
JAUC CTP_LUPE
JRC CTP_RETP ;BR=STOP!
CLR A14 ;STOP VELOCITIES
MOVE A14,*A8(OXVEL),L
MOVE A14,*A8(OYVEL),L
MOVE A14,*A8(OZVEL),L
CTP_RETP
RETP
CTP_LUPE
MOVE B0,A1
MOVE B1,A3
MOVE B2,A5
MMTM A12,A1,A2,A3,A4,A5,A6,A7
SLEEP 1
MMFM A12,A1,A2,A3,A4,A5,A6,A7
MOVE @DESTROYING_PARTS,A14,W
JRNZ CTP_ABORT ;BR=STOP WHAT YOUR DOING!
MOVE A1,B0
MOVE A3,B1
MOVE A5,B2
MOVE A8,A14
; ADDI OXVEL,A14
; MMFM A14,A1,A3,A5 ;A5=OXVEL, A3=OYVEL, A1=OZVEL
ADDI OZVEL,A14
MMFM A14,A1,A3,A5 ;A5=OZVEL, A3=OXVEL, A1=OYVEL
ADD A10,A5 ;ADD Z ACCELERATION
ADD A9,A1 ;ADD Y
ADD A11,A3 ;ADD X
MMTM A14,A1,A3,A5 ;A5=OZVEL, A3=OXVEL, A1=OYVEL
MOVE *A13(PFTIME),A14,L
MOVE @WAVEIRQS,A1,L
MOVE A1,*A13(PFTIME),L
SUB A14,A1
SUB A1,A7
JRZ CTP_DONE ;BR=DONE. NO TIME LEFT
JRN CTP_DONE ;BR=EXCEEDED TIME LIMIT
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A1,A3,A5 ;A5=OXVAL, A3=OYVAL, A1=OZVAL
CMP A1,A2
CALL B0
JRZ CTP_DONE ;BR=VIOLATED Z BOUNDARY
CMP A3,A4
CALL B1
JRZ CTP_DONE ;BR=VIOLATED Y BOUNDARY
CMP A5,A6
CALL B2
JRNZ CTP_LUPE ;BR=VIOLATED X BOUNDARY
CTP_DONE
; RETP
CLRC ;SUCCESS!
MMFM A12,A14 ;PULL RETURN ADDR, W/O ZAPPING STAT
EXGPC A14
CTP_ABORT
SETC ;ABORT!
MMFM A12,A14 ;PULL RETURN ADDR, W/O ZAPPING STAT
EXGPC A14
GT_CHECK
JRGT GLTC_Z ;BR=VIOLATED BOUNDARY
MOVK 1,A14
MOVE A14,A14
RETS
LT_CHECK
JRLT GLTC_Z ;BR=VIOLATED BOUNDARY
MOVK 1,A14
MOVE A14,A14
RETS
GLTC_Z
CLR A14
RETS
**************************************************************************
* *
* COPTER_TO_WORLD_POINT *
* *
**************************************************************************
COPTER_TO_WORLD_POINT
MOVE *A8(OFLYTIME),A7,W
SRA 1,A7 ;ACCELERATE THE FIRST HALF
CALLR DETERMINE_WORLD_LIMIT_CHECKS
SRA 1,A1 ;HALFWAY
ADD A1,A2 ;Z DESTINATION
SRA 1,A9 ;HALFWAY
ADD A9,A4 ;Y DESTINATION
SRA 1,A11 ;HALFWAY
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_WORLD_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
; JSRP CTWP_LUPE
GETPC A14
ADDI 060h,A14
MOVE A14,-*A12,L ;PUSH RET ADDR
JAUC CTWP_LUPE
MOVE *A8(OFLYTIME),A14,W
SRA 1,A14 ;DECELERATE THE SECOND HALF
MOVE A7,A7
JRN CTWP_TIMEOK ;BR=WE LOST TIME
CLR A7
CTWP_TIMEOK
ADD A14,A7 ;COMPENSATE FOR LOST TIME
CALLR DETERMINE_WORLD_LIMIT_CHECKS
ADD A1,A2 ;Z DESTINATION
ADD A9,A4 ;Y DESTINATION
ADD A11,A6 ;X DESTINATION
CALLR COPTER_ACCEL_WORLD_SETUP
MOVE @WAVEIRQS,A14,L
MOVE A14,*A13(PFTIME),L
; JSRP CTWP_LUPE
GETPC A14
ADDI 060h,A14
MOVE A14,-*A12,L ;PUSH RET ADDR
JAUC CTWP_LUPE
MOVI XSCROLL,A14
MMFM A14,A1,A2,A3 ;A3=XSCROLL, A2=YSCROLL, A1=ZSCROLL
MOVE A3,*A8(OXVEL),L ;SET UNIVERSE VELOCITIES
NEG A2
MOVE A2,*A8(OYVEL),L
MOVE A1,*A8(OZVEL),L
RETP
CTWP_LUPE
MOVE B0,A1
MOVE B1,A3
MOVE B2,A5
MMTM A12,A1,A2,A3,A4,A5,A6,A7
SLEEP 1
MOVE A8,A14
; ADDI OXVEL,A14
; MMFM A14,A1,A3,A5 ;A5=OXVEL, A3=OYVEL, A1=OZVEL
ADDI OZVEL,A14
MMFM A14,A1,A3,A5 ;A5=OZVEL, A3=OXVEL, A1=OYVEL
MOVI XSACCEL,A7
MMFM A7,A2,A4,A6 ;A6=XSACCEL, A4=YSACCEL, A2=ZSACCEL
ADD A10,A5 ;ADD Z ACCELERATION
ADD A2,A5
ADD A9,A1 ;ADD Y ACCELERATION
SUB A4,A1
ADD A11,A3 ;ADD X ACCELERATION
ADD A6,A3
MMTM A14,A1,A3,A5 ;A5=OZVEL, A3=OXVEL, A1=OYVEL
MMFM A12,A1,A2,A3,A4,A5,A6,A7
MOVE A1,B0
MOVE A3,B1
MOVE A5,B2
MOVE *A13(PFTIME),A14,L
MOVE @WAVEIRQS,A1,L
MOVE A1,*A13(PFTIME),L
SUB A14,A1
SUB A1,A7
JRZ CTWP_DONE ;BR=DONE. NO TIME LEFT
JRN CTWP_DONE ;BR=EXCEEDED TIME LIMIT
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A1,A3,A5 ;A5=OXVAL, A3=OYVAL, A1=OZVAL
MOVE @ZBASE,A14,L ;TRANSLATE TO WORLD
SUB A14,A1
MOVE @YBASE,A14,L
ADD A14,A3
MOVE @XBASE,A14,L
SUB A14,A5
CMP A1,A2
CALL B0
JRZ CTWP_DONE ;BR=VIOLATED Z BOUNDARY
CMP A3,A4
CALL B1
JRZ CTWP_DONE ;BR=VIOLATED Y BOUNDARY
CMP A5,A6
CALL B2
JRNZ CTWP_LUPE ;BR=VIOLATED X BOUNDARY
CTWP_DONE
; RETP
MMFM A12,A14 ;PULL RETURN ADDR, W/O ZAPPING STAT
EXGPC A14
**************************************************************************
* *
* DETERMINE_WORLD_LIMIT_CHECKS *
* DETERMINE_LIMIT_CHECKS *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* A1 = (OZDEST - OZVAL) *
* A2 = OZVAL *
* A4 = OYVAL *
* A6 = OZVAL *
* A9 = (OYDEST - OYVAL) *
* A11 = (OXDEST - OXVAL) *
* B0 = Z LIMIT CHECK *
* B1 = Y LIMIT CHECK *
* B2 = X LIMIT CHECK *
* *
**************************************************************************
DETERMINE_WORLD_LIMIT_CHECKS
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A2,A4,A6 ;A6=OXVAL, A4=OYVAL, A2=OZVAL
MOVI XBASE,A14
MMFM A14,A1,A9,A11 ;A11=XBASE, A9=YBASE, A1=ZBASE
SUB A1,A2 ;TRANSLATE TO WORLD
ADD A9,A4
SUB A11,A6
JRUC DLC_GO
DETERMINE_LIMIT_CHECKS
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A2,A4,A6 ;A6=OXVAL, A4=OYVAL, A2=OZVAL
DLC_GO
MOVE A8,A14
ADDI OXDEST,A14
MMFM A14,A1,A9,A11 ;A11=OXDEST, A9=OYDEST, A1=OZDEST
MOVI LT_CHECK,B0 ;SET DEFAULT CHECKS
MOVE B0,B1
MOVE B0,B2
MOVI GT_CHECK,B14
SUB A2,A1 ;(OZDEST - OZVAL)
JRNN DLC_SUBY ;BR=USE LESS THAN CHECK
MOVE B14,B0
DLC_SUBY
SUB A4,A9 ;(OYDEST - OYVAL)
JRNN DLC_SUBX ;BR=USE LESS THAN CHECK
MOVE B14,B1
DLC_SUBX
SUB A6,A11 ;(OXDEST - OXVAL)
JRNN DLC_SUBS_DONE ;BR=USE LESS THAN CHECK
MOVE B14,B2
DLC_SUBS_DONE
RETS
**************************************************************************
* *
* COPTER_ACCEL_WORLD_SETUP *
* COPTER_ACCEL_SETUP *
* *
* COMPUTE ACCELERATION FROM: *
* *
* 2 DEST - VAL *
* ACCEL = -------- * ( ---------- - VEL ) *
* DURATION DURATION *
* *
* PASS: *
* A1 = (OZDEST - OZVAL) *
* A7 = DURATION FROM CURRENT POSITION TO DESTINATION *
* A8 = OBJECT *
* A9 = (OYDEST - OYVAL) *
* A11 = (OXDEST - OXVAL) *
* *
* RETURN: *
* A10 = Z ACCELERATION *
* A9 = Y ACCELERATION *
* A11 = X ACCELERATION *
* *
**************************************************************************
COPTER_ACCEL_WORLD_SETUP
MOVE A8,A14
; ADDI OXVEL,A14
; MMFM A14,A3,A5,A10 ;A10=OXVEL, A5=OYVEL, A3=OZVEL
ADDI OZVEL,A14
MMFM A14,A3,A5,A10 ;A10=OZVEL, A5=OXVEL, A3=OYVEL
MOVE @ZSCROLL,A14,L ;TRANSLATE TO WORLD
SUB A14,A10
MOVE @YSCROLL,A14,L
ADD A14,A3
MOVE @XSCROLL,A14,L
SUB A14,A5
JRUC CAS_GO
COPTER_ACCEL_SETUP
MOVE A8,A14
; ADDI OXVEL,A14
; MMFM A14,A3,A5,A10 ;A10=OXVEL, A5=OYVEL, A3=OZVEL
ADDI OZVEL,A14
MMFM A14,A3,A5,A10 ;A10=OZVEL, A5=OXVEL, A3=OYVEL
CAS_GO
DIVS A7,A1 ;DIVIDE DIFFERENCE
DIVS A7,A9
DIVS A7,A11
SUB A10,A1 ;SUBTRACT VELOCITY
SUB A3,A9
SUB A5,A11
SLL 1,A1 ;MULTIPLY BY 2
SLL 1,A9
SLL 1,A11
DIVS A7,A1 ;FINAL DIVIDE
DIVS A7,A9
DIVS A7,A11
MOVE A1,A10
RETS
**************************************************************************
* *
* COPTER_FINAL_CHARGE *
* *
**************************************************************************
COPTER_FINAL_CHARGE
MOVI -01000H,A14 ;SET Z VELOCITY
MOVE A14,*A8(OZVEL),L
MOVI 0D700H,A9 ;Z LIMIT FOR GOIN' DOWN
MOVI 1024,A0
CALLA RAND0
MOVE A0,A10
CMPI 512,A10
JRLT CFC_1ST_LUPE ;BR=FLY DOWN!
MOVI 016000H,A9 ;Z LIMIT FOR GOIN' UP
CFC_1ST_LUPE
MOVK 3,A0
CALLA SET_TRACK_VOLUME_Z
MOVE *A8(OZVAL),A1,L
MOVE @ZBASE,A4,L
MOVE @ZSCROLL,A14,L
SRA ZFRAC,A14 ;THROW AWAY FRACTION
ADD A14,A4 ;ZBASE ON NEXT TICK
SUBI 0800H,A1
SUB A4,A1
CMP A9,A1
JRLT CFC_2ND_PART ;BR=NOT CLOSE ENOUGH IN Z YET
SLEEP 1
MOVE @COPTER_OBJ,A8,L
JAZ SUCIDE
MOVE @DESTROYING_PARTS,A14,W
JRNZ CFC_ABORT ;BR=STOP WHAT YOUR DOING!
JRUC CFC_1ST_LUPE
CFC_2ND_PART
CMPI 512,A10
JRGE CFC_GO_UP ;BR=FLY UP!
CLR A9 ;INITIAL Y VELOCITY
MOVI 0A0000H,A10 ;FINAL Y VELOCITY
MOVI 020000H,A11 ;Y ACCELERATION
MOVI -0400H,A14 ;SET Z VELOCITY
MOVE A14,*A8(OZVEL),L
JRUC CFC_2ND_START
CFC_GO_UP
CLR A9 ;INITIAL Y VELOCITY
MOVI -080000H,A10 ;FINAL Y VELOCITY
MOVI -010000H,A11 ;Y ACCELERATION
JRUC CFC_2ND_START
CFC_2ND_LUPE
SLEEP 1
MOVE @COPTER_OBJ,A8,L
JAZ SUCIDE
MOVE @DESTROYING_PARTS,A14,W
JRNZ CFC_ABORT ;BR=STOP WHAT YOUR DOING!
CFC_2ND_START
MOVK 3,A0
CALLA SET_TRACK_VOLUME_Z
MOVE @XSCROLL,A14,L
MOVE A14,*A8(OXVEL),L ;UPDATE X VELOCITY
MOVE @YSCROLL,A14,L
CMP A10,A9
JREQ CFC_ADD_Y ;BR=WE REACHED FINAL Y VELOCITY
ADD A11,A9
CFC_ADD_Y
SUB A9,A14 ;TRANSLATE TO UNIVERSE
NEG A14
MOVE A14,*A8(OYVEL),L ;UPDATE Y VELOCITY
MOVE *A8(OZVAL),A1,L
MOVE @ZBASE,A14,L
SUB A14,A1 ;TRANSLATE TO WORLD
CMPI ZMAX_REAL,A1
JRGE CFC_2ND_LUPE ;BR=NOT PAST YET
CLR A14
MOVE A14,*A8(OCOMMAND),W
MOVE A8,A3 ;FADE DOWN TO QUARTER
CLR A8
MOVI [63,0],A9
MOVK 3,A10
MOVI 28,A11
CREATE PID_GOODIE,TRACK_FADE_PROC
MOVE A3,A8
CFC_ABORT
RETP
**************************************************************************
* *
* COPTER_CHARGE *
* *
**************************************************************************
COPTER_CHARGE
MOVI -0800H,A14 ;SET Z VELOCITY
MOVE A14,*A8(OZVEL),L
MOVI 016000H,A9 ;Z LIMIT
MOVI 030000H,A10 ;X/Y SPEED
MOVI 0400000H,A11 ;YBASE ADJUSTMENT
CC_1ST_LUPE
MOVK 3,A0
CALLA SET_TRACK_VOLUME_Z
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A1,A2,A3 ;A3=OXVAL, A2=OYVAL, A1=OZVAL
MOVI XBASE,A14
MMFM A14,A4,A5,A6 ;A6=XBASE, A5=YBASE, A4=ZBASE
MOVE @ZSCROLL,A14,L
SRA ZFRAC,A14 ;THROW AWAY FRACTION
ADD A14,A4 ;ZBASE ON NEXT TICK
SUBI 0800H,A1
SUB A4,A1
CMP A9,A1
JRLT CC_2ND_PART ;BR=NOT CLOSE ENOUGH IN Z YET
MOVE A10,A7 ;SET DEFAULT X SPEED
MOVE A6,A14
SUB A3,A14 ;WORLD X
MOVE A14,A1
ABS A14 ;ABS(WORLD X)
CMP A7,A14
JRGT CC_GO_X ;BR=VELOCITY OK
MOVE A1,A7 ;USE ABS(WORLD X) AS VELOCITY
JRUC CC_DO_X
CC_GO_X
CMP A6,A3
JRLT CC_DO_X ;BR=VELOCITY DIRECTION OK
NEG A7
CC_DO_X
MOVE @XSCROLL,A14,L
ADD A14,A7 ;TRANSLATE TO UNIVERSE
MOVE A7,*A8(OXVEL),L
MOVE A10,A7 ;SET DEFAULT Y SPEED
NEG A5
ADD A11,A5
CMP A5,A2
JRLT CC_DO_Y ;BR=VELOCITY DIRECTION OK
NEG A7
CC_DO_Y
MOVE @YSCROLL,A14,L
ADD A14,A7 ;TRANSLATE TO UNIVERSE
MOVE A7,*A8(OYVEL),L
SLEEP 1
JRUC CC_1ST_LUPE
CC_2ND_PART
MOVI 050000H,A10 ;Y VELOCITY
MOVI ZMAX_REAL,A11
JRUC CC_2ND_START
CC_2ND_LUPE
SLEEP 1
CC_2ND_START
MOVK 3,A0
CALLA SET_TRACK_VOLUME_Z
MOVE @XSCROLL,A14,L
MOVE A14,*A8(OXVEL),L ;UPDATE X VELOCITY
MOVE @YSCROLL,A14,L
SUB A10,A14
MOVE A14,*A8(OYVEL),L ;UPDATE Y VELOCITY
MOVE *A8(OZVAL),A1,L
MOVE @ZBASE,A14,L
SUB A14,A1 ;TRANSLATE TO WORLD
CMP A11,A1
JRGE CC_2ND_LUPE ;BR=NOT PAST YET
CALLR COPTER_OFF
MOVE A8,A3 ;FADE DOWN TO OFF
CLR A8
MOVK 3,A10
MOVI 30,A11
CREATE PID_IND,TRACK_FADE_OUT_FULL_PROC
MOVE A3,A8
RETP
**************************************************************************
* *
* DO_HOVER *
* *
* PASS: *
* A0 = X MAXIMUM SPEED *
* A1 = Y MAXIMUM SPEED *
* A2 = Z MAXIMUM SPEED *
* A8 = OBJECT *
* *
**************************************************************************
DO_HOVER
MOVE A0,A0
JRZ DH_DO_Y ;BR=DON'T HOVER IN X
move *A8(OHXACCEL),A14,W
JRZ DH_DO_Y ;BR=DON'T HOVER IN X
move *A8(OXVEL),A3,L
add A14,A3
move A3,*A8(OXVEL),L
abs A3
CMP A0,A3
jrlt DH_DO_Y ;BR=UNDER THE LIMIT
NEGM *A8(OHXACCEL),W ;CHANGE DIRECTION
DH_DO_Y
MOVE A1,A1
JRZ DH_DO_Z ;BR=DON'T HOVER IN Y
move *A8(OHYACCEL),A14,W
JRZ DH_DO_Z ;BR=DON'T HOVER IN Y
move *A8(OYVEL),A3,L
add A14,A3
move A3,*A8(OYVEL),L
abs A3
CMP A1,A3
jrlt DH_DO_Z ;BR=UNDER THE LIMIT
NEGM *A8(OHYACCEL),W ;CHANGE DIRECTION
DH_DO_Z
MOVE A2,A2
JRZ DH_DONE ;BR=DON'T HOVER IN Z
MOVE *A8(OHZFLYTO),A0,L
JRNZ DH_COMEBACK
move *A8(OHZACCEL),A14,W
JRZ DH_DONE ;BR=DON'T HOVER IN Z
move *A8(OZVEL),A3,L
add A14,A3
move A3,*A8(OZVEL),L
ABS A14
CMP A2,A3
JRGE DH_NEG_Z
NEG A2
CMP A2,A3
JRGT DH_DONE
NEG A14
DH_NEG_Z
NEG A14
MOVE A14,*A8(OHZACCEL),W
DH_DONE
RETS
DH_COMEBACK
MOVE *A8(OHZACCEL),A14,W
MOVE *A8(OZVEL),A3,L
ADD A14,A3
NEG A2
CMP A2,A3
JRLT DH_FLYTO_CHK
MOVE A3,*A8(OZVEL),L
DH_FLYTO_CHK
MOVE *A8(OZVAL),A1,L
MOVE @ZBASE,A14,L
SUB A14,A1
CMP A0,A1
JRGT DH_DONE
CLR A14
MOVE A14,*A8(OHZFLYTO),L
RETS
**************************************************************************
* *
* DO_HOVER_WORLD *
* *
* PASS: *
* A0 = X MAXIMUM SPEED *
* A1 = Y MAXIMUM SPEED *
* A2 = Z MAXIMUM SPEED *
* A8 = OBJECT *
* A9 = OLD ZSCROLL *
* A10 = OLD YSCROLL *
* A11 = OLD XSCROLL *
* *
**************************************************************************
DO_HOVER_WORLD
MOVE A0,A0
JRZ DH_DO_Y ;BR=DON'T HOVER IN X
move *A8(OXVEL),A3,L
SUB A11,A3 ;TRANSLATE TO WORLD
move *A8(OHXACCEL),A14,W
add A14,A3
MOVE A3,A14
MOVE @XSCROLL,A4,L
ADD A4,A3 ;TRANSLATE TO UNIVERSE
move A3,*A8(OXVEL),L
abs A14
CMP A0,A14
jrlt DHW_DO_Y ;BR=UNDER THE LIMIT
NEGM *A8(OHXACCEL),W ;CHANGE DIRECTION
DHW_DO_Y
MOVE A1,A1
JRZ DHW_DO_Z ;BR=DON'T HOVER IN Y
move *A8(OYVEL),A3,L
ADD A10,A3 ;TRANSLATE TO WORLD
move *A8(OHYACCEL),A14,W
add A14,A3
MOVE A3,A14
MOVE @YSCROLL,A4,L
SUB A4,A3 ;TRANSLATE TO UNIVERSE
move A3,*A8(OYVEL),L
abs A14
CMP A1,A14
jrlt DHW_DO_Z ;BR=UNDER THE LIMIT
NEGM *A8(OHYACCEL),W ;CHANGE DIRECTION
DHW_DO_Z
MOVE A2,A2
JRZ DHW_DONE ;BR=DON'T HOVER IN Z
MOVE *A8(OHZFLYTO),A0,L
JRNZ DHW_COMEBACK
move *A8(OZVEL),A3,L
SUB A9,A3 ;TRANSLATE TO WORLD
move *A8(OHZACCEL),A14,W
add A14,A3
MOVE A3,A5
MOVE @ZSCROLL,A4,L
ADD A4,A3 ;TRANSLATE TO UNIVERSE
move A3,*A8(OZVEL),L
ABS A14
CMP A2,A5
JRGE DHW_NEG_Z
NEG A2
CMP A2,A5
JRGT DHW_DONE
NEG A14
DHW_NEG_Z
NEG A14
MOVE A14,*A8(OHZACCEL),W
DHW_DONE
RETS
DHW_COMEBACK
MOVE *A8(OHZACCEL),A14,W
MOVE *A8(OZVEL),A3,L
SUB A9,A3 ;TRANSLATE TO UNIVERSE
ADD A14,A3
NEG A2
CMP A2,A3
JRLT DH_FLYTO_CHK
MOVE @ZSCROLL,A4,L
ADD A4,A3
MOVE A3,*A8(OZVEL),L
JRUC DH_FLYTO_CHK
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* A_CREATE_FLASH - MAKE A GUN FLASH *
* *
* PASS: *
* A8 = GUN OBJECT *
* AARG+,L = ADDRESS TO JUMP TO IF CAN'T DO IT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_CREATE_FLASH
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE *A0(OCOMMAND),A14,W
BTST B_CGUNS,A14
JRZ ACF_NOFLASH ;BR=GUNS NOT ACTIVE
; MOVE *A8(OHITS),A14,W
; JRZ ACF_NOFLASH ;BR=DESTROYED
; JRN ACF_NOFLASH ;BR=DESTROYED
MOVE *A8(OFLAGS),A14,W
BTST B_OFSCRN,A14
JRNZ ACF_NOFLASH ;BR=OFF DA SCREEN
MOVE *A8(OFLASH_INIT),A5,L
CALLA CREATE_OBJ
MOVE A0,*A8(OFLASHOBJ),L
JRZ ACF_NOFLASH ;BR=CREATION FAILED
MOVE *A8(OFLASH_OFFSET),A14,L ;OFFSET FROM GUN OBJECT
MOVE *A8(OPARTSXY),A1,L
ADD A14,A1
MOVE A1,*A0(OPARTSXY),L
CALLA GET_HEAD_PART
MOVE *A8(OXVAL),A1,L ;SET POSITION
MOVE *A8(OYVAL),A2,L
MOVE *A8(OZVAL),A3,L
CALLA SETOFFPU
CALLA INSPART ;INSERT
CALLA INSOBJ
RETS
ACF_NOFLASH
CALLA GETAFARG_LONG
MOVE A0,*A8(AnimFrm),L
RETS
**************************************************************************
* *
* A_DELETE_FLASH - DELETE FLASH UPON RANDOM CHANCE IF NOT THEN JUMP *
* *
* PASS: *
* A8 = GUN OBJECT *
* AARG+,L = ADDRESS TO JUMP TO IF IT DIDN'T HAPPEN *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_DELETE_FLASH
MOVI 768,A0 ;25% CHANCE OF DELETING
CALLA RANDPER
JRNC DELETE_FLASH ;BR=DELETE FLASH
CALLA GETAFARG_LONG
MOVE A0,*A8(AnimFrm),L ;JUMP!
ADF_NONE
RETS
**************************************************************************
* *
* DELETE_FLASH - DELETE THE FLASH OBJECT *
* *
* PASS: *
* A8 = GUN OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
DELETE_FLASH
MOVE *A8(OFLASHOBJ),A0,L
JRZ ADF_NONE ;BR=NO FLASH OBJECT
;THIS DOES NOT HAVE TO BE DONE TO ALL GUNS!
MOVE *A0(AnimFrm),*A8(OFLASHANIM),L ;SAVE WHERE WE LEFT OFF FOR GAT
CLR A14
MOVE A14,*A8(OFLASHOBJ),L ;NO FLASH OBJECT
CALLA PULLPART ;GET RID OF IT
JAUC DELOBJ
**************************************************************************
* *
* A_FIRE_SND_PAL - MAKE BANG! SOUND *
* *
* PASS: *
* A8 = GUN OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_FIRE_SND_PAL
MOVE *A8(OGUN_SND),A0,L
JRZ AFSP_NOSND
; CALLA ONESND_Z
CALLA ONESND
AFSP_NOSND
JRUC A_HILITE_PAL
**************************************************************************
* *
* A_HILITE_PAL - CHANGE TO BRIGHT GUN PALETTE *
* *
* PASS: *
* A8 = GUN OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_HILITE_PAL
MOVE *A8(OHILITE_PAL),A0,L
JAUC CHANGE_PAL
**************************************************************************
* *
* A_NORMAL_PAL - CHANGE TO NORMAL PALETTE *
* *
* PASS: *
* A8 = GUN OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_NORMAL_PAL
MOVE *A8(ONORMAL_PAL),A0,L
JAUC CHANGE_PAL
**************************************************************************
* *
* A_HIT_FLIP_ON - CHECK PLAYER HIT, TURN THE OBJECT ON, *
* AND DO SOME RANDOM FLIPS *
* *
* A_HIT_ON - CHECK PLAYER HIT AND TURN THE OBJECT ONLY *
* *
* PASS: *
* A8 = OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_HIT_FLIP_ON
MOVE @RAND,A14,W
ANDI M_FLIPH|M_FLIPV,A14 ;ISOLATE FLIP BITS ONLY
SETF 2,0,0
MOVE A14,*A8(OCTRL+4),0
SETF 16,1,0 ;WORD SIGN EXTEND
A_HIT_ON
CLR A3 ;ZERO OFFSET
; MOVI [1,0],A5 ;DAMAGE
MOVE @BASE_HIT,A5,W
SUBI 800H,A5
SLL 4,A5
MOVE *A8(OPART1),A14,L
LOCKON Z
MOVE *A14(OCOMMAND),A14,W
BTST B_CHITALL,A14
JRNZ AHO_HITALL ;BR=HIT 'EM ALL
CALLA CK_PLAYER_HIT ;CHECK EACH PLAYER
JAUC OBJ_ON_WNZ
AHO_HITALL
ALLPLYR PLAYER_HIT ;HIT 'EM ALL, HARD!
JAUC OBJ_ON_WNZ
**************************************************************************
* *
* GET_PCENTRY - GET PLAYER COUNT TABLE ENTRY *
* *
* PASS: *
* A1 = TABLE ADDRESS *
* .WORD PLAYER ONE VALUE, PLAYER TWO VALUE, PLAYER THREE VALUE *
* RETURN: *
* A14 = TABLE ENTRY *
* *
**************************************************************************
GET_PCENTRY
MOVE @CURPLYRS,A14,W ;GET NUMBER OF CURRENT PLAYERS
DEC A14
JRNN GP_GO
CLR A14
GP_GO
SLL 4,A14 ;TRANSLATE TO TABLE OFFSET
ADD A1,A14 ;OFFSET TABLE
MOVE *A14,A14,W ;GET TIME
RETS
**************************************************************************
* *
* A_LAUNCH_ROCKET *
* *
**************************************************************************
;OATE_ROCKET EQU ODATA
OTARGETX EQU ODATA+020H
OTARGETY EQU ODATA+040H
A_LAUNCH_ROCKET
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE @MISSLETIME_TABLE,A1,L
CALLR GET_PCENTRY ;LOAD SLEEP TIME
MOVE A14,A1
SLL 8,A14
OR A1,A14
MOVE A14,*A8(AnimSLP),W ;LOAD BOTH SLEEPS
MOVE *A0(OCOMMAND),A14,W
BTST B_CMISSLE,A14
JRZ ALR_DONE
MOVE *A8(OFLAGS),A14,W
BTST B_OFSCRN,A14
JRNZ ALR_DONE
; MOVE *A8(OHITS),A14,W
; JRZ ALR_DONE
; JRN ALR_DONE
MOVE *A8(OIHOFF),A10,W
CMPI 090H,A10
JRGT ALR_DONE
CALLA GETAFARG_LONG ;GET OFFSET FROM PART
MOVE A0,A9
MOVI ROCKET_INIT,A5
CALLA CREATE_OBJ
JRZ ALR_ABORT
MOVI 0101H,A14
MOVE A14,*A0(OCONST),W
MOVI ROCKET_GUNVECT,A14
MOVE A14,*A0(OGUNVECT),L
MOVE *A8(OXVAL),A2,L
MOVE A9,A14
SEXT A14,W
SLL 15,A14
ADD A14,A2
MOVE A2,*A0(OXVAL),L
; MOVE @XBASE,A14,L
; SUB A14,A2
MOVE *A8(OYVAL),A4,L
MOVE A9,A14
SRA 16,A14
SLL 15,A14
ADD A14,A4
MOVE A4,*A0(OYVAL),L
; MOVE @YBASE,A14,L
; ADD A14,A4
MOVE *A8(OZVAL),A5,L
SUBK 2,A5
MOVE A5,*A0(OZVAL),L
MOVE @LAST_ROCKET,A14,L
JRZ ALR_LAST
MOVE *A14(OZVAL),A14,L
CMP A14,A5
JRLT ALR_NOLAST ;BR=THE "LAST" ROCKET IS FARTHER IN Z
ALR_LAST
MOVE A0,@LAST_ROCKET,L
ALR_NOLAST
MOVE @ZBASE,A14,L
SUB A14,A5
MOVI -(08000H-ZMAX_REAL)/(ROCKET_FRAME_TIME*8),A14
MOVE A14,*A0(OZVEL),L
NEG A14
SUBI ZMAX_REAL,A5
DIVU A14,A5
MOVE A8,A11
MOVE A0,A8
MOVE @(UCHECK_TBL+030H+010H),A1,L
MOVE A1,A0
SEXT A1,W
SLL 12,A1 ;UNCOMPRESS TOP WORLD Y
ADDI 08000H,A1
SRA 16,A0
SLL 12,A0 ;UNCOMPRESS BOTTOM WORLD Y
; MOVI -017B000H,A0 ;TOP WORLD Y
; MOVI 0D2000H,A1 ;BOTTOM WORLD Y
CALLA RANGERND ;PICK DA Y
MOVE A0,A3
MOVE A3,*A8(OTARGETY),L
MOVE @YBASE,A14,L
SUB A14,A3
; MOVE @(UCHECK_TBL+030H),A0,W
; SLL 12,A0
; SUBI 060000H,A0
; MOVE A0,A1
; NEG A1
MOVI 768,A0
CALLA RANDPER
JRC ALR_PICK_A_PLAYER
; MOVI -01F8000H,A0 ;LEFT WORLD X
; MOVI 01F8000H,A1 ;RIGHT WORLD X
MOVI LEFT_WORLDX+060000H,A0 ;LEFT WORLD X
MOVI RGHT_WORLDX-060000H,A1 ;RIGHT WORLD X
CALLA RANGERND ;PICK DA X
JRUC ALR_SET_X_TARGET
ALR_PICK_A_PLAYER
CALLA GET_PLAYER_WORLDX_EXTENTS
CALLA RANGERND ;PICK DA X
ALR_SET_X_TARGET
MOVE A0,A1
MOVE A1,*A8(OTARGETX),L
MOVE @XBASE,A14,L
ADD A14,A1
CALLA SLINEVEL_LOAD_2D
MOVE A8,A0
MOVE A11,A8
CALLA INSOBJ
CALLA GETAFARG_WORD ;GET SMOKE FLAG
JRZ ALR_ABORT ;BR=THANK FOR NOT SMOKING
MOVI ROCKET_SMOKE_INIT,A5
CALLA CREATE_OBJ
JRZ ALR_ABORT
MOVE *A8(OPARTSXY),A14,L
ADD A9,A14
MOVE A14,*A0(OPARTSXY),L
MOVB *A8(OZOFF),A14
DEC A14
MOVB A14,*A0(OZOFF)
CALLA GET_HEAD_PART
MOVE *A8(OXVAL),A1,L
MOVE *A8(OYVAL),A2,L
MOVE *A8(OZVAL),A3,L
CALLA SETOFFPU
CALLA INSOBJ
CALLA INSPART
SOUND1 SND_ROCKET_LAUNCH
ALR_ABORT
RETS
ALR_DONE
MOVI 0101H,A14
MOVE A14,*A8(AnimSLP),W ;SET BOTH SLEEPS TO ONE
RETS
**************************************************************************
* *
* A_ROCKET_WATCH *
* *
**************************************************************************
A_ROCKET_WATCH
MOVE *A8(OIHOFF),A14,W
JRNZ ARW_DONE
MOVE *A8(OSCALE),A5,L
MOVI 01000100H,A14
CMP A14,A5
JRGT ARW_DONE
MOVI 01000100H,A14
MOVE A14,*A8(OSCALE),L
MOVE *A8(OIMG),A1,L
MOVE *A1(ISIZE),A14,L
MOVE A14,*A8(OUSIZE),L
MOVE A14,*A8(OSIZE),L
MOVE *A1(IANIOFF),A14,L
MOVE A14,*A8(OUANIOFF),L
MOVE A14,*A8(OANIOFF),L
CALLA SET_ODAG ;COMPUTE ODAG AGAIN
MOVE *A8(OFLAGS),A14,W
ORI M_NOSCALE,A14
MOVE A14,*A8(OFLAGS)
MOVI ROCKET_PART2_ANIM,A14
MOVE A14,*A8(AnimFrm),L
MOVE A14,*A8(AnimScr),L
ARW_DONE
JRUC ROCKET_VEL_UPDATE
**************************************************************************
* *
* ROCKET_VEL_UPDATE *
* *
**************************************************************************
ROCKET_VEL_UPDATE
MOVE *A8(OXVAL),A2,L
MOVE *A8(OYVAL),A4,L
MOVE *A8(OZVAL),A5,L
MOVE @ZBASE,A14,L
SUB A14,A5
MOVE @ZSCROLL,A14,L
SUB A14,A5
MOVE *A8(OZVEL),A14,L
ADD A14,A5
; MOVE *A8(OZVEL),A14,L
NEG A14
SUBI ZMAX_REAL,A5
DIVU A14,A5
JRZ RCU_FUDGE
JRNN RCU_GO
RCU_FUDGE
MOVK 1,A5
RCU_GO
MOVE *A8(OTARGETY),A3,L
MOVE @YBASE,A14,L
SUB A14,A3
MOVE *A8(OTARGETX),A1,L
MOVE @XBASE,A14,L
ADD A14,A1
JAUC SLINEVEL_LOAD_2D
**************************************************************************
* *
* A_CHECK_ROCKET_IMG *
* *
**************************************************************************
A_CHECK_ROCKET_IMG
MOVE *A8(OZVAL),A1,L
MOVE *A8(OZVEL),A14,L
ADD A14,A1
MOVE @ZSCROLL,A14,L
SUB A14,A1
MOVE @ZBASE,A14,L
SUB A14,A1
SUBI 07C92H,A1
NEG A1
JRNN ACRI_DIV
CLR A1
ACRI_DIV
MOVI 09C0H,A14
DIVU A14,A1
CMPK 7,A1
JRGT A_ROCKET_HIT
; JRLE ACRI_GO
; MOVI ROCKET_PART2_HIT,A1
; JRUC ACRI_NEW_FRAME
;ACRI_GO
MOVE A1,A14
SLL 4,A1
SLL 6,A14
ADD A14,A1
ADDI ROCKET_PART2_ANIM,A1
ACRI_NEW_FRAME
MOVE A1,*A8(AnimFrm),L
JRUC ROCKET_VEL_UPDATE
**************************************************************************
* *
* A_ROCKET_8 *
* *
**************************************************************************
A_ROCKET_8
MOVI 0840084H,A1
; MOVI 0800080H,A1
CALLA SET_SCALEM
CALLA SET_ODAG
JRUC A_CHECK_ROCKET_IMG
**************************************************************************
* *
* A_ROCKET_HIT *
* *
**************************************************************************
A_ROCKET_HIT
MOVI ROCKET_PART2_HIT,A1
MOVE A1,*A8(AnimFrm),L
MOVE *A8(OFLAGS),A14,W
ORI M_SCRNOBJ,A14
MOVE A14,*A8(OFLAGS),W
MOVI 0840084H,A1
; MOVI 0800080H,A1
CALLA SET_SCALEM
CALLA SET_ODAG
MOVE *A8(ODAG),A1,L
MOVE A1,A14
SEXT A1,W
SLL 16,A1
MOVE A1,*A8(OXVAL),L
SRA 16,A14
SLL 16,A14
MOVE A14,*A8(OYVAL),L
CLR A14
MOVE A14,*A8(OCVECT),L
MOVE A14,*A8(OGUNVECT),L
CALLA CLR_VEL
MOVE @LAST_ROCKET,A14,L
CMP A14,A8
JRNE ARH_DONE
CLR A14
MOVE A14,@LAST_ROCKET,L
ARH_DONE
RETS
**************************************************************************
* *
* ROCKET GUN AND COLLISION VECTORS *
* *
**************************************************************************
ROCKET_COLL
WWL OID_PROCKET,~MASK_PLAYER,ROCKET_ROCKET_COLL
WWL OID_PEXPLOSION,~MASK_PLAYER,ROCKET_EXPLOSION_COLL
WL 0,DUMCRETS
ROCKET_ROCKET_COLL
MOVE A0,*A8(OATE_ROCKET),L ;SAVE ROCKET OBJECT
RETS
ROCKET_EXPLOSION_COLL
MOVE *A8(OATE_ROCKET),A14,L
JRZ RV_DONE ;BR=NO ROCKET COLLISION
CMP A0,A14
JRNE RV_DONE ;BR=DIFFERENT EXPLOSION
MOVE *A0(RL_INTENDED_OBJ),A14,L ;DO WE HAVE THE RIGHT TARGET?
CMP A8,A14
JRNE RV_DONE ;BR=NOPE. NOT THE RIGHT TARGET.
CLRM *A8(OATE_ROCKET),L ;HIT! READY FOR ANOTHER!
MOVE *A0(OID),A0,W ;GET PLAYER DATA ADDRESS
CALLA POID_TO_PDATA
ROCKET_GUNVECT
CALLA CLR_VEL
MOVE A0,A1
MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
MOVI 010000H,A0
CLR A3
CALLA PreFrag_Center
DEC B0
MOVI FRAG_ROCKET_EXPLODE,B14
CALLA Fragger
MMFM SP,B1,B2,B4,B5,B6,B8,B9
MOVE A1,A0
MOVE @LAST_ROCKET,A14,L
CMP A14,A0
JANE DELETE_OBJ
CLR A14
MOVE A14,@LAST_ROCKET,L
JAUC DELETE_OBJ
RV_DONE
RETS
FRAG_ROCKET_EXPLODE
.long EXPLO_ANIM,0
.word OID_JUNK,(1 << 11) + (1 << 6) + (FRGNOFLY+FRGNOFLP+FRGPAL)
.long 0
; .long EXPLO_ANIM,0
; .word OID_JUNK,(1 << 11) + (1 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
; .long EXPLO_ANIM,0
; .word OID_JUNK,(1 << 11) + (0 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
; .long 0
ROCKET_LAUNCHER_ANIM
LWLL 1,1|AFunc,A_GOSUB+2,MISSLE_LAUNCH_SUB_ANIM
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
LW 1,0
.long 0
MISSLE_LAUNCH_SUB_ANIM
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CMISSLE,MLSA_RETURN
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,-15*2,5*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,-6*2,6*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,8*2,5*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,18*2,5*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,-16*2,18*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,-7*2,19*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,7*2,19*2,1
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,18*2,18*2,1
MLSA_RETURN
LWL 1,1|AFunc,A_RETURN
ROCKET_SMOKE_INIT
.LONG MSLSMOKE2, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, 0
.LONG C_STRTANIM
.LONG ROCKET_SMOKE_ANIM
ROCKET_SMOKE_ANIM
LW 1,4
LW MSLSMOKE3,4
LW MSLSMOKE4,4
LW MSLSMOKE5,4
LW MSLSMOKE6,4
LWL 1,1|AFunc,DELETE_OBJ
ROCKET_INIT
.LONG mossile1, ROCKET_COLL
.WORD OID_EROCKET, DMAWNZ, 0, 0
.LONG C_STRTANIM
.LONG ROCKET_PART1_ANIM
ROCKET_PART1_ANIM
LWL mossile1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL mossle1b,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL mossle1c,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL mossle1d,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
LWL 1,1|AFunc,A_ROCKET_WATCH
.long 0
ROCKET_FRAME_TIME EQU 4
ROCKET_PART2_ANIM
LWL mossile1,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile2,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile3,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile4,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile5,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile6,1|AFunc,A_CHECK_ROCKET_IMG
LWL mossile7,1|AFunc,A_CHECK_ROCKET_IMG
LWL 1,1|AFunc,A_ROCKET_8
ROCKET_PART2_HIT
; LWL 1,1|AFunc,A_ROCKET_HIT
LWL 1,1|AFunc,OBJ_CONST
LWLL 1,1|AFunc,A_SOUND+2,SND_ROCKET_HIT
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,8000H
LWL 1,1|AFunc,OBJ_CONST
LWL 1,2|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,8000H
LWL 1,2|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_OFF
LWL 1,2|AFunc,OBJ_ON_WNZ
LWL 1,1|AFunc,DELETE_OBJ
**************************************************************************
* *
* A_MAKE_FIREBALL *
* *
* Anim Func to MAKE A FIREBALL FROM THE NOSE GUN. *
* *
* PASS: *
* A8 = NOSE GUN OBJECT *
* AARG+,L = FAILURE ADDRESS TO JUMP *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
;TAKEN FROM GXMONDOR.H
OCHEWEDROCKET EQU ODATA+050H ;UHB Rocket flag (for explosion)
OXACCEL EQU ODATA+090H ;UHW X acceleration
OPROJECT_PARENT EQU ODATA+0190H ;UHL Ptr to the object that spawned us
OPROJECT_TIME EQU ODATA+01B0H ;UHB Travel time for projectile
A_MAKE_FIREBALL
MOVE *A8(OPART1),A9,L ;HEAD OBJECT
LOCKON Z
MOVE @MISSLETIME_TABLE,A1,L
CALLR GET_PCENTRY ;LOAD SLEEP TIME
MOVE A14,A1
SLL 8,A14
OR A1,A14
MOVE A14,*A8(AnimSLP),W ;LOAD BOTH SLEEPS
MOVE *A9(OCOMMAND),A14,W
BTST B_CMISSLE,A14
JRZ AMF_X ;BR=NO MISSLES ALLOWED
MOVE *A8(OFLAGS),A14,W
BTST B_OFSCRN,A14
JRNZ AMF_X ;BR=GENERATOR OFF SCREEN
; MOVE *A8(OHITS),A14,W
; JRZ AMF_X ;BR=GENERATOR DEAD
; JRN AMF_X ;BR=GENERATOR DEAD
MOVI FIRE_BALL_INIT_C,B0
CALLA EASYMAKE
JRZ AMF_X ;No objects available
MOVI [-45*2,0],A3
MOVE A3,*A0(OPARTSXY),L ;Just to position us
MOVE *A9(OXVAL),A1,L
MOVE *A9(OYVAL),A2,L
MOVE *A9(OZVAL),A3,L
SUBK 32,A3
MOVE @LAST_ROCKET,A14,L
JRZ AMF_LAST
MOVE *A14(OZVAL),A14,L
CMP A14,A3
JRLT AMF_NOLAST ;BR=THE "LAST" ROCKET IS FARTHER IN Z
AMF_LAST
MOVE A0,@LAST_ROCKET,L
AMF_NOLAST
CALLA SETOFFPU
MOVE A8,*A0(OPROJECT_PARENT),L ;Tell us our roots
MOVE *A9(OZVEL),A14,L ;Transfer Z velocity only if Enemy
JRP AMF_INSERT ;is not moving away from the screen
MOVE A14,*A0(OZVEL),L
AMF_INSERT
CALLA INSOBJ
RETS
AMF_X
CALLA GETAFARG_LONG
MOVE A0,*A8(AnimFrm),L
RETS
*Initialize Mondor's fire ball
FIRE_BALL_INIT_C
.LONG LILPLAZ1
.WORD DMAWNZ, M_DBLSCL, OM_OID|OM_COLL|OM_ANIM|OM_CFUNC
.WORD OID_JUNK
.LONG DUMCOLL, ANIM_FIRE_BALL_C, C_FIREBALL
*Animate the fire ball
ANIM_FIRE_BALL_C
LWL 1,1|AFunc,A_FIRE_BALL_TARGET_C
LW LILPLAZ2,2
LW LILPLAZ3,2
LW LILPLAZ1,2
LWL LILPLAZ2,2|AFunc,A_FB_COLLS_ON
ANIM_FB_LOOP_C
LWL LILPLAZ3,2|AFunc,A_CHECK_FB_SCREEN_HIT_C
LWL LILPLAZ1,2|AFunc,A_CHECK_FB_SCREEN_HIT_C
LWL LILPLAZ2,1|AFunc,A_CHECK_FB_SCREEN_HIT_C
LWLL 1,1|AFunc,A_ONSCREEN+2,ANIM_FB_LOOP_C
LWL 1,1|AFunc,DELETE_OBJ_PROC
*FireBall hits the screen
ANIM_FB_HIT_C
LWL 1,1|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_UNIV_TO_SCRN ;Make this stick
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,-8000H
LWL 1,2|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,-8000H
LWL 1,2|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,-8000H
LWL 1,2|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,-8000H
LWL 1,2|AFunc,OBJ_CONST
LWL 1,1|AFunc,OBJ_OFF
LWL 1,1|AFunc,OBJ_ON_WNZ
LWLLL 1,1|AFunc,A_CK_PHIT+4,0,-8000H
LWL 1,1|AFunc,DELETE_OBJ
**************************************************************************
* *
* A_FIRE_BALL_TARGET_C *
* *
* Anim func to set up the velocities and what not for *
* the fire ball FROM COPTER. *
* *
* A8 = ptr to the fire ball object *
* *
**************************************************************************
A_FIRE_BALL_TARGET_C
MOVI 800,A0
CALLA RANDPER ;This is the chance that we target
JRNC AFBTC_FULL_SCREEN ;BR = Not this time
CALLA GET_PLAYER_EXTENTS
JRUC AFBTC_PICK_TARGET
AFBTC_FULL_SCREEN
MOVI [SCRTOP+SKYTOPOF,SCRLFT],A2
MOVI [SCRBOT,SCRRGT],A3
AFBTC_PICK_TARGET
MOVY A2,A0
MOVY A3,A1
CALLA RANGERND
SRA 16,A0
MOVE A0,A5
MOVX A2,A0
SEXT A0
MOVX A3,A1
SEXT A1
CALLA RANGERND
MOVE A0,A1
MOVE A5,A3
MOVE @ZBASE,A5,L
ADDI ZMAX_REAL2,A5
STOUXY A5,A1,A3
MOVE *A8(OXVAL),A2,L
MOVE *A8(OYVAL),A4,L
MOVE *A8(OZVAL),A6,L
MOVI 45,A7
MOVB A7,*A8(OPROJECT_TIME)
CALLA SLINEVEL_LOAD_3D
MOVE *A8(OPROJECT_PARENT),A0,L ;Get the guy that created us
CALLA GETHEADPART ;Get some head
MOVE *A0(OZVAL),A14,L
CMP A14,A6 ;Is fireball already behind Mondor?
JAGT DELETE_OBJ_PROC ;BR = Yes
MOVE *A8(OZVEL),A1,L
MOVE *A0(OZVEL),A14,L
CMP A14,A1 ;Is Mondor moving faster than the fireball?
JAGT DELETE_OBJ_PROC ;BR = Yes, delete
MOVE @WING_COUNT,A14,W
JRNZ AFBTC_NORMAL_ARC ;BR=WE AT LEAST ONE WING
MOVI 90000H,A0
JRUC AFBTC_CALC_ARC
AFBTC_NORMAL_ARC
MOVI 40000H,A0
AFBTC_CALC_ARC
CALLA SRAND
ADDRM A0,*A8(OXVEL),L
MOVE A0,A1
MOVI 45/2,A0
DIVS A0,A1
NEG A1
MOVE A1,*A8(OXACCEL),W
SOUNDZ SND_FIRE_HISS
RETS
**************************************************************************
* *
* A_CHECK_FB_SCREEN_HIT_C *
* *
* Anim func to check if FireBall FROM COPTER hit the screen. *
* *
* A8 = ptr to FireBall *
* *
**************************************************************************
A_CHECK_FB_SCREEN_HIT_C
MOVI SND_FB_HIT_SCRN,A4
MOVI ANIM_FB_HIT_C,A5
JAUC CHECK_SCREEN_HIT
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* C_INIT_LAUNCHER *
* *
**************************************************************************
C_INIT_LAUNCHER
MOVE *B0+,B14,L
MOVE B14,A1
MOVE A1,*A0(OATTACKANIM),L
CALLA STRTANIM
CLR A14
MOVE A14,*A0(ONORMAL_PAL),L
MOVE A14,*A0(ODAMANIM),L
MOVE A14,*A0(OFLASHOBJ),L
JRUC C_SET_HITS
**************************************************************************
* *
* C_INIT_GUN *
* *
**************************************************************************
C_INIT_GUN
MOVE A0,B14
ADDI ONORMAL_PAL,B14
MOVE *B0+,*B14+,L ;NORMAL PALETTE
MOVE *B0+,*B14+,L ;HILITE PALETTE
MOVE *B0+,B3,L ;ATTACK ANIMATION
MOVE B3,*B14+,L
MOVE *B0+,*B14+,W ;FIRE ANIMATION OFFSET
ADDK 010H,B14
MOVE *B0+,*B14+,L ;SOUND
MOVE *B0+,*B14+,L ;DAMAGE ANIMATION
MOVE *B0+,*B14+,L ;FLASH INIT TABLE
MOVE *B0+,*B14+,L ;FLASH OFFSET
CLR B1
MOVE B1,*B14,L ;CLEAR FLASH OBJECT
MOVE B3,A1
JRZ CIG_DONE
CALLA STRTANIM
CIG_DONE
JRUC C_SET_HITS
**************************************************************************
* *
* C_SET_HITS *
* *
**************************************************************************
C_SET_HITS
MOVE *B0+,B14,W
MOVE B14,A14
MOVE A14,*A0(OHITS),W
CLR A14
MOVE A14,*A0(OHITTIME),L ;CLEAR OHITTIME AND OHITCOUNT
RETS
**************************************************************************
* *
* C_RESTART_GAT_ANIM - RESTART GAT GUN FLASHES WHERE THEY LEFT OFF *
* *
* PASS: *
* A8 = GAT GUN OBJ *
* A0 = FLASH OBJ *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
C_RESTART_GAT_ANIM
MOVE *A8(OFLASHANIM),A1,L
MOVI GATFLASH_ANIM,A14
JAUC STRTANIM_OFF
**************************************************************************
* *
* C_CHANGE_ENGINE_PAL - CREATE A DIFFERENT PALETTE FOR THE ENGINE COLOR *
* CYCLE *
* *
**************************************************************************
C_CHANGE_ENGINE_PAL
MOVE A0,A8
MOVI gGRAD2cy2,A0
CALLA CHANGE_PAL
;A8 GETS RESTORED AFTER WE RETURN
RETS
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* COPTER FRAGMENTS *
* *
**************************************************************************
FRAG_C1
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (0 << 6) + 0
.long 0
FRAG_C2
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (0 << 6) + 0
.long 0
FRAG_C5
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(1 << 11) + (0 << 6) + 0
.long 0
FRAG_C10
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (1 << 6) + 0
.long FRAG_UANIM,F_UFRAG_STUFF_X2
.word OID_JUNK,(2 << 11) + (0 << 6) + 0
.long 0
FRAG_CS4
.long FRAG_SHARD_ANIM,F_UFRAG_STUFF
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_SHARD_ANIM,F_UFRAG_STUFF
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_SHARD_ANIM,F_UFRAG_STUFF
.word OID_JUNK,(1 << 11) + (1 << 6) + 0
.long FRAG_SHARD_ANIM,F_UFRAG_STUFF
.word OID_JUNK,(1 << 11) + (0 << 6) + 0
.long 0
YELLOW_METAL_CHUNK:
.word 32
.word 0001fh,051a0h,055c0h,059e0h,06200h,06220h,05e00h,04d80h
.word 06620h,06a40h,06640h,06640h,06a60h,059c0h,06620h,06e80h
.word 072a1h,07ae3h,07281h,06200h,07f04h,07ac2h,076c2h,076a2h
.word 05de0h,07f25h,06e60h,07ac3h,07ee3h,06e60h,07f26h,07febh
GRAY_METAL_CHUNK:
.word 32
.word 0001fh,01063h,01484h,018a5h,020c7h,020e7h,01cc6h,00c42h
.word 024e8h,02909h,02508h,02507h,02929h,01885h,024e7h,02d4ah
.word 0316bh,039adh,0314bh,020c6h,03dceh,0398ch,0358ch,0356ch
.word 01ca6h,041efh,02d2ah,0398dh,03dadh,02d29h,045f0h,05ab5h
;**************************************************************************
;* *
;* F_CFRAG_STUFF *
;* *
;**************************************************************************
;
;F_CFRAG_STUFF
; MOVE *A0(OFLAGS),A14,W
; ORI M_DBLSCL,A14
; MOVE A14,*A0(OFLAGS),W
;
; JAUC F_UFRAG_STUFF ;TAKE CARE OF THE PALETTE STUFF
;**************************************************************************
;* *
;* A_BIG_EXPLO *
;* *
;**************************************************************************
;
;A_BIG_EXPLO
; MOVI EXPLO_INIT,A5
; CALLA CREATE_OBJ
; JRZ ABE_DONE
;
; MOVE *A0(OFLAGS),A14,W
; ORI M_MANSCALE,A14
; MOVE A14,*A0(OFLAGS),W
;
; MOVE *A8(OXVAL),A2,L
; MOVE A2,*A0(OXVAL),L
;
; MOVE *A8(OYVAL),A4,L
; SUBI 60*2 << 15,A4
; MOVE A4,*A0(OYVAL),L
;
; MOVE *A8(OZVAL),A5,L
; SUBK 9,A5
; MOVE A5,*A0(OZVAL),L
;
; MOVE A0,A8
; MOVE @ZBASE,A14,L
; SUB A14,A5
; SRL Z2SCALE+3,A5
; CALLA SET_SCALE_MANUAL
;
; CALLA INSOBJ
;
; SOUND1 SND_CHAN3_OFF
; SOUND1 SND_FINAL_EXPLO_COPTER
;ABE_DONE
; RETS
EXPLO_INIT
.LONG FHKEXPLOB1, 0
; .WORD OID_JUNK, DMAWNZ, M_MANSCALE, 0
.WORD OID_JUNK, DMAWNZ, 0, 0
.LONG C_STRTANIM
.LONG EXPLO_ANIM
**************************************************************************
* *
* A_DELETE_COPTER *
* *
**************************************************************************
A_DELETE_COPTER
; CLR A14
; MOVE A14,@COPTER_OBJ,L
MOVE *A8(OPLAYER),A2,L
JAUC DELETE_ENEMY
SHAKE_SUB_ANIM
LWL 1,2|AFunc,A_SHAKE_COPTER
LWLL 1,1|AFunc,A_Anim_DSJ+2,SHAKE_SUB_ANIM
LWL 1,1|AFunc,A_RETURN
**************************************************************************
* *
* ADD_FIRE - FIRE GOOD! *
* *
* PASS: *
* A5 = FIRE INIT TABLE *
* A8 = OBJECT (PART OR HEAD) *
* A9 = OPARTSXY *
* A10 = FLIP BITS *
* RETURN: *
* A0 = NEW OBJECT *
* *
**************************************************************************
ADD_FIRE
MMTM SP,A2,A8
CALLA CREATE_OBJ
JRZ AF_DONE
MOVE *A0(OCTRL),A14,W
OR A10,A14
MOVE A14,*A0(OCTRL),W
MOVE A9,*A0(OPARTSXY),L
CALLA GET_HEAD_PART
MOVE *A8(OXVAL),A1,L
MOVE *A8(OYVAL),A2,L
MOVE *A8(OZVAL),A3,L
CALLA SETOFFPU
CALLA INSOBJ
CALLA INSPART
AF_DONE
MMFM SP,A2,A8
RETS
**************************************************************************
* *
* A_SIDE_SMOKE - MAKE SMOKE FOR THE SIDE FIRE *
* *
* PASS: *
* A8 = FIRE OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_SIDE_SMOKE
MOVI 768,A0
CALLA RANDPER
JRNC ASS_DONE ;BR=THANK YOU FOR NOT SMOKING
MOVI SIDE_SMOKE_INIT,A5
CALLA CREATE_OBJ
JRZ ASS_DONE ;BR=GOT NO SMOKE
MOVE *A8(OCTRL),A10,W
MOVI 76*2 << 15,A1
BTST B_FLIPH,A10
JRZ ASS_XVAL_OK ;BR=NO FLIP
NEG A1
ASS_XVAL_OK
MOVE *A8(OXVAL),A14,L
SUB A1,A14
MOVE A14,*A0(OXVAL),L
MOVE *A8(OYVAL),A14,L
ADDI 91*2 << 15,A14
MOVE A14,*A0(OYVAL),L
MOVE *A8(OZVAL),A14,L
SUBK 32,A14
MOVE A14,*A0(OZVAL),L
MOVE A0,A7
MOVI 0100000H,A0
MOVI 010000H,A1
CALLA RANGERND
BTST B_FLIPH,A10
JRNZ ASS_XVEL_OK ;BR=NO FLIP
NEG A0
ASS_XVEL_OK
MOVE @XSCROLL,A14,L
ADD A14,A0
MOVE A0,*A7(OXVEL),L
MOVI 010000H,A0
MOVI -010000H,A1
CALLA RANGERND
MOVE @YSCROLL,A14,L
SUB A14,A0
MOVE A0,*A7(OYVEL),L
MOVE A7,A0
MOVE @RAND,A14,W
ANDI M_FLIPH|M_FLIPV,A14
MOVE *A0(OCTRL),A1,W
OR A14,A1
MOVE A1,*A0(OCTRL),W
CALLA INSOBJ
ASS_DONE
RETS
SIDE_SMOKE_INIT
.LONG SMOKTR1, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, 0
.LONG C_STRTANIM
.LONG COPTER_SMOKE_ANIM
SIDE_FIRE_INIT
.LONG FHKE5F1FIRE1, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, -1
.LONG C_STRTANIM
.LONG SIDE_FIRE_ANIM
SIDE_FIRE_ANIM
LWL FHKE5F1FIRE1,1|AFunc,A_SIDE_SMOKE
LW FHKE5F1FIRE2,1
LW FHKE5F1FIRE3,1
LW FHKE5F1FIRE4,1
LW FHKE5F1FIRE5,1
LW FHKE5F1FIRE6,1
.long 0
FUSE_FIRE_START_ANIM
LWLL HFIREA1,3|AFunc,A_CHANGE_PAL+2,FIRE2PAL
FUSE_FIRE_ANIM
LW HFIREA2,3
LW HFIREA3,3
LW HFIREA4,3
LW HFIREA5,3
LW HFIREA6,3
LW HFIREA1,3
.long 0
ENGINE_FIRE_INIT
.LONG HDFLAM1, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, -2
.LONG C_STRTANIM
.LONG ENGINE_FIRE_ANIM
ENGINE_FIRE_ANIM
LWL HDFLAM1,3|AFunc,A_ENGINE_SMOKE
LW HDFLAM2,3
LW HDFLAM3,3
LW HDFLAM4,3
LW HDFLAM5,3
LW HDFLAM6,3
LW HDFLAM7,3
.long 0
**************************************************************************
* *
* A_ENGINE_SMOKE *
* *
**************************************************************************
A_ENGINE_SMOKE
MOVI 010000H,A0
CLR A3
calla PreFrag_Box
INC B0
MOVI COPTER_SMOKE_FRAG,B14
JAUC Fragger
COPTER_SMOKE_FRAG
.long COPTER_SMOKE_ANIM,F_DOUBLE_SCALE
.word OID_JUNK,(1 << 11) + (0 << 6) + (FRGBOG+FRGNOFLY+FRGPAL)
.long COPTER_SMOKE_ANIM,F_DOUBLE_SCALE
.word OID_JUNK,(1 << 11) + (3 << 6) + (FRGBOG+FRGNOFLY+FRGPAL)
.long COPTER_SMOKE_ANIM,F_DOUBLE_SCALE
.word OID_JUNK,(1 << 11) + (3 << 6) + (FRGBOG+FRGNOFLY+FRGPAL)
.long COPTER_SMOKE_ANIM,F_DOUBLE_SCALE
.word OID_JUNK,(1 << 11) + (3 << 6) + (FRGBOG+FRGNOFLY+FRGPAL)
.long 0
F_DOUBLE_SCALE
ORIM M_DBLSCL,*A0(OFLAGS),W
RETS
COPTER_SMOKE_ANIM
LW SMOKTR1,3
LW SMOKTR2,3
LW SMOKTR3,3
LW SMOKTR4,4
LW SMOKTR5,4
LW SMOKTR6,4
LWL 1,1|AFunc,DELETE_OBJ
**************************************************************************
* *
* A_CHECK_STUTTER *
* *
**************************************************************************
A_CHECK_STUTTER
MOVK 1,A9
MOVE *A8(OPART1),A2,L
LOCKON Z
MOVE *A2(OSTUTTER),A3,W
JRZ ACS_SET
JRN ACS_SET
MOVE A3,A0
CALLA RANDPER
JRNC ACS_SET
NEG A3
MOVE A3,*A2(OSTUTTER),W
MOVE *A2(OCOMMAND),A14,W
BTST B_CHOVER,A14
JRZ ACS_NOSTOP
CLR A14
MOVE A14,*A2(OXVEL),L
; MOVI 08000H,A14
MOVE A14,*A2(OYVEL),L
MOVE A14,*A2(OZVEL),L
ACS_NOSTOP
MOVK 20,A0
MOVI 10,A1
CALLA RANGERND
MOVE A0,A9
SOUND1 SND_CHAN3_OFF
CREATE PID_IND,RESTART_COPTER_SND_PROC
ACS_SET
MOVB A9,*A8(AnimSLP)
RETS
**************************************************************************
* *
* RESTART_COPTER_SND_PROC *
* *
**************************************************************************
RESTART_COPTER_SND_PROC
INC A9
SLEEPR A9
SOUND0 SND_COPTER_FULL
DIE
**************************************************************************
* *
* A_RESET_STUTTER *
* *
**************************************************************************
A_RESET_STUTTER
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE *A0(OSTUTTER),A14,W
JRNN ARS_DONE
NEG A14
MOVE A14,*A0(OSTUTTER),W
ARS_DONE
RETS
SHAKE_ANIM
LWL 1,2|AFunc,A_SHAKE_COPTER
LWLL 1,1|AFunc,A_Anim_DSJ+2,SHAKE_ANIM
LWL 1,1|AFunc,PULL_ANIM
**************************************************************************
* *
* A_SHAKE_COPTER *
* *
**************************************************************************
A_SHAKE_COPTER
MOVE *A8(OCOMMAND),A1,W
; MOVE @DESTROYING_PARTS,A14,W
; JRNZ ASC_GO ;BR=SHAKE IF DESTROYING PART
BTST B_CHOVER,A1
JRZ ASC_ABORT ;BR=DON'T SHAKE WERE NOT HOVERIN
MOVB *A8(OSHAKERADIUS),A5
SLL 15,A5 ;WORLD SHAKE RADIUS
;ASC_GO
BTST B_CFINAL,A1
JRNZ ASC_FINAL ;BR=THIS IS THE FINAL BATTLE
; CLR A14
; MOVE A14,*A8(OZVEL),L
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A1,A2,A3
MOVE A3,A4
MOVE A1,A3
;
CLR A0
CLR A1
MOVE A2,A6
MOVE @COPTER_OBJ,A14,L
JRNZ ASC_YGO ;BR=NOT THE FINAL CASE
SUBI 70 << 15,A6
ASC_YGO
MOVE @YBASE,A14,L
ADD A14,A6
JRN ASC_GO_DOWN
;
MOVE A5,A1
NEG A1
;
JRUC ASC_GET_YOFF
ASC_GO_DOWN
;
MOVE A5,A0
;
ASC_GET_YOFF
;
CALLA RANGERND
ADD A0,A2
;
CLR A0
CLR A1
MOVE A4,A6
MOVE @XBASE,A14,L
SUB A14,A6
JRN ASC_GO_RIGHT
;
MOVE A5,A1
NEG A1
;
JRUC ASC_GET_XOFF
ASC_GO_RIGHT
;
MOVE A5,A0
;
ASC_GET_XOFF
;
CALLA RANGERND
ADD A0,A4
MOVE A4,A1
CALLA SET_ANIPU
ASC_ABORT
RETS
ASC_FINAL ;SHAKE DURING FINAL SEQUENCE
CALLR COPTER_ONSCRN
MOVE A0,A6
MOVE A8,A14
ADDI OXVAL,A14
MMFM A14,A1,A2,A3 ;UNIVERSE Y (A2)
MOVE A3,A4 ;UNIVERSE X (A4)
MOVE A1,A3 ;UNIVERSE Z (A3)
MOVE A2,A1 ;TOP UNIVERSE Y
MOVE A2,A0 ;BOTTOM UNIVERSE Y
BTST 2,A6
JRNZ ASC_F_CHECK_BOTTOM ;BR=VIOLATES TOP
SUB A5,A1
ASC_F_CHECK_BOTTOM
BTST 3,A6
JRNZ ASC_F_GET_Y ;BR=VIOLATES BOTTOM
ADD A5,A0
ASC_F_GET_Y
CALLA RANGERND
MOVE A0,A2
MOVE A4,A1 ;LEFT UNIVERSE X
MOVE A4,A0 ;RIGHT UNIVERSE X
BTST 0,A6
JRNZ ASC_F_CHECK_RIGHT ;BR=VIOLATES LEFT
SUB A5,A1
ASC_F_CHECK_RIGHT
BTST 1,A6
JRNZ ASC_F_GET_X ;BR=VIOLATES RIGHT
ADD A5,A0
ASC_F_GET_X
CALLA RANGERND
MOVE A0,A1
CALLA SET_ANIPU
RETS
**************************************************************************
* *
* COPTER_ONSCRN *
* *
* PASS: *
* A8 = HEAD COPTER OBJECT *
* *
* RETURN: *
* A0 = BOUNDARIES VIOLATED *
* LEFT=BIT 0, RIGHT=BIT 1, TOP=BIT 2, BOTTOM=BIT 3 *
* *
**************************************************************************
COPTER_ONSCRN
MOVE *A8(OZVAL),A0,L
CALLR SETUP_OFFSCRN_TABLE_PTR
CLR A0 ;CLEAR BOUNDARY VIOLATIONS
MOVE *A2+,A1,W ;GET PACKED WORLD X BOUNDARY
SLL 12,A1 ;UNPACK WORLD X BOUNDARY
SUBI (144*2) << 15,A1 ;OFFSET FROM EDGE OF BOUNDARY
MOVE *A8(OXVAL),A3,L
MOVE @XBASE,A14,L
SUB A14,A3
CMP A1,A3
JRLT CO_CHECK_LEFT ;BR=WITHIN WORLD RIGHT X
ORI 2,A0
CO_CHECK_LEFT
NEG A1
CMP A1,A3
JRGT CO_CHECK_TB ;BR=WITHIN WORLD LEFT X
ORI 1,A0
CO_CHECK_TB
MOVE *A2,A1,L ;GET PACKED WORLD Y [BOT, TOP]
SEXT A1,W
SLL 12,A1 ;UNPACK WORLD Y TOP BOUNDARY
ADDI (122*2) << 15,A1 ;OFFSET FROM EDGE OF BOUNDARY
MOVE *A8(OYVAL),A3,L
CMPI ABOVE_BUILDING_UNIVY,A3
JRLT CO_CHECK_TOP ;BR=WITHIN WORLD BOTTOM Y
ORI 8,A0
CO_CHECK_TOP
MOVE @YBASE,A14,L
ADD A14,A3
CMP A1,A3
JRGT CO_DONE ;BR=WITHIN WORLD TOP Y
ORI 4,A0
CO_DONE
RETS
FRAG_ONE_EXPLO
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (0 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long 0
FRAG_THREE_EXPLO
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (0 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long 0
FRAG_DAMAGE_EXPLO
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (6 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long EXPLO_ANIM,F_ONE_EXPLO_STUFF
.word OID_JUNK,(1 << 11) + (0 << 6) + (FRGBOG+FRGNOFLY+FRGNOFLP+FRGPAL)
.long 0
F_ONE_EXPLO_STUFF
MOVE *A0(OFLAGS),A14,W
ORI M_DBLSCL,A14
MOVE A14,*A0(OFLAGS),W
RETS
EXPLO_ANIM
LWLL FHKEXPLOB1,6|AFunc,A_SOUND+2,SND_EXPLO_COPTER
LW FHKEXPLOB2,8
LW FHKEXPLOB3,6
LW FHKEXPLOB4,4
LW FHKEXPLOB5,4
LW FHKEXPLOB6,3
LW FHKEXPLOB7,3
LW FHKEXPLOB8,2
LW FHKEXPLOB9,2
LW FHKEXPLOB10,2
LW FHKEXPLOB11,2
LWL 1,1|AFunc,DELETE_OBJ
**************************************************************************
* *
* DUM_FLASH_PROC - FLASH AN OBJECT BUT DON'T CARE *
* *
* PASS: *
* A8 = OBJECT *
* *
**************************************************************************
DUM_FLASH_PROC
SETF 4,0,0 ;FIELD 0 IS 4 BITS
MOVE *A8(OCTRL),A14,0
CMPK 8,A14 ;DMACNZ
JREQ DFP_NOFLASH ;BR=WE'RE CONSTANT ALREADY!
MOVK 8,A14 ;DMACNZ
MOVE A14,*A8(OCTRL),0
SETF 16,1,0 ;WORD SIGN EXTEND
SLEEP 3
SETF 4,0,0 ;FIELD 0 IS 4 BITS
MOVK 2,A14 ;DMAWNZ
MOVE A14,*A8(OCTRL),0
DFP_NOFLASH
SETF 16,1,0 ;WORD SIGN EXTEND
DIE
**************************************************************************
* *
* BLOW_PART - DESTROY A PART WITH EXPLOSIONS AND FRAGMENTS *
* *
* PASS: *
* A1 = RIGHT MINIMUM X VELOCITY (LEFT IF UNFLIPPED) *
* A2 = RIGHT MAXIMUM X VELOCITY (LEFT IF UNFLIPPED) *
* A3 = MINIMUM Y VELOCITY *
* A4 = MAXIMUM Y VELOCITY *
* A5 = RIGHT [Y, X] PIXEL OFFSET FROM ANIMATION POINT (LEFT IF UNFLIPPED)*
* A6 = SHAKE RADIUS *
* A7 = FRAGMENT SCRIPT *
* A8 = OBJECT TO DESTROY *
* A9 = NUMBER OF TIME TO BLOW *
* A10= CALL THIS ROUTINE AFTER BLOWN (DELETE PART IF ZERO) *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
DUP_PART
PUSH A1
MOVI DUP_PART_ANIM,A1
JRUC BP_GO
BLOW_PART
PUSH A1
MOVI BLOW_PART_ANIM,A1
BP_GO
CALLA STRT_ANIM
PULLQ A1
MOVE *A8(OPLINK),A0,L
JRZ BP_NOPROC
CALLA KILL
BP_NOPROC
MOVE @DESTROYING_PARTS,A14,W
INC A14
MOVE A14,@DESTROYING_PARTS,W
MOVI DUMRETS,A14
MOVE A14,*A8(OGUNVECT),L
MOVI DUMCOLL,A14
MOVE A14,*A8(OCVECT),L
; CLR A14
; MOVB A14,*A8(OPARTID)
MOVE A8,A14
ADDI OMINXVEL+020H,A14
MMTM A14,A1,A2,A3,A4,A5,A6,A7,A10
MOVB A9,*A8(AnimLoop)
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE A6,A6
JRZ BP_NOSTOP ;BR=NO SHAKE, NO STOP
CLR A14
MOVE A14,*A0(OXVEL),L
MOVE A14,*A0(OYVEL),L
MOVE A14,*A0(OZVEL),L
MOVE A14,*A0(OYACCEL),W ;YOU BIG DUMMY!
BP_NOSTOP
MOVE *A0(OZVAL),A1,L
MOVE @ZBASE,A14,L
SUB A14,A1
CMPI ZMAX_KLUDGE,A1
JRGT BP_DONE ;BR=NOT BEFORE THE CLOSEST Z
MOVE *A0(OXVAL),A1,L
MOVE *A0(OYVAL),A2,L
MOVI ZMAX_REAL,A3 ;PLACE ON SCREEN
MOVE A8,A4
MOVE A0,A8
CALLA SET_ANIPU ;MOVE COPTER THERE
MOVE A4,A8
BP_DONE
RETS
BLOW_PART_ANIM
LWL 1,0|AFunc,A_BLOW_PART
LWLL 1,1|AFunc,A_Anim_DSJ+2,BLOW_PART_ANIM
LWL 1,1|AFunc,A_BLOWN_PART
DUP_PART_ANIM
LWL 1,0|AFunc,A_BLOW_DUP
LWLL 1,1|AFunc,A_Anim_DSJ+2,DUP_PART_ANIM
LWL 1,1|AFunc,A_BLOWN_PART
**************************************************************************
* *
* A_BLOWN_PART - PART IS BLOWN SO DELETE IT *
* *
* PASS: *
* A8 = OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_BLOWN_PART
MOVE @DESTROYING_PARTS,A14,W
DEC A14
MOVE A14,@DESTROYING_PARTS,W
MOVE *A8(OBLOWN_ROUTINE),A1,L
JAZ DELETE_OBJ ;BR=NO ROUTINE, JUST DELETE
CALLA PULL_ANIM
JUMP A1
**************************************************************************
* *
* A_BLOW_DUP - BLOW A DUPLICATE PART FROM THE ORIGINAL *
* *
* PASS: *
* A8 = OBJECT TO BLOW *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_BLOW_DUP
MOVI 512,A0
CALLA RANDPER
JRC A_BLOW_PART ;BR=MAKE AN EXPLOSION THIS TIME
MOVE *A8(OZVAL),A9,L
SUBK 32,A9
MOVE @ZBASE,A10,L
SUB A10,A9
CMPI ZMAX_KLUDGE,A9
JRLT ABP_ABORT ;BR=BEFORE CLOSEST Z
MOVE *A8(ODUP_INIT),A5,L
CALLA CREATE_OBJ
JRZ ABP_ABORT
MOVE *A8(OXVAL),*A0(OXVAL),L
MOVE *A8(OYVAL),*A0(OYVAL),L
MOVE *A8(OZVAL),*A0(OZVAL),L
MOVE A0,A7
MOVE A8,A14
ADDI OFRAG_SCRIPT,A14
MMFM A14,A0,A1,A2,A3,A4,A6,A11 ;A4 IS NOT USED
SLL 1,A0
SLL 1,A1
SLL 1,A2
SLL 1,A3
CALLA RANGERND
MOVE *A8(OCTRL),A14,W
ANDI M_FLIPH|M_FLIPV,A14
MOVE *A7(OCTRL),A4,W
OR A14,A4
MOVE A4,*A7(OCTRL),W
BTST B_FLIPH,A4
JRNZ ABD_SET_XVEL ;BR=FLIPPED, DIRECTIONS OK
NEG A0 ;LEFT X VELOCITY
NEG A1 ;LEFT X VELOCITY
NEGX A4 ;LEFT X OFFSET
ABD_SET_XVEL
MOVE A0,*A7(OXVEL),L
MOVE A3,A0
MOVE A2,A1
CALLA RANGERND
MOVE A0,*A7(OYVEL),L
MOVE A7,A0
CALLA INSOBJ
JRUC ABP_FRAG
**************************************************************************
* *
* A_BLOW_PART - MAKE ONE EXPLOSION *
* *
* PASS: *
* A8 = OBJECT TO BLOW *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_BLOW_PART
MOVE A8,A0
CALLA GETHEADPART
MOVE A0,B8
MOVE *A8(OZVAL),A9,L
SUBK 32,A9
MOVE @ZBASE,A10,L
SUB A10,A9
CMPI ZMAX_KLUDGE,A9
JRLT ABP_ABORT ;BR=BEFORE CLOSEST Z
MOVI EXPLO_INIT,A5
CALLA CREATE_OBJ
JRZ ABP_ABORT
MOVE A0,A7
MOVE A8,A14
ADDI OFRAG_SCRIPT,A14
MMFM A14,A0,A1,A2,A3,A4,A6,A11
CALLA RANGERND
MOVE *A8(OCTRL),A5,W
BTST B_FLIPH,A5
JRNZ ABP_SET_XVEL ;BR=FLIPPED, DIRECTIONS OK
NEG A0 ;LEFT X VELOCITY
NEG A1 ;LEFT X VELOCITY
NEGX A4 ;LEFT X OFFSET
ABP_SET_XVEL
MOVE *B8(OXVEL),B14,L
MOVE B14,A14
ADD A14,A0
MOVE A0,*A7(OXVEL),L
MOVE A3,A0
MOVE A2,A1
CALLA RANGERND
MOVE *B8(OYVEL),B14,L
MOVE B14,A14
ADD A14,A0
MOVE A0,*A7(OYVEL),L
MOVE A4,A4
JRNZ ABP_NOBOX ;BR=WE HAVE AN OFFSET
MOVE *A8(OIMG),A1,L ;PICK POINT INSIDE BOX
MOVE *A1(IANIOFF),A2,L
MOVE *A1(ISIZE),A3,L
BTST B_FLIPH,A5
JRZ ABP_NOBOXFLIP ;BR=NO FLIP FOR X
NEGX A2
NEGX A3
ABP_NOBOXFLIP
MOVE *A8(OXVAL),A1,L
MOVE A2,A14
SEXT A14,W
SLL 15+1,A14 ;PLUS ONE FOR DOUBLE SCALE
SUB A14,A1
MOVE A1,A0
MOVE A3,A14
SEXT A14,W
SLL 15+1,A14
ADD A14,A0
CALLA RANGERND
MOVE A0,*A7(OXVAL),L
MOVE *A8(OYVAL),A1,L
SRA 16,A2
SLL 15+1,A2 ;PLUS ONE FOR DOUBLE SCALE
SUB A2,A1
MOVE A1,A0
SRA 16,A3
SLL 15+1,A3
ADD A3,A0
CALLA RANGERND
MOVE A0,*A7(OYVAL),L
MOVE A7,A0
JRUC ABP_SETZ
ABP_NOBOX
MOVE A7,A0
MOVE *A8(OXVAL),A1,L
MOVE A4,A14
SEXT A14,W
SLL 15,A14
ADD A14,A1 ;X OFFSET
MOVE A1,*A0(OXVAL),L
MOVE *A8(OYVAL),A1,L
SRA 16,A4
SLL 15,A4
ADD A4,A1 ;Y OFFSET
MOVE A1,*A0(OYVAL),L
ABP_SETZ
MOVE A9,A5
ADD A10,A9
MOVE A9,*A0(OZVAL),L
MOVE A8,A9
MOVE A0,A8
MOVE *A8(OFLAGS),A14,W
ORI M_MANSCALE,A14
MOVE A14,*A8(OFLAGS),W
SRA Z2SCALE+1,A5
MOVE A5,A14
SRL 4,A14
SUB A14,A5
CALLA SET_SCALE_MANUAL
MOVE A9,A8
CALLA INSOBJ
ABP_FRAG
MOVE A11,B14
JRZ ABP_SHAKE ;BR=NO FRAGMENTS HERE BUDDY
MOVI 040000H,A0
CLR A3
CALLA PreFrag_Box
MOVI -0100H,B9
MOVI -01H,B10
MOVE A11,B14
CALLA Fragger
CMPI FRAG_CS4,A11
JRNE ABP_COPYPAL ;BR=NOT GLASS JUST COPY PALETTE
MOVI SHARDPAL1,A14 ;SILVER PALETTE
MOVE A14,*A0(FPDATA),L ;SET PALETTE
JRUC ABP_SHAKE
ABP_COPYPAL
MOVE *A8(OIMG),A1,L
MOVE *A1(ICMAP),*A0(FPDATA),L ;SET PALETTE
ABP_SHAKE
MOVE A6,A5
JRZ ABP_SLEEP ;BR=NO SHAKE
SLL 15,A5 ;WORLD SHAKE RADIUS
MOVE *A8(OPART1),A8,L
CALLR ASC_FINAL ;SHAKE
MOVE A9,A8
ABP_SLEEP
MOVK 4,A0 ;RANDOM SLEEP
CALLA RANDU
MOVE A0,A14
SLL 8,A14
OR A14,A0
MOVE A0,*A8(AnimSLP),W
ABP_ABORT
RETS
**************************************************************************
* *
* A_FRAG_PART - MAKE FRAGMENTS COME FROM A PART *
* *
* PASS: *
* A8 = PART TO BASE FRAG *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_FRAG_PART
MOVE *A8(OZVAL),A1,L
MOVE @ZBASE,A14,L
SUB A14,A1
CMPI ZMAX_KLUDGE,A1
JRLT AFP_ABORT
MOVI 040000H,A0
CLR A3
CALLA PreFrag_Box
MOVI -0100H,B9
MOVI -01H,B10
MOVE *A8(OFRAG_SCRIPT),A11,L
MOVE A11,B14
CALLA Fragger
CMPI FRAG_CS4,A11
JRNE AFP_COPYPAL ;BR=NOT GLASS JUST COPY PALETTE
MOVI SHARDPAL1,A14 ;SILVER PALETTE
MOVE A14,*A0(FPDATA),L ;SET PALETTE
RETS
AFP_COPYPAL
MOVE *A8(OIMG),A1,L
MOVE *A1(ICMAP),*A0(FPDATA),L ;SET PALETTE
AFP_ABORT
RETS
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* COPTER COLLISION AND GUN VECTORS *
* *
**************************************************************************
COPTER_COLL
WWL OID_PROCKET,~MASK_PLAYER,COPTER_ROCKET_COLL
WWL OID_PEXPLOSION,~MASK_PLAYER,COPTER_EXPLOSION_COLL
WL 0,DUMCRETS
**************************************************************************
* *
* COPTER_ROCKET_COLL *
* *
* PASS: *
* A0 = ROCKET OBJECT *
* A8 = COPTER PART OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
COPTER_ROCKET_COLL
MOVE A0,*A8(OATE_ROCKET),L ;SAVE ROCKET OBJECT
RETS
**************************************************************************
* *
* COPTER_EXPLOSION_COLL *
* *
* PASS: *
* A0 = EXPLOSION OBJECT *
* A8 = COPTER PART OBJECT *
* RETURN: *
* A0 = ROCKET DAMAGE HIT QUANTITY *
* *
**************************************************************************
COPTER_EXPLOSION_COLL
MOVE *A8(OATE_ROCKET),A14,L
JRZ CV_DONE ;BR=NO ROCKET COLLISION
CMP A0,A14
JRNE CV_DONE ;BR=DIFFERENT EXPLOSION
MOVE *A0(RL_INTENDED_OBJ),A14,L ;DO WE HAVE THE RIGHT TARGET?
CMP A8,A14
JRNE CV_DONE ;BR=NOPE. NOT THE RIGHT TARGET.
COPTER_FLIGHT_EXPLO_COLL
CLRM *A8(OATE_ROCKET),L ;HIT! READY FOR ANOTHER!
MOVE *A0(OID),A0,W ;GET PLAYER DATA ADDRESS
CALLA POID_TO_PDATA
MOVI ROCKET_DAMAGE,A0,W ;ROCKET DAMAGE
MOVE *A8(OCOLLISION),A14,L
JRZ CC_DONE ;BR=NO COLLSION ROUTINE
JUMP A14
CC_DONE
RETS
**************************************************************************
* *
* COPTER_HIT *
* *
* NOTE: DON'T TRASH A2! *
* NOTE: DON'T TRASH A2! *
* NOTE: DON'T TRASH A2! *
* *
* PASS: *
* A0 = DAMAGE POINTS *
* A8 = OBJECT *
* RETURN: *
* A5 = RESULTING DAMAGE RETURN STATE (0 = 10 GUN HITS OR ROCKET, *
* 1 = SINGLE GUN HIT, *
* 2 = DESTROYED) *
* *
**************************************************************************
COPTER_HIT
.if BILL
JRUC CV_DESTROYED ;BR=COPTER DESTROYED
.endif
MOVE *A8(OHITS),A1,W
SUB A0,A1 ;DO THE DAMAGE
MOVE A1,*A8(OHITS),W
SRA 8,A0 ;THROW AWAY FRACTION
MOVE @ROW_TIME,A4,L ;TIME OF LAST HIT IN A ROW
MOVE @WAVEIRQS,A14,L
MOVE A14,A3
SUB A4,A14
CMPI 60,A14
JRLE CV_ROW ;BR=UNDER MINIMUM TIME
CLR A14 ;RESET TIME
JRUC CV_SAVE_ROW
CV_ROW
MOVE @ROW_HITS,A14,W ;GET CURRENT HITS IN A ROW
ADD A0,A14
CV_SAVE_ROW
MOVE A14,@ROW_HITS,W ;SAVE NUMBER OF HITS IN A ROW
MOVE A3,@ROW_TIME,L ;NEW LAST TIME FOR HIT IN A ROW
CLR A5 ;DEFAULT TO NULL RETURN STATE
MOVE *A8(OPART1),A14,L
.if DEBUG
LOCKON Z
.endif
MOVE *A14(OCOMMAND),A14,W
BTST B_CINVINCIBLE,A14
JRNZ CV_DONE ;BR=NO HURT
DEC A1
JRN CV_DESTROYED ;BR=COPTER DESTROYED
;CV_CHOOSE
; CLR A5 ;DEFAULT TO NULL RETURN STATE
CMPK ROCKET_DAMAGE >> 8,A0
JREQ CV_ROCKET ;BR=COPTER HIT BY FULL ROCKET
CMPK GUN_DAMAGE >> 8,A0
; JANE UNIV_FLASH ;BR=INDIRECT HIT
JRNE CV_DONE ;BR=INDIRECT HIT
CV_GUN
CLR A4 ;DEFAULT TO RESET HIT COUNT
MOVK 1,A5 ;GUN HIT RETURN STATE
MOVE *A8(OHITTIME),A14,W ;GET LAST TIME
MOVE @WAVEDISPS,A3,W ;GET CURRENT TIME
MOVE A3,*A8(OHITTIME),W ;SAVE THIS TIME AS LAST TIME
SUB A3,A14 ;CALCULATE DELTA TIME
NEG A14
CMPK 5,A14
JRGT CV_SAVE_COUNT ;BR=TOO LONG, RESET LAST TIME
MOVE *A8(OHITCOUNT),A4,W ;ANOTHER QUICK HIT
INC A4
CMPK 10,A4
JRLT CV_SAVE_COUNT ;BR=NOT HIT ENOUGH
CLR A0 ;MAKE AN EXPLOSION
CLR A3
CLR A4
CALLA PreFrag_Gun
SUBI 0100H,B0 ;PLACE IN FRONT OF COPTER
MOVI -0400H,B10 ;ZVEL INSURE IN FRONT OF COPTER
MOVE B10,B9
MOVE *A8(OPART1),A1,L
LOCKON Z
; MOVE *A1(OZVEL),A14,L
; JRNN CV_ONE_EXPLO ;BR=FLYING AWAY IN Z
; MOVE A14,B9 ;GIVE FRAGS 1.5*COPTER VELOCITY
; MOVE B9,B10
; SRA 1,B10
; ADD B10,B9
; MOVE B9,B10
;CV_ONE_EXPLO
MOVI FRAG_ONE_EXPLO,B14
CALLA Fragger
MOVE A1,A0 ;HEAD OBJECT
MOVK 10,A3 ;SHAKE RADIUS
MOVE *A0(OFLAGS),A14,W
BTST B_ANIM,A14
JRZ CV_GUN_SHAKE ;BR=NOT ANIMATING
MOVB *A0(OSHAKERADIUS),A14
CMP A3,A14
JRGT CV_NO_GUN_SHAKE ;BR=A BIGGER SHAKE IS GOIN ON
CV_GUN_SHAKE
MOVK 1*3,A14 ;NUMBER OF SHAKES
MOVB A14,*A0(AnimLoop)
MOVB A3,*A0(OSHAKERADIUS)
MOVI SHAKE_ANIM,A1
CALLA STRTANIM
CV_NO_GUN_SHAKE
CLR A5 ;NULL RETURN STATE
CV_SAVE_COUNT
MOVE A4,*A8(OHITCOUNT),W
JAUC UNIV_FLASH ;FLASH AND RETURN
CV_ROCKET
CALLA UNIV_FLASH ;FLASH!
CV_ROCKET_NOFLASH
MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE 3 EXPLOSIONS
MOVI 020000H,A0
CLR A3
; CALLA PreFrag_Box
CALLA PreFrag_Center
SUBI 0100H,B0 ;PLACE IN FRONT OF COPTER
MOVI -0400H,B10 ;ZVEL INSURE IN FRONT OF COPTER
MOVE B10,B9
MOVE *A8(OPART1),A1,L
LOCKON Z
; MOVE *A1(OZVEL),A14,L
; JRNN CV_THREE_EXPLO ;BR=FLYING AWAY IN Z
; MOVE A14,B9 ;GIVE FRAGS 1.5*COPTER VELOCITY
; MOVE B9,B10
; SRA 1,B10
; ADD B10,B9
; MOVE B9,B10
;CV_THREE_EXPLO
;; MOVI -0FFH,B9
;; MOVI -01H,B10
MOVI FRAG_THREE_EXPLO,B14
CALLA Fragger
MMFM SP,B1,B2,B4,B5,B6,B8,B9
MOVE A1,A0 ;HEAD OBJECT
MOVK 15,A3 ;SHAKE RADIUS
MOVE *A0(OFLAGS),A14,W
BTST B_ANIM,A14
JRZ CV_ROCKET_SHAKE ;BR=NOT ANIMATION
MOVB *A0(OSHAKERADIUS),A14
CMP A3,A14
; JAGT UNIV_FLASH ;BR=A BIGGER SHAKE IN GOIN ON
JRGT CV_DONE ;BR=A BIGGER SHAKE IN GOIN ON
CV_ROCKET_SHAKE
MOVK 3*3,A14 ;NUMBER OF SHAKES
MOVB A14,*A0(AnimLoop)
MOVB A3,*A0(OSHAKERADIUS)
MOVI SHAKE_ANIM,A1
CALLA STRTANIM
; JAUC UNIV_FLASH ;FLASH AND RETURN NULL IN A5
RETS
CV_DESTROYED
MOVK 2,A5 ;DESTROYED RETURN STATE
CV_DONE
RETS
MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 010000H,A0
; CLR A3
;; CALLA PreFrag_Box
; CALLA PreFrag_Center
; SUBI 0100H,B0 ;PLACE IN FRONT OF COPTER
;
; MOVI -0400H,B10
; MOVE B10,B9
;; MOVI -0400H,B9
;
; MOVE *A8(OPART1),A1,L
; LOCKON Z
;
;; MOVE *A1(OZVEL),A14,L
;; JRNN CV_SET_ZVELS ;BR=FLYING AWAY IN Z
;;
;; MOVE A14,B9
;; MOVE B9,B10
;; ADD B9,B9 ;2*COPTER VELOCITY
;; MOVE B10,B14
;; SRA 1,B14
;; ADD B14,B10 ;1.5*COPTER VELOCITY
;;
;;; MOVE A14,B9 ;GIVE FRAGS 1.5*COPTER VELOCITY
;;; MOVE B9,B10
;;; SRA 1,B10
;;; ADD B10,B9
;;; MOVE B9,B10
;;
;; JRUC CV_DAM_EXPLO
;;CV_SET_ZVELS
;; MOVI -0100H,B10
;; MOVI -0200H,B9
;CV_DAM_EXPLO
; MOVI FRAG_DAMAGE_EXPLO,B14
; CALLA Fragger
;
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
;
; MOVE A1,A0 ;HEAD OBJECT
; MOVK 7*3,A14 ;NUMBER OF SHAKES
; MOVB A14,*A0(AnimLoop)
; MOVK 20,A14
; MOVB A14,*A0(OSHAKERADIUS)
; MOVI SHAKE_ANIM,A1
; CALLA STRTANIM
;
; MOVK 2,A5 ;DESTROYED RETURN STATE
;CV_DONE
; RETS
**************************************************************************
**************************************************************************
**************************************************************************
* *
* FLIGHT_GUNVECT *
* FLIGHT_HGUNVECT FLIGHT_LGUNVECT *
* FLIGHT_COLLISION *
* FLIGHT_HCOLLISION FLIGHT_LCOLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
FLIGHT_HGUNVECT
SOUND1 SND_CLANG_HIGH
JRUC FLIGHT_GUNVECT
FLIGHT_LGUNVECT
SOUND1 SND_CLANG_LOW
FLIGHT_GUNVECT
CALLA COPTER_SPARK
JRUC CV_GUN ;CHECK FOR GUN EXPLOSION
FLIGHT_HCOLLISION
SOUND1 SND_METALLIC_FUCKUP
JRUC FLIGHT_COLLISION
FLIGHT_LCOLLISION
SOUND1 SND_THUD
FLIGHT_COLLISION
CALLR PUSHBACK
JRUC CV_ROCKET ;MAKE ROCKET EXPLOSION
**************************************************************************
* *
* FLIGHT_9S_GUNVECT *
* FLIGHT_9S_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
FLIGHT_9S_GUNVECT
CALLA COPTER_SPARK
SOUND1 SND_CLANG_LOW
CALLR CV_GUN ;CHECK FOR GUN EXPLOSION
JRUC F9S_GO
FLIGHT_9S_COLLISION
SOUND1 SND_THUD
CALLR PUSHBACK
CALLR CV_ROCKET ;MAKE ROCKET EXPLOSION
F9S_GO
PUSH A8 ;FIND OTHER HALF
MOVB *A8(OPARTID),A14
CMPK LEFT_FUSELAGE,A14
JREQ F9S_NEXT_FLASH ;BR=FLASH NEXT PART (RIGHT HALF)
MOVK LEFT_FUSELAGE,A1
CALLA FINDPART ;FIND LEFT HALF
LOCKON Z
MOVE A0,A8
JRUC F9S_FLASH
F9S_NEXT_FLASH
MOVE *A8(OPARTS),A8,L ;GET RIGHT HALF
F9S_FLASH
CALLA UNIV_FLASH
PULLQ A8
RETS
**************************************************************************
* *
* FLIGHT_WEAPON_GUNVECT *
* FLIGHT_WEAPON_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
FLIGHT_WEAPON_GUNVECT
CALLA COPTER_SPARK
SOUND1 SND_CLANG_HIGH
CALLR CV_GUN ;CHECK FOR GUN EXPLOSION
MOVE A5,A5
JRZ FW_GO ;BR=YES, DAMAGE THE GUN
RETS
FLIGHT_WEAPON_COLLISION
SOUND1 SND_METALLIC_FUCKUP
CALLR PUSHBACK
CALLR CV_ROCKET ;MAKE ROCKET EXPLOSION
FW_GO
MOVE *A8(OFLAGS),A14,W
BTST B_ANIM,A14
JRZ FW_DONE ;BR=IT'S NOT ANIMATING
MOVE *A8(ODAMANIM),A1,L
JRZ FW_DONE ;BR=NOT DAMAGE ANIMATION
MOVE *A8(AnimScr),A14,L
CMP A14,A1
JREQ FW_DONE ;BR=WE'RE IN THE DAMAGE ANIM
CALLA DELETE_FLASH ;KILL DA FLASH
MOVE *A8(OATTACKANIM),A3,L ;SET UP FOR RETURN
MOVE A3,*A8(AnimRetScr),L
MOVE *A8(OFIREANIMOFF),A14,W
ADD A14,A3 ;RETURN TO FIRING LUPE FRAME
MOVE A3,*A8(AnimRetFrm),L
CLR A14
MOVB A14,*A8(AnimSlp)
MOVE A1,*A8(AnimScr),L
MOVE A1,*A8(AnimFrm),L
MOVE *A8(ONORMAL_PAL),A0,L
JAUC CHANGE_PAL ;USE NORMAL PALETTE
FW_DONE
RETS
**************************************************************************
* *
* COPTER_LCLANG_FLASH_GUNVECT *
* COPTER_LCLANG_GUNVECT *
* COPTER_LCLANG_FLASH_COLLISION *
* COPTER_LCLANG_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
COPTER_I_LCLANG_FLASH_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_LCLANG_FLASH_GUNVECT
CALLA UNIV_FLASH
JRUC COPTER_LCLANG_GUNVECT
COPTER_I_LCLANG_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_LCLANG_GUNVECT
SOUND1 SND_CLANG_LOW
CALLA COPTER_SPARK
RETS
COPTER_LCLANG_FLASH_COLLISION
CALLA UNIV_FLASH
COPTER_LCLANG_COLLISION
CALLR CV_ROCKET_NOFLASH ;MAKE ROCKET EXPLOSION
CALLA PUSHBACK
SOUND1 SND_THUD
RETS
**************************************************************************
* *
* COPTER_HCLANG_FLASH_GUNVECT *
* COPTER_HCLANG_GUNVECT *
* COPTER_HCLANG_FLASH_COLLISION *
* COPTER_HCLANG_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
COPTER_I_HCLANG_FLASH_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_HCLANG_FLASH_GUNVECT
CALLA UNIV_FLASH
JRUC COPTER_HCLANG_GUNVECT
COPTER_I_HCLANG_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_HCLANG_GUNVECT
SOUND1 SND_CLANG_HIGH
CALLA COPTER_SPARK
RETS
COPTER_HCLANG_FLASH_COLLISION
CALLA UNIV_FLASH
COPTER_HCLANG_COLLISION
CALLR CV_ROCKET_NOFLASH ;MAKE ROCKET EXPLOSION
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
RETS
**************************************************************************
* *
* COPTER_GCLANG_FLASH_GUNVECT *
* COPTER_GCLANG_GUNVECT *
* COPTER_GCLANG_FLASH_COLLISION *
* COPTER_GCLANG_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
COPTER_I_GCLANG_FLASH_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_GCLANG_FLASH_GUNVECT
CALLA UNIV_FLASH
JRUC COPTER_GCLANG_GUNVECT
COPTER_I_GCLANG_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_GCLANG_GUNVECT
SOUND1 SND_CLANG_GEAR
CALLA COPTER_SPARK
RETS
COPTER_GCLANG_FLASH_COLLISION
CALLA UNIV_FLASH
COPTER_GCLANG_COLLISION
CALLR CV_ROCKET_NOFLASH ;MAKE ROCKET EXPLOSION
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
RETS
**************************************************************************
* *
* COPTER_BCLANG_FLASH_GUNVECT *
* COPTER_BCLANG_GUNVECT *
* COPTER_BCLANG_FLASH_COLLISION *
* COPTER_BCLANG_COLLISION *
* *
* MAKE SOME NOISE, EXPLOSION EFFECTS, AND/OR GIVE A LITTE PUSH DURING *
* THE FLIGHT TO THE FINAL BATTLE *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
COPTER_I_BCLANG_FLASH_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_BCLANG_FLASH_GUNVECT
CALLA UNIV_FLASH
JRUC COPTER_BCLANG_GUNVECT
COPTER_I_BCLANG_GUNVECT
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
COPTER_BCLANG_GUNVECT
SOUND1 SND_RICOCHET
CALLA COPTER_SPARK
RETS
COPTER_BCLANG_FLASH_COLLISION
CALLA UNIV_FLASH
COPTER_BCLANG_COLLISION
CALLR CV_ROCKET_NOFLASH ;MAKE ROCKET EXPLOSION
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
RETS
**************************************************************************
* *
* PUSHBACK - PUSH THE COPTER BACK IN Z *
* *
* NOTE: DON'T TRASH A2! *
* NOTE: DON'T TRASH A2! *
* NOTE: DON'T TRASH A2! *
* *
* PASS: *
* A8 = OBJECT *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
PUSHBACK
MOVE *A8(OPART1),A1,L
LOCKON Z
MOVE *A1(OCOMMAND),A14,W
BTST B_CHOVER,A14
JRZ PB_DONE ;BR=NOT HOVERING, DON'T TOUCH
MOVE *A1(OZVAL),A5,L
MOVE @ZBASE,A14,L
SUB A14,A5
MOVE *A1(OHZWPOS),A3,L
MOVE A3,A4
CMPI 020000H,A5
JRLE PB_CHECK_RANGE ;BR=WITHIN FARTHEST WORLD Z
CLR A14
JRUC PB_SET_ZVEL
PB_CHECK_RANGE
ADDI 08000H,A3
CMP A3,A5
JRGT PB_DONE ;BR=EXCEEDS THE PUSH RANGE
MOVE *A1(OZVEL),A14,L ;GIVE IT A PUSH
ADDI 0200H,A14
PB_SET_ZVEL
MOVE A14,*A1(OZVEL),L
MOVE A4,*A1(OHZFLYTO),L ;FLAG HOVER ROUTINE TO COME BACK
move *A1(OHZACCEL),A14,W ;NEGATIVE Z HOVER ACCELERATION
ABS A14
NEG A14
MOVE A14,*A1(OHZACCEL),W
PB_DONE
RETS
**************************************************************************
* *
* WING_WEAPON VECTORS *
* *
**************************************************************************
WING_WEAPON_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_HIGH
JRUC WWV_GO
WING_WEAPON_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
WWV_GO
CMPK 2,A5
JREQ WWV_DESTROYED ;BR=TRASHED!
MOVE A5,A5
JRNZ WWV_DONE
CALLR FW_GO ;FUCK UP DA DIRECTION
WWV_DONE
RETS
WWV_DESTROYED
MOVI 10000,A1
CALLA SCORE
CALLR MAKE_DAMAGE_SPEECH
MOVK LEFT_GUN,A4
MOVK LEFT_ROCKET,A3
MOVK LEFT_WING,A1
; MOVK LEFT_FUSE_GUN,A5
MOVB *A8(OPARTID),A6
CMP A3,A6
JRLE WWV_CHECK_SIDE ;BR=THIS IS THE LEFT SIDE
MOVK RGHT_GUN,A4
MOVK RGHT_ROCKET,A3
MOVK RGHT_WING,A1
; MOVK RGHT_FUSE_GUN,A5
WWV_CHECK_SIDE
CALLA FINDPART ;GET WING PART
LOCKON Z
MOVE A0,A7 ;SAVE WING PART
MOVE A4,A1 ;GET GUN PART
CMP A1,A6
JRNE WWV_FIND_WEAPON ;BR=THIS IS THE ROCKET LAUNCHER
MOVE A3,A1 ;NO, IT'S THE GAT GUN
WWV_FIND_WEAPON
CALLA FINDPART
JRNZ WWV_SPARKS ;BR=THE OTHER PART STILL EXISTS
; MOVI COPTER_COLL,A14 ;ACTIVATE WING VECTORS
; MOVE A14,*A7(OCVECT),L
MOVI WING_GUNVECT,A14 ;ACTIVATE WING VECTORS
MOVE A14,*A7(OGUNVECT),L
MOVI WING_COLLISION,A14
MOVE A14,*A7(OCOLLISION),L
JRUC WWV_DELETE
; MOVE A5,A1
; CALLA FINDPART
; LOCKON Z
;
; MOVI COPTER_COLL,A14 ;ACTIVATE FUSE GUN VECTORS
; MOVE A14,*A0(OCVECT),L
; MOVI FUSEGUN_GUNVECT,A14
; MOVE A14,*A0(OGUNVECT),L
; MOVI FUSEGUN_COLLISION,A14
; MOVE A14,*A0(OCOLLISION),L
; MOVI PART_FIRE_ANIM,A1 ;AND ANIMATION
; MOVE A1,*A0(OATTACKANIM),L
; CALLA STRTANIM
WWV_SPARKS
MOVE A7,A0
MOVI WING_SPARKS_ANIM,A1
CALLA STRTANIM
WWV_DELETE
; MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 040000H,A0
; CLR A3
; CALLA PreFrag_Box
; MOVI -0FFH,B9
; MOVI -01H,B10
; MOVI FRAG_C5,B14
; CALLA Fragger
;
; MOVE *A8(OIMG),A1,L
; MOVE *A1(ICMAP),*A0(FPDATA),L ;SET PALETTE
;
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
CMPK LEFT_ROCKET,A6
JREQ WWV_NOFLASH ;BR=NO FLASH OBJECT
CMPK RGHT_ROCKET,A6
JREQ WWV_NOFLASH ;BR=NO FLASH OBJECT
CALLR DELETE_FLASH
WWV_NOFLASH
MOVE *A8(ONORMAL_PAL),A0,L
JRZ WWV_DESTROY
CALLA CHANGE_PAL
WWV_DESTROY
PUSH A2
MOVI -040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI 010000H,A3 ;MIN Y VEL
MOVI 060000H,A4 ;MAX Y VEL
MOVI [15*2,0],A5 ;RIGHT BLOW OFFSET
MOVK 20,A6 ;SHAKE RADIUS
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVK 32,A9 ;NUMBER OF BLOWS
CLR A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
CLR A14
MOVB A14,*A8(OPARTID) ;PART IS DEAD
CALLR CHECK_NOSE ;CHECK ON NOSE
RETS
WING_SPARKS_ANIM
LWL 1,1|AFunc,A_WING_SPARKS
.long 0
WING_SPARK_INIT
.LONG FWORKS1, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, -3
.LONG C_STRTANIM
.LONG FRAG_FZZZ_ANIM
**************************************************************************
* *
* A_WING_SPARKS - SPARK HANGING WIRES FROM WING *
* *
* PASS: *
* A8 = WING OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_WING_SPARKS
; RETS
MOVI 60,A1
MOVI 127,A0
CALLA RANGERND
MOVB A0,*A8(AnimSlp)
MOVK LEFT_GUN,A3
MOVI [-56*2,-76*2],A4 ;GUN SPARK OFFSET
MOVK LEFT_ROCKET,A5
MOVI [-67*2,-115*2],A6 ;ROCKET SPARK OFFSET
MOVE *A8(OCTRL),A14,W
BTST B_FLIPH,A14
JRZ AWS_CHOOSE ;BR=THIS IS THE LEFT
MOVK RGHT_GUN,A3 ;STUFF FOR THE RIGHT WING
NEGX A4
MOVK RGHT_ROCKET,A5
NEGX A6
AWS_CHOOSE
MOVI 512,A0
CALLA RANDPER
JRC AWS_SPARK_ROCKET
AWS_SPARK_GUN
MOVE A3,A1
CALLA FINDPART ;LOOK FOR GAT GUN
JRNZ AWS_SPARK_ROCKET ;BR=GUN EXISTS, SPARK ROCKET
MOVE A4,A9
JRUC AWS_SPARK_GO
AWS_SPARK_ROCKET
MOVE A5,A1
CALLA FINDPART ;LOOK FOR GAT GUN
JRNZ AWS_SPARK_GUN ;BR=ROCKET EXISTS, SPARK GUN
MOVE A6,A9
AWS_SPARK_GO
MOVI WING_SPARK_INIT,A5
MOVE @RAND,A10,W ;RANDOM HFLIP
ANDI M_FLIPH,A10
JRUC ADD_FIRE
**************************************************************************
* *
* WING VECTORS *
* *
**************************************************************************
WING_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_LOW
JRUC WV_GO
WING_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_THUD
WV_GO
CMPK 2,A5
JREQ WV_DESTROYED_SCORE ;BR=TRASHED!
RETS
WV_DESTROYED_SCORE
MOVI 10000,A1
CALLA SCORE
WV_DESTROYED
CALLR MAKE_DAMAGE_SPEECH
MOVE @WING_COUNT,A14,W ;MINUS ONE WING
DEC A14
MOVE A14,@WING_COUNT,W
PUSH A2
MOVI 010000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI 010000H,A3 ;MIN Y VEL
MOVI 060000H,A4 ;MAX Y VEL
MOVI [-105*2,50*2],A5 ;RIGHT BLOW OFFSET
MOVK 20,A6 ;SHAKE RADIUS
MOVI FRAG_C2,A7 ;FRAGMENT SCRIPT
MOVK 32,A9 ;NUMBER OF BLOWS
CLR A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
CLR A14
MOVB A14,*A8(OPARTID) ;PART IS DEAD
RETS
; MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 040000H,A0
; CLR A3
; CALLA PreFrag_Box
;
; MOVE B5,B6
; ADDI 25 >> (16-15),B6 ;WING BOX AREA
;
; MOVI -0FFH,B9
; MOVI -01H,B10
; MOVI FRAG_C10,B14
; CALLA Fragger
;
; MOVI yGRAD2Yp,A5
; MOVE A5,*A0(FPDATA),L ;SET PALETTE
;
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
; JAUC DEL_PROC_AND_OBJ
**************************************************************************
* *
* BELLY_WEAPON VECTORS *
* *
**************************************************************************
BELLY_WEAPON_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_HIGH
JRUC BWV_GO
BELLY_WEAPON_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
BWV_GO
CMPK 2,A5
JREQ BWV_DESTROYED_SCORE ;BR=TRASHED!
MOVE A5,A5
JRNZ BWV_DONE
CALLR FW_GO ;FUCK UP DA DIRECTION
BWV_DONE
RETS
BWV_DESTROYED_SCORE
MOVI 10000,A1
CALLA SCORE
BWV_DESTROYED
CALLR MAKE_DAMAGE_SPEECH
CALLR DELETE_FLASH
MOVE *A8(ONORMAL_PAL),A0,L
JRZ BWV_DESTROY
CALLA CHANGE_PAL
BWV_DESTROY
PUSH A2
MOVI -040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI 010000H,A3 ;MIN Y VEL
MOVI 060000H,A4 ;MAX Y VEL
MOVI [15*2,0],A5 ;RIGHT BLOW OFFSET
MOVK 20,A6 ;SHAKE RADIUS
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVK 32,A9 ;NUMBER OF BLOWS
CLR A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
CLR A14
MOVB A14,*A8(OPARTID) ;PART IS DEAD
; MOVE *A8(OPART1),A0,L ;GET HEAD PART
; LOCKON Z
; CALLA DEL_PROC_AND_OBJ
;; CALLR CHECK_NOSE ;CHECK ON NOSE
RETS
**************************************************************************
* *
* CHECK_NOSE - CHECK IF WE SHOULD ACTIVATE THE NOSE *
* *
* PASS: *
* A8 = PART *
* *
**************************************************************************
FIREBALL_HALF_MISSLETIME_TABLE
.WORD 15, 10, 5
FIREBALL_MISSLETIME_TABLE
.WORD 30, 20, 10
CHECK_NOSE
PUSH A8
MOVE *A8(OPART1),A8,L
LOCKON Z ;NO HEAD. THIS IS BAD!
MOVK LEFT_ROCKET,A1
CALLA FINDPART
JRNZ CN_DONE ;BR=LEFT LAUNCHER STILL ACTIVE
MOVK RGHT_ROCKET,A1
CALLA FINDPART
JRNZ CN_DONE ;BR=RIGHT LAUNCHER STILL ACTIVE
MOVK NOSE_GUN,A1
CALLA FINDPART
JRZ CN_DONE ;BR=NO NOSE! SHOULD NEVER HAPPEN!
MOVE A0,A3
MOVE *A0(OFLAGS),A14,W
BTST B_ANIM,A14
JRNZ CN_GATS ;BR=ALREADY ANIMATIN'
MOVI FIREBALL_MISSLETIME_TABLE,A14
MOVE A14,@MISSLETIME_TABLE,L
MOVI NOSE_GUN_ANIM,A1 ;START NOSE ANIMATION
MOVE A1,*A0(OATTACKANIM),L
CALLA STRTANIM
MOVI 240,A14
MOVB A14,*A0(AnimSlp) ;SLEEP BEFORE SHOOTING
CN_GATS
MOVK LEFT_GUN,A1
CALLA FINDPART
JRNZ CN_DONE ;BR=LEFT GAT GUN STILL ACTIVE
MOVK RGHT_GUN,A1
CALLA FINDPART
JRNZ CN_DONE ;BR=RIGHT GAT GUN STILL ACTIVE
; MOVI COPTER_COLL,A14 ;STUFF VECTORS
; MOVE A14,*A3(OCVECT),L
MOVI DUM_NOSEGUN_GUNVECT,A14 ;ACTIVATE DUM NOSE GUN VECTORS
MOVE A14,*A3(OGUNVECT),L
MOVI DUM_NOSEGUN_COLLISION,A14
MOVE A14,*A3(OCOLLISION),L
MOVK LEFT_FUSELAGE,A1
CALLA FINDPART
JRZ CN_RGHT ;BR=NO LEFT FUSELAGE!
; MOVI COPTER_COLL,A14 ;STUFF VECTORS
; MOVE A14,*A0(OCVECT),L
MOVI FUSELAGE_GUNVECT,A3 ;ACTIVATE FUSELAGE VECTORS
MOVE A3,*A0(OGUNVECT),L
MOVI FUSELAGE_COLLISION,A4
MOVE A4,*A0(OCOLLISION),L
CN_RGHT
MOVK RGHT_FUSELAGE,A1
CALLA FINDPART
JRZ CN_DONE ;BR=NO RIGHT FUSELAGE!
MOVE A3,*A0(OGUNVECT),L
MOVE A4,*A0(OCOLLISION),L
CN_DONE
PULLQ A8
RETS
**************************************************************************
* *
* COCKPIT_GUNVECT *
* *
**************************************************************************
COCKPIT_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
CMPK 2,A5
JREQ CPV_DESTROYED ;BR=TRASHED!
MOVB *A8(OPARTID),A6
MOVI SND_CLANG_HIGH,A3 ;METAL FRAME HIT SOUND
MOVI TOP_COCKPIT_BOX_TBL,A0 ;TOP COCKPIT CHECK
CMPK TOP_COCKPIT,A6
JREQ CPV_CHK_BOX ;BR=THIS IS THE TOP
MOVI BOT_COCKPIT_BOX_TBL,A0 ;BOTTOM COCKPIT CHECK
CPV_CHK_BOX
CALLA TABLE_BOX_CHECK
JRZ CPV_HIT_SND ;BR=DON'T HIT NO WINDOW
MOVI SND_WINDOW_CRACK,A3 ;WINDOW HIT SOUND
CPV_HIT_SND
MOVE A3,A0
; CALLA ONESND_Z
CALLA ONESND
RETS
COCKPIT_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
CPV_DESTROYED
MOVI 10000,A1
CALLA SCORE
MOVK 20,A6 ;SHAKE RADIUS
CPV_NOSHAKE_DESTROYED
SOUND1 SND_WINDOW_BREAK
PUSH A2
MOVI -040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -040000H,A3 ;MIN Y VEL
MOVI 040000H,A4 ;MAX Y VEL
MOVI [-120*2,0],A5 ;RIGHT BLOW OFFSET FOR TOP
MOVB *A8(OPARTID),A7
CMPK TOP_COCKPIT,A7
JREQ CPV_OFFOK ;BR=THIS IS THE TOP COCKPIT
MOVI [-90*2,0],A5 ;RIGHT BLOW OFFSET FOR BOTTOM
CPV_OFFOK
MOVI FRAG_CS4,A7 ;FRAGMENT SCRIPT
MOVK 4,A9 ;NUMBER OF BLOWS
MOVI CPV_DAMAGE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
CPV_DAMAGE
CLR A14 ;NO MORE COLLISIONS
MOVE A14,*A8(OCVECT),L
MOVI COPTER_HCLANG_GUNVECT,A14 ;CLANG ON METAL FRAME
MOVE A14,*A8(OGUNVECT),L
MOVE *A8(OFLAGS),A14,W ;TURN ON PIXEL SCANNING
ANDNI M_NOPIXSCAN,A14
MOVE A14,*A8(OFLAGS),W
MOVE *A8(OCTRL),A4,W
MOVI CPTFSEC6sd,A1 ;TOP DAMAGE
MOVB *A8(OPARTID),A6
CMPK TOP_COCKPIT,A6
; MOVE *A8(OIMG),A6,L
; CMPI CPTFSEC6s,A6
JREQ CPV_ANI ;BR=THIS IS THE TOP
MOVI CPTFSEC7sd,A1 ;BOTTOM DAMAGE
CPV_ANI
CALLA ANI
CALLA SET_SCALE_WARREN ;SCALE THE MOTHER
CALLA SET_ODAG ;COMPUTE ODAG AGAIN
RETS
; MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 040000H,A0
; CLR A3
; CALLA PreFrag_Center
; MOVI -0FFH,B9
; MOVI -01H,B10
; MOVI FRAG_S10,B14
; CALLA Fragger
;
; MOVI SHARDPAL1,A5 ;SILVER PALETTE
; MOVE A5,*A0(FPDATA),L ;SET PALETTE
;
;; MOVE *A8(OIHOFF),A14,W
;; JRNZ CC_FRAG_DONE ;BR=DON'T MAKE SMALL PIECES
;;
;; MOVI FRAG_SS5,B14
;; CALLA Fragger
;;
;; MOVE A5,*A0(FPDATA),L ;SET PALETTE
;;CC_FRAG_DONE
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
; MOVE A8,A0
; MOVE *A0(OPART1),A8,L
; LOCKON Z
; CALLA PULLPART
; CALLA INSPART
; MOVE A0,A8
;
; RETS
TOP_COCKPIT_BOX_TBL
.LONG [4*2,13*2],[6*2,40*2] ;TOP WINDOW PIECE
.LONG [11*2,16*2],[27*2,37*2] ;MAIN WINDOW
.LONG -1
BOT_COCKPIT_BOX_TBL
.LONG [4*2,11*2],[6*2,42*2] ;TOP WINDOW PIECE
.LONG [9*2,13*2],[20*2,40*2] ;MAIN WINDOW
.LONG -1
**************************************************************************
* *
* INTRO_COCKBLOW_GUNVECT *
* *
**************************************************************************
INTRO_COCKBLOW_GUNVECT
CALLA COPTER_SPARK
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
CMPK 2,A5
JREQ ICV_DESTROYED ;BR=TRASHED!
MOVB *A8(OPARTID),A6
MOVI SND_CLANG_HIGH,A3 ;METAL FRAME HIT SOUND
MOVI SIDE_TOP_COCKPIT_BOX_TBL,A0 ;TOP COCKPIT CHECK
CMPK SIDE_TOP_COCKPIT,A6
JREQ ICV_CHK_BOX ;BR=THIS IS THE TOP
MOVI SIDE_BOT_COCKPIT_BOX_TBL,A0 ;BOTTOM COCKPIT CHECK
ICV_CHK_BOX
CALLA TABLE_BOX_CHECK
JRZ ICV_HIT_SND ;BR=DON'T HIT NO WINDOW
MOVI SND_WINDOW_CRACK,A3 ;WINDOW HIT SOUND
ICV_HIT_SND
MOVE A3,A0
; CALLA ONESND_Z
CALLA ONESND
RETS
INTRO_COCKBLOW_COLLISION
CALLR COPTER_HIT
; CALLA PUSHBACK
ICV_DESTROYED
MOVI 10000,A1
CALLA SCORE
SOUND1 SND_WINDOW_BREAK
PUSH A2
MOVI -020000H,A1 ;MIN X VEL
MOVI 020000H,A2 ;MAX X VEL
MOVI -020000H,A3 ;MIN Y VEL
MOVI 020000H,A4 ;MAX Y VEL
MOVI [-38*2,-71*2],A5 ;RIGHT BLOW OFFSET FOR TOP
CLR A6 ;NO SHAKE
MOVB *A8(OPARTID),A7
CMPK TOP_COCKPIT,A7
JREQ ICV_OFFOK ;BR=THIS IS THE TOP COCKPIT
MOVI [-13*2,-113*2],A5 ;RIGHT BLOW OFFSET FOR BOTTOM
ICV_OFFOK
MOVI FRAG_CS4,A7 ;FRAGMENT SCRIPT
MOVK 4,A9 ;NUMBER OF BLOWS
MOVI ICV_DAMAGE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
ICV_DAMAGE
CLR A14 ;NO MORE COLLISIONS
MOVE A14,*A8(OCVECT),L
MOVI COPTER_HCLANG_GUNVECT,A14 ;CLANG ON METAL FRAME
MOVE A14,*A8(OGUNVECT),L
MOVE *A8(OFLAGS),A14,W ;TURN ON PIXEL SCANNING
ANDNI M_NOPIXSCAN,A14
MOVE A14,*A8(OFLAGS),W
MOVE *A8(OCTRL),A4,W
MOVI CPTSSEC7sd,A1 ;TOP DAMAGE
MOVB *A8(OPARTID),A6
CMPK SIDE_TOP_COCKPIT,A6
; MOVE *A8(OIMG),A6,L
; CMPI CPTFSEC6s,A6
JREQ CPV_ANI ;BR=THIS IS THE TOP
MOVI CPTSSEC8sd,A1 ;BOTTOM DAMAGE
JRUC CPV_ANI
SIDE_TOP_COCKPIT_BOX_TBL
.LONG [9*2,12*2],[21*2,34*2] ;TOP WINDOW PIECE
.LONG [28*2,34*2],[35*2,47*2] ;MAIN WINDOW
.LONG -1
SIDE_BOT_COCKPIT_BOX_TBL
.LONG [11*2,13*2],[17*2,21*2] ;TOP WINDOW PIECE
.LONG [19*2,14*2],[25*2,38*2] ;MAIN WINDOW
.LONG -1
**************************************************************************
* *
* INTRO_PARTBLOW_GUNVECT *
* *
**************************************************************************
INTRO_PARTBLOW_GUNVECT
CALLA COPTER_SPARK
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
MOVB *A8(OPARTID),A6
CMPK 2,A5
JREQ IPV_DESTROYED ;BR=TRASHED!
MOVI SND_CLANG_LOW,A0
CMPK SIDE_ENGINE,A6
JRNE IPV_CLANG ;BR=NOT DA ENGINE
MOVI SND_CLANG_HIGH,A0
IPV_CLANG
CALLA ONESND
RETS
INTRO_PARTBLOW_COLLISION
CALLR COPTER_HIT
MOVI SND_THUD,A0
MOVB *A8(OPARTID),A6
CMPK SIDE_ENGINE,A6
JRNE IPV_BOOM ;BR=NOT DA ENGINE
MOVI SND_METALLIC_FUCKUP,A0
IPV_BOOM
CALLA ONESND
CMPK 2,A5
JREQ IPV_DESTROYED ;BR=TRASHED!
RETS
IPV_DESTROYED
MOVI 10000,A1
CALLA SCORE
PUSH A2
MOVI COPTER_LCLANG_GUNVECT,A1 ;CLANG ON METAL FRAME
CMPK SIDE_FUSELAGE,A6
JRNE IPV_CHECK_TAIL
MOVI CPTSSEC1sdx,A2
MOVI [-60*2,152*2],A3 ;FIRE OFFSET
MOVI [23*2,-127*2],A5 ;RIGHT BLOW OFFSET
MOVK SIDE_NOSE_GUN,A1
CALLA FINDPART
JRZ IPV_BLOW ;BR=NO NOSE GUN
MMTM SP,A1,A2,A3,A5,A8
MOVE A0,A8
CALLR IDV_DESTROYED_NOSCORE ;BLOW AND DELETE NOSE GUN
MMFM SP,A1,A2,A3,A5,A8
JRUC IPV_BLOW
IPV_CHECK_TAIL
MOVI CPTSSEC5sdx,A2
MOVI [-108*2,-166*2],A3 ;FIRE OFFSET
MOVI [-17*2,197*2],A5 ;RIGHT BLOW OFFSET
CMPK SIDE_LONG_TAIL,A6
JREQ IPV_BLOW
MOVI COPTER_HCLANG_GUNVECT,A1 ;CLANG ON METAL FRAME
MOVI CPTSSEC9sd,A2
MOVI [-126*2,-59*2],A3 ;FIRE OFFSET
MOVI [-40*2,80*2],A5 ;RIGHT BLOW OFFSET
IPV_BLOW
CLR A14 ;NO MORE COLLISIONS
MOVE A14,*A8(OCVECT),L
MOVE A1,*A8(OGUNVECT),L
MOVE A2,*A8(ODAMFRAME),L
MOVE A3,*A8(OFIREOFF),L
MOVI -020000H,A1 ;MIN X VEL
MOVI 020000H,A2 ;MAX X VEL
MOVI -020000H,A3 ;MIN Y VEL
MOVI 020000H,A4 ;MAX Y VEL
CLR A6 ;NO SHAKE
MOVI FRAG_C2,A7 ;FRAGMENT SCRIPT
MOVK 10,A9 ;NUMBER OF BLOWS
MOVI IPV_DAMAGE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
IPV_DAMAGE
MOVI SIDE_FIRE_INIT,A5
MOVE *A8(OFIREOFF),A9,L
MOVE *A8(OCTRL),A4,W
MOVE A4,A10
ANDI M_FLIPH,A10
JRZ IPV_FIRE ;FLIP FIRE X
NEGX A9
IPV_FIRE
CALLA ADD_FIRE
MOVE *A8(ODAMFRAME),A1,L
MOVE *A1(ICMAP),A0,L
CALLA CHANGE_PAL
JRUC CPV_ANI
**************************************************************************
* *
* INTRO_DELBLOW_GUNVECT *
* *
**************************************************************************
INTRO_DELBLOWH_GUNVECT
MOVI SND_CLANG_HIGH,A0
JRUC IDG_GO
INTRO_DELBLOWL_GUNVECT
MOVI SND_CLANG_LOW,A0
IDG_GO
CALLA ONESND
CALLA COPTER_SPARK
MOVK GUN_POINTS,A0
CALLA CHECK_FREAK_SPEECH
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
CMPK 2,A5
JREQ IDV_DESTROYED ;BR=TRASHED!
RETS
INTRO_DELBLOWH_COLLISION
MOVI SND_METALLIC_FUCKUP,A0
JRUC IDC_GO
INTRO_DELBLOWL_COLLISION
MOVI SND_THUD,A0
IDC_GO
CALLA ONESND
MOVI ROCKET_DAMAGE,A0,W
CALLR COPTER_HIT
CMPK 2,A5
JREQ IDV_DESTROYED ;BR=TRASHED!
RETS
IDV_DESTROYED
MOVI 10000,A1
CALLA SCORE
IDV_DESTROYED_NOSCORE
MOVB *A8(OPARTID),A1
CMPK SIDE_GUN,A1
JRNE IDV_CHECK_WING
MOVK SIDE_ROCKET,A1
CALLA FINDPART
JRZ IDV_CHECK_WING
MOVI INTRO_DELBLOWH_COLLISION,A14
MOVE A14,*A0(OCOLLISION),L
MOVI INTRO_DELBLOWH_GUNVECT,A14
MOVE A14,*A0(OGUNVECT),L
JRUC IDV_GO
IDV_CHECK_WING
CMPK SIDE_ROCKET,A1
JRNE IDV_GO
MOVK SIDE_WING,A1
CALLA FINDPART
JRZ IDV_GO
MOVI INTRO_DELBLOWL_COLLISION,A14
MOVE A14,*A0(OCOLLISION),L
MOVI INTRO_DELBLOWL_GUNVECT,A14
MOVE A14,*A0(OGUNVECT),L
IDV_GO
CLR A14 ;NO MORE COLLISIONS
MOVE A14,*A8(OCVECT),L
MOVI DUMRETS,A14
MOVE A14,*A8(OGUNVECT),L
PUSH A2
MOVI -020000H,A1 ;MIN X VEL
MOVI 020000H,A2 ;MAX X VEL
MOVI -020000H,A3 ;MIN Y VEL
MOVI 020000H,A4 ;MAX Y VEL
CLR A5 ;DO THE BOX THING
CLR A6 ;NO SHAKE
MOVI FRAG_C2,A7 ;FRAGMENT SCRIPT
MOVK 10,A9 ;NUMBER OF BLOWS
CLR A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
**************************************************************************
* *
* FUSEGUN VECTORS *
* *
**************************************************************************
FUSEGUN_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_LOW
JRUC FGV_GO
FUSEGUN_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_THUD
FGV_GO
CMPK 2,A5
JREQ FGV_DESTROYED ;BR=TRASHED!
; MOVE A5,A5
; JRNZ FGV_DONE
; CALLR FW_GO ;FUCK UP DA DIRECTION
;FGV_DONE
RETS
FGV_DESTROYED
MOVI 10000,A1
CALLA SCORE
MOVK 20,A6 ;SHAKE RADIUS
FGV_NOSHAKE_DESTROYED
PUSH A2
MOVI 020000H,A1 ;MIN X VEL
MOVI 080000H,A2 ;MAX X VEL
MOVI -010000H,A3 ;MIN Y VEL
MOVI 060000H,A4 ;MAX Y VEL
MOVI [-31*2,33*2],A5 ;RIGHT BLOW OFFSET
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVK 8,A9 ;NUMBER OF BLOWS
MOVI FGV_MAKE_FIRE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
FGV_MAKE_FIRE
; MOVE *A8(OPART1),A0,L ;GET HEAD
; MOVE *A0(OPARTS),A0,L ;GET 2ND PART
; MOVB *A0(OPARTID),A14
; CMPK BELLY_GUN,A14
; JRNE FGV_CHECK_FLIP ;BR=THIS IS NOT THE BELLY GUN
; MOVE *A0(OPARTS),A0,L ;GET NOSE PART
; CALLR CN_START_NOSE ;START NOSE GUN
;FGV_CHECK_FLIP
MOVE *A8(OCTRL),A14,W
ANDI M_FLIPH,A14
MOVI [-79*2,-23*2],A1
BTST B_FLIPH,A14
JRZ FGV_FIRE ;BR=NOT FLIPPED
NEGX A1
FGV_FIRE
MOVE A1,*A8(OPARTSXY),L
; CALLR DELETE_FLASH
;
; CLR A14
; MOVE A14,*A8(OCVECT),L
; MOVI DUMRETS,A14
; MOVE A14,*A8(OGUNVECT),L
;
; MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 040000H,A0
; CLR A3
; CALLA PreFrag_Box
; MOVI -0FFH,B9
; MOVI -01H,B10
; MOVI FRAG_C5,B14
; CALLA Fragger
;
; MOVI yGRAD2Yp,A5
; MOVE A5,*A0(FPDATA),L ;SET PALETTE
;
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
MOVE A8,A0 ;REPLACE WITH FIRE
MOVE A2,A4
CALLA GET_HEAD_PART
MOVE *A8(OXVAL),A1,L
MOVE *A8(OYVAL),A2,L
MOVE *A8(OZVAL),A3,L
CALLA SETOFFPU
MOVE A4,A2
CALLA PULLPART
CALLA INSPART
MOVI FUSE_FIRE_START_ANIM,A1
MOVI FUSE_FIRE_ANIM,A14
JAUC STRTANIM_OFF
**************************************************************************
* *
* NOSEGUN VECTORS *
* *
**************************************************************************
GRILL_MISSLETIME_TABLE
.WORD 20, 15, 15
DUM_NOSEGUN_GUNVECT
CALLA COPTER_SPARK
SOUND1 SND_CLANG_HIGH
CALLR CV_GUN ;CHECK FOR GUN EXPLOSION
MOVI GUN_DAMAGE/8,A3,W
JRUC DNV_GO
DUM_NOSEGUN_COLLISION
SOUND1 SND_METALLIC_FUCKUP
CALLR PUSHBACK
CALLR CV_ROCKET ;MAKE ROCKET EXPLOSION
MOVI ROCKET_DAMAGE/8,A3,W
DNV_GO
MOVI NOSEGUN_DUMMY_DAMAGE_TABLE,A4
MOVK 3,A5
CALLR DUMMY_DAMAGE ;FIND A PART TO DAMAGE
JRNC DNV_DONE ;BR=DAMAGED A PART
MOVI NOSEGUN_GUNVECT,A14 ;ACTIVATE NOSE GUN VECTORS
MOVE A14,*A8(OGUNVECT),L
MOVI NOSEGUN_COLLISION,A14
MOVE A14,*A8(OCOLLISION),L
DNV_DONE
RETS
NOSEGUN_DUMMY_DAMAGE_TABLE
WL LEFT_WING, WV_DESTROYED
WL RGHT_WING, WV_DESTROYED
WL BELLY_GUN, BWV_DESTROYED
NOSEGUN_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_HIGH
JRUC NV_GO
NOSEGUN_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_METALLIC_FUCKUP
NV_GO
CMPK 2,A5
JREQ NV_DESTROYED ;BR=TRASHED!
MOVE A5,A5
JRNZ NV_DONE
CALLR FW_GO ;FUCK UP DA DIRECTION
NV_DONE
RETS
NV_DESTROYED
MOVI 10000,A1
CALLA SCORE
SOUND1 SND_SHES_BREAKIN_UP
MMTM SP,A2,A8
MOVK 2,A11 ;2 PARTS TO DAMAGE
NV_F_LUPE
MOVE A11,A1
ADDK RGHT_FUSELAGE-2,A1
CALLA FINDPART
LOCKON Z
MOVE A0,A8
MOVI 010000H,A1 ;MIN X VEL
MOVI 060000H,A2 ;MAX X VEL
MOVI -040000H,A3 ;MIN Y VEL
MOVI 040000H,A4 ;MAX Y VEL
MOVI [-55*2,0],A5 ;RIGHT BLOW OFFSET
MOVK 20,A6 ;SHAKE RADIUS
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVK 32,A9 ;NUMBER OF BLOWS
MOVI FUSELAGE_DAMAGE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
DSJ A11,NV_F_LUPE
MOVI COPDAM2,A8
MOVK 24,A9
MOVK 31,A10
MOVK 4,A11
CREATE PID_COLOR,CYCLE16
MOVI PARTS_TO_FUCKUP_TABLE,A4
CLR A6 ;SHAKE RADIUS
NV_DAM_LUPE
MOVE *SP,A8,L ;GET TOP OF STACK (OBJECT ADDR)
MOVE *A4+,A1,W
JRZ NV_DAM_DONE ;BR=NO MORE
CALLA FINDPART
JRZ NV_DAM_NEXT ;BR=NOT HERE
MOVE A0,A8
MOVE *A4,A14,L
PUSH A4
CALL A14 ;DAMAGE THE PART
PULLQ A4
NV_DAM_NEXT
ADDK 020H,A4
DSJ A5,NV_DAM_LUPE
NV_DAM_DONE
MMFM SP,A2,A8
MOVK GRILL,A1 ;FIND DA GRILL
CALLA FINDPART
LOCKON Z
MOVI FIREBALL_MISSLETIME_TABLE,A14
MOVE A14,@MISSLETIME_TABLE,L
MOVI GRILL_ANIM,A1 ;START IT UP
CALLA STRTANIM
MOVI GRILL_GUNVECT,A14 ;ACTIVATE GRILL VECTORS
MOVE A14,*A0(OGUNVECT),L
MOVI GRILL_COLLISION,A14
MOVE A14,*A0(OCOLLISION),L
JAUC DEL_PROC_AND_OBJ
**************************************************************************
* *
* FUSELAGE_DAMAGE - DAMAGE FUSELAGE PART *
* *
* PASS: *
* A8 = FUSELAGE PART *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
FUSELAGE_DAMAGE
move *A8(OCTRL),A4,W
MOVI CPTFSEC9sd,A1
CALLA ANI
CALLA SET_SCALE_WARREN ;SCALE THE MOTHER
CALLA SET_ODAG ;COMPUTE ODAG AGAIN
MOVI COPDAM2,A0
CALLA CHANGE_PAL
MOVI COPTER_LCLANG_GUNVECT,A14 ;DEACTIVATE DAMAGE VECTORS
MOVE A14,*A8(OGUNVECT),L
MOVI COPTER_LCLANG_COLLISION,A14
MOVE A14,*A8(OCOLLISION),L
RETS
PARTS_TO_FUCKUP_TABLE
WL LEFT_FUSE_GUN, FGV_NOSHAKE_DESTROYED
WL RGHT_FUSE_GUN, FGV_NOSHAKE_DESTROYED
WL LEFT_ENGINE_COVER, EV_NOSHAKE_DESTROYED
WL RGHT_ENGINE_COVER, EV_NOSHAKE_DESTROYED
WL TOP_COCKPIT, CPV_NOSHAKE_DESTROYED
WL BOTTOM_COCKPIT, CPV_NOSHAKE_DESTROYED
.WORD 0
**************************************************************************
* *
* GRILL VECTORS *
* *
**************************************************************************
GRILL_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_LOW
JRUC GV_GO
GRILL_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_THUD
GV_GO
CMPK 2,A5
JREQ GV_DESTROYED ;BR=TRASHED!
RETS
GV_DESTROYED
MOVI 10000,A1
CALLA SCORE
; MOVK 1,A14
; MOVE A14,@GUNS_OFF,W ;NO MORE SHOOTIN'
SOUND1 SND_WERE_GOIN_DOWN
SOUND1 SND_CHAN3_OFF
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE A2,*A0(OPLAYER),L
CALLA DEL_PROC_AND_OBJ
MOVE A0,A8
CALLA CLR_VEL
MOVE *A8(OPLINK),A0,L
JRZ GV_NO_PROC ;BR=NO PROCESS HERE
CLR A14
MOVE A14,*A8(OPLINK),L
MOVE A14,@COPTER_OBJ,L
MOVI M_CHOVER,A14
MOVE A14,*A8(OCOMMAND),L ;SHAKE TOWARDS THE CENTER
MOVI 32,A14 ;NUMBER OF SHAKES
MOVB A14,*A8(AnimLoop)
MOVK 25,A14 ;SHAKE RADIUS
MOVB A14,*A8(OSHAKERADIUS)
MOVI FINAL_SHAKE_ANIM,A1
CALLA STRT_ANIM
CALLA KILL
GV_NO_PROC
MMTM SP,A2,A8
CLR A6 ;SHAKE RADIUS
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVI 127,A9 ;NUMBER OF BLOWS
MOVI DUMRETS,A10 ;BLOWN ROUTINE
MOVK 2,A11 ;2 PARTS TO DAMAGE
GV_LUPE
MOVE A11,A1
ADDK RGHT_FUSELAGE-2,A1
CALLA FINDPART
LOCKON Z
MOVE A0,A8
MOVI 08000H,A1 ;MIN X VEL
MOVI 060000H,A2 ;MAX X VEL
MOVI -040000H,A3 ;MIN Y VEL
MOVI 060000H,A4 ;MAX Y VEL
MOVI [-55*2,0],A5 ;RIGHT BLOW OFFSET
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
MOVE A11,A1
ADDK RGHT_ENGINE-2,A1
CALLA FINDPART
LOCKON Z
MOVE A0,A8
MOVI 010000H,A1 ;MIN X VEL
MOVI 080000H,A2 ;MAX X VEL
MOVI -040000H,A3 ;MIN Y VEL
MOVI 040000H,A4 ;MAX Y VEL
MOVI [-125*2,50*2],A5 ;RIGHT BLOW OFFSET
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
DSJ A11,GV_LUPE
MOVK GEAR,A1
CALLA FINDPART
LOCKON Z
MOVE A0,A8
MOVI -040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -060000H,A3 ;MIN Y VEL
MOVI -010000H,A4 ;MAX Y VEL
MOVI [0,0],A5 ;RIGHT BLOW OFFSET
CLR A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
; MOVK TOP_COCKPIT,A1
; CALLA FINDPART
; LOCKON Z
;
; MOVE A0,A8
; MOVI -040000H,A1 ;MIN X VEL
; MOVI 040000H,A2 ;MAX X VEL
; MOVI -040000H,A3 ;MIN Y VEL
; MOVI 040000H,A4 ;MAX Y VEL
; MOVI [-120*2,0],A5 ;RIGHT BLOW OFFSET FOR TOP
; CLR A7 ;FRAGMENT SCRIPT
; CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
;
; MOVK BOTTOM_COCKPIT,A1
; CALLA FINDPART
; LOCKON Z
;
; MOVE A0,A8
; MOVI -040000H,A1 ;MIN X VEL
; MOVI 040000H,A2 ;MAX X VEL
; MOVI -040000H,A3 ;MIN Y VEL
; MOVI 040000H,A4 ;MAX Y VEL
; MOVI [-90*2,0],A5 ;RIGHT BLOW OFFSET FOR BOTTOM
; CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
MMFM SP,A2,A8
RETS
**************************************************************************
* *
* A_START_DUPING *
* *
**************************************************************************
A_START_DUPING
MOVK 2,A14 ;NUMBER OF SHAKES FOR PART 2
MOVB A14,*A8(AnimLoop)
; MOVE @WAVEIRQS,A14,L
; MOVE A14,*A8(OCDATA),L
MOVK 2,A11 ;2 PARTS TO DAMAGE
ASD_LUPE
MOVE A11,A1
ADDK RGHT_FUSELAGE-2,A1
CALLA FINDPART
LOCKON Z
MOVI FUSELAGE_INIT,A14
MOVE A14,*A0(ODUP_INIT),L
MOVI 040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -020000H,A3 ;MIN Y VEL
MOVI 020000H,A4 ;MAX Y VEL
MOVE A0,A14
ADDI OMINXVEL+020H,A14
MMTM A14,A1,A2,A3,A4
MOVI DUP_PART_ANIM,A1
CALLA STRTANIM
MOVE A11,A1
ADDK RGHT_ENGINE-2,A1
CALLA FINDPART
LOCKON Z
MOVI ENGINE_INIT,A14
MOVE A14,*A0(ODUP_INIT),L
MOVI 040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -030000H,A3 ;MIN Y VEL
MOVI 020000H,A4 ;MAX Y VEL
MOVE A0,A14
ADDI OMINXVEL+020H,A14
MMTM A14,A1,A2,A3,A4
MOVI DUP_PART_ANIM,A1
CALLA STRTANIM
MOVE A11,A1
ADDK RGHT_TOP_FUSELAGE-2,A1
CALLA FINDPART
LOCKON Z
MOVE A0,A8
MOVI TOP_FUSELAGE_INIT,A14
MOVE A14,*A8(ODUP_INIT),L
MOVI 040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -020000H,A3 ;MIN Y VEL
MOVI 030000H,A4 ;MAX Y VEL
MOVI [-105*2,10*2],A5 ;RIGHT BLOW OFFSET
CLR A6 ;SHAKE RADIUS
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVI 127,A9 ;NUMBER OF BLOWS
CLR A10 ;BLOWN ROUTINE
CALLR DUP_PART ;MAKE A BIG THING ABOUT IT
DSJ A11,ASD_LUPE
RETS
**************************************************************************
* *
* THROW_EXPLOS *
* *
**************************************************************************
A_THROW_EXPLO
; MOVE *A8(OCDATA),A1,L
; MOVE @WAVEIRQS,A14,L
; MOVE A14,A3
; SUB A1,A14
;
; CMPK 16,A14
; JRLT ATE_DONE
;
; MOVE A3,*A8(OCDATA),L
MOVI EXPLO_INIT,A5
CALLA CREATE_OBJ
JRZ ATE_DONE
MOVE A0,A7
MOVE *A7(OFLAGS),A14,W
ORI M_DBLSCL,A14
MOVE A14,*A7(OFLAGS),W
MOVE *A8(OXVAL),A2,L
MOVE A2,*A7(OXVAL),L
MOVE *A8(OYVAL),A4,L
SUBI 70*2 << 15,A4
MOVE A4,*A7(OYVAL),L
MOVE *A8(OZVAL),A5,L
SUBK 32,A5
MOVE A5,*A7(OZVAL),L
MOVI -0800H,A1
MOVI -0100H,A0
CALLA RANGERND
MOVE A0,*A7(OZVEL),L
MOVI -010000H,A1
MOVI 040000H,A0
CALLA RANGERND
MOVE A0,*A7(OYVEL),L
MOVI -080000H,A1
MOVI 080000H,A0
CALLA RANGERND
MOVE A0,*A7(OXVEL),L
MOVE A7,A0
CALLA INSOBJ
ATE_DONE
RETS
FUSELAGE_INIT
.LONG CPTFSEC9sd, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, 0
.LONG C_STRTANIM
.LONG DUP_TIMEOUT_ANIM
ENGINE_INIT
.LONG CPTFSEC3s, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, 0
.LONG C_STRTANIM
.LONG DUP_TIMEOUT_ANIM
TOP_FUSELAGE_INIT
.LONG CPTFSEC5s, 0
.WORD OID_JUNK, DMAWNZ, M_DBLSCL, 0
.LONG C_STRTANIM
.LONG DUP_TIMEOUT_ANIM
DUP_TIMEOUT_ANIM
LW 1,60
LWL 1,1|AFunc,DELETE_OBJ
FINAL_SHAKE_ANIM
LWL 1,1|AFunc,A_SHAKE_COPTER
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,4
LWLL 1,0|AFunc,A_Anim_DSJ+2,FINAL_SHAKE_ANIM
LWL 1,1|AFunc,A_START_DUPING
FINAL_SHAKE_ANIM_PART2
LWL 1,1|AFunc,A_SHAKE_COPTER
LWL 1,1|AFunc,A_THROW_EXPLO
LWL 1,1|AFunc,A_THROW_EXPLO
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,2
; LWLL 1,0|AFunc,A_AnimFrm+2,FINAL_SHAKE_ANIM_PART2
LWLL 1,0|AFunc,A_Anim_DSJ+2,FINAL_SHAKE_ANIM_PART2
LWL 1,1|AFunc,A_FINAL_EXPLO_COPTER
**************************************************************************
* *
* A_FINAL_EXPLO_COPTER - COPTER GO BOOM! *
* *
* PASS: *
* A8 = OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_FINAL_EXPLO_COPTER
SOUND1 SND_FINAL_EXPLO_COPTER1
SOUND1 SND_FINAL_EXPLO_COPTER2
SOUND1 SND_FINAL_EXPLO_COPTER3
CREATE PID_IND, PROC_SKY_FLASH
JRUC A_DELETE_COPTER
**************************************************************************
* *
* ENGINE VECTORS *
* *
**************************************************************************
ENGINE_GUNVECT
CALLA COPTER_SPARK
MOVI GUN_DAMAGE,A0,W
CALLR COPTER_HIT
SOUND1 SND_CLANG_LOW
JRUC EV_GO
ENGINE_COLLISION
CALLR COPTER_HIT
CALLA PUSHBACK
SOUND1 SND_THUD
EV_GO
CMPK 2,A5
JREQ EV_DESTROYED ;BR=TRASHED!
RETS
EV_DESTROYED
MOVI 10000,A1
CALLA SCORE
MOVK 20,A6 ;SHAKE RADIUS
EV_NOSHAKE_DESTROYED
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE *A0(OSTUTTER),A14,W ;INCREASE STUTTER CHANCE
ADDK 32,A14
MOVE A14,*A0(OSTUTTER),W
PUSH A2
MOVI -040000H,A1 ;MIN X VEL
MOVI 040000H,A2 ;MAX X VEL
MOVI -040000H,A3 ;MIN Y VEL
MOVI 040000H,A4 ;MAX Y VEL
MOVI [-117*2,51*2],A5 ;RIGHT BLOW OFFSET
MOVI FRAG_C1,A7 ;FRAGMENT SCRIPT
MOVK 8,A9 ;NUMBER OF BLOWS
MOVI EV_MAKE_FIRE,A10 ;BLOWN ROUTINE
CALLR BLOW_PART ;MAKE A BIG THING ABOUT IT
PULLQ A2
RETS
EV_MAKE_FIRE
MOVB *A8(OPARTID),A14
MOVE A8,A3
MOVI gGRAD2cy,A8 ;LEFT PALETTE
CMPK RGHT_ENGINE_COVER,A14
JRNE EV_ENG_CYCLE ;BR=THIS IS NOT THE RIGHT ONE
MOVI gGRAD2cy2,A8 ;RIGHT PALETTE
EV_ENG_CYCLE
MOVK 18,A9 ;COLOR CYCLE ON ENGINE
MOVK 31,A10
MOVK 2,A11
CREATE PID_COLOR,CYCLE16
MOVE A3,A8
MOVE *A8(OCTRL),A10,W
ANDI M_FLIPH,A10
MOVI [-107*2,-48*2],A9
MOVI ENGINE_FIRE_INIT,A5
BTST B_FLIPH,A10
JRZ EV_FIRE ;BR=NOT FLIPPED
NEGX A9
EV_FIRE
CALLR ADD_FIRE ;FIRE GOOD!
CALLA DELETE_OBJ
RETS
; MMTM SP,B1,B2,B4,B5,B6,B8,B9 ;MAKE FRAGMENTS
;
; MOVI 040000H,A0
; CLR A3
; CALLA PreFrag_Box
; MOVI -0FFH,B9
; MOVI -01H,B10
; MOVI FRAG_C5,B14
; CALLA Fragger
;
; MOVI yGRAD2Yp,A5
; MOVE A5,*A0(FPDATA),L ;SET PALETTE
;
; MMFM SP,B1,B2,B4,B5,B6,B8,B9
;
; JAUC DEL_PROC_AND_OBJ
**************************************************************************
* *
* FUSELAGE VECTORS *
* *
**************************************************************************
FUSELAGE_GUNVECT
CALLA COPTER_SPARK
SOUND1 SND_CLANG_LOW
CALLR CV_GUN ;CHECK FOR GUN EXPLOSION
MOVI GUN_DAMAGE/8,A3,W
JRUC FV_GO
FUSELAGE_COLLISION
SOUND1 SND_THUD
CALLR PUSHBACK
CALLR CV_ROCKET ;MAKE ROCKET EXPLOSION
MOVI ROCKET_DAMAGE/8,A3,W
FV_GO
MOVI FUSELAGE_DUMMY_DAMAGE_TABLE,A4
; MOVK 4,A5
MOVK 3,A5
CALLR DUMMY_DAMAGE ;FIND A PART TO DAMAGE
JRNC FV_DONE ;BR=DAMAGED A PART
MOVI FLIGHT_9S_GUNVECT,A14
MOVE A14,*A8(OGUNVECT),L
MOVI FLIGHT_9S_COLLISION,A14
MOVE A14,*A8(OCOLLISION),L
FV_DONE
JRUC F9S_GO ;FLASH OTHER HALF
FUSELAGE_DUMMY_DAMAGE_TABLE
WL LEFT_WING, WV_DESTROYED
WL RGHT_WING, WV_DESTROYED
WL BELLY_GUN, BWV_DESTROYED
; WL NOSE_GUN, NV_DESTROYED
**************************************************************************
* *
* DUMMY_DAMAGE - DAMAGE A PART INDIRECTLY FROM A TABLE OF POSSIBLE PARTS *
* *
* PASS: *
* A0 = DAMAGE AMOUNT *
* A4 = TABLE *
* A5 = NUMBER OF TABLE ENTRIES *
* A8 = OBJECT *
* RETURN: *
* C SET IF NO PART DAMAGED, CLEAR IF DAMAGE *
* *
**************************************************************************
DUMMY_DAMAGE
PUSH A8
DD_LUPE
MOVE *A4+,A1,W
CALLA FINDPART
JRNZ DD_HIT ;BR=FOUND A PART TO HIT
ADDK 020H,A4
DSJ A5,DD_LUPE
SETC ;FLAG NO DAMAGE
JRUC DD_DONE
DD_HIT
PUSH A4
MOVE A0,A8
MOVE A3,A0
CALLA COPTER_HIT
PULLQ A4
CMPK 2,A5
JRNE DD_NOT_DESTROYED ;BR=NOT TRASHED
MOVE *A4,A14,L
CALL A14
DD_NOT_DESTROYED
CLRC ;FLAG DAMAGE
DD_DONE
PULLQ A8
RETS
**************************************************************************
* *
* ********************************************************************** *
* * *
* * ******************************************************************** *
* * * *
* * * THE FOLLOWING GUN AND COLLISION ROUTINES MUST BE REDONE! *
* * * *
* * ******************************************************************** *
* * *
* ********************************************************************** *
* *
**************************************************************************
;**************************************************************************
;* *
;* COPTER_DUM_GUNVECT *
;* *
;**************************************************************************
;
;COPTER_DUM_GUNVECT
; JRUC CDG_GUNHIT ;THESE INSTRUCTIONS MUST BE THE
; NOP ; LENGTH OF A LONG WORD
;;COLLISION ENTRY POINT
;CDG_COLLISION
; MOVI ROCKET_DAMAGE/4,A0,W
;CDG_GO
; MOVE A8,A1
; PUSH A8
; MOVE *A8(OPART1),A8,L
; LOCKON Z
; MOVE *A8(OPARTS),A8,L
;
; MOVB *A8(OPARTID),A14
; CMPK LEFT_FUSELAGE,A14
; JRGE CDG_NOMORE
;
; .if DEBUG
; CMP A1,A8
; LOCKON EQ
; .endif
;
; MOVE *A8(OGUNVECT),A14,L
; ADDI 020H,A14 ;OFFSET TO COLLISION ENTRY POINT
;
; CALL A14
;
; PULLQ A8
;CDG_DONE
; RETS
;CDG_GUNHIT
; MOVI GUN_DAMAGE/4,A0,W
; JRUC CDG_GO
;CDG_NOMORE
; CLR A14
; MOVE A14,*A1(OCVECT),L
; MOVI DUMRETS,A14
; MOVE A14,*A1(OGUNVECT),L
; PULLQ A8
; RETS
;
;;CDG_CHECK_TIME
;; MOVE *A8(OHITTIME),A14,W ;GET LAST TIME
;; MOVE @WAVEDISPS,A3,W ;GET CURRENT TIME
;; SUB A3,A14 ;CALCULATE DELTA TIME
;; NEG A14
;; CMPK 5,A14
;; JRLE CDG_DONE ;BR=TOO SHORT, DON'T HIT
;; MOVE A3,*A8(OHITTIME),W ;SAVE THIS TIME AS LAST TIME
;; JRUC CDG_GO
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* A_CHECK_COMMAND - CHECK IF BITS SET IN OCOMMAND WORD, JUMP IF NOT *
* *
* PASS: *
* A8 = OBJECT *
* AARG+,W = BITS TO CHECK *
* AARG+,L = ADDRESS TO JUMP TO IF NOT SET *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_CHECK_COMMAND
MOVE *A8(OPART1),A1,L
LOCKON Z
MOVE *A1(OCOMMAND),A1,W
CALLA GETAFARG_WORD
AND A0,A1
XOR A0,A1
JRZ ACA_DONE ;BR=BITS ARE SET
CALLA GETAFARG_LONG
MOVE A0,*A8(AnimFrm),L
ACA_DONE
RETS
**************************************************************************
* *
* A_DAM_RETURN - RETURN FROM DAMAGE SUBROUTINE *
* *
* PASS: *
* A8 = OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_DAM_RETURN
MOVE *A8(AnimRetScr),A14,L
JAZ PULL_ANIM ;BR=FLAG SET TO PULL ANIMATION
MOVE A14,*A8(AnimScr),L
MOVE *A8(AnimRetFrm),*A8(AnimFrm),L
RETS
**************************************************************************
* *
* A_RESTORE_FLIPH - RETURN FLIPH BIT TO IT'S ORIGINAL VALUE *
* *
* PASS: *
* A8 = OBJECT *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_RESTORE_FLIPH
MOVE *A8(OPART1),A0,L
LOCKON Z
MOVE *A0(OCTRL),A14,W
ANDI M_FLIPH,A14 ;GET FLIPH BIT FROM HEAD
MOVE *A8(OCTRL),A1,W
ANDNI M_FLIPH,A1
OR A14,A1 ;GIVE THE PART THE SAME FLIPH
MOVE A1,*A8(OCTRL),W
RETS
**************************************************************************
* *
* A_SET_DOOROFFX - SET DOOR X OFFSET FROM COPTER ANIMATION POINT *
* *
* PASS: *
* A8 = DOOR OBJECT *
* AARG+,W = X OFFSET FOR UNFLIPPED COPTER *
* *
* RETURN: *
* NUTIN' *
* *
**************************************************************************
A_SET_DOOROFFX
CALLA GETAFARG_WORD ;GET X OFFSET
MOVE *A8(OCTRL),A14,W
BTST B_FLIPH,A14
JRZ ASD_SET_OPARTSX ;BR=NOT FLIPPED IN X
NEG A0
ASD_SET_OPARTSX
MOVE A0,*A8(OPARTSXY),W
MOVE A8,A0
MOVE *A8(OPART1),A8,L ;NICE HEAD!
MOVE *A8(OXVAL),A1,L
MOVE *A8(OYVAL),A2,L
MOVE *A8(OZVAL),A3,L
JAUC SETOFFPU
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
* *
* SIDE_COPTER_INIT *
* *
**************************************************************************
SIDE_COPTER_INIT
.byte 20, 0, 0, 7 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long yGRAD2Yp ;IMGPAL
.long gGRAD2Gp ;IMGPAL
.long gunGRADp ;IMGPAL
.long gunGRAD2p ;IMGPAL
.long PROPAL1s ;IMGPAL
.long COPDAM2 ;IMGPAL
.LONG PILOT_P ;IMGPAL
;OID, GLOBAL_OPTIONS
.word OID_COPTER, OM_COLL|OM_POS|OM_INSERT
.LONG COPTER_COLL
.LONG 039189B4H, -04000000H, 02742FH
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW CPTSSEC2s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_LCLANG_FLASH_GUNVECT
LWWWW CPTGATGN1s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [31*2,21*2]
.LONG FLIGHT_WEAPON_GUNVECT
.LONG C_INIT_GUN
.LONG gunGRAD2p ;NORMAL PAL
.LONG gnGRAD2pX ;HILITE PAL
.LONG GAT_GUN_ANIM0 ;ATTACK ANIMATION
.WORD GGA_LUPE-GAT_GUN_ANIM0 ;FIRE ANIMATION OFFSET
.LONG SND_GAT_GUN ;SOUND
.LONG GAT_SWING_DAM_ANIM ;DAMAGE ANIMATION
.LONG GATFLASH_INIT ;FLASH INIT TABLE
.LONG [18*2,0] ;FLASH OFFSET
.WORD 20 << 8 ;HIT POINTS
LWWWW CPTROKIT1s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [6*2,21*2]
.LONG FLIGHT_HGUNVECT
.LONG C_INIT_LAUNCHER
.LONG LAUNCHER_ANIM
.WORD 20 << 8 ;HIT POINTS
LWWWW CPTNZGN1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [46*2,-120*2]
.LONG FLIGHT_WEAPON_GUNVECT
.LONG C_INIT_GUN
.LONG gunGRADp ;NORMAL PAL
.LONG gunGRADpb ;HILITE PAL
.LONG BELLY_GUN_ANIM0 ;ATTACK ANIMATION
.WORD BGA_LUPE-BELLY_GUN_ANIM0 ;FIRE ANIMATION OFFSET
.LONG SND_BELLY_GUN ;SOUND
.LONG BELLY_DAM_ANIM ;DAMAGE ANIMATION
.LONG BELLYFLASH_INIT ;FLASH INIT TABLE
.LONG [22*2,0] ;FLASH OFFSET
.WORD 20 << 8 ;HIT POINTS
LWWWW CPTSSEC10s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_GUNV
.LONG FLIGHT_HGUNVECT
LWWWW CPTSSEC11s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_GUNV
.LONG FLIGHT_LGUNVECT
LWWWW CPTSSEC7s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_PRVGUNV
LWWWW CPTSSEC8s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_PRVGUNV
LWWWW CPTSSEC1s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC3s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC4sx, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC5s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC6s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC9s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_GUNV
.LONG FLIGHT_HGUNVECT
LWWWW CPTSDOR1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_GUNV
; .LONG [13*2,-53*2]
.LONG FLIGHT_LGUNVECT
; LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,31*2]
; LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,31*2]
; LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,-93*2]
; LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,-93*2]
LWWWW CPTGEAR1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_COLL|OM_GUNV|OM_ANIM
.LONG [-46*2,-20*2]
.LONG DUMCOLL
.LONG COPTER_GCLANG_GUNVECT
.LONG BLADE_ANIM
LWWWW CPTPROPh1, DMAWNZ|M_FLIPV, M_DBLSCL, 2, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-72*2,-20*2]
.LONG DUMCOLL
.LONG COPTER_BCLANG_GUNVECT
LWWWW CPTPROPh1, DMAWNZ|M_FLIPH, M_DBLSCL, 2, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [-72*2,-20*2]
.LONG DUMCOLL
LWWWW SIDEPILOT, DMAWNZ|M_FLIPH, 0, 2, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-27,-135]
.LONG DUMCOLL
.LONG DUMRETS
LWWWW SIDEPILOT, DMAWNZ|M_FLIPH, 0, 1, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [28,-220]
.LONG DUMCOLL
**************************************************************************
* *
* SIDE_COPTER_ONTOP_INIT *
* *
**************************************************************************
SIDE_COPTER_ONTOP_INIT
.byte 18, 0, 0, 6 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long yGRAD2Yp ;IMGPAL
.long gGRAD2Gp ;IMGPAL
.long gunGRADp ;IMGPAL
.long gunGRAD2p ;IMGPAL
.long PROPAL1s ;IMGPAL
.long COPDAM2 ;IMGPAL
;OID, GLOBAL_OPTIONS
.word OID_COPTER, OM_DUMCOLL|OM_INSERT
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW CPTSSEC1s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_LCLANG_GUNVECT
LWWWW CPTSSEC2s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC3s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC4sx, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC5s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC6s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC9s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_PRVGUNV
LWWWW CPTSSEC11s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_PRVGUNV
LWWWW CPTSSEC7s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_GUNV
.LONG DUMRETS
LWWWW CPTSSEC8s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_PRVGUNV
LWWWW CPTSSEC10s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_GUNV
.LONG COPTER_HCLANG_GUNVECT
LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_GUNV
.LONG [52*2,31*2]
.LONG COPTER_LCLANG_GUNVECT
LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
.LONG [52*2,-93*2]
LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_GUNV
.LONG [52*2,31*2]
.LONG COPTER_GCLANG_GUNVECT
LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
.LONG [52*2,-93*2]
LWWWW CPTGEAR1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_GUNV|OM_ANIM
.LONG [-46*2,-20*2]
.LONG COPTER_GCLANG_GUNVECT
.LONG BLADE_ANIM
LWWWW CPTPROPh1, DMAWNZ|M_FLIPV, M_DBLSCL, 2, OM_OPARTS|OM_GUNV
.LONG [-72*2,-20*2]
.LONG COPTER_BCLANG_GUNVECT
LWWWW CPTPROPh1, DMAWNZ|M_FLIPH, M_DBLSCL, 2, OM_OPARTS|OM_PRVGUNV
.LONG [-72*2,-20*2]
**************************************************************************
* *
* SIDE_COPTER_INTRO_INIT *
* *
**************************************************************************
SIDE_COPTER_INTRO_INIT
.byte 20, 0, 0, 7 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long yGRAD2Yp ;IMGPAL
.long gGRAD2Gp ;IMGPAL
.long gunGRADp ;IMGPAL
.long gunGRAD2p ;IMGPAL
.long PROPAL1s ;IMGPAL
.long COPDAM2 ;IMGPAL
.LONG PILOT_P ;IMGPAL
;OID, GLOBAL_OPTIONS
.word OID_COPTER, OM_COLL|OM_INSERT
.LONG COPTER_INTRO_CVECT
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW CPTSSEC2s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_I_LCLANG_GUNVECT
LWWWW CPTGATGN1s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [31*2,21*2]
.LONG INTRO_DELBLOWH_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTROKIT1s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [6*2,21*2]
.LONG COPTER_I_HCLANG_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTNZGN1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [46*2,-120*2]
.LONG INTRO_DELBLOWH_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTSSEC10s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_GUNV|OM_CFUNC
.LONG INTRO_DELBLOWH_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTSSEC11s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_GUNV|OM_CFUNC
.LONG COPTER_I_LCLANG_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTSSEC7s, DMAWNZ|M_FLIPH, M_DBLSCL|M_NOPIXSCAN, -1, OM_GUNV|OM_CFUNC
.LONG INTRO_COCKBLOW_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTSSEC8s, DMAWNZ|M_FLIPH, M_DBLSCL|M_NOPIXSCAN, -1, OM_PRVGUNV|OM_CFUNC
.LONG C_SET_HITS
.WORD 5 << 8
LWWWW CPTSSEC1s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV|OM_CFUNC
.LONG INTRO_PARTBLOW_GUNVECT
.LONG C_SET_HITS
.WORD 20 << 8
LWWWW CPTSSEC3s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_I_LCLANG_GUNVECT
LWWWW CPTSSEC4sx, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_PRVGUNV
LWWWW CPTSSEC5s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV|OM_CFUNC
.LONG INTRO_PARTBLOW_GUNVECT
.LONG C_SET_HITS
.WORD 20 << 8
LWWWW CPTSSEC6s, DMAWNZ|M_FLIPH, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_I_LCLANG_GUNVECT
LWWWW CPTSSEC9s, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_GUNV|OM_CFUNC
.LONG INTRO_PARTBLOW_GUNVECT
.LONG C_SET_HITS
.WORD 20 << 8
LWWWW CPTSDOR1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_GUNV|OM_CFUNC
; .LONG [13*2,-53*2]
.LONG INTRO_DELBLOWL_GUNVECT
.LONG C_SET_HITS
.WORD 5 << 8
; .LONG COPTER_DOOR_ANIM
; LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,31*2]
; LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,31*2]
; LWWWW CPTLNDGR1a, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,-93*2]
; LWWWW CPTLNDGR1b, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_PRVGUNV
; .LONG [52*2,-93*2]
LWWWW CPTGEAR1s, DMAWNZ|M_FLIPH, M_DBLSCL, 1, OM_OPARTS|OM_COLL|OM_GUNV|OM_ANIM
.LONG [-46*2,-20*2]
.LONG DUMCOLL
.LONG COPTER_I_GCLANG_GUNVECT
.LONG BLADE_ANIM
LWWWW CPTPROPh1, DMAWNZ|M_FLIPV, M_DBLSCL, 2, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-72*2,-20*2]
.LONG DUMCOLL
.LONG COPTER_I_BCLANG_GUNVECT
LWWWW CPTPROPh1, DMAWNZ|M_FLIPH, M_DBLSCL, 2, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [-72*2,-20*2]
.LONG DUMCOLL
LWWWW SIDEPILOT, DMAWNZ|M_FLIPH, 0, 2, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-27,-135]
.LONG DUMCOLL
.LONG DUMRETS
LWWWW SIDEPILOT, DMAWNZ|M_FLIPH, 0, 1, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [28,-220]
.LONG DUMCOLL
SIDE_COPTER_INTRO_COLLISIONS
.LONG COPTER_LCLANG_COLLISION, INTRO_DELBLOWH_COLLISION
.LONG COPTER_HCLANG_COLLISION, INTRO_DELBLOWH_COLLISION
.LONG INTRO_DELBLOWH_COLLISION, COPTER_LCLANG_COLLISION
.LONG INTRO_COCKBLOW_COLLISION, INTRO_COCKBLOW_COLLISION
.LONG INTRO_PARTBLOW_COLLISION, COPTER_LCLANG_COLLISION
.LONG COPTER_LCLANG_COLLISION, INTRO_PARTBLOW_COLLISION
.LONG COPTER_LCLANG_COLLISION, INTRO_PARTBLOW_COLLISION
.LONG INTRO_DELBLOWL_COLLISION, 0, 0, 0, 0, 0
**************************************************************************
* *
* WEAPON FLASH INITS AND ANIMS *
* *
**************************************************************************
GATFLASH_INIT
.LONG GATFIRE1a, 0
.WORD OID_JUNK, DMAGO, M_DBLSCL, -7
.LONG C_RESTART_GAT_ANIM
; .LONG C_STRTANIM
; .LONG GATFLASH_ANIM
GATFLASH_ANIM
LWWL GATFIRE1a,3|AFlip|AFunc,0,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE2a,3|AFlip|AFunc,0,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE3a,3|AFlip|AFunc,0,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE4a,3|AFlip|AFunc,0,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE1a,3|AFlip|AFunc,M_FLIPH|M_FLIPV,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE2a,3|AFlip|AFunc,M_FLIPH|M_FLIPV,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE3a,3|AFlip|AFunc,M_FLIPH|M_FLIPV,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
LWWL GATFIRE4a,3|AFlip|AFunc,M_FLIPH|M_FLIPV,A_HIT_ON
LWL 1,3|AFunc,OBJ_OFF
.long 0
NOSEFLASH_INIT
.LONG FNZGNFLWR1, 0
.WORD OID_JUNK, DMAGO, M_DBLSCL, -10
.LONG C_STRTANIM
.LONG GENERIC_FLASH_ANIM
BELLYFLASH_INIT
.LONG COPNZFLWR1, 0
.WORD OID_JUNK, DMAGO, M_DBLSCL, -6
.LONG C_STRTANIM
.LONG GENERIC_FLASH_ANIM
FUSEFLASH_INIT
.LONG SEC8FLWR1, 0
.WORD OID_JUNK, DMAGO, M_DBLSCL, -6
.LONG C_STRTANIM
.LONG GENERIC_FLASH_ANIM
GENERIC_FLASH_ANIM
LWL 1,3|AFunc,A_HIT_FLIP_ON
LWL 1,3|AFunc,OBJ_OFF
.long 0
**************************************************************************
* *
* FRONT_COPTER_INIT *
* *
**************************************************************************
GUN_HIT_POINTS EQU 33 << 8 ; 50 << 8
ROCKET_HIT_POINTS EQU 50 << 8 ; 75 << 8
NOSE_HIT_POINTS EQU 50 << 8 ; 75 << 8
GRILL_HIT_POINTS EQU 66 << 8 ;100 << 8
ENGINE_HIT_POINTS EQU 10 << 8
COCKPIT_HIT_POINTS EQU 5 << 8
SIDE_HIT_POINTS EQU 10 << 8
WING_HIT_POINTS EQU 33 << 8 ; 50 << 8
FRONT_COPTER_INIT
.byte 27, 0, 0, 8 ;OBJCNT, PRCCNT, IMGPALCNT, PALCNT
.long yGRAD2Yp ;IMGPAL
.long gGRAD2cy ;IMGPAL
.long gGRAD2Gp ;IMGPAL
.long PROPAL1s ;IMGPAL
.long gunGRADp ;IMGPAL
.long gunGRAD2p ;IMGPAL
.LONG gGRAD2cy2 ;IMGPAL
.LONG PILOT_P ;IMGPAL
;OID, GLOBAL_OPTIONS
.word OID_COPTER, OM_COLL|OM_POS|OM_INSERT
.LONG COPTER_COLL
.LONG 031CA1B4H,-015F13FCH,0189C7H
* .long IMG
* .word OCTRL, OFLAGS, OZOFF
* .word OPTIONS
LWWWW CPTFSEC1s, DMAWNZ, M_DBLSCL, 0, OM_GUNV
.LONG COPTER_LCLANG_GUNVECT
LWWWW CPTGATGN4s, DMAWNZ, M_DBLSCL, -6, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [-65*2,-75*2]
; .LONG WING_WEAPON_GUNVECT
.LONG FLIGHT_WEAPON_GUNVECT
.LONG C_INIT_GUN
.LONG gunGRAD2p ;NORMAL PAL
.LONG gnGRAD2pX ;HILITE PAL
.LONG GAT_PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG SND_GAT_GUN ;SOUND
.LONG GAT_DAM_ANIM ;DAMAGE ANIMATION
.LONG GATFLASH_INIT ;FLASH INIT TABLE
.LONG [18*2,0] ;FLASH OFFSET
.WORD GUN_HIT_POINTS ;HIT POINTS
LWWWW CPTROKIT4s, DMAWNZ, M_DBLSCL, -7, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [-75*2,-116*2]
; .LONG WING_WEAPON_GUNVECT
.LONG FLIGHT_HGUNVECT
.LONG C_INIT_LAUNCHER
.LONG ROCKET_LAUNCHER_ANIM
.WORD ROCKET_HIT_POINTS ;HIT POINTS
LWWWW CPTGATGN4s, DMAWNZ|M_FLIPH, M_DBLSCL, -6, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [-65*2,75*2]
; .LONG WING_WEAPON_GUNVECT
.LONG FLIGHT_WEAPON_GUNVECT
.LONG C_INIT_GUN
.LONG gunGRAD2p ;NORMAL PAL
.LONG gnGRAD2pX ;HILITE PAL
.LONG GAT_PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG SND_GAT_GUN ;SOUND
.LONG GAT_DAM_ANIM ;DAMAGE ANIMATION
.LONG GATFLASH_INIT ;FLASH INIT TABLE
.LONG [18*2,0] ;FLASH OFFSET
.WORD GUN_HIT_POINTS ;HIT POINTS
LWWWW CPTROKIT4s, DMAWNZ|M_FLIPH, M_DBLSCL, -7, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [-75*2,116*2]
; .LONG WING_WEAPON_GUNVECT
.LONG FLIGHT_HGUNVECT
.LONG C_INIT_LAUNCHER
.LONG ROCKET_LAUNCHER_ANIM
.WORD ROCKET_HIT_POINTS ;HIT POINTS
LWWWW CPTNZGN4sb, DMAWNZ, M_DBLSCL, -5, OM_OPARTS|OM_GUNV|OM_CFUNC
.LONG [-14*2,0]
; .LONG BELLY_WEAPON_GUNVECT
.LONG FLIGHT_WEAPON_GUNVECT
.LONG C_INIT_GUN
.LONG gunGRADp ;NORMAL PAL
.LONG gunGRADpb ;HILITE PAL
.LONG BELLY_PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG SND_BELLY_GUN ;SOUND
.LONG BELLY_DAM_ANIM ;DAMAGE ANIMATION
.LONG BELLYFLASH_INIT ;FLASH INIT TABLE
.LONG [22*2,0] ;FLASH OFFSET
.WORD GUN_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC10s, DMAWNZ, M_DBLSCL, -9, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_HCLANG_GUNVECT
.LONG FLIGHT_HGUNVECT
.LONG C_INIT_GUN
.LONG gGRAD2Gp ;NORMAL PAL
.LONG PUDD2Gp ;HILITE PAL
.LONG 0 ;PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG 0 ;SND_NOSE_GUN ;SOUND
.LONG PART_DAM_ANIM ;DAMAGE ANIMATION
.LONG NOSEFLASH_INIT ;FLASH INIT TABLE
.LONG [-48*2,0] ;FLASH OFFSET
.WORD NOSE_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC4s, DMAWNZ, M_DBLSCL, -4, OM_GUNV|OM_CFUNC
; .LONG ENGINE_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD ENGINE_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC4s, DMAWNZ|M_FLIPH, M_DBLSCL, -4, OM_GUNV|OM_CFUNC
; .LONG ENGINE_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD ENGINE_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC2s, DMAWNZ, M_DBLSCL, -2, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD WING_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC2s, DMAWNZ|M_FLIPH, M_DBLSCL, -2, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD WING_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC6s, DMAWNZ, M_DBLSCL|M_NOPIXSCAN, -8, OM_GUNV|OM_CFUNC
; .LONG COCKPIT_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD COCKPIT_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC7s, DMAWNZ, M_DBLSCL|M_NOPIXSCAN, -7, OM_GUNV|OM_CFUNC
; .LONG COCKPIT_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD COCKPIT_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC8s, DMAWNZ, M_DBLSCL, -5, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_INIT_GUN
.LONG yGRAD2Yp ;NORMAL PAL
.LONG yGRAD2Ypz ;HILITE PAL
.LONG 0 ;PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG 0 ;SND_FUSE_GUN ;SOUND
.LONG PART_DAM_ANIM ;DAMAGE ANIMATION
.LONG FUSEFLASH_INIT ;FLASH INIT TABLE
.LONG [-38*2,-41*2] ;FLASH OFFSET
.WORD SIDE_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC8s, DMAWNZ|M_FLIPH, M_DBLSCL, -5, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_INIT_GUN
.LONG yGRAD2Yp ;NORMAL PAL
.LONG yGRAD2Ypz ;HILITE PAL
.LONG 0 ;PART_FIRE_ANIM ;ATTACK ANIMATION
.WORD 0 ;FIRE ANIMATION OFFSET
.LONG 0 ;SND_FUSE_GUN ;SOUND
.LONG PART_DAM_ANIM ;DAMAGE ANIMATION
.LONG FUSEFLASH_INIT ;FLASH INIT TABLE
.LONG [-38*2,41*2] ;FLASH OFFSET
.WORD SIDE_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC11a, DMAWNZ, M_DBLSCL, -9, OM_GUNV|OM_CFUNC
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_LGUNVECT
.LONG C_SET_HITS
.WORD GRILL_HIT_POINTS ;HIT POINTS
LWWWW CPTFSEC9s, DMAWNZ, M_DBLSCL, -8, OM_GUNV
; .LONG COPTER_DUM_GUNVECT ;COPTER_LCLANG_GUNVECT
.LONG FLIGHT_9S_GUNVECT
LWWWW CPTFSEC9s, DMAWNZ|M_FLIPH, M_DBLSCL, -8, OM_PRVGUNV
LWWWW CPTFSEC3s, DMAWNZ, M_DBLSCL, -3, OM_GUNV
.LONG COPTER_HCLANG_GUNVECT
LWWWW CPTFSEC3s, DMAWNZ|M_FLIPH, M_DBLSCL, -3, OM_PRVGUNV|OM_CFUNC
.LONG C_CHANGE_ENGINE_PAL
LWWWW CPTFSEC5s, DMAWNZ, M_DBLSCL, -4, OM_GUNV
.LONG COPTER_LCLANG_GUNVECT
LWWWW CPTFSEC5s, DMAWNZ|M_FLIPH, M_DBLSCL, -4, OM_PRVGUNV
LWWWW CPTGEAR1s, DMAWNZ|M_FLIPH, M_DBLSCL, -2, OM_OPARTS|OM_COLL|OM_GUNV|OM_ANIM
.LONG [-140*2,0]
.LONG DUMCOLL
.LONG COPTER_GCLANG_GUNVECT
.LONG BLADE_ANIM
LWWWW CPTPROPh1, DMAWNZ|M_FLIPV, M_DBLSCL, -1, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-166*2,0]
.LONG DUMCOLL
.LONG COPTER_BCLANG_GUNVECT
LWWWW CPTPROPh1, DMAWNZ|M_FLIPH, M_DBLSCL, -1, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [-166*2,0]
.LONG DUMCOLL
LWWWW FRONTPILOT, DMAWNZ, 0, -5, OM_OPARTS|OM_COLL|OM_GUNV
.LONG [-190,0]
.LONG DUMCOLL
.LONG DUMRETS
LWWWW FRONTPILOT, DMAWNZ, 0, -6, OM_OPARTS|OM_COLL|OM_PRVGUNV
.LONG [-140,0]
.LONG DUMCOLL
;COPTER_DOOR_ANIM
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,43*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,33*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,23*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,13*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,3*2
;
; LWL 1,1|AFunc,A_COPTER_DOORBOY
;
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,13*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,23*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,33*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,43*2
; LWLW 1,6|AFunc,A_SET_DOOROFFX+1,53*2
; .long 0
;
;**************************************************************************
;* *
;* A_COPTER_DOORBOY *
;* *
;**************************************************************************
;
;;FROM GXNONBOY.H
;OEFLAGS EQU ODATA+060H ;UHW ENEMY FLAGS
;
;B_BW EQU 2 ;BEHIND WALL
;M_BW EQU 00004H ;BEHIND WALL
;
;B_SIDE EQU 15 ;DIRECTION
; ;0 = HEADON MOTHER FUCKER
; ;1 = SIDEWAYS MELLOW DUDE
;M_SIDE EQU 08000H
;
;A_COPTER_DOORBOY
; MOVE A8,A9
;
; MOVE *A9(ODOORBOY),A14,L
; JRNZ ACD_LUPEANIM ;BR=DOORBOY ALREADY EXISTS
;
; MOVE *A9(OFLAGS),A14,W
; BTST B_OFSCRN,A14
; JRNZ ACD_DONE ;BR=DOOR IS OFF DA SCREEN
;
;; MOVI 1024/2,A0
;; CALLA RANDPER
;; JRNC ACD_DONE ;BR=STOP MAKIN' DOORBOYS
;
; MOVI COPTER_DOORBOY_INIT,A5 ;ALLOCATE OBJECT
; CALLA CREATE_OBJ
; JRZ ACD_LUPEANIM ;BR = ERROR! ERROR!
;
; MOVE A0,A8
; CALLA CLR_ODATA
;
; MOVE A8,*A9(ODOORBOY),L
;
; MOVI COPTER_DOORBOY_ANIM,A1
; CALLA STRT_ANIM ;START ANIMATION
;
; MOVI M_BW|M_SIDE,A14
; MOVE A14,*A8(OEFLAGS),W ;SET TYPE
;
; MOVE @RAND,A0,W
; ANDI M_FLIPH,A0
; CLR A0
; MOVE *A8(OCTRL),A14,W ;SET OCTRL
; OR A0,A14
; MOVE A14,*A8(OCTRL),W
;
; MOVI [100,85],A0
; MOVE *A9(OCTRL),A14,W
; BTST B_FLIPH,A14
; JRZ ACD_SET_OPARTSXY ;BR=COPTER NOT FLIPPED
; NEGX A0
;ACD_SET_OPARTSXY
; MOVE A0,*A8(OPARTSXY),L
;
; MOVI -20 << 15,A14
; MOVE A14,*A8(OGRNDOFF),L ;SET GROUND OFFSET FOR FALL
;
; CALLR INC_ENEMY_COUNT ;COUNT ENEMY
;
; MOVE A8,A0
; MOVE A9,A8
;
; MOVE *A8(OXVAL),A1,L ;SET POSITION
; MOVE *A8(OYVAL),A2,L
; MOVE *A8(OZVAL),A3,L
; CALLA SETOFFPU
;
; CALLA INSPART ;INSERT
; CALLA INSOBJ
;ACD_LUPEANIM
; MOVE *A9(AnimFrm),A14,L
; SUBI 050H,A14
; MOVE A14,*A9(AnimFrm),L
;ACD_DONE
; RETS
;
;COPTER_DOORBOY_INIT
; .LONG G_B5SPxSHA4, DUMCOLL
; .WORD OID_NONBOY, DMAWNZ, 0, 2
; .LONG 0
;
;COPTER_DOORBOY_ANIM
; LW 1,3
; LW G_B5SPxSHA5,3
; LWL G_B5SPxSHA6,3|AFunc,A_TOGGLE_DIR
; LWLWW G_B1SHOOTA1,1|AFunc,A_RAND_AnimSLP+2,5,20
; LW 1,0
;COPTER_DOORBOY_SHOOT_ANIM
; LW G_B1SHOOTA1,1
;; LWLWW 1,5|AFunc,A_PART_FIRE_FNC+2,-24,-80
; LW 1,5
; LW G_B1SHOOTA2,6
; LWLWL 1,1|AFunc,A_RAND_BRANCH+3,512,COPTER_DOORBOY_SHOOT_ANIM
; LWL G_B5SPxSHA6,3|AFunc,A_TOGGLE_DIR
; LW G_B5SPxSHA5,3
; LW G_B5SPxSHA4,3
; .long 0
;; LWL 1,1|AFunc,A_DEL_NONBOY
GRILL_ANIM
LW 1,127
LWLL 1,127|AFunc,A_AnimScr+2,GRILL_LAUNCH
GRILL_LAUNCH
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CMISSLE,GRILL_LAUNCH
LWLL CPTFSEC11b,4|AFunc,A_SOUNDZ+2,SND_GRILL_OPENCLOSE
LW CPTFSEC11c,4
GRILL_LAUNCH_AGAIN
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-23*2,1 ;-8*2,-23*2,0
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-23*2,0
LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-23*2,1 ;8*2,-23*2,0
LWLWL 1,10|AFunc,A_RAND_BRANCH+3,64,GRILL_LAUNCH_AGAIN
LWLL CPTFSEC11b,4|AFunc,A_SOUNDZ+2,SND_GRILL_OPENCLOSE
LW CPTFSEC11a,30
.long 0
; LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
; LW CPTFSEC11a,0
; .long 0
BLADE_ANIM
LWWL CPTGEAR2s,1|AMulti|AFlip|AFunc,M_FLIPH,A_CHECK_STUTTER
LWWLL CPTPROPh2,1|AMulti|AFlip|AFunc,M_FLIPV,A_CHANGE_PAL+2,PROPAL1sd
LWW CPTPROPh2,1|AFlip,M_FLIPH
LW 1,0
LWWL CPTGEAR3s,1|AMulti|AFlip|AFunc,0,A_CHECK_STUTTER
LWWLL CPTPROPh1,1|AMulti|AFlip|AFunc,0,A_CHANGE_PAL+2,PROPAL1s
LW CPTPROPh1,1
LW 1,0
LWL CPTGEAR2s,1|AMulti|AFunc,A_CHECK_STUTTER
LW CPTPROPh2,1|AMulti
LWWLL CPTPROPh2,1|AFunc|AFlip,M_FLIPV|M_FLIPH,A_CHANGE_PAL+2,PROPAL1sd
LW 1,0
LWL CPTGEAR1s,1|AMulti|AFunc,A_CHECK_STUTTER
LW CPTPROPh3,1|AMulti
LWWLL CPTPROPh3,1|AFlip|AFunc,M_FLIPH,A_CHANGE_PAL+2,PROPAL1s
LWL 1,0|AFunc,A_RESET_STUTTER
.long 0
BELLY_GUN_ANIM0
LWLL CPTNZGN1s,1|AFunc,A_AnimGo+2,BELLY_GUN_ANIM
BELLY_GUN_ANIM
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,BELLY_GUN_ANIM
LWLL CPTNZGN2s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTNZGN3s,4
LW CPTNZGN4sb,1
BGA_LUPE
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,BGA_TURNBACK
LWLL 1,1|AFunc,A_CREATE_FLASH+2,BGA_NAP
BGA_FIRE
LWL 1,3|AFunc,A_FIRE_SND_PAL
LWL 1,2|AFunc,A_NORMAL_PAL
LWLL 1,1|AFunc,A_DELETE_FLASH+2,BGA_FIRE
BGA_NAP
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
LWLL 1,0|AFunc,A_AnimFrm+2,BGA_LUPE
BGA_TURNBACK
LWLL CPTNZGN3s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTNZGN2s,4
LW CPTNZGN1s,1
.long 0
BELLY_DAM_ANIM
LWLW 1,1|AFunc,A_RAND_FLIP_OCTRL+1,M_FLIPH
; LWL CPTNZGN3s,4|AFunc,A_NORMAL_PAL
LW CPTNZGN3s,4
LW CPTNZGN2s,60
LWLL CPTNZGN3s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTNZGN4sb,4
LWLW 1,1|AFunc,A_TOGGLE_OCTRL+1,M_FLIPH
LW CPTNZGN3s,4
LW CPTNZGN2s,4
LW CPTNZGN3s,4
LWL 1,1|AFunc,A_RESTORE_FLIPH
LW CPTNZGN4sb,60
LWLWW 1,1|AFunc,A_Set_Rel_Word+2,OHITCOUNT,0
LWL 1,1|AFunc,A_DAM_RETURN
LAUNCHER_ANIM
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CMISSLE,LAUNCHER_ANIM
LWLL CPTROKIT2s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTROKIT3s,4
LW CPTROKIT4s,1
LAUNCHER_LUPE
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CMISSLE,LAUNCHER_TURNBACK
LWLL 1,1|AFunc,A_GOSUB+2,MISSLE_LAUNCH_SUB_ANIM
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
LWLL 1,0|AFunc,A_AnimFrm+2,LAUNCHER_LUPE
LAUNCHER_TURNBACK
LWLL CPTROKIT3s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTROKIT2s,4
LW CPTROKIT1s,1
.long 0
GAT_GUN_ANIM0
LWLL CPTGATGN1s,1|AFunc,A_AnimGo+2,GAT_GUN_ANIM
GAT_GUN_ANIM
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,GAT_GUN_ANIM
LWLL CPTGATGN2s,4|AFunc,A_SOUNDZ+2,SND_GAT_TURN
LW CPTGATGN3s,4
LW CPTGATGN4s,1
GGA_LUPE
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,GGA_TURNBACK
LWLL 1,1|AFunc,A_CREATE_FLASH+2,GGA_NAP
GGA_FIRE
LWL 1,3|AFunc,A_FIRE_SND_PAL
LWL 1,2|AFunc,A_NORMAL_PAL
LWLL 1,1|AFunc,A_DELETE_FLASH+2,GGA_FIRE
GGA_NAP
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
LWLL 1,0|AFunc,A_AnimFrm+2,GGA_LUPE
; LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,GAT_GUN_TURNBACK
; LWLL 1,1|AFunc,A_GOSUB+2,GAT_FIRE_SUB_ANIM
; LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
; LWLL 1,0|AFunc,A_AnimFrm+2,GAT_GUN_LUPE
GGA_TURNBACK
LWLL CPTGATGN3s,4|AFunc,A_SOUNDZ+2,SND_GAT_TURN
LW CPTGATGN2s,4
LW CPTGATGN1s,1
.long 0
;GAT_FIRE_ANIM
; LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CGUNS,GAT_FIRE_ANIM
; LWLL 1,1|AFunc,A_GOSUB+2,GAT_FIRE_SUB_ANIM
; LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
; LW 1,0
; .long 0
;
;GAT_FIRE_SUB_ANIM
; LWLL 1,1|AFunc,A_CREATE_FLASH+2,GFSA_RETURN
;GFSA_FIRE
; LWL 1,3|AFunc,A_FIRE_SND_PAL
; LWL 1,2|AFunc,A_NORMAL_PAL
; LWLL 1,1|AFunc,A_DELETE_FLASH+2,GFSA_FIRE
; LWL 1,1|AFunc,A_HILITE_PAL
;GFSA_RETURN
; LWL 1,1|AFunc,A_RETURN
GAT_DAM_ANIM
; LWL CPTGATGN3s,60|AFunc,A_NORMAL_PAL
LW CPTGATGN3s,60
LWLL CPTGATGN4s,60|AFunc,A_SOUNDZ+2,SND_GAT_TURN
LWLWW 1,1|AFunc,A_Set_Rel_Word+2,OHITCOUNT,0
LWL 1,1|AFunc,A_DAM_RETURN
GAT_SWING_DAM_ANIM
LWLW 1,1|AFunc,A_RAND_FLIP_OCTRL+1,M_FLIPH
; LWL CPTGATGN3s,4|AFunc,A_NORMAL_PAL
LW CPTGATGN3s,4
LW CPTGATGN2s,60
LWLL CPTGATGN3s,4|AFunc,A_SOUNDZ+2,SND_GAT_TURN
LW CPTGATGN4s,4
LWLW 1,1|AFunc,A_TOGGLE_OCTRL+1,M_FLIPH
LW CPTGATGN3s,4
LW CPTGATGN2s,4
LW CPTGATGN3s,4
LWL 1,1|AFunc,A_RESTORE_FLIPH
LW CPTGATGN4s,60
LWLWW 1,1|AFunc,A_Set_Rel_Word+2,OHITCOUNT,0
LWL 1,1|AFunc,A_DAM_RETURN
GAT_PART_FIRE_ANIM
LWLL CPTGATGN4s,1|AFunc,A_AnimGo+2,PART_FIRE_ANIM
BELLY_PART_FIRE_ANIM
LWLL CPTNZGN4sb,1|AFunc,A_AnimGo+2,BELLY_LUPE
BELLY_LUPE
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CFINAL|M_CHOVER,PART_FIRE_ANIM
; LWLWL 1,1|AFunc,A_RAND_BRANCH+3,922,PART_FIRE_ANIM
LWLWL 1,1|AFunc,A_RAND_BRANCH+3,768,PART_FIRE_ANIM
LWLW 1,1|AFunc,A_RAND_FLIP_OCTRL+1,M_FLIPH
LWLL CPTNZGN3s,4|AFunc,A_SOUNDZ+2,SND_BELLY_TURN
LW CPTNZGN2s,4
LW CPTNZGN3s,4
LW CPTNZGN4sb,4
LWLW 1,1|AFunc,A_TOGGLE_OCTRL+1,M_FLIPH
LW CPTNZGN3s,4
LW CPTNZGN2s,4
LW CPTNZGN3s,4
LWL 1,1|AFunc,A_RESTORE_FLIPH
LW CPTNZGN4sb,1
PART_FIRE_ANIM
LWLL 1,1|AFunc,A_CREATE_FLASH+2,PFA_NAP
PFA_FIRE
LWL 1,3|AFunc,A_FIRE_SND_PAL
LWL 1,2|AFunc,A_NORMAL_PAL
LWLL 1,1|AFunc,A_DELETE_FLASH+2,PFA_FIRE
PFA_NAP
LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
LW 1,0
.long 0
PART_DAM_ANIM
; LWL 1,120|AFunc,A_NORMAL_PAL
LW 1,120
LWLWW 1,1|AFunc,A_Set_Rel_Word+2,OHITCOUNT,0
LWL 1,1|AFunc,A_DAM_RETURN
NOSE_GUN_ANIM
LWLWL 1,1|AFunc,A_CHECK_COMMAND+3,M_CMISSLE,NOSE_GUN_ANIM
; LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-46*2,1
; LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-46*2,0
; LWLWWW 1,0|AFunc,A_LAUNCH_ROCKET+3,0,-46*2,1
LWLL 1,0|AFunc,A_MAKE_FIREBALL+2,NOSE_GUN_ANIM
LWLL 1,0|AFunc,A_MAKE_FIREBALL+2,NOSE_GUN_ANIM
LWLL 1,0|AFunc,A_MAKE_FIREBALL+2,NOSE_GUN_ANIM
; LWLWW 1,1|AFunc,A_RAND_AnimSLP+2,1,30
; LW 1,0
LW 1,30
.long 0
PROPAL1sd:
.word 16
.word 00000h,00000h,00000h,00000h,00000h,00000h,00000h,00000h
.word 00000h,00000h,01484h,01cc6h,00000h,00000h,02508h,00000h
;gunGRD2pd:
; .word 31
; .word 07fffh,0358bh,0316ah,02928h,02507h,020e6h,01cc5h,018a4h
; .word 01483h,01062h,00c41h,00820h,00400h,00000h,00000h,00000h
; .word 00000h,00000h,00000h,00000h,00000h,00000h,00000h,00000h
; .word 00000h,00000h,00000h,00000h,00000h,00000h,00000h
;
;gunGRADpB:
; .word 31
; .word 07fffh,07fbah,07b99h,07357h,06f36h,06b15h,066f4h,062d3h
; .word 05eb2h,05a91h,05670h,0524fh,04e2eh,04a0dh,045ech,041cbh
; .word 03daah,03989h,03568h,03147h,02d26h,02905h,024e4h,020c3h
; .word 00842h,01061h,00000h,00000h,00000h,00000h,00000h
;
;PUDD2Gp:
; .word 31
; .word 00000h,07fffh,07fffh,07fffh,07fffh,07fffh,07fffh,07fffh
; .word 07fffh,07fffh,07fffh,07fffh,07fffh,06f7bh,06318h,05ef7h
; .word 05ad6h,04e73h,04a52h,04631h,04210h,035adh,0318ch,02d6bh
; .word 0294ah,018c6h,014a5h,00c63h,00000h,00000h,03820h ;,07c60h
;
;yGRAD2Ypz:
; .word 31
; .word 00000h,07fafh,07fafh,07f4ch,07b2bh,0770ah,072e9h,06ec8h
; .word 06aa7h,06686h,06265h,05e44h,05a23h,05602h,051e2h,04dc2h
; .word 049a2h,07ee9h,07ec4h,05e42h,05a22h,05602h,051e2h,04dc2h
; .word 049a2h,04582h,04182h,03d82h,03582h,03182h,048a2h ;07ce2h
gnGRAD2pX:
.word 32
.word 00000h,07fffh,07fffh,07fddh,07fdch,0777ah,07758h,07337h
.word 06b16h,066d5h,066f5h,05e92h,06a2ah,051a9h,03148h,02d27h
.word 018a3h,01482h,01062h,00c62h,00c62h,00421h,00421h,00421h
.word 00421h,00421h,00421h,00421h,00421h,00421h,00421h,05272h
gunGRADpb:
.word 32
.word 00000h,07fffh,07b99h,07357h,06f36h,06b15h,066f4h,062d3h
.word 05eb2h,05a91h,05670h,0524fh,04e2eh,04a0dh,045ech,041cbh
.word 03daah,03989h,03568h,03147h,02d26h,02905h,024e4h,020c3h
.word 00842h,01061h,00000h,00000h,00000h,00000h,00000h,07fbah
PUDD2Gp:
.word 32
.word 00000h,07fffh,07fffh,07fffh,07fffh,07fffh,07fffh,07fffh
.word 07fffh,07fffh,07fffh,07fffh,07fffh,06f7bh,06318h,05ef7h
.word 05ad6h,04e73h,04a52h,04631h,04210h,035adh,0318ch,02d6bh
.word 0294ah,018c6h,014a5h,00c63h,00000h,00000h,03820h,07c60h
yGRAD2Ypz:
.word 32
.word 00000h,07fffh,07fafh,07f4ch,07b2bh,0770ah,072e9h,06ec8h
.word 06aa7h,06686h,06265h,05e44h,05a23h,05602h,051e2h,04dc2h
.word 049a2h,07ee9h,07ec4h,05e42h,05a22h,05602h,051e2h,04dc2h
.word 049a2h,04582h,04182h,03d82h,03582h,03182h,048a2h,07ce2h
gGRAD2cy2:
.word 32
.word 00000h,04210h,03defh,039ceh,035adh,0318ch,02d6bh,0294ah
.word 02529h,02108h,01ce7h,018c6h,014a5h,01084h,00c63h,00842h
.word 00421h,00000h,07d60h,07c60h,05c00h,04400h,02820h,01400h
.word 00c00h,00400h,00c00h,01800h,02800h,03800h,06420h,07c60h
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
**************************************************************************
.end

Reference in New Issue View Git Blame Copy Permalink