;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� STARFOX II - THE SEQUEL � ;쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴캑 ;� FILE: WEAPONS.ASM � ;� AUTHOR: Dylan Cuthbert & Takumi Kawagoe(EDA) � ;� DESCRIPTION: Code for various weapons � ;� DATE CREATED: 24-2-93 � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 INCPUB weapons karauchiang equ 40h ; -- work ram -- ;work0 = twork+0 ;work1 = twork+2 ;work2 = twork+4 ;work3 = twork+6 ;work4 = twork+8 ;work5 = twork+10 ;work6 = twork+12 ;work7 = twork+14 ;work8 = twork+16 ;work9 = twork+18 ;work10 = twork+20 ;work11 = twork+22 ;work12 = twork+24 ;work13 = twork+26 ;work14 = twork+28 ;work15 = twork+30 strats_start ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴敲 ;� � ;� ENEMY'S WEAPON � ;� � ;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� ;this is called when s_fire is used ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; Relative weapon ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireRelElaser_hsp_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,RelElaser_hsp jsr Eweap_init ;weapon_srous.Einit_laser rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireRelElaser_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,RelElaser jsr Eweap_init ; weapon_srous.Einit_laser rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireElaser_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,Elaser wm_set_speed y,Elaser jsr Eweap_init ; weapon_srous.Einit_laser rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; ENEMY'S RING LASER ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireEring_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,RelEring wm_set_speed y,Ering jsr Eweap_init rtl fireRelEring_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,RelEring .enter LOCAL jsr Eweap_init rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; ENEMY'S PLASMA ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireEplasma1_l jsr genweap_srou rlbcc weap_badobj s_set_path y,Eplasma1 ;TEST wm_set_speed y,Eplasma1 .enter LOCAL jsr Eweap_init .badobj rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireRelEplasma1_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,RelEplasma1 .enter LOCAL jsr Eweap_init rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; Homing weapoon ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireHomEmissile_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,HomEmissile s_clr_alsflag y,dontexplode .enter LOCAL ; jsr weapon_srous.Einit_missile rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; Normal weapon(Friend) ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� fireFlaser_l s_start_strat jsr genweap_srou rlbcc weap_badobj s_set_path y,Flaser s_set_alsflag y,dontexplode s_set_alvar W,y,al_immuneptr,playpt1 s_init_anim y,#3 rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;旼컴컴컴컴� ;� rebound � player & enemy ;읕컴컴컴컴� firerebound_l ; relative to player ; sflag1 : using for limitter s_start_strat jsr genweap_srou rlbcc weap_badobj cpx playpt1 beq .player cpx playpt2 beq .player ;------------------------------------------------------------------------------ .enemy jsr Eweap_init ; weapon_srous.Einit_laser s_set_path y,Erebound jmp .exit ;------------------------------------------------------------------------------ .player ; add player vecs ; wm_relative_player y ; jsr weapon_srous.Pinit_laser test_screenmode onescreen bne .mission ;------------------------------------------------------------------------------ .battle s_set_path y,PreboundBAT s_set_alvartobeobj y,al_ptr,x ; battle mode no toki wa 1 patsu sika sonzai dekinai you ni suru... ; set sflag1 .setstrat s_push_obj y toheap y,x lda exal_SPweaponstatus,y eor #exal_SPweaponstatus_rebound sta exal_SPweaponstatus,y s_pull_obj y and #exal_SPweaponstatus_rebound beq .setted s_set_alsflag y,sflag1 .setted bra .exit ;------------------------------------------------------------------------------ .mission s_set_path y,Prebound ;------------------------------------------------------------------------------ .exit rtl .badobj ldy dummyobj rtl ;�袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴敲 ;� � ;� PLAYER'S WEAPON (PLAYER only) � ;� � ;� set colltype = FRIEND,LASER � ;� � ;� set al_ptr = player's pointer � ;� � ;� set sflag10 if shoot by player2 � ;� � ;훤袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� player's weapon "POWERD LASER" � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 fireAWpowerdlaser_l fireAWpowerdlaser_twin_l fireAWpowerdlaser_twintwin_l ; al_shape wa path de AP wo set surunoni tsukau... a8i16 jsr genPweap_srou rlbcc weap_badobj s_set_alvar W,y,al_shape,#tame ;kawaguchibeem .init LOCAL s_set_path y,Ppowerdlaser s_copy_alvar2alvar B,y,al_rotz,x,al_rotz ;************ jsr Pweapshape_srou ;************ .badobj LOCAL rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� player's weapon "twintwin LASER" � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 fireAWlaser_twintwin_l a8i16 jsl chk_laser_lmt_l rlbcc weap_badobj jsr genPweap_srou rlbcc weap_badobj s_set_alvar W,y,al_shape,#beam_2 bra fireAWlaser_twin_l.enter ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� player's weapon "twin LASER" � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 fireAWlaser_twin_l a8i16 jsl chk_laser_lmt_l rlbcc weap_badobj ;------------------------------------------------------------------------------------------ ; make gunblaze ; jsl makegunblaze_srou_l ;------------------------------------------------------------------------------------------ jsr genPweap_srou rlbcc weap_badobj s_set_alvar W,y,al_shape,#beam_1 .enter LOCAL s_push_obj y toheap y,x lda exal_rollingoffset,y s_pull_obj y sta.w al_childrotz,y jmp fireAWlaser_l.init ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� player's weapon "normal LASER" � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 fireAWlaser_l ; al_shape wa path de AP wo set surunoni tsukau... a8i16 jsl chk_laser_lmt_l rlbcc weap_badobj ; toheap y,x ; ; lda exal_target_x,y ; printh TARGETX,kawagoe ; sta.w al_worldx,y ; lda exal_target_y,y ; printh TARGETY,kawagoe ; sta.w al_worldy,y ; lda exal_target_z,y ; printh TARGETZ,kawagoe ; sta.w al_worldz,y ;------------------------------------------------------------------------------------------ ; make gunblaze ; jsl makegunblaze_srou_l ;------------------------------------------------------------------------------------------ jsr genPweap_srou rlbcc weap_badobj s_set_alvar W,y,al_shape,#beam_0 s_set_alvar B,y,al_childrotz,#0 .init LOCAL s_set_path y,Plaser ; s_make_child #childno_Plaser ; s_push_obj y ; toheap y,x ; lda exal_acclroty+1,y ; s_pull_obj y ;*********** player's accel roty ; sta.w al_pbyte1,y ;*********** s_copy_alvar2alvar B,y,al_rotz,x,al_rotz s_init_anim y,#3 ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� IFEQ 1 phx phy tyx wm_find_enemynearobj y,x,#0,#2000,#25,#25,.cant phx ldx dummyobj a16 lda.w al_vx,y asl a asl a asl a clc adc.w al_worldx,y sta al_worldx,x lda.w al_vy,y asl a asl a asl a clc adc.w al_worldy,y sta al_worldy,x lda.w al_vz,y asl a asl a asl a clc adc.w al_worldz,y sta al_worldz,x a8 plx s_obj2obj_3Dangle x,y,al_roty,al_rotx,0 .cant ply plx ENDC ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� ; IFEQ 1 s_push_obj y s_push_obj x s_push_obj y ; push idY toheap y,x tyx a16 ldy dummyobj lda exal_target_x,x ;;;printh TARGETX,kawagoe sta.w al_worldx,y lda exal_target_y,x ;;;printh TARGETY,kawagoe sta.w al_worldy,y lda exal_target_z,x ;;;printh TARGETZ,kawagoe sta.w al_worldz,y a8 s_pull_obj x ; pull weapon's pointer as idX s_obj2obj_angle x,y,al_roty,0 s_pull_obj x s_pull_obj y ; s_copy_alvar2alvar B,y,al_rotx,x,al_rotx ; ENDC ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� ;************ jsr Pweapshape_srou ;************ .badobj LOCAL rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� player's weapon "PLASMA"(limitter tuki) � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� firePplasma_l toheap y,x lda exal_weap_level,y and #3 rlbeq weap_badobj jsl chk_laser_lmt_l rlbcc weap_badobj jsr genPweap_srou rlbcc weap_badobj ;--------------------------------------------------------------------------------------------- ; set SHAPE & AP,HP PHY toheap y,x lda exal_weap_level,y PLY and #3 dec a beq .lv0 pha s_set_alvar W,y,al_shape,#beam_2 pla dec a beq .lv1 .lv2 lda #Pplasma1twintwinAP bra .AP .lv1 lda #Pplasma1twinAP bra .AP .lv0 s_set_alvar W,y,al_shape,#plasma1 s_sprite_obj y,#0 lda #Pplasma1AP .AP sta.w al_AP,y ;--------------------------------------------------------------------------------------------- ; set PATH .mission s_set_path y,pplasma0 ; test_screenmode onescreen ; bne .settedpath ;.battlep1 s_set_path y,pplasma1 ; s_jmpnot_alsflag x,player2,.settedpath ;.battlep2 s_set_path y,pplasma2 ;.settedpath ;--------------------------------------------------------------------------------------------- ; find enemy s_push_obj x s_push_obj y sm_jmp_if1screen .find s_jmp_alsflag x,player2,.chasep1 .chasep2 ldy playpt2 bra .distck .chasep1 ldy playpt1 .distck a16 s_jsl xzdiffs_l a16 lda rangexz cmp #3500 a8 rlbcs .cantfind bra .found .find wm_find_enemynearobj y,x,#0,#7000,#10,#20,.cantfind .found ldx dummyobj a16 lda.w al_vx,y asl a asl a clc adc.w al_worldx,y sta al_worldx,x lda.w al_vy,y asl a asl a clc adc.w al_worldy,y sta al_worldy,x lda.w al_vz,y asl a asl a clc adc.w al_worldz,y sta al_worldz,x a8 s_weapon_rots2obj x .cantfind s_pull_obj y s_pull_obj x ;--------------------------------------------------------------------------------------------- s_push_obj x ldx svar_weapobj beq .nofind s_exg_objs s_obj2obj_3dangle x,y,al_pbyte1,al_rotx,0 s_exg_objs .nofind s_pull_obj x s_push_obj y pl_ldy_viewblk x lda.w al_rotx+1,y sta tpx s_pull_obj y s_jmp_alvarZERO W,x,al_slopeptr,.normlmtx ; on slope lda tpx clc adc #23 sta x1 lda tpx clc adc #-23 bra .lmtxend .normlmtx lda tpx clc adc #23 sta x1 lda tpx clc adc #-23 .lmtxend sta x2 lda.w al_rotx,y bmi .lmtmix .lmtplx cmp x1 bcc .nolmtx lda x1 bra .stax .lmtmix cmp x2 bcs .nolmtx lda x2 .stax sta.w al_rotx,y .nolmtx ;set weapon counter .count ; bra .exit ; ;.remove s_remove_obj y ; bra .exit ;************ jsr Pweapshape_srou ;************ .exit rtl ;.badobj ldy dummyobj ; rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; ;plasmaexplode_istrat ; ; s_start_strat ; jsl dec_laser_lmt_l ; Dec Player fire limitter ; jml explode_istrat ; ; ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� player's weapon "SPREADPLASMA"(limitter tuki) � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� firespreadplasma_l jsr genPweap_srou rlbcc weap_badobj s_set_alptrs y,path_istrat,hit_istrat,explode_istrat s_set_path y,spreadplasma s_set_aldata y,#spreadHP,#spreadAP a16 txa sta.w al_pword1,y a8 ; sm_jmp_if1screen .battle ; ; s_jmpnot_alsflag x,player2,.chaseplayer2 ; ;.chaseplayer1 ; a16 ; lda playpt1 ; bra .setptr ; ;.chaseplayer2 ; a16 ; lda playpt2 ; bra .setptr ; ;.battle a16 ; lda #0 ;.setptr sta.w al_ptr,y ; a8 .se pl_SE x,arwingbmball1,arwingbmball2 rtl .badobj ldy dummyobj rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 ;� player's special weapon "DUMMY"(limitter tuki) � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 ; fire dummy - this is called when s_fire is used ; al_ptr obj pointer of player ; sflag6 set mark? ; sflag5 smoke flag smoke wo set sitaato clr suru. ; al_sbyte1 using in gen_weapon_l ; al_sbyte2 using in gen_weapon_l ; al_sbyte3 using in gen_weapon_l ; al_pbyte1 special weapon counter ; al_pbyte2 rotz counter ; al_sword1 get height(RB) awdummyANIMMAX equ 8 fireawdummy_l .make jsr genPweap_srou rlbcc weap_badobj s_clr_alsflag y,dontexplode s_copy_alvar2alvar B,y,al_vel,x,al_vel sp_jmp_playertype x,UFO,.AM sp_jmp_playertype x,ROBOT,.RB .AW pl_set_PILOTshape x,y,.AWshapetab s_set_path y,arwingdummy jmp .exitshape .RB pl_set_PILOTshape x,y,.RBshapetab s_set_path y,robotdummy s_add_roffs2pos B,y,x,y,#0,#-15,#20,0,1,0 bra .exitshape .AM pl_set_PILOTshape x,y,.AMshapetab s_set_path y,arwingdummy .exitshape s_jmp_NOTalsflag x,player2,.p1 .p2 s_set_coltab y,#id_1_c&WM .p1 wm_incspweappnt y,x,al_pbyte1 s_set_aldata y,#dummyHP,#dummyAP rtl .badobj ldy dummyobj rtl .awdummyvec rts .AWshapetab dw aw_dummy dw cw_dummy dw bw_dummy .AMshapetab dw au_dummy dw cu_dummy dw bu_dummy .RBshapetab dw ar_dummy dw cr_dummy dw br_dummy ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� player's special weapon "MISSILE1"(limitter tuki) � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; fire missile - this is called when s_fire is used ; al_ptr obj pointer of player ; al_pbyte1 (=rotx) ; al_pbyte2 (=roty) firemissile1_l ; pword1 : world Y limitter ; : 8000h : off missilrxchaserate EQU 5 missilrychaserate EQU 5 s_jmp_childalive #childno_missile,.badobj jsr genPweap_srou rlbcc weap_badobj s_clr_alsflag y,dontexplode s_set_path y,Pmissile ; s_set_alvar B,y,al_vel,#5 ; s_copy_rots y,x ; s_exg_objs ; s_gen_3Dvecs x,al_roty,al_rotx,al_vel ; s_exg_objs phy toheap y,x pl_test_planetmode space beq .space a16 lda exal_vx,y sta tpx lda exal_vz,y sta tpz lda exal_pooldepth,y ply bra .sety .space lda #8000h .sety sta.w al_pword1,y lda tpx sta.w al_childx,y lda tpz sta.w al_childz,y a8 ; s_copy_alvar2alvar B,y,al_vel,x,al_vel ; s_sub_alvar B,y,al_vel,#2 ; s_set_alvartobeobj y,al_ptr,x ; player obj ; s_clr_alsflag y,realobj ; s_set_alptrs y,.mainstrat,hit_istrat,.explode ; s_clr_alsflag y,realobj ; s_set_aldata y,#PmissileHP,#PmissileAP ; s_set_lifecnt y,#PmissileLIF .exit rtl .badobj ldy #0 ;dummyobj rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;----------------------------------------------------------------------------- ; ironna routine ;----------------------------------------------------------------------------- ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;player no enemy marker wo current obj wo mark suru you ni kaeru. ; ;setEmark_srou ;al_ptr = player's pointer ; ; s_start_strat ; ; phy ; phx ; ; s_set_objtobealvar y,x,al_ptr ; cpy playpt2 ; beq .p2 ; cpy playpt1 ; bne .exit ; ;.p1 setenemymark x,1 ; bra .exit ;.p2 setenemymark x,2 ; ;.exit ; ply ; rts ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;Special weapon no kazu wo sei gen suru.over sitetara jibaku saseru. chk_spweappnt_srou_l ;if spweappnt = al_pbyte1(counter) then set Carry s_start_strat phy s_set_objtobealvar y,x,al_ptr wm_getspweappnt y,twork0 ;check sp weap counter s_jmp_alvarEQ B,x,al_pbyte1,twork0,.remove .setMARK s_set_alsflag x,sflag6 ply clc rtl .remove s_set_alvar B,x,al_HP,#0 ; jibaku! ply sec rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 setenemymark_srou_l ; al_ptr : player's pointer(dummy weapon no toki) s_start_strat test_screenmode onescreen bne .nodisp s_jmp_alvarEQ W,x,al_ptr,playpt1,.setp2 s_jmp_alvarNE W,x,al_ptr,playpt2,.nodisp .setp1 setenemymark x,1 bra .nodisp .setp2 setenemymark x,2 .nodisp rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; LIMITTER for PLAYER'S LASER SHORTA LONGI chk_laser_lmt_l ; in :x player's pointer ; :y weapon's pointer ; out :c=1 then OK! PHP s_push_obj y ldy al_sword2,x lda exal_laser_LMT,y s_pull_obj y cmp #laserLMT bpl .fail .ok PLP sec rtl .fail PLP clc rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; LIMITTER for PLAYER'S LASER SHORTA LONGI dec_laser_lmt_l PUSHXYP a8i16 ldy al_ptr,x ; player pointer tyx ldy al_sword2,x s_beqdec_alvar B,y,exal_laser_LMT,.exit,#0 .exit PULLXYP rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;makesmoke2_l ; in :A = smoke size ; ; ; phx ; phy ; php ; ; a8i16 ; s_make_obj #smoke,.badobj ; jsl TSTRATsrous_l.initsprite ; s_set_strat y,.strat ; s_copy_pos y,x ; ;.badobj plp ; ply ; plx ; ; rtl ; ; ; ;.strat s_start_strat ; s_add_colanim x,#2,#8,.remove ;.end s_end_strat ; ;.remove s_remove_obj x ; s_end_strat ;旼컴컴컴컴컴컴컴컴컴커 ;쿞trats for explosion� ;읕컴컴컴컴컴컴컴컴컴켸 ;generateexplodeRND127_l ; ; shorta ; longi ; ; PUSHXYP ; ; a8i16 ; jsl generateexplode_plr_l ; rlbcc .exit ; s_add_rnd2pos y,127,127,127,0,0,1 ; ;.exit PULLXYP ; rtl ;generateexplodeRND61_l ; ; shorta ; longi ; ; PUSHXYP ; ; a8i16 ; jsl generateexplode_l ; rlbcc .exit ; s_add_rnd2pos y,61,61,61,0,0,1 ; ;.exit PULLXYP ; rtl ;generateexplodeRND31_l ; ; ; shorta ; longi ; ; PUSHXYP ; ; a8i16 ; jsl generateexplode_plr_l ; rlbcc .exit ; s_add_rnd2pos y,31,31,31,0,0,1 ; ;.exit ; PULLXYP ; rtl ;generateexplode_plr_l ; ; phx ; php ; ; a8i16 ; s_make_obj #explosion,generateexplode2_l.badobj ; jsr explode_init_srou ; s_set_lifecnt y,#4 ; s_sprite_obj y,#0,#-1 ; kplsound x,pl_explode_s ; ; jmp generateexplode2_l.enter2 ;generateexplode_l ; ; phx ; php ; ; a8i16 ; s_make_obj #explosion,generateexplode2_l.badobj ; jsr explode_init_srou ; s_set_lifecnt y,#4 ; s_sprite_obj y,#0,#-1 ; jmp generateexplode2_l.enter ; ;generateexplode2_l ; ; phx ; php ; ; a8i16 ; s_make_obj #explosion5,.badobj ; jsr explode_init_srou ; s_set_lifecnt y,#8 ; s_sprite_obj y,#0,#0 ; ; ;.enter LOCAL ; s_exg_objs ; jsl explode_sound_plr1_l ; s_exg_objs ; ;.enter2 LOCAL ; s_set_expstrat y,.strat ; s_clr_alsflag y,realobj ; plp ; sec ;; ply ; plx ; rtl ; ; ;.badobj LOCAL ; ; ;.exit plp ; clc ;; ply ; plx ; rtl ; ; ;.strat s_start_strat ; s_add_vecs2pos x ; s_decbne_lifecnt x,.end ; bra .remove ;.end ; s_add_colanim x,#1,#8 ; s_end_strat ; ;.remove jml explode_istrat ; ;----------------------------------------------------------------------------- Eweap_init weapon_srous s_start_strat ;.genY3dvecs LOCAL ; s_exg_objs ; jsr .gen3dvecs ; s_exg_objs ; rts ;.gen3dvecs LOCAL ; s_gen_3dvecs x,al_roty,al_rotx,al_vel ; rts ; ;.Einit_spriteweap LOCAL ; s_sprite_obj y,#0,#Eweap_size ;.Einit_laser LOCAL ; enemy weapon init ; s_set_colltype y,LASER ; s_clr_alsflag y,shadow ;袴袴袴袴袴袴 ; karauchi check s_push_obj x ldx playpt1 lda al_roty,x s_pull_obj x clc adc #deg180 sec sbc.w al_roty,y clc adc #karauchiang cmp #karauchiang*2 bcc .notkara1 s_set_var2rnd tpx,#3 lda tpx beq .notkara s_set_alsflag y,colldisable inc testx .notkara inc testy .notkara1 s_set_colltype y,ENEMYWEAP s_set_colltype y,ENEMY1 rts ;.Pinit_laser LOCAL ; player's werpon init ;s_set_colltype y,LASER ;s_set_alsflag y,dontexplode ; bra .Pim_enter ;.Pinit_missile LOCAL ; s_set_alsflag y,shadow ;.Pim_enter ; s_set_colltype y,FRIEND ; pl_set_area y,-1 ; s_set_alsflag y,notslope ; pl_copy_alsflag y,x,player2 ; s_set_alsflag y,noviewcheck ; ; s_copy_alvar2alvar B,y,al_vel,x,al_vel ; s_sub_alvar B,y,al_vel,#2 ; s_set_alvartobeobj y,al_ptr,x ; player obj ; s_clr_alsflag y,realobj ; ; tell weapon which player(0: player1 1: palyer2) ; ; s_jmpnot_alsflag x,player2,.pp ;.p2 s_set_alsflag y,sflag10 ;.pp ; rts ; ;----------------------------------------------------------------------------- ;explode_init_srou ; ; s_start_strat ; s_set_alsflag y,notslope ; s_set_alsflag y,colldisable ; s_set_alsflag y,dontexplode ; s_clr_alsflag y,realobj ; s_set_alvartobeobj y,al_ptr,x ; s_init_colanim y,#0 ; s_set_aldata y,#0,#0 ; s_copy_pos y,x ; s_copy_rots y,x ; s_copy_vecs y,x ; rts ; ;----------------------------------------------------------------------------- ;if hit anything C=on else C=off hitsomething_srou_l s_start_strat phx phy s_jmp_alsflag x,collide,.hitc s_jmp_alsflag x,Lcollide,.hitc .slope pl_test_planetmode space beq .nohitg a16 lda al_worldy,x clc adc #20 a8 rlbpl .hitg .nohitg test_screenmode onescreen rlbeq .nothit sm_jmpnot_hitslope x,twork0,.nothit ldy al_slopeptr,x beq .nothit s_jmpnot_colltype x,FRIEND,.ckpathobj s_jmpnot_colltype x,LASER,.ckpathobj s_jmp_alsflag x,sflag10,.hitbyp2 .hitbyp1 s_set_alsflag y,hitbyplayer1 bra .ckpathobj .hitbyp2 s_set_alsflag y,hitbyplayer2 .ckpathobj s_jmpnot_alsflag y,pathobj,.hitc s_set_alsflag y,sflag7 bra .hits .nothit ply plx clc rtl .hits ; hit slope ldy al_slopeptr,x sty y1 bra .hitexit .hitc ; hit object ldy al_hitlist,x a16 lda.w hl_alptr,y sta y1 a8 stz hit_noaffect_chk test_alsflag x,nohitaffect beq .no1 lda #1 sta hit_noaffect_chk .no1 bra .hitexit .hitg s_set_var W,y1,#0 .hitexit ply plx sec rtl ;----------------------------------------------------------------------------- ;weap_remove ; s_start_strat ;;;;;;;; s_set_alsflag x,colldisable ; s_remove_obj x ; s_end_strat ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; EXPLOSION ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;----------------------------------------------------------------------------- ; SOUND ROUTINE ;----------------------------------------------------------------------------- ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� hitsomething_snd_srou_l ;out C=1 hit! ; A = 1:damaged 0:rebounded s_start_strat jsl hitsomething_srou_l bcs .hit clc rtl .hit PUSHXYP s_jmp_varZERO W,y1,.ground ldy y1 ; already dead? cpy playpt1 rlbeq .hitexit cpy playpt2 rlbeq .hitexit s_jmp_alvarZERO B,y,al_HP,.hitexit s_jmp_alsflag y,nohitaffect,.rebound .damage lda #1 bra .hitexit .rebound lda #2 bra .hitexit .ground ;;;lda #0 .hitexit PULLXYP sec rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; set speed & generate vector ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 weap_set_speed s_start_strat ; idY : weapon pointer ; tpx : speed (player = arwing) ; tpy : speed (player = robot) s_push_obj y ldy playpt1 sp_jmpnot_playertype y,ARWING,.rb .aw lda tpx ;#{name}VELaw bra .pp .rb lda tpy ;#{name}VELrb .pp s_pull_obj y sta.w al_vel,y s_exg_objs s_gen_3dvecs x,al_roty,al_rotx,al_vel s_exg_objs rts ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; Relative to player ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 weap_relative2player1_srou_l phy php s_set_objtobevar y,playpt1 bra weap_relative2player_srou_l.enter weap_relative2player_srou_l phy php s_set_objtobealvar y,x,al_ptr .enter LOCAL sp_jmpnot_playertype y,ARWING,.RB .AW a16 lda.w al_vx,y clc adc al_vx,x sta al_vx,x lda.w al_vz,y clc adc al_vz,x sta al_vz,x bra .exit .RB a16 lda.w al_mx,y clc adc al_vx,x sta al_vx,x lda.w al_mz,y clc adc al_vz,x sta al_vz,x .exit a8 plp ply rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; generate weapon ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 genweap_srou s_start_strat a16 lda allst pha a8 stx allst s_make_obj #nullshape,.badobj a16 pla sta allst a8 s_set_alptrs y,path_istrat,hit_istrat,explode_istrat s_set_aldata y,#1,#1 jsl gen_weapon_l s_set_alsflag y,realobj ; test s_set_alsflag y,notslope s_set_alsflag y,dontexplode s_set_alcollflag y,WEAPON s_init_anim y,#0 s_set_alsflag y,noviewcheck s_set_alptrs y,path_istrat,hit_istrat,explode_istrat sec rts .badobj a16 pla sta allst a8 clc rts IFEQ 1 genweap_srou s_start_strat s_make_obj #nullshape,.badobj s_set_alptrs y,path_istrat,hit_istrat,explode_istrat s_set_aldata y,#1,#1 jsl gen_weapon_l s_set_alsflag y,realobj ; test s_set_alsflag y,notslope s_set_alsflag y,dontexplode s_set_alcollflag y,WEAPON s_init_anim y,#0 s_set_alsflag y,noviewcheck s_set_alptrs y,path_istrat,hit_istrat,explode_istrat sec rts .badobj clc rts ENDC genPweap_srou s_start_strat jsr genweap_srou bcc .badobj ; s_make_obj #nullshape,.badobj ; s_set_alptrs y,path_istrat,hit_istrat,explode_istrat ; s_set_aldata y,#1,#1 ; jsl gen_weapon_l ; s_clr_alsflag y,realobj ; s_set_alsflag y,notslope ; s_set_alsflag y,dontexplode ; ; s_set_alcollflag y,WEAPON ; s_init_anim y,#0 ; s_set_alsflag y,noviewcheck ; s_set_alptrs y,path_istrat,hit_istrat,explode_istrat pl_set_area y,-1 s_set_colltype y,FRIEND s_set_alvartobeobj y,al_ptr,x ; player pointer s_jmpnot_alsflag x,player2,.pp .p2 s_set_alsflag y,sflag10 .pp sec rts .badobj clc rts weap_badobj rtl ; set weapon's shape to "resource" Pweapshape_srou ; idy : weapon's pointer s_start_strat PUSHXYP a16 lda.w al_shape,y sta x1 a8 s_set_resource W,y,Pweapshape,x1 PULLXYP rts ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; END of FILE ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 END