;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º FILE: TPLAYER.ASM º ;º AUTHOR: Takumi Kawagoe Nintendo.co.ltd EDAº ;º DESCRIPTION: PLAYER CONTROL ROUTINE º ;º DATE CREATED: ?-3-93 º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ INCPUB tplayer AMCTL EQU 1 ; 0:left right turn 1: tleft tright turn) SHORTA LONGI ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ bit0 equ 1 bit1 equ 2 bit2 equ 4 bit3 equ 8 bit4 equ 16 bit5 equ 32 bit6 equ 64 bit7 equ 128 ;LRtrig_lastLR equ 1<<7 ;1 tright 0: tleft ;LRtrig_lastL equ 1<<6 ;last key ;LRtrig_lastR equ 1<<5 ;last key ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; --- Transform anim pattern --- a_wing_0_maxframe equ 7 a_wing_1_maxframe equ 6 b_wing_0_maxframe equ 7 b_wing_1_maxframe equ 6 c_wing_0_maxframe equ 7 c_wing_1_maxframe equ 6 ar_ufo_0_maxframe equ 7 ar_ufo_1_maxframe equ 6 b_ufo_0_maxframe equ 7 b_ufo_1_maxframe equ 6 c_ufo_0_maxframe equ 7 c_ufo_1_maxframe equ 6 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI tarwing_exalvar_init PUSHYP a8i16 toheap y,x ;----------------------------------------------------------------------------- ; structure clear phx phy a8 ldx #0 lda #0 .loop sta exal_start,y iny inx cpx #tarwing_sizeof bne .loop ply plx ;----------------------------------------------------------------------------- .enter LOCAL s_set_alvar B,y,exal_palettewait,#16 s_set_alvar B,y,exal_boost,#0 s_set_alvar B,y,exal_brake,#0 s_set_alvar W,y,exal_enemyaltmeter_objptr,#0 s_copy_alvar2alvar B,y,exal_rotx+1,x,al_rotx s_copy_alvar2alvar B,y,exal_roty+1,x,al_roty s_copy_alvar2alvar B,y,exal_rotz,x,al_rotz .p1 s_set_alvar B,y,exal_weap_level,p1_weap_level s_set_alvar B,y,exal_spweap_type,p1_spweap_type s_set_alvar B,y,exal_spweap_LMT,p1_spweap_LMT bra .exit .p2 s_set_alvar B,y,exal_weap_level,p2_weap_level s_set_alvar B,y,exal_spweap_type,p2_spweap_type s_set_alvar B,y,exal_spweap_LMT,p2_spweap_LMT .exit ;----------------------------------------------------------------------------- ; battle mode no toki weapon level wa 0 ni suru.... ; sm_jmp_if1screen .notbattle ; lda #exal_weap_level_0 ; sta exal_weap_level,y ;.notbattle ;----------------------------------------------------------------------------- PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Restart init ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI restart_exalvar_init PUSHYP a8i16 toheap y,x a16 lda #0 sta exal_camXofs,y sta exal_camXofsbuf,y sta exal_sidevel,y a8 lda #0 sta exal_dmgeffect,y sta exal_weap_level,y sta exal_boostheatup,y sta exal_shield,y ;transform on! s_and_alvar B,y,exal_CTLtype,#(exal_CTLtype_notrans!exal_CTLtype_notransreally)^-1 ;shield off jmp tarwing_exalvar_init.enter ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; ARWING init exalvar ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI Arwing0_exalvar_init php a8i16 jsr GENERAL_exalvar_init plp rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; ARMER init exalvar ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI Armer0_exalvar_init PUSHYP a8i16 toheap y,x a16 lda #0 sta exal_rotyoffset,y ; shake a8 jsr GENERAL_exalvar_init s_or_alvar B,y,exal_CTLtype,#exal_CTLtype_automatic PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; ROBOT init exalvar ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI Robo0_exalvar_init PUSHYP a8i16 s_set_alvar B,x,al_pbyte1,#0 ; for roboFBLRflag toheap y,x ; init position s_copy_alvar2alvar W,y,exal_bodyworldy,x,al_worldy a16 lda #0 sta exal_jmpvel,y sta exal_rotyoffset,y ; shake a8 sta exal_rotzoffset,y sta exal_rotzofscounter,y ; counter of Arwing's shaking sta exal_worldyofscounter,y ; counter of Arwing's shaking data sta exal_acclroty,y ; shake sta exal_robostatus,y sta exal_robostatus2,y sta exal_robostatustrig,y sta exal_jmpstatus,y sta exal_jmpstatus2,y sta exal_jmpcounter,y sta eal_pbyte1,y ; jmp flag sta exal_gravcounter,y s_and_alvar B,y,exal_control,#exal_control_RBmask s_set_alvar W,y,exal_acclroty,#0 s_set_alvar W,y,exal_gravity,#400H sm_jmp_if2screen .two .one s_set_alvar W,y,exal_camlookYofs,#RBcameralookYofs_no bra .vv .two s_set_alvar W,y,exal_camlookYofs,#RBcameralookYofs_no_2 .vv s_add_alvars W,y,exal_camlookYofs,y,exal_camlookYofs_ext jsr GENERAL_exalvar_init PULLYP rts SHORTA LONGI GENERAL_exalvar_init PUSHYP a8i16 toheap y,x ; lda #3fH ; sta exal_addcol_r,y ; lda #40H ; sta exal_addcol_g,y ; lda #84H ; sta exal_addcol_b,y ; copy real pos a16 lda al_worldx,x sta exal_worldx,y lda al_worldy,x sta exal_worldy,y lda al_worldz,x sta exal_worldz,y a8 s_set_alvar B,y,exal_weaponstatus,#0 s_set_alvar B,y,exal_SPweaponstatus,#0 s_set_alvar B,y,exal_rollingstatus,#0 lda #0 sta exal_RBrollingoffset,y sta exal_shockvel,y sta exal_laser_LMT,y sta exal_animflag,y sta exal_animdush,y sta exal_jetrot,y sta exal_jetrotx,y sta exal_jetroty,y sta exal_jetrotoffset,y sta exal_motionNo,y sta exal_motiondir,y sta exal_camupdw,y sta exal_vel,y sta exal_hit_framecount,y sta exal_bodyofsy,y sta exal_bodyfloatofsy,y sta exal_bodyofsymotion,y sta exal_jetstatus,y sta exal_jetstatus2,y sta exal_poolofsy,y a16 lda #0 sta exal_vyold,y sta exal_vx,y sta exal_vy,y sta exal_vz,y sta exal_jetLobjptr,y sta exal_jetRobjptr,y sta exal_pooldepth,y sta exal_slopenumB,y sta exal_slopenumL,y sta exal_slopenumR,y sta exal_worldxoffset,y sta exal_worldyoffset,y sta exal_worldzoffset,y PULLYP rts ;******************************************************************* ;******************************************************************* ; ; TRANSFORM PROG ; ;******************************************************************* ;******************************************************************* ;------------------------------------------------------------- ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ARMER --> ARWING³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ TRanmAM2AW_A_WING traniminc ar_ufo_0,ar_ufo_1,a_wing,0,cs_Arwing_init ;fl_AM2AW TRanmAM2AW_B_WING traniminc b_ufo_0,b_ufo_1,b_wing,0,cs_Arwing_init ;fl_AM2AW TRanmAM2AW_C_WING traniminc c_ufo_0,c_ufo_1,c_wing,0,cs_Arwing_init ;fl_AM2AW ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ARWING --> ARMER³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ TRanmAW2AM_A_WING tranimdec ar_ufo_1,ar_ufo_0,ar_ufo_0,1,is_Armer_init ;fl_AW2AM TRanmAW2AM_B_WING tranimdec b_ufo_1,b_ufo_0,b_ufo_0,1,is_Armer_init ;fl_AW2AM TRanmAW2AM_C_WING tranimdec c_ufo_1,c_ufo_0,c_ufo_0,1,is_Armer_init ;fl_AW2AM ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ARWING --> ROBOT³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ TRanmAW2RB_A_WING tranimdec a_wing_1,a_wing_0,A_WING_0,1,of_robo_init ;fl_AW2RB TRanmAW2RB_B_WING ;B-WING --> B-ROBO tranimdec b_wing_1,b_wing_0,B_WING_0,1,of_robo_init ;fl_AW2RB TRanmAW2RB_C_WING ;C-WING --> C-ROBO tranimdec c_wing_1,c_wing_0,C_WING_0,1,of_robo_init ;fl_AW2RB ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ROBOT --> ARWING³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ TRanmRB2AW_A_WING traniminc a_wing_0,a_wing_1,a_wing,0,of_arwing_init ;fl_RB2AW TRanmRB2AW_B_WING traniminc b_wing_0,b_wing_1,b_wing,0,of_arwing_init ;fl_RB2AW TRanmRB2AW_C_WING traniminc c_wing_0,c_wing_1,c_wing,0,of_arwing_init ;fl_RB2AW SHORTA LONGI ;--------------------------------------------------------------------- PLR_TRANIMTBL ;anim0 shape ,2 0 ;amim0 maxframe ,1 2 ;anim0 final value ,1 3 ;anim0 inc value ,1 4 ;anim0 init value ,1 5 ;anim1 shape ,2 6 ;amim1 maxframe ,1 8 ;anim1 final value ,1 9 ;anim1 inc value ,1 10 ;anim1 init value ,1 11 ;next mode ,2 12 ;next shape ,2 14 ;next anim init value ,1 16 ; ARWING --> ROBOT(WALKER) TRanmAW2RB_TAB DW TRanmAW2RB_A_WING&WM ; FOX DW TRanmAW2RB_A_WING&WM ; FALCO DW TRanmAW2RB_C_WING&WM ; PEPPY DW TRanmAW2RB_C_WING&WM ; SLIPPY DW TRanmAW2RB_B_WING&WM ; GAL1 DW TRanmAW2RB_B_WING&WM ; GAL2 ; ROBOT(WALKER) --> ARWING TRanmRB2AW_TAB DW TRanmRB2AW_A_WING&WM ; FOX DW TRanmRB2AW_A_WING&WM ; FALCO DW TRanmRB2AW_C_WING&WM ; PEPPY DW TRanmRB2AW_C_WING&WM ; SLIPPY DW TRanmRB2AW_B_WING&WM ; GAL1 DW TRanmRB2AW_B_WING&WM ; GAL2 ; ARWING --> ARMER(UFO) TRanmAW2AM_TAB DW TRanmAW2AM_A_WING&WM ; FOX DW TRanmAW2AM_A_WING&WM ; FALCO DW TRanmAW2AM_C_WING&WM ; PEPPY DW TRanmAW2AM_C_WING&WM ; SLIPPY DW TRanmAW2AM_B_WING&WM ; GAL1 DW TRanmAW2AM_B_WING&WM ; GAL2 ; ARMER(UFO) --> ARWING TRanmAM2AW_TAB DW TRanmAM2AW_A_WING&WM ; FOX DW TRanmAM2AW_A_WING&WM ; FALCO DW TRanmAM2AW_C_WING&WM ; PEPPY DW TRanmAM2AW_C_WING&WM ; SLIPPY DW TRanmAM2AW_B_WING&WM ; GAL1 DW TRanmAM2AW_B_WING&WM ; GAL2 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; ARWING to WALKER! ar_wa_0(11) & ar_wa_1(12) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI TRANS_AW2RB_CTL_l ;Trans_Arwing2Robo ; ARWING --> ROBOT PUSHYP a8i16 pl_Sboost x,off pl_boostinc jsr trans_aw2rb_lrlr_srou jsr T_AW_RB_mainpros pl_jmp_timerLESS x,#waittransform,.exit ; animate into a walker #1 toheap y,x t_tranim_do x,TRanmAW2RB_TAB,y .exit PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI TRANS_RB2AW_CTL_l ; ROBOT --> ARWING PUSHYP a8i16 pl_Sboost x,off pl_boostinc jsr trans_rb2aw_lrlr_srou jsr T_AW_RB_mainpros pl_jmp_timerLESS x,#waittransform,.exit ; animate into a walker #1 toheap y,x t_tranim_do x,TRanmRB2AW_TAB,y ; del obj s_push_obj x .R ldx exal_jetRobjptr,y beq .L s_set_alvar W,x,al_shape,#nullshape .L ldx exal_jetLobjptr,y beq .B s_set_alvar W,x,al_shape,#nullshape .B .E s_pull_obj x .exit PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ TRANS_AW2AM_CTL_l ; ARWING --> ARMER s_start_strat PUSHYP a8i16 toheap y,x pl_Sboost x,off pl_boostinc t_tranim_do x,TRanmAW2AM_TAB,y s_achase_alvar B,x,al_vel,#0,3 jsr T_AW_AM_mainpros .exit PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI TRANS_AM2AW_CTL_l ; ARMER --> ARWING s_start_strat PUSHYP a8i16 toheap y,x pl_Sboost x,off pl_boostinc t_tranim_do x,TRanmAM2AW_TAB,y s_achase_alvar B,x,al_vel,#30,3 jsr T_AW_AM_mainpros pl_jet x,off,y .exit PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ;------------------------------------------------------------------- T_AW_RB_mainpros jsr TRANSworldy_srou ; set worldy jsr SET_AW_ALVARS ;(on FIELD) bra TRANSgpros ;------------------------------------------------------------------- T_AW_AM_mainpros s_achase_alvar B,y,exal_rotztilt,#0,2 s_achase_alvar B,y,exal_rotztend,#0,2 s_achase_alvar B,y,exal_rotzoffset,#0,2 s_achase_alvar B,y,exal_rotzhit,#0,2 s_achase_alvar B,y,exal_rotz,#0,2 jsr SET_AW_ALVARS ;(in space) ;------------------------------------------------------------------- TRANSgpros jsr TRANS_ALVARS jsl gen3dvecs_add_l pl_Sboost x,off pl_boostinc ldy al_sword2,x s_achase_alvar W,y,exal_camrotx,#0,3 jsl ARWINGhit_wall_l rts ;------------------------------------------------------------------- SHORTA LONGI TRANS_ALVARS PUSHYP a8i16 ; -- rotation parameters >>#0 -- s_set_var W,inc_rotx,#0 s_set_var W,inc_roty,#0 s_set_var W,inc_rotz,#0 toheap y,x ; byte alvars lda #0 sta exal_boostheatup,y sta exal_RBrollingoffset,y sta exal_rollingoffset,y sta exal_rollingstatus,y ta_alvar2zero y,exal_rotxoffset,62 ; ta_alvar2zero y,exal_rotzoffset,62 ta_alvar2zero y,exal_inccamrotz,62 ; ta_alvar2zero y,exal_rotztend,62 ; B push left right ; ta_alvar2zero y,exal_rotzhit,62 ; B push left right a16 ta_alvar2zero y,exal_rotz,62 ; word alvars ta_alvar2zero y,exal_rotyoffset,62 ta_alvar2zero y,exal_camrotz,62 ta_alvar2zero y,exal_acclroty,62 ta_alvar2zero y,exal_camRotXofs,62 ; Camera rotation offset ta_alvar2zero y,exal_camRotYofs,62 ; Camera rotation offset a8 pl_ldy_viewblk x s_achase_alvar W,y,al_rotx,#0,3 ;off boost s_achase_alvar B,x,al_rotz,#0,2 pl_Sboost x,off PULLYP rts ;------------------------------------------------------------- .perc62B a8 asra sta tpx asra asra clc adc tpx rts .perc62W a16 asra sta tpx asra asra clc adc tpx rts ;--------------------------------------------------------------------- SHORTA LONGI initPLR_TRANSANIM_l ; in x1 : data table address php a8i16 s_push_obj x ;--------------------------------------------------------------------- phy ldy al_sword2,x a16 lda exal_pilotNo,y and #exal_pilotNo_plmask asl a tay lda [x1],y tax a8 ply ;--------------------------------------------------------------------- a16 lda.l PLR_TRANIMTBL&0ff0000H+0,x ; anim0 shape sta work0 a8 lda.l PLR_TRANIMTBL&0ff0000H+5,x ; anim0 init value sta work1 s_pull_obj x s_set_alvar W,x,al_shape,work0 s_init_anim x,work1 plp rtl SHORTA LONGI PLR_TRANSANIM_l ; In : idy(data pointer) ; : nextmode ; : anim0_maxframe ; : anim0_minframe ; : anim1_maxframe ; : anim1_minframe phx phy php a8i16 toheap y,x ; lda exal_transflag,y ; printb exal_transflag,kawagoe km_jmpnotflag exal_transflag,exal_transflag_transanm1_flag,.RoboAnm2,y ;*********************************************** ; lda gameframe ;winctimer ; bit #15 ; rlbne .exit ;*********************************************** s_push_obj x ldx name lda.l PLR_TRANIMTBL&0ff0000H+2,x ; anim0 MAX frame sta work0 lda.l PLR_TRANIMTBL&0ff0000H+4,x ; anim0 inc value sta work1 lda.l PLR_TRANIMTBL&0ff0000H+3,x ; anim0 final value sta work2 s_pull_obj x s_add_anim x,work1,work0 s_cmp_anim x,work2 rlbne .exit .setother phx ldx name lda.l PLR_TRANIMTBL&0ff0000H+6,x ; anim1 shape sta work0 lda.l PLR_TRANIMTBL&0ff0000H+7,x ; anim1 shape sta work0+1 lda.l PLR_TRANIMTBL&0ff0000H+11,x ; anim1 init value sta work1 plx km_clrflag exal_transflag,exal_transflag_transanm1_flag,y s_set_alvar W,x,al_shape,work0 s_init_anim x,work1 jmp .exit ; animate into a walker #2 .RoboAnm2 ;*********************************************** ; lda gameframe ;winctimer ; bit #15 ; rlbne .exit ;*********************************************** phx ldx name lda.l PLR_TRANIMTBL&0ff0000H+8,x ; anim1 max frame sta work0 lda.l PLR_TRANIMTBL&0ff0000H+10,x ; anim1 inc value sta work0+1 lda.l PLR_TRANIMTBL&0ff0000H+9,x ; anim1 final value sta work1 plx s_add_anim x,work0+1,work0 s_cmp_anim x,work1 rlbne .exit .settowalker a16 phx ldx name lda.l PLR_TRANIMTBL&0ff0000H+14,x ; next shape sta work1 a8 lda.l PLR_TRANIMTBL&0ff0000H+16,x ; next init value sta work2 lda.l PLR_TRANIMTBL&0ff0000H+17,x ; sound sta work3 plx ; [next mode] jsr getctldat_srou ; get next mode s_copy_var2var W,work0,y1 lda exal_shapeNoNEXT,y and #exal_shapeNo_ctmask^-1 sta exal_shapeNoNEXT,y ; lda #map_ground ; sta player_ctl_mode ; jsr playerANDbg_init_srou s_copy_var2var W,work0,y1 ;testhiteruu yooooooo-----nnn s_jmpNOT_alvarAND B,y,exal_transflag,#exal_transflag_transanm2_flag,.exitse s_jmpNOT_alvarAND B,y,exal_transflag,#exal_transflag_armode_flag,.RBse .AWse pl_SE_transEND x,ARWING ;AW --> RB bra .exitse .RBse pl_SE_transEND x,ROBOT ;RB --> AW .exitse s_init_anim x,work2 s_set_alvar W,x,al_shape,work1 km_clrflag exal_transflag,exal_transflag_transanm2_flag,y s_mode_change x,work0 .exit plp ply plx rtl ;******************************************************************* ;******************************************************************* ; ; PLAYER CONTROL ; ;******************************************************************* ;******************************************************************* ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; Arwing's control(SPACE) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ tutumax equ 100 iac_vx equ work9 iac_vy equ work8 iac_vz equ work7 SHORTA LONGI INSPACE_ARMER_CTL_l a8i16 toheap y,x ;------------------------------------------------ pl_Sboost x,off pl_boostinc ; --- select automatic or manual --- a16 lda pcont and #0c0c0H cmp #0c0c0H bne .nochange lda ptrig bit #0c0c0H beq .nochange .set a8 lda exal_CTLtype,y eor #exal_CTLtype_automatic sta.w exal_CTLtype,y .nochange a8 ;------------------------------------------------ pl_set_exalKEY ;------------------------------------------------ ;clear work RAM s_set_alvar B,y,exal_inccamrotz,#0 a16 lda #0 sta inc_rotx sta inc_roty sta inc_rotz a8 jsr IS_AM_lrLR s_set_var W,inc_rotz,#0 ldy al_sword2,x lda #0 sta exal_rotztend,y sta exal_rotztilt+0,y sta exal_rotztilt+1,y sta exal_rotzhit,y ; B push left right jsr IS_ARMER_UPDOWN toheap y,x s_set_alvar B,y,exal_vxvyvz,#exal_vxvyvz_ALL jsr playerfloating_srou ; (player's furafura) jsl RB_rolling_srou_l jsr SET_AW_ALVARS ;(in SPACE) ; -- set vector -- jsr IS_ARMER_lrlr_srou s_set_var B,work0,#0 s_copy_alvar2var B,x,work1,al_roty s_copy_alvar2var B,x,work2,al_rotz ; set al_vx,y,z ( for push obj) a16 lda exal_vx+1,y sexa sta x1 ;sta al_vx,x lda exal_vy+1,y sexa sta y1 asra asra asra sta al_my,x ; sta al_vy,x lda exal_vz+1,y sexa sta z1 ; sta al_vz,x lda exal_sidevel+1,y ; yoko ido- sexa clc adc x1 sta x1 a8 a16 lda #0 sta work_mx sta work_mz a8 s_copy_alvar2var B,x,tpy,al_roty jsl RB_gen3dvecs_l lda exal_control2,y ; printh CONT2,kawagoe bit #exal_control2_tutu bne .mode_tutu ; printb CONTROL,kawagoe ; pl_jmp_iftutumode x,.mode_tutu,y ;--------------------------------------------------------------------------------------- .mode_normal ; c_add_Rvaroffs2pos B,x,x,work0,work1,work2,x1,y1,z1,0,1,0 jmp .done ;--------------------------------------------------------------------------------------- .mode_tutu ; TUTUheight 0=1024,1=2048,2=4096,4=8192 testjoypad x,ptrig beq .nolv lda exal_TUTUlevel,y clc adc exal_TUTUheight,y sta exal_TUTUlevel,y .nolv lda exal_TUTUlevel,y printh exal_TUTUlevel,kawagoe a16 lda exal_TUTUheight,y sta y3 lda al_worldy,x printh WY,kawagoe lda #0 sta al_mx,x lda #0 sta al_mz,x a16 ;----------------------------------------------------------------------------- ; in area ? lda exal_TUTUlevel,y printh tutulevel,kawagoe cmp al_worldy,x ;exal_worldy,y bpl .out lda exal_TUTUlevel,y clc adc exal_TUTUheight,y printh tutulevel_bottom,kawagoe cmp al_worldy,x ;exal_worldy,y bmi .out lda exal_TUTUlevel,y sta exal_TUTUlevelcurrent,y lda exal_TUTUheight,y sta exal_TUTUheightcurrent,y .out ;----------------------------------------------------------------------------- ; player goto bottom .down lda exal_TUTUlevelcurrent,y cmp exal_worldy,y bpl .hittop lda exal_TUTUlevelcurrent,y clc adc exal_TUTUheightcurrent,y cmp exal_worldy,y bmi .hitbottom bra .done ;----------------------------------------------------------------------------- ; hit top .hittop sta tpy lda exal_vy,y bpl .exitTUTU nega sta exal_vy,y lda tpy printh HITBOTTT,kawagoe sta al_worldy,x bra .exitTUTU .hitbottom sta tpy lda exal_vy,y bmi .exitTUTU nega sta exal_vy,y lda tpy sta al_worldy,x .exitTUTU a8 ;--------------------------------------------------------------------------------------- .done a16 lda al_worldy,x printh WYafter,kawagoe a8 ; jsl getheight_l ; ; jsl ROBOgottun_srou_l ; jsl set_hscroll_offset_l ; jsl getheight_l ; jsl ARWINGhit_slope_l ; jsr tp_check_collide_build ; test collide routine lda exal_jetrot,y s_push_obj x ldx exal_jetLobjptr,y sta al_childrotx,x ldx exal_jetRobjptr,y sta al_childrotx,x s_pull_obj x ; pl_p2_coltab x,id_1_c pl_trans x,CS_ARWING,transRobo2Arwing rtl .calcpos c_add_Rvaroffs2pos B,x,x,work0,work1,work2,x1,y1,z1,0,1,0 rts LONGA .ckmax bit #8000H bne .mi .pl cmp #tutumax bcc .endckmax lda #tutumax bra .endckmax .mi cmp #-tutumax bcs .endckmax lda #-tutumax .endckmax rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; goto next TUTU level ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ nextTUTU_path_srou_l ; call from pathkern.asm ;in tpy=next height 1024,2048,4096 or 8192 SHORTA LONGI ldy playpt1 toheap y,y a16 lda exal_TUTUptr+1,y sta x1+1 ;next height lda exal_TUTUNo,y and #0ffh asl a clc adc exal_TUTUptr+0,y inc a inc a sta x1 lda [x1] beq .exit ; noset(0:end code) sta tpy lda exal_TUTUNo,y inc a sta exal_TUTUNo,y lda exal_TUTUdir,y cmp #exal_TUTUdir_down a16 beq .down .up lda tpy ; next height bne .up2 lda exal_TUTUheight,y .up2 nega bra .add .down lda exal_TUTUheight,y .add clc adc exal_TUTUlevel,y sta exal_TUTUlevel,y lda tpy sta exal_TUTUheight,y .exit a8 rtl IFEQ 1 lda exal_TUTUdir,y cmp #exal_TUTUdir_down a16 beq .down .up lda tpy ; next height bne .up2 lda exal_TUTUheight,y .up2 nega bra .add .down lda exal_TUTUheight,y .add clc adc exal_TUTUlevel,y sta exal_TUTUlevel,y lda tpy sta exal_TUTUheight,y .exit a8 rtl ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;Arwing no kyo-tsu- no process ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ AW_pros_srou php a8i16 jsr set_rollingstatus jsr playerfloating_srou ; (player's furafura) jsr ARWINGboost_srou jsl ARWINGhit_surface_l jsr set_Arwing_vel jsr SET_AW_ALVARS jsr ARWINGaddvecs_srou ;------------ ;crash with enemy phy toheap y,x lda exal_shockvel,y rlbeq .noshock s_set_alvar B,x,al_pbyte1,#deg90 s_add_alvars B,x,al_pbyte1,x,al_roty lda exal_shockvel,y sta al_pbyte2,x s_gen_vecs x,al_pbyte1,al_pbyte2 s_add_vecs2pos x s_Fchase_alvar B,y,exal_shockvel,#0,20 .noshock ply ;------------ sm_jmp_if2screen .exit jsl ARWINGhit_slope_l jsl noturnxlmt_srou_l jsl ARWINGhit_wall_l .exit plp rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; Arwing's control(SPACE part2) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI COSMO_ARWING_CTL_l s_start_strat PUSHYP a8i16 toheap y,x .start ;------------------------------------------------ pl_set_exalkey ;------------------------------------------------ ;clear work RAM s_set_alvar B,y,exal_inccamrotz,#0 ldy #0 sty inc_rotx sty inc_roty sty inc_rotz jsr OF_AW_lrLR jsr CS_AW_UPDOWN jsr CS_AW_checkALT jsr AW_pros_srou pl_trans x,ARMER,transArwing2Robo PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; Arwing's control(ON FIELD) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ONFIELD_ARWING_CTL_l PUSHYP a8i16 toheap y,x .start ;------------------------------------------------ jsl checkYclip_srou_l ;------------------------------------------------ pl_jmpnot_iftransrising x,.nobubble,y jsl makebubble_srou_l .nobubble ;------------------------------------------------ OAC_entry pl_set_exalkey ;------------------------------------------------ ;clear work RAM s_set_alvar B,y,exal_inccamrotz,#0 s_set_var W,inc_rotx,#0 s_set_var W,inc_roty,#0 s_set_var W,inc_rotz,#0 jsr OF_AW_lrLR jsr OF_AW_UPDOWN jsr OF_AW_checkALT jsr AW_pros_srou IFEQ 1 pl_jmpnot_iftransrising x,.nobubble,y jsl makerisebubble_srou_l .nobubble ENDC pl_trans x,ROBOT,transArwing2Robo PULLYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; check UP DOWN key routine ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI CS_AW_UPDOWN ;(in space type B) PUSHYP a8i16 toheap y,x s_set_var W,inc_rotx,#0 s_or_alvar B,y,exal_updown,#80H s_set_alvar B,y,exal_inccamrotx,#0 .up testjoypad up,pcont s_beq .exit_up s_copy_alvar2var B,y,inc_rotx+1,exal_maxProtx bra .exit .exit_up .down testjoypad down,pcont s_beq .exit_dw s_copy_alvar2var B,y,inc_rotx+1,exal_minProtx bra .exit .exit_dw .no_keys s_set_var W,inc_rotx,#0 .exit PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI OF_AW_UPDOWN PUSHYP a8i16 toheap y,x s_set_alvar B,y,exal_inccamrotx,#0 s_set_var W,inc_rotx,#0 testjoypad up,ptrig bne .set_updownflag testjoypad down,ptrig beq .up_noclr .set_updownflag s_or_alvar B,y,exal_updown,#80H .up_noclr ;---------------------------------------------------- .up testjoypad up,pcont s_beq .exit_up ;------------------------------------ ; wait camera's moving (uwcm) ;------------------------------------ s_and_alvar B,y,exal_updown,#80H^-1 s_copy_alvar2var B,y,inc_rotx+1,exal_maxProtx jmp ._add .exit_up ;---------------------------------------------------- .down TM_TESTEXBUTTON x,down,y rlbeq .no_keys ;------------------------------------ ; wait camera's moving (dwcm) .dwcm_skip2 ;------------------------------------ s_and_alvar B,y,exal_updown,#80H^-1 .dwcm_skip3 s_and_alvar B,y,exal_updown,#80H^-1 s_copy_alvar2var B,y,inc_rotx+1,exal_minProtx bra ._add .exit_down ;---------------------------------------------------- .no_keys s_and_alvar B,y,exal_updown,#80H^-1 s_set_alvar B,y,exal_inccamrotx,#camrotxmid s_set_var W,inc_rotx,#0 ;---------------------------------------------------- ._add ;---------------------------------------------------- ; transrising? pl_jmpnot_iftransrising x,.exit,y a16 lda #-80 clc adc SEADEPTH ;DDM sta tpy a8 s_jmp_higher x,tpy,.exit s_set_var W,inc_rotx,#0c000h ;---------------------------------------------------- .exit PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;Armer no yoko idou. ; set exal_sidevel(1word) SHORTA LONGI IS_ARMER_lrlr_srou ;(in space type B) PUSHYP a8i16 s_set_var W,inc_roty,#0 ;------------------------------------------------------------------------------------- ; yoko idou toheap y,x pl_jmp_iftunnel x,.spdtutu,y .spdnorm pl_get_pilottab_ST W,x,ISRB_MAXspd,ISRB_sidespd_tab pgpt_C W,x,ISRB_DCLspd,ISRB_sideDCLspd_tab pgpt_END W,x,ISRB_ACLspd,ISRB_sideACLspd_tab bra .exitspd .spdtutu pl_get_pilottab_ST W,x,ISRB_MAXspd,tutuISRB_sidespd_tab pgpt_C W,x,ISRB_DCLspd,tutuISRB_sideDCLspd_tab pgpt_END W,x,ISRB_ACLspd,tutuISRB_sideACLspd_tab .exitspd IFEQ AMCTL pl_jmp_LASTLRkey x,.tl,.tr,.ntlr,y ELSEIF testjoypad right,pcont bne .tr testjoypad left,pcont beq .ntlr ENDC .tl s_neg_var W,ISRB_MAXspd bra .setvel .tr bra .setvel .ntlr s_set_var W,ISRB_MAXspd,#0 s_copy_var2var W,ISRB_ACLspd,ISRB_DCLspd .setvel sm_Fchase_alvar W,y,exal_sidevel,ISRB_MAXspd,ISRB_ACLspd PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;Armer no kaiten. SHORTA LONGI IS_AM_lrlr ;(in space type B) PUSHYP a8i16 toheap y,x ;------------------------------------------------------------------------------------- ; kaiten pl_set_rotyoffset x ;,#OF_AM_ROTYOFS*2<<8,#OF_AM_ROTYOFSnoturn*2<<8 IFEQ AMCTL testjoypad right,pcont bne .turnR testjoypad left,pcont beq .no_turn ELSEIF pl_jmp_LASTLRkey x,.turnL,.turnR,.no_turn,y ENDC ;------------ .turnL pl_get_pilottab W,x,inc_roty,rotyacclUFO_tab bra .end_turn .endturnL ;------------ .turnR pl_get_pilottab W,x,inc_roty,rotyacclUFO_tab s_neg_var W,inc_roty bra .end_turn .endturnR ;------------ .no_turn s_set_var W,inc_roty,#0 .end_turn PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ISRB_DCLspd equ work9 ISRB_DCLspdMANU equ work8 ISRB_ACLspd equ work7 ISRB_MAXspd equ work6 IS_ARMER_UPDOWN ;(in space type B) PUSHXYP a8i16 toheap y,x pl_jmp_iftunnel x,.spdtutu,y .spdnorm pl_get_pilottab_ST W,x,ISRB_MAXspd,ISRB_MAXspd_tab pgpt_C W,x,ISRB_DCLspdMANU,ISRB_DCLspdMANU_tab pgpt_C W,x,ISRB_DCLspd,ISRB_DCLspd_tab pgpt_END W,x,ISRB_ACLspd,ISRB_ACLspd_tab bra .endspd .spdtutu pl_get_pilottab_ST W,x,ISRB_MAXspd,tutuISRB_MAXspd_tab pgpt_C W,x,ISRB_DCLspdMANU,tutuISRB_DCLspdMANU_tab pgpt_C W,x,ISRB_DCLspd,tutuISRB_DCLspd_tab pgpt_END W,x,ISRB_ACLspd,tutuISRB_ACLspd_tab .endspd ;---------------------------------------------------------------------- a16 .High lda exal_worldy,y clc adc exal_maxPmoveY,y bpl .Low lda exal_jetrotx-1,y bmi .Low bra .HLstop .Low lda exal_worldy,y clc adc exal_minPmoveY,y bmi .endlmt lda exal_jetrotx-1,y bpl .endlmt lda #33h .HLstop lda #0 sta ISRB_MAXspd .endlmt a8 ;---------------------------------------------------------------------- a16 lda #0 sta work0 ; jet rotx pointer sta work1 ; jet roty pointer sta work2 ; vel VY a8 s_set_alvar B,y,exal_inccamrotx,#0 s_set_var W,inc_rotx,#0 s_or_alvar B,y,exal_updown,#80H s_jmpNOT_alvarAND B,y,exal_CTLtype,#exal_CTLtype_automatic,.manual jmp .automatic .manual ; a16 ; lda #0 ; sta work0 ; jet rotx pointer ; sta work1 ; jet roty pointer ; sta work2 ; vel VY ; a8 ; s_set_var W,work0,#0 ; jet rotx pointer ; s_set_var W,work1,#0 ; jet roty pointer ; s_set_var W,work2,#0 ; vel VY s_copy_alvar2var B,y,work0,exal_jetrotx ; -- up down -- .mup testjoypad up,pcont ; rollsound beq .mdown s_add_var B,work0,#-16 s_set_alvar B,y,exal_jetrotoffset,#5 bra .msound .mdown testjoypad down,pcont beq .mno_updown s_add_var B,work0,#16 s_set_alvar B,y,exal_jetrotoffset,#5 .msound pl_armrollsound x,on,y bra .mupdown_end .mno_updown pl_armrollsound x,off,y .mupdown_end ; -- X B -- .mX testjoypad X,pcont s_bne .mVEL .mB testjoypad B,pcont s_beq .mno_XB .mVEL s_set_var W,work2,ISRB_ACLspd ; vel .mno_XB jsr .set_jetA ; -- read rotx table -- s_set_alvar B,y,exal_jetrotx,work0 lda work0 nega sta exal_jetrot,y jmp .leftright .automatic s_set_alvar B,y,exal_jetrotoffset,#0 ; jet rot offset s_set_var W,work0,#0 ; jet rotx pointer s_set_var W,work1,#0 ; jet roty pointer ; s_set_var W,work2,#0 ; vel VY ; -- up down -- .up testjoypad up,pcont beq .down s_or_var B,work0,#1 s_set_var W,work2,ISRB_ACLspd ; vel bra .no_updown .down testjoypad down,pcont beq .no_updown s_or_var B,work0,#2 s_set_var W,work2,ISRB_ACLspd ; vel .no_updown ; -- X B -- .X testjoypad X,pcont s_beq .B s_or_var B,work0,#1*4 s_or_var B,work1,#1*4 s_set_var W,work2,ISRB_ACLspd ; vel bra .exit_XB .B testjoypad B,pcont s_beq .no_XB s_or_var B,work0,#2*4 s_or_var B,work1,#2*4 s_set_var W,work2,ISRB_ACLspd ; vel bra .exit_XB .no_XB .exit_XB jsr .set_jetB ; -- read rotx table -- phx ldx work0 lda.l .tabx,x and #0ffH cmp #0ffH bne .skip0 lda #0 .skip0 sta work0 plx ;SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND lda exal_jetrot,y sec sbc work0 bpl .jjjjj nega .jjjjj cmp #5 bcc .soundoff .soundon pl_armrollsound x,on,y bra .jjj .soundoff pl_armrollsound x,off,y .jjj ;SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND ; -- left right -- .leftright ; -- read roty table -- phx ldx work1 lda.l .taby,x and #0ffH cmp #0ffH bne .skip1 lda #0 .skip1 sta work1 plx s_set_alvar B,y,exal_jetrotx,work0 s_set_alvar B,y,exal_jetroty,work1 s_neg_var B,work0 s_achase_alvar B,y,exal_jetrot,work0,2 ;---- testjoypad up,pcont bne .gggg testjoypad down,pcont bne .gggg s_jmp_alvarNE B,y,exal_jetrotoffset,#5,.kkk kplsound x,StopArmRoll ;TEST .kkk s_Fchase_alvar B,y,exal_jetrotoffset,#0,1 s_neg_alvar B,y,exal_jetrotoffset s_add_alvars B,y,exal_jetrot,y,exal_jetrotoffset .gggg ;-------------------------------------------------------------------------- stz work0+1 a16 lda #0 sta x1 sta x2 lda #0 ;work1 sta y1 sta y2 lda work2 sta z1 sta z2 a8 lda work0 jsl rotate_16yz_l a16 lda x2 sta x1 lda y2 sta y1 lda z2 sta z1 a8 lda work1 ;al_roty,\4 jsl rotate_16xz_l ; out :x2 ; :y2 ; :z2 ; a16 ; lda z2 ; sta work2 ; ; lda y2 ; sta work1 ; ; lda x2 ; sta work0 a8 ;-------------------------------------------------------------------------- ; calc max speed s_set_var W,work3,ISRB_MAXspd .vzpros s_jmp_varNE B,z2+1,#0,.addvz s_jmp_alvarAND B,y,exal_CTLtype,#exal_CTLtype_automatic,.vzA sm_fchase_alvar W,y,exal_vz,#0,ISRB_DCLspdMANU s_copy_alvar2var W,y,z2,exal_vz bra .vypros .vzA sm_fchase_alvar W,y,exal_vz,#0,ISRB_DCLspd s_copy_alvar2var W,y,z2,exal_vz bra .vypros .addvz s_add_alvar W,y,exal_vz,z2 .vypros s_jmp_varNE B,y2+1,#0,.addvy s_jmp_alvarAND B,y,exal_CTLtype,#exal_CTLtype_automatic,.vyA sm_fchase_alvar W,y,exal_vy,#0,ISRB_DCLspdMANU s_copy_alvar2var W,y,z2,exal_vy bra .vxpros .vyA sm_fchase_alvar W,y,exal_vy,#0,ISRB_DCLspd s_copy_alvar2var W,y,y2,exal_vy bra .vxpros .addvy s_add_alvar W,y,exal_vy,y2 .vxpros s_jmp_varNE B,x2+1,#0,.addvx s_jmp_alvarAND B,y,exal_CTLtype,#exal_CTLtype_automatic,.vxA sm_fchase_alvar W,y,exal_vx,#0,ISRB_DCLspdMANU s_copy_alvar2var W,y,z2,exal_vx bra .vp .vxA sm_fchase_alvar W,y,exal_vx,#0,ISRB_DCLspd s_copy_alvar2var W,y,x2,exal_vx bra .vp .addvx s_add_alvar W,y,exal_vx,x2 .vp ;-------------------------------------------------------------------------------------- .ckvz a16 lda exal_vz,y plabsa cmp work3 bcc .ckvy lda exal_vz,y bpl .setvzPL .setvzMI lda work3 nega bra .setvz .setvzPL lda work3 .setvz sta exal_vz,y .ckvy lda exal_vy,y plabsa cmp work3 bcc .ckvx lda exal_vy,y bpl .setvyPL .setvyMI lda work3 nega bra .setvy .setvyPL lda work3 .setvy sta exal_vy,y .ckvx lda exal_vx,y plabsa cmp work3 bcc .noadd lda exal_vx,y bpl .setvxPl .setvxPL lda work3 bra .setvx .setvxMI lda work3 nega .setvx sta exal_vx,y .noadd ;-------------------------------------------------------------------------------------- PULLXYP rts .tab ;rotX of jet .tabx ; NO UP DOWN db 0ffH,0c0H,040H,0 ;NO db 000H,0e0H,020H,0 ;X db 080H,0a0H,060H,0 ;B db 0ffH,0ffH,0ffH,0 ;XB .taby ; NO LEFT RIGHT db 0ffH,040H,0c0H,0 ;NO db 000H,020H,0e0H,0 ;X db 000H,0e0H,020H,0 ;B db 0ffH,0ffH,0ffH,0 ;XB .set_jetA ; In : X player obj Y heap pointer s_start_strat php testjoypad X,pcont bne .jetonB testjoypad B,pcont bne .jetonB bra .jetoffB ;.jetonA pl_jet x,on ; bra .exitA ;.jetoffA pl_jet x,off ;.exitA plp ; rts .set_jetB ; In : X player obj Y heap pointer php testjoypad X,pcont bne .jetonB testjoypad B,pcont bne .jetonB testjoypad up,pcont bne .jetonB testjoypad down,pcont bne .jetonB bra .jetoffB .jetonB pl_jet x,on bra .exitB .jetoffB pl_jet x,off .exitB plp rts ; data of armer's speed ISRB_MAXspd_tab pilottab W,UFO_speed_ ISRB_DCLspd_tab pilottab W,UFO_DCLspeed_ ISRB_DCLspdMANU_tab pilottab W,UFO_DCLspeedMANU_ ISRB_ACLspd_tab pilottab W,UFO_ACLspeed_ tutuISRB_MAXspd_tab pilottab W,tutuUFO_speed_ tutuISRB_DCLspd_tab pilottab W,tutuUFO_DCLspeed_ tutuISRB_DCLspdMANU_tab pilottab W,tutuUFO_DCLspeedMANU_ tutuISRB_ACLspd_tab pilottab W,tutuUFO_ACLspeed_ ISRB_sidespd_tab pilottab W,UFO_sidespeed_ ISRB_sideACLspd_tab pilottab W,UFO_sideACLspeed_ ISRB_sideDCLspd_tab pilottab W,UFO_sideACLspeed_ tutuISRB_sidespd_tab pilottab W,UFO_sidespeed_ tutuISRB_sideACLspd_tab pilottab W,UFO_sideACLspeed_ tutuISRB_sideDCLspd_tab pilottab W,UFO_sideACLspeed_ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; check left,right,L & R routine ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ; Out: ; exal_rotyoffset W player roty offset ; exal_rotztend B rotz (push left right) ; exal_rotztilt W rotz (push LR) ; exal_control B last LR key flag ; inc_camrotz W obj value ; inc_roty W obj value OF_AW_lrLR PUSHYP a8i16 ; flag clear toheap y,x pl_set_rotyoffset x ;---------------------------------------------------- .left pl_jmp_NOTkeydown left,pcont,.right ; s_set_var W,inc_camrotz,#-camrotzmax*100H s_set_alvar B,y,exal_inccamrotz,#-camrotzmax pl_jmp_keydown tleft,pcont,.skip_left3 pl_jmp_keydown tright,pcont,.skip_left3 s_bra .skip_left2 ;---------------------------------------------------- .skip_left3 ; --- Brake turn --- ldy al_sword2,x s_jmpNOT_alvarAND B,y,exal_control,#exal_control_brake,.brake_off .btonL pl_get_pilottab W,x,inc_roty,rotyacclBRAKE_tab ; s_set_var W,inc_roty,#rotyacclBRAKE s_or_alvar B,y,exal_control,#exal_control_brakeTurn jmp .LR ; --- normal turn --- .brake_off pl_get_pilottab W,x,inc_roty,rotyacclLR_tab ; s_set_var W,inc_roty,#rotyacclLR jmp .LR ;---------------------------------------------------- .skip_left2 ; s_set_var W,inc_roty,#rotyaccl pl_get_pilottab W,x,inc_roty,rotyaccl_tab jmp .add_shift ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ .right pl_jmp_NOTkeydown right,pcont,.noleftright s_set_alvar B,y,exal_inccamrotz,#camrotzmax pl_jmp_keydown tleft,pcont,.skip_right3 pl_jmp_keydown tright,pcont,.skip_right3 s_bra .skip_right2 ;---------------------------------------------------- .skip_right3 ; --- Brake turn --- ldy al_sword2,x s_jmpNOT_alvarAND B,y,exal_control,#exal_control_brake,.brake_off2 .btonR pl_get_pilottab W,x,inc_roty,rotyacclBRAKE_tab s_neg_var W,inc_roty ; s_set_var W,inc_roty,#-rotyacclBRAKE s_or_alvar B,y,exal_control,#exal_control_brakeTurn jmp .LR ; --- normal turn --- .brake_off2 pl_get_pilottab W,x,inc_roty,rotyacclLR_tab s_neg_var W,inc_roty ; s_set_var W,inc_roty,#-rotyacclLR jmp .LR .skip_right2 pl_get_pilottab W,x,inc_roty,rotyaccl_tab s_neg_var W,inc_roty ; s_set_var W,inc_roty,#-rotyaccl ;---------------------------------------------------- .add_shift ; ldy al_sword2,x ; s_achase_alvar W,y,exal_acclshift,work0,2 ; s_copy_alvar2var B,y,work0,exal_acclshift+1 ; s_add_roffs2pos B,x,x,x,work0,#0,#0,1,1,0 jmp .LR ;---------------------------------------------------- .noleftright s_set_alvar B,y,exal_inccamrotz,#0 ;camrotzmax ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ .LR toheap y,x ;-------------------------------------------------------------------------- ; --- set exal_rotztend (rotZ offset when push left or right) --- .rotzleftright pl_jmp_iftransform x,.rotztend00 pl_jmp_notLRkeydown pcont,.rotztend .rotztend00 lda #0 bra .rotztend0 .rotztend lda exal_sidevel,y and #1^-1 asra clc adc exal_sidevel,y .rotztend0 sta z1 s_achase_alvar B,y,exal_rotztend,z1,2 .notend ;-------------------------------------------------------------------------- ; --- set exal_rotztilt (rotZ offset when push tLeft or tRight) --- pl_jmp_iftransform x,.noLRkeysS pl_jmp_LASTLRkey x,.nhtl,.nhtr,.noLRkeys,y .nhtl a16 lda #deg45/3 bra .addtilt .nhtr a16 lda #-deg45/3 .addtilt clc adc exal_rotztilt,y sta exal_rotztilt,y a8 bra .nhptc .noLRkeysS s_Achase_alvar W,y,exal_rotztilt,#0,1 .noLRkeys s_Achase_alvar W,y,exal_rotztilt,#0,3 .nhptc s_limit_alvar W,y,exal_rotztilt,-deg90,deg90 ;------------------------------------------------------------------- ; transform siteru toki wa camera no rotz wo 0 ni suru. pl_jmpnot_iftransform x,.notrans s_set_alvar B,y,exal_inccamrotz,#0 .notrans ;------------------------------------------------------------------- ; no turn mode no toki pl_jmp_ifturn x,.nofturn jsr .forceroty ; a16 ; lda exal_forceroty,y ; and #0ffH ; xba ; sta y1 ; lda exal_roty,y ; sta y2 ; a8 ; ; s_achase_alvar W,y,exal_roty,y1,3 ; .nofturn ;------------------------------------------------------------------- ; set side vel sp_jmpnot_playertype x,ARWING,.exitsidevel lda exal_rotyoffset+1,y asl a asl a sta x1 pl_get_pilottab B,x,work0,awxofsvel_tab a16 lda work0 ;side vel sexa sta x2 a8 jsl calc_sin16_l s_set_alvar W,y,exal_sidevel,y1+1 .exitsidevel ;------------------------------------------------------------------- PULLYP rts .forceroty LOCAL s_start_strat a16 lda exal_forceroty,y and #0ffH xba sta y1 lda exal_roty,y sta y2 a8 s_achase_alvar W,y,exal_roty,y1,3 .exitfy rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; data table rotyacclUFO_tab pilottab W,rotyacclUFO_ rotyaccl_tab pilottab W,rotyaccl_ rotyacclLR_tab pilottab W,rotyacclLR_ rotyacclBRAKE_tab pilottab W,rotyacclBRAKE_ awxofsvel_tab pilottab B,OF_AW_XOFSVEL_ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set rolling status flag ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI set_rollingstatus PUSHYP a8i16 toheap y,x ; --- set rolling shield flag --- s_jmp_ABSalvarLESS B,y,exal_rollingoffset,#1,.shieldoff .shieldon pl_ROLLINGshield x,on,y bra .send .shieldoff pl_ROLLINGshield x,off,y .send ; --- check rolling flag --- s_jmp_alvarNE B,y,exal_rollingoffset,#0,.rolling s_and_alvar B,y,exal_control,#exal_control_rolling^-1 ; --- check trigger --- s_jmpNOT_varAND B,ptrig,#pad_tleft!pad_tright,.inc s_copy_var2var B,tpx,ptrig s_and_var B,tpx,#pad_tleft!pad_tright lda pcont and #pad_tleft!pad_tright cmp #pad_tleft!pad_tright rlbeq .inc lda exal_rollingstatus,y and #pad_tleft!pad_tright cmp tpx rlbne .reset ; -- check counter --- .set0 lda exal_rollingstatus,y and #0fH cmp #rollinginterval&0fH rlbcs .reset ; --- set rolling offset --- pl_jmp_LASTLdown x,.L,y .R s_set_alvar B,y,exal_rollingoffset,#-20H bra .set1 .L s_set_alvar B,y,exal_rollingoffset,#20H ; --- set rolling flag --- .set1 a8 s_or_alvar B,y,exal_control,#exal_control_rolling ; --- trans lock timer off --- lda #0 sta exal_translocktimer,y ; --- set rolling time --- lda exal_rollingstatus,y and #0f0H sta exal_rollingstatus,y bra .inc ;-------------------------------------------------- .reset lda ptrig ; set last trigger and #pad_tleft!pad_tright sta tpx lda exal_rollingstatus,y and #(pad_tleft!pad_tright)^-1 ora tpx and #0f0H ; clear low 4bit(counter) sta exal_rollingstatus,y s_and_alvar B,y,exal_control,#exal_control_rolling^-1 bra .exit ;-------------------------------------------------- .inc lda exal_rollingstatus,y ; inc low 4bit(counter) and #0fH cmp #15 ;rollinginterval beq .exit lda exal_rollingstatus,y inc a .skip0 sta exal_rollingstatus,y .exit PULLYP rts ;-------------------------------------------------- .rolling a8 s_jmp_alvarpl B,y,exal_rollingoffset,.pl s_add_alvar B,y,exal_rollingoffset,#2 bra .roll_f .pl s_sub_alvar B,y,exal_rollingoffset,#2 .roll_f lda exal_rollingstatus,y and #0f0H ora #00fH sta exal_rollingstatus,y .cont PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set roty offset routine ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ;set Arwing's roty offset value(exal_rotyoffset) set_rotyoffset_l ; In :y1(16bit) offset value(0-7fffH) ; Out :exal_rotyoffset(16bit) PUSHYP toheap y,x s_set_var B,y1+0,#0 sp_jmp_playertype x,UFO,.am0 pl_jmpnot_ifturn x,.aw1,y .aw0 pl_get_pilottab B,x,y1+1,.awtab bra .turn .aw1 pl_get_pilottab B,x,y1+1,.awtab2 bra .turn .am0 s_set_var B,y1+1,#OF_AM_ROTYOFS .turn s_jmp_varZERO W,y1,.set .left pl_jmp_NOTkeydown left,pcont,.right bra .set .right pl_jmp_NOTkeydown right,pcont,.nokey s_neg_var W,y1 bra .set .nokey s_set_var W,y1,#0 .set pl_jmp_ifturn x,.a0,y .a1 ;s_fchase_alvar W,y,exal_rotyoffset,y1,OF_AW_ROTYOFSinc ;bra .exit .a0 ; s_achase_alvar W,y,exal_rotyoffset,y1,3 ; s_achase_alvar W,y,exal_rotyoffset,y1,4 ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& pl_jmp_ifcockpit x,.noturbo,y A16 LDA EXAL_ROTYOFFSET,Y BMI .MIII .PLLL LDA Y1 BPL .KKKK LDA #0 STA EXAL_ROTYOFFSET,Y BRA .KKKK .MIII LDA Y1 BEQ .KKKK BMI .KKKK LDA #-1 STA EXAL_ROTYOFFSET,Y .KKKK A8 .noturbo ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& s_achase_alvar W,y,exal_rotyoffset,y1,4 s_achase_alvar W,y,exal_rotyoffset,y1,2 .exit PULLYP rtl .awtab pilottab B,OF_AW_ROTYOFS_ .awtab2 pilottab B,OF_AW_ROTYOFSnoturn_ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; check altitude routines ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; check limit of altitude for ON FIELD ARWING ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; out : exal_vxvyvz ; : exal_xyzLMT SHORTA LONGI OF_AW_checkALT PUSHYP a8i16 toheap y,x s_set_alvar B,y,exal_vxvyvz,#exal_vxvyvz_ALL lda #-30 jsr ARWING_altcheck_HIGH lda #0 jsr ARWING_altcheck_LOW .exit PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; check limit of altitude for COSMO ARWING ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; out : exal_vxvyvz ; : exal_xyzLMT SHORTA LONGI CS_AW_checkALT PUSHYP a8i16 toheap y,x s_set_alvar B,y,exal_vxvyvz,#exal_vxvyvz_ALL lda #-10 jsr ARWING_altcheck_HIGHEX lda #10 jsr ARWING_altcheck_LOWEX a16 lda pcont bit #pad_up!pad_down a8 bne .exit s_achase_alvar B,y,exal_rotxoffset,#0,2 .exit PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; --[ check HIGH limit]-- ;------------------------------------------------------------------- ; in : idx player's pointer ; : idy player's heap pointer ; : inc_rotx(16bit) ; : exal_minPmoveY ; : A rotx offset max(8bit) ; : idY heap pointer ; out : inc_rotx(16bit) ; : exal_rotxoffset(8bit) ; set flag: exal_xyzLMT_bottom ; : exal_inccamrotx ; using : work0 osikomi equ 32 ARWING_altcheck_HIGH PHP s_start_strat sta work1 ; rotx offset max s_and_alvar B,y,exal_xyzLMT,#exal_xyzLMT_top^-1 ;---------------------------------- .ckalt_high0 a16 lda exal_maxPmoveY,y sec sbc #osikomi clc adc al_worldy,x sta y1 rlbpl .ckalt_high1 .pullup0 lda inc_rotx bne .ckalt_high1 lda #rotxpullup*100H sta inc_rotx ;------------ .ckalt_high1 lda inc_rotx bpl .exit_high beq .exit_high lda exal_maxPmoveY,y sta atl_disty ;y1 sec sbc #64 clc adc al_worldy,x bpl .exit_high nega sta atl_disty ;y1 ;------------------------------------------------------------------- .caltplus a8 s_or_alvar B,y,exal_xyzLMT,#exal_xyzLMT_top s_copy_var2var W,work0,inc_rotx jsr calc_pulluprotx_srou lda gameframe and #1 beq .exit s_Fchase_alvar B,y,exal_rotxoffset,work1,1 bra .exit .exit_high a8 s_jmp_alvarPL B,y,exal_rotxoffset,.exit s_Fchase_alvar B,y,exal_rotxoffset,#0,2 ;------------------------------------------------------------------- .exit PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; --[ check LOW limit]-- ;------------------------------------------------------------------- ARWING_altcheck_LOW atl_rxmax equ work9 atl_disty equ work8 s_start_strat PHP sta work1 ; rotx offset max s_and_alvar B,y,exal_xyzLMT,#exal_xyzLMT_bottom^-1 ;---------------------------------- .ckalt_low0 ai16 lda exal_minPmoveY,y clc adc #osikomi clc adc al_worldy,x bmi .ckalt_low1 ; sta atl_disty ;y1 .pullup0 ; a8 ; ; lda exal_rotztend,y ; asra ; sta tpz ; asra ; clc ; adc tpz ; sta exal_rotztend,y ; ; a16 lda inc_rotx bne .ckalt_low1 lda #-rotxpullup*100H sta inc_rotx ;.ckalt_low0 a8 ; s_copy_alvar2var W,y,y1,exal_minPmoveY ; s_add_var W,y1,#osikomi ; s_varadd_alvar W,x,y1,al_worldy ; s_bmi .ckalt_low1 ;.pullup0 s_jmp_varNOTzero W,inc_rotx,.ckalt_low1 ; s_set_var W,inc_rotx,#-rotxpullup*100H ;---------------------------------- .ckalt_low1 a16 lda inc_rotx bmi .exit_low beq .exit_low lda exal_minPmoveY,y clc adc #110 ;64 ;*2 clc adc al_worldy,x bmi .exit_low LSR a sta atl_disty ;---------------------------------- .caltplus a8 s_or_alvar B,y,exal_xyzLMT,#exal_xyzLMT_bottom jsr calc_pulluprotx_srou jsr calc_pulluprotztend_srou ; sp_jmp_playerctl x,OF_ARWING,.exit,y ; ; lda gameframe ; and #1 ; beq .exit ; ; s_Fchase_alvar B,y,exal_rotxoffset,atl_rxmax,1 bra .exit .exit_low a8 s_jmp_alvarMI B,y,exal_rotxoffset,.exit s_Fchase_alvar B,y,exal_rotxoffset,#0,2 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ .exit PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; PULL UP no tokino rotx,rotztend wo set suru... ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; in idy : heap pointer ; atl_disty =al_worldx+minPmoveY+64 ; in,out inc_rotx (pulluprotx no toki) ; in,out exal_rotztend (pulluprotztend no toki) calc_pulluprotztend_srou s_start_strat s_copy_var2var W,y1,atl_disty a16 lda exal_rotztend,y sexa sta x2 a8 jsr calc_pulluprotx_srou.calc lda y1+1 asl a sta exal_rotztend,y .exit rts calc_pulluprotx_srou s_start_strat s_copy_var2var W,y1,atl_disty s_copy_var2var W,x2,inc_rotx jsr .calc a16 lda y1+1 sta inc_rotx a8 lda #pullup_camrotx sta exal_inccamrotx,y .exit rts .calc LOCAL ; in y1 Y limit kara no kyori ; x2 var ; out y1+1(16bit) s_jmpNOT_varAND W,y1,#0ff80H,.skip0 s_set_var W,y1,#7fH ; max 7fH .skip0 s_push_obj x ldx y1 a16 lda.l costab,x sexa sta x1 a8 s_pull_obj x jsl Pcalc_muls161632_l rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; --[ check HIGH limit]-- ;------------------------------------------------------------------- ARWING_altcheck_HIGHEX ; idy:heap pointer s_start_strat PHP s_and_alvar B,y,exal_xyzLMT,#exal_xyzLMT_top^-1 a16 ;---------------------------------- .ckalt_high0 lda exal_maxPmoveY,y clc adc al_worldy,x rlbpl .exit .ckalt_high1 lda inc_rotx rlbpl .exit a8 s_and_alvar B,y,exal_vxvyvz,#exal_vxvyvz_vy^-1 a16 lda inc_rotx asra sta inc_rotx a8 s_or_alvar B,y,exal_xyzLMT,#exal_xyzLMT_top bra ARWING_altcheck_LOWEX.chaserxofs .exit PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; --[ check LOW limit]-- ;------------------------------------------------------------------- ARWING_altcheck_LOWEX s_start_strat PHP sta work1 ; rotx offset max s_and_alvar B,y,exal_xyzLMT,#exal_xyzLMT_bottom^-1 ;---------------------------------- a16 .ckalt_low0 lda exal_minPmoveY,y clc adc al_worldy,x bmi .exit .ckalt_low1 lda inc_rotx bmi .exit a8 s_and_alvar B,y,exal_vxvyvz,#exal_vxvyvz_vy^-1 a16 lda inc_rotx asra sta inc_rotx a8 s_or_alvar B,y,exal_xyzLMT,#exal_xyzLMT_bottom .chaserxofs LOCAL lda gameframe and #1 beq .exit s_Fchase_alvar B,y,exal_rotxoffset,work1,1 bra .exit .exit PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ ³ ;³ SET ARWING'S ALVARS ³ ;³ ³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ;------------------------------------------------------------------------ ;-- rotX -- ; In: ; inc_rotx ; W ; exal_rotxoffset ; B for loop the loop ; Out: ; exal_rotx ; W rotx buffer ; al_rotx ; B player rotx ;-- rotY -- ; In: ; inc_roty ; W ; exal_rotyoffset ; W push left right ; Out: ; exal_acclroty ; W ; exal_roty ; W ; al_rotx ; B ;-- rotz -- ; In: ; exal_rotzoffset ; B shaking ; exal_rollingoffset ; B rolling value(0-20H) ; exal_rotztilt ; W push LR ; exal_rotztend ; B push left right ; exal_rotzhit ; when hit ; inc_rotz ; no pros ; Out: exal_rotz ; B rotz buffer ; al_rotz ; B player rotz ; ;------------------------------------------------------------------------ SET_AW_ALVARS PUSHXYP a8i16 toheap y,x ; lda exal_rollingoffset,y ; printh ROLLINGOFFSET,kawagoe .other ;--- rotx --- ;test pl_jmp_ifturn x,.ttttt ; ; s_sub_alvar W,y,exal_rotx,#10*256 ; bra .ix ;.ttttt ; enter tutu mode? pl_jmp_ifenter x,.ix,0,y sp_jmp_playerctl x,OF_ARWING,.ofix .csix s_achase_alvar W,y,exal_rotx,inc_rotx,3 bra .ix .ofix s_achase_alvar W,y,exal_rotx,inc_rotx,2 .ix pl_jmpNOT_ifcockpit x,.normrotx,y s_copy_alvar2alvar B,x,al_rotx,y,exal_camrotx+1 s_neg_alvar B,x,al_rotx lda al_rotx,x asra asra clc adc al_rotx,x sta al_rotx,x bra .exitrotx .normrotx s_copy_alvar2alvar B,x,al_rotx,y,exal_rotx+1 s_add_alvars B,x,al_rotx,y,exal_rotxoffset .exitrotx ;--- roty --- ; pl_jmp_ifenter x,.exitroty,0,y pl_jmp_ifturn x,.turnon,y s_copy_alvar2alvar B,x,al_roty,y,exal_roty+1 s_add_alvars B,x,al_roty,y,exal_rotyoffset+1 bra .exitroty .turnon s_copy_var2alvar W,y,exal_acclroty,inc_roty s_add_alvar W,y,exal_roty,inc_roty .normroty s_copy_alvar2alvar B,x,al_roty,y,exal_roty+1 s_add_alvars B,x,al_roty,y,exal_rotyoffset+1 s_add_alvars B,x,al_roty,y,exal_RBrollingoffset .exitroty ; --- rotz --- pl_jmp_iftransform x,.trrotz sp_jmp_playertype x,ARWING,.dorotz .trrotz lda al_rotz,x adiv2 sta al_rotz,x bra .rotzend .dorotz s_jmp_alvarNE B,y,exal_rollingoffset,#0,.addroll a16 lda exal_rotz,y sexa adiv2 sta tpx adiv2 clc adc tpx a8 sta exal_rotz,y .addroll s_add_alvars B,y,exal_rotz,y,exal_rollingoffset lda exal_rotz,y clc adc exal_rotzoffset,y clc adc exal_rotztilt,y clc adc exal_rotztend,y clc adc exal_rotzhit,y sta al_rotz,x .rotzend PULLXYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; CLEAR DEMO(ARWING) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; SHORTA ; LONGI ; ;DEMO_BATTLESTART_0_0_CTL_l ; ; PUSHXYP ; ; a8i16 ; ; ; ldy #viewblk1 ; ; toheap y,x ; ;WARNING al_roty,exal_roty ha chart.asm de set shiteiru. ; ; s_set_speed x,#40 ; s_gen_3dvecs x,al_roty,al_rotx,al_vel ; s_add_vecs2pos x ; ; s_varadd_alvar W,x,calcbuf,al_vy ; ; PULLXYP ; rtl ; ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------------------------- ; ; CLEAR DEMO(ARWING) ; ;------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; using : al_pbyte1 = state ; : al_pword1 = demo time counter ; ;awc_speed equ 35 ; ; ; SHORTA ; LONGI ; ;DEMO_AWCLEAR_0_0_CTL_l ; ;da00wait0 equ 100 ;da00wait1 equ 10 ;da00wait2 equ 120 ; ; PUSHYP ; ; a8i16 ; ; toheap y,x ; ; s_set_alvar B,x,al_vel,#30 ; s_set_alvar B,y,exal_vel,#0 ; ; s_set_alvar W,y,exal_rotyoffset,#0 ; s_achase_alvar B,y,exal_rotx+1,#0,4 ; s_achase_alvar B,y,exal_rotz+1,#0,3 ; s_jmp_higher x,#-100,.norise ; s_add_alvar W,x,al_worldy,#-5 ; ;.norise jmp DEMO_AWCLEAR_0_1_CTL_l.enter ; ; ;DEMO_AWCLEAR_0_1_CTL_l ; ; ; PUSHYP ; ; a8i16 ; ; toheap y,x ; ; pl_block x,off,y ; s_achase_alvar B,y,exal_vel,#30,2 ; s_achase_alvar B,y,exal_rotx+1,#-40H,2 ; s_achase_alvar B,x,exal_rotz,#-30,2 ; s_achase_alvar B,y,exal_rotyoffset+1,#-30,3 ; pl_Sboost x,on ; ;.enter LOCAL ; ; jsr playerfloating_srou ; (player's furafura) ; jsr SET_AW_ALVARS ; jsr ARWINGaddvecs_srou ; ; ; ; PULLYP ; ; rtl ; ; ; ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Add Arwing vector ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ARWINGaddvecs_srou PUSHYP s_start_strat a8i16 toheap y,x pl_jmpnot_iftransrising x,.start,y a16 lda #-80 clc adc SEADEPTH ;DDM sta tpy a8 s_jmp_higher x,tpy,.exit ; s_copy_alvar2var B,x,x1,al_vel ; jsr .addpros ; ; a16 ; lda al_vy,x ; asl a ; clc ; adc al_worldy,x ; sta al_worldy,x ; a8 ; ; bra .exit .start km_jmpgameflag freeze,.exit s_copy_alvar2var B,y,x1,exal_vel .enter jsr .addpros a16 lda al_vx,x sta exal_vx,y lda al_vy,x sta exal_vy,y lda al_vz,x sta exal_vz,y a8 s_copy_alvar2var B,x,x1,al_vel jsr .addpros a16 lda al_vx,x clc adc exal_vx,y sta exal_vx,y lda al_vy,x clc adc exal_vy,y sta exal_vy,y lda al_vz,x clc adc exal_vz,y sta exal_vz,y a8 ;----------------------------------------------------------------------------- ; ARWING'S side vel ; lda exal_sidevel,y ; nega ; sta x1 ; ; s_add_roffs2pos B,x,x,x,x1,#0,#0,0,1,0 .exit PULLYP rts .addpros s_start_strat ldy dummyobj s_set_alvar B,y,al_vel,x1 s_copy_rots y,x s_push_obj y ldy al_sword2,x s_copy_alvar2var B,y,x1,exal_rotx+1 s_pull_obj y s_set_alvar B,y,al_rotx,x1 s_exg_objs s_gen_3Dvecs x,al_roty,al_rotx,al_vel s_exg_objs s_copy_vecs x,y toheap y,x s_jmp_alvarAND B,y,exal_vxvyvz,#exal_vxvyvz_vx,.vxon s_set_alvar W,x,al_vx,#0 .vxon s_jmp_alvarAND B,y,exal_vxvyvz,#exal_vxvyvz_vy,.vyon s_set_alvar W,x,al_vy,#0 .vyon s_jmp_alvarAND B,y,exal_vxvyvz,#exal_vxvyvz_vz,.vzon s_set_alvar W,x,al_vz,#0 .vzon s_add_vecs2pos x rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Boost Process ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI ARWINGboost_srou php a8i16 toheap y,x ;---------------------------------- ;check keys .X testjoypad x,pcont beq .B pl_Sboost x,on bra .gotoinc .B testjoypad B,pcont beq .nokey pl_Sbrake x,on bra .gotoinc .nokey pl_Sboost x,off .gotoinc pl_boostinc .exit plp rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set Arwing's al_vel ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ set_arwing_vel PUSHYP s_start_strat a8i16 awspeed equ work9+1 awspeedspace equ work9+0 awspeed_battle equ work8+1 awspeedspace_battle equ work8+0 awspeedmax equ work7+1 awspeedmin equ work7+0 awspeedlr equ work6+1 awboostspeed equ work6+0 awboostspeedspace equ work5+1 awspeedspacemax equ work5+0 toheap y,x ;------------------------------------------------------------------- ; demo no toki vel=38 lda demomode beq .notdemo lda #38 sta awspeed lda #0 sta awboostspeed jmp .achasevel .notdemo ;------------------------------------------------------------------- pl_jmp_ifenter x,.nopros,0,y pl_get_pilotTAB_ST B,x,awspeed,speed_tab pgpt_C B,x,awspeedspace,speedspace_tab pgpt_C B,x,awspeed_battle,speed_battle_tab pgpt_C B,x,awspeedspace_battle,speedspace_battle_tab pgpt_C B,x,awspeedmax,speedmax_tab pgpt_C B,x,awspeedmin,speedmin_tab pgpt_C B,x,awspeedspacemax,speedspacemax_tab pgpt_END B,x,awspeedlr,speedlr_tab .start ;------------------------------------------------------------------- ; battle mode ? sm_jmp_if1screen .notbattle s_set_var B,awspeed,awspeed_battle s_set_var B,awspeedspace,awspeedspace_battle .notbattle ;------------------------------------------------------------------- ; over heat no gensoku. ; ; pl_jmpnot_ifoverheat x,.noovh,y ; a16 ; lsr awspeed ; lsr awspeedspace ; a8 ;.noovh ;------------------------------------------------------------------- .vel_X pl_jmpNOT_ifboost x,.vel_B,y s_set_var B,awboostspeed,awspeedmax s_set_var B,awboostspeedspace,awspeedspacemax jmp .exit_vel .vel_B pl_jmpNOT_ifbrake x,.vel_no,y lda awspeedmin sta awboostspeed sta awboostspeedspace jmp .exit_vel .vel_no ;------------------------------------------------------------------- pl_jmpnot_ifturn x,.exit_vel ;------------------------------------------------------------------- testjoypad left,pcont bne .lr testjoypad right,pcont bne .lr .no_lr lda #0 sta awboostspeed sta awboostspeedspace bra .exit_vel .lr ;------------------------------------------------------------------- ;LEFT or RIGHT wo oshiteiruto sokudo wo otosu you ni shiteiru.... s_jmp_ANDframe #1,.exit s_Fchase_alvar B,x,al_vel,awspeedlr,1 s_set_var B,awboostspeed,#0 bra .exit ;------------------------------------------------------------------- .exit_vel sp_jmp_playerctl x,OF_ARWING,.ofaw,y s_set_var B,awspeed,awspeedspace s_set_var B,awboostspeed,awboostspeedspace .achasevel .ofaw s_achase_alvar B,x,al_vel,awspeed,3 .exit s_achase_alvar B,y,exal_vel,awboostspeed,3 ;------------------------------------------------------------------- .nopros PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; tranform no toki no rotation Y wo set suru. ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ trans_aw2rb_lrlr_srou s_start_strat PUSHXYP pl_set_exalkey s_set_var W,inc_roty,#0 jsr OF_AW_lrlr PULLXYP rts trans_rb2aw_lrlr_srou s_start_strat PUSHXYP pl_set_exalkey s_set_var W,inc_roty,#0 testjoypad tright,pcont bne .tright testjoypad tleft,pcont beq .exit .tleft jsr .get bra .exit .tright jsr .get s_neg_var W,inc_roty .exit PULLXYP rts .get pl_get_pilottab B,x,inc_roty+1,roboLRrotyinc_tab rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Go to height ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ gotoheight_srou_l ; in :y1 = height(16bit) ; :z1 = dummy z(16bit) ; :idx = obj pointer ; out :x1 = angle (16bit) PUSHXYP a8i16 a16 lda y1 sec sbc.w al_worldy,x sta x1 lda z1 ;#400 ;dummy data sta y1 jsl call_arctan16_l a8 PULLXYP rtl gotoxpos_srou_l ; in :x1 = x pos ; :z1 = dummy z(16bit) ; :idx = obj pointer ; out :x1 = angle (16bit) PUSHXYP a16 lda al_worldx,x sec sbc x1 sta x1 lda z1 sta y1 jsl call_arctan16_l a8 PULLXYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; TRANS FORM no toki no worldy wo set suru! ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ TRANSworldy_srou transaltmin equ 80 s_start_strat ;henkei tyu no worldy wo tyousei suru a16 lda #transaltmin ; min worldy clc adc al_worldy,x bmi .noadjust .doadjust lda #-8 clc adc al_worldy,x sta al_worldy,x .noadjust .exit a8 rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Set player's key buffer (exal_keybutton) ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ LONGA LONGI set_exalkey_l phy php ai16 toheap y,x lda exal_oldkeybutton,y eor pcont ; get trigger ora exal_keybutton,y and pcont sta exal_keybutton,y .exit lda pcont sta exal_oldkeybutton,y plp ply rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;player's floating effect ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ playerfloating_srou PUSHXYP SHORTA LONGI a8i16 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;Z rotation lda #0 xba toheap y,x sp_jmp_playertype x,UFO,.norotz,y lda exal_rotzofscounter,y inc a cmp #rzod_end-rotzofsdat bcc .setcounter lda #0 .setcounter sta exal_rotzofscounter,y phx tax lda.l rotzofsdat,x plx sta.w exal_rotzoffset,y .norotz ;---------------------------------------------------- lda exal_worldyofscounter,y inc a cmp #wyod_end-worldyofsdat bcc .setcounter2 lda #0 .setcounter2 sta exal_worldyofscounter,y phx tax a16 lda.l worldyofsdat,x sexa clc adc exal_worldyoffset,y sta exal_worldyoffset,y a8 plx PULLXYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ rotzofsdat db 0 db 1 db 2,2 db 3,3 db 4,4,4,4 db 3,3 db 2,2 db 1 db 0 db -1 db -2,-2 db -3,-3 db -4,-4,-4,-4 db -3,-3 db -2,-2 db -1 rzod_end worldyofsdat db 1 db 0 db 1 db 0 db 0 db 1 db 0 db 0 db 0 db 0 db -1 db 0 db 0 db -1 db 0 db -1 db -1 db 0 db -1 db 0 db 0 db -1 db 0 db 0 db 0 db 0 db 1 db 0 db 0 db 1 db 0 db 1 wyod_end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ tp_boostinc ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ s_start_strat PUSHYP a8i16 toheap y,x ;---------------------------------------------------------------------------------------- IFEQ 1 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ; heat up (burnning) s_jmp_alvarAND B,y,exal_dmgeffect,#exal_dmgeffect_burnning_ALL,.burnheat s_jmp_alvarAND B,y,exal_robostatus2,#exal_robostatus2_inmagma,.burnheat sp_jmpnot_playertype x,ROBOT,.bh1 pl_jmpnot_ASHIinpool x,.bh1,magma s_or_alvar B,y,exal_robostatus2,#exal_robostatus2_inmagma wm_boostheatup x,#3,y bra .bh0 .burnheat pl_jmp_iftransform x,.noburn sp_jmpnot_playertype x,ROBOT,.bh1 pl_jmp_ifonthe x,magma,.bh0,y .bh1 s_and_alvar B,y,exal_robostatus2,#exal_robostatus2_inmagma^-1 bra .noburn .bh0 jsr .addmeter2 .noburn ;---------------------------------------------------------------------------------------- ; heat up lda exal_boostheatup,y ; over heat no toki kono parameter wa clear suru. beq .noheatup dec a sta exal_boostheatup,y lda exal_boost,y inc a inc a and #exal_boost_mask cmp #boostmetermax+1 rlbcc .stahu lda #boostmetermax .stahu ora #exal_boost_boost!exal_boost_pm sta exal_boost,y lda #0ffH sta exal_boostbuf,y .noheatup ;---------------------------------------------------------------------------------------- .overheat s_jmpnot_alvarAND B,Y,exal_control,#exal_control_overheat,.nooverheat ;******TESTING******************************** pl_jmpnot_KAOinpool x,.notinpool lda gameframe bit #1 bne .oh4 .notinpool ;********************************************* ; clear heatup s_set_alvar B,y,exal_boostheatup,#0 lda gameframe bit #15 bne .oh1 pl_jmp_iftransform x,.oh4 s_set_var2rnd z1,#31 s_set_alvar B,y,exal_rotzhit,z1 c_shock_cam x,#80H,y .oh4 jsl makeoverheat_srou_l .oh1 lda exal_boost,y and #%111111 bne .oh0 ;******TESTING******************************** ; sp_trans_lockoff x,y * ;********************************************* s_and_alvar B,Y,exal_control,#exal_control_overheat^-1 s_and_alvar B,Y,exal_boost,#exal_boost_boost^-1 .oh0 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC lda exal_control,y bit #exal_control_boost!exal_control_brake!exal_control_overheat bne .nodec ;******TESTING******************************** pl_jmp_KAOinpool x,.decpros ;******TESTING******************************** s_jmp_ABSalvarMORE B,y,exal_rollingoffset,#10H,.decpros ;********************************************* .nodec IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> s_jmp_alvarAND B,y,exal_dmgeffect,#exal_dmgeffect_burnning_ALL,.incmeter pl_jmp_ASHIinpool x,.incmeter,magma pl_get_pilottab B,x,x1,boostrecover_tab s_add_alvar B,y,exal_boostbuf,x1 rlbcc .set_vars jmp .decpros .nooverheat ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;----------------------------------------------------------------------------------------------- sp_jmpnot_playertype x,ROBOT,.AW,y .RB ;******TESTING******************************** ;BO pl_jmp_KAOinpool x,.decpros ;******TESTING******************************** ;BO s_jmp_ABSalvarMORE B,y,exal_rollingoffset,#1,.decpros ;********************************************* .AW ;------------------------------------------------------------------- lda exal_boost,y bit #exal_boost_boost rlbeq .set_vars bit #exal_boost_pm rlbeq .decmeter ;------------------------------------------------------------------- .incmeter jsr .addmeter rlbcc .set_vars ;---------------- ; over heat pros s_jmp_alvarAND B,Y,exal_control,#exal_control_overheat,.set_vars ;******TESTING********************************* ; sp_jmp_playerctl x,CS_ARWING,.tUFO,y ;.tRB sp_trans_do x,ROBOT,y ;* ; bra .lock ;.tUFO sp_trans_do x,ARMER,y ;* ;.lock sp_trans_lock x,y ;* ;********************************************** ; jsl tp_alarmoff_srou_l s_or_alvar B,Y,exal_control,#exal_control_overheat ; s_and_alvar B,Y,exal_boost,#exal_boost_pm^-1 s_and_alvar B,Y,exal_control,#(exal_control_boost!exal_control_brake)^-1 c_shock_cam x,#80H,y jsl makeoverheat_srou_l .exitoh jmp .set_vars ;------------------------------------------------------------------- .decmeter ;******TESTING******************************** ; s_jmp_ABSalvarMORE B,y,exal_rollingoffset,#10H,.decpros ;********************************************* sm_jmp_if1screen .miscool .batcool pl_get_pilottab B,x,x1,boostcooldownbattle_tab bra .cool .miscool pl_get_pilottab B,x,x1,boostcooldown_tab .cool s_add_alvar B,y,exal_boostbuf,x1 rlbcc .set_vars .decpros lda exal_boost,y and #%111111 dec a bpl .setmeter lda #0 sta tpx s_and_alvar B,Y,exal_boost,#exal_boost_boost^-1 s_and_alvar B,Y,exal_control,#(exal_control_boost!exal_control_brake!exal_control_brakeTurn!exal_control_overheat)^-1 bra .setmeter2 .setmeter sta tpx .setmeter2 lda exal_boost,y and #%11000000 ora tpx sta.w exal_boost,y ;------------------------------------------------------------------- .set_vars ;------------------------------------------------------------------- PULLYP rts .addmeter SHORTA LONGI sm_jmp_if1screen .misfever .batfever pl_get_pilottab B,x,x1,boostfever_tab bra .fever .misfever pl_get_pilottab B,x,x1,boostfever_tab .fever s_add_alvar B,y,exal_boostbuf,x1 rlbcc .incmeterend lda exal_boost,y and #%111111 inc a cmp #boostmetermax+1 rlbcc .incmeterset lda exal_boost,y and #%11000000 ora #boostmetermax sta exal_boost,y ; over sec rts .incmeterset sta tpx lda exal_boost,y and #%11000000 ora tpx sta exal_boost,y .incmeterend clc rts .addmeter2 SHORTA LONGI s_or_alvar B,y,exal_boost,#exal_boost_boost!exal_boost_pm pl_get_pilottab B,x,x1,boostfever_tab s_add_alvar B,y,exal_boostbuf,x1 rlbcc .addmeter2end s_set_alvar B,y,exal_boostbuf,#0ffH .addmeter2end rts boostfever_tab pilottab B,boostfever_ boostcooldown_tab pilottab B,boostcooldown_ boostfeverbattle_tab pilottab B,boostfeverbattle_ boostcooldownbattle_tab pilottab B,boostcooldownbattle_ ;boostrecover_tab ; ; pilottab B,boostrecover_ heatup_tab ;using at weapons.asm pilottab B,heatup_ ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; player hit slope ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ AWexptime equ 50 AWflashtime0 equ AWexptime-10 AWflashtime1 equ AWexptime-4 expdemoend equ 60 ; SHORTA LONGI playerexplode_istrat ;al_pword1 demo time counter s_start_strat a8i16 pl_Sboost x,off ;--------------------------------------------------------------------------------------------------------------- ; make explosion obj s_make_childobjrotpos #nullshape,0,#0,#0,#0,#0,#0,#0,path_istrat cpy #0 beq .exp0 s_set_alptrs y,path_istrat,hit_istrat,explode_istrat s_set_path y,p_explode_s_rnd31 s_set_aldata y,#1,#1 s_set_lifecnt y,#awexptime .exp0 ;--------------------------------------------------------------------------------------------------------------- toheap y,x ;--------------------------------------------------------------------------------------------------------------- s_jmp_alsflag x,player2,.p2ram .p1ram s_or_var B,p1_status,#p1_status_HP0 bra .ppram .p2ram s_or_var B,p2_status,#p2_status_HP0 .ppram ;--------------------------------------------------------------------------------------------------------------- ; jsl tp_alarmoff_srou_l ;--------------------------------------------------------------------------------------------------------------- ct_set_chartptr x,playerdead ;--------------------------------------------------------------------------------------------------------------- sp_jmpnot_playertype x,ARWING,.RBs0 .AWs0 kplsound x,myshield0 bra .endSE .RBs0 kplsound x,Roboshield0 .endSE ;--------------------------------------------------------------------------------------------------------------- s_clr_alsflag x,insidecockpit ;--------------------------------------------------------------------------------------------------------------- ;calc vecs s_set_alvar B,x,al_vel,#30 s_set_alvar B,x,al_sbyte1,#0 s_gen_3Dvecs x,al_roty,al_sbyte1,al_vel ;--------------------------------------------------------------------------------------------------------------- c_cockpitmode x,off,y pl_coll_damage x pl_set_timer x,#0 s_set_alvar W,x,al_pword1,#0 s_set_expstrat x,.strat pl_jet x,off,y c_view_inbetween x,on c_set_demoviewstrat x,playerdead,y c_do_viewstrat jsl set_inbet_l s_rotpos_allchildren x s_set_alvar W,x,al_depthoffset,#depth_2 s_end_strat ;--------------------------------------------------------------------------------------------------------------- .strat a8i16 toheap y,x jsl timechart_l ;------------------------------------------------------------------------- ; remove child ; heal s_jmp_childdead #childno_heal,.noheal s_push_obj y s_set_objtobechild y,x,#childno_heal s_remove_obj y s_pull_obj y .noheal ;------------------------------------------------------------------------- ; general dynamics sp_jmpnot_playertype x,ROBOT,.nogd a16 lda #0 sta al_mx,x sta al_mz,x sta al_vx,x sta al_vz,x a8 jsl RB_generaldynamics_l pl_jmp_timerMORE x,#awexptime,.nogd .nogd ;------------------------------------------------------------------------- s_achase_alvar B,x,al_rotx,#0,3 ;----------------------------------------------------------------------------- jsl set_hudrot_srou_l pl_SE_engine x pl_SE_trans x pl_inc_timer x c_do_viewstrat jsl set_inbet_l pl_damage_meter arwing_HP,DMETERNUM pl_jmp_timerMORE x,#awexptime,.exit ;----------------------------------------------------------------------------- ;EFFECTS pl_jmp_timerLESS x,#awflashtime0,.explode0 pl_jmp_timerLESS x,#awflashtime1,.skip .flash s_jmp_NOTANDframe #1,.skip s_set_alsflag x,hitflash bra .skip ;SMALL EXPLOTION .explode0 ; s_jmp_NOTANDframe #3,.skip ; s_make_obj #nullshape,.skip ; s_set_alptrs y,path_istrat,hit_istrat,explode_istrat ; s_set_path y,p_explode_s_rnd31 ; s_set_aldata y,#1,#1 .skip ;----------------------------------------------------------------------------- ; set particle s_push_obj y pl_jmp_timerNE x,#awexptime-4,.nopart s_make_obj #c_wing,.nopart cpy #0 beq .nopart s_set_alptrs y,player_particle_istrat,hit_istrat,explode_istrat s_set_aldata y,#1,#1 s_set_alsflag y,colldisable s_copy_pos y,x s_particle_data y,6,60,127 .nopart s_pull_obj y ;----------------------------------------------------------------------------- pl_jmp_timerNE x,#awexptime,.addvec a16 lda #0 sta al_vx,x sta al_vy,x sta al_vz,x a8 ;************ s_push_obj y s_make_obj #explosion5,.pexp0 s_set_alptrs y,path_istrat,hit_istrat,explode_istrat s_set_path y,p_explode_l s_set_aldata y,#10,#10 s_copy_pos y,x .pexp0 s_pull_obj y ;************* kplsound x,shipdown ; sound jsr .remove_arm .setnull s_set_alvar W,x,al_shape,#nullshape .addvec sp_jmp_playertype x,ROBOT,.RB sp_jmp_playertype x,UFO,.RB s_add_alvar B,x,al_rotz,#5 s_add_vecs2pos x bra .exit .RB .exit ;----------------------------------------------------------------------------------------------- ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³end sequence?³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ pl_jmp_timerLESS x,#expdemoend,.notfinish sm_jmp_if2screen .resetplayer ; test_screenmode onescreen ; beq .resetplayer s_jmpnot_alsflag x,player2,.p1rest .p2rest lda kw_playerrest2 bne .resetplayer2 bra .endseq .p1rest lda kw_playerrest1 bne .resetplayer2 .endseq km_setmissionsyori gameover bra .notfinish .resetplayer2 ; pl_resetsequence km_setmissionsyori playerdown .resetplayer pl_ifrestart .restart .notfinish .restart pl_jmp_timerMORE x,#awexptime-1,.nochild s_rotpos_allchildren x .nochild s_end_strat ;------------------------------------------------------------------------------------------------------------------- ; s_set_alvar W,y,kscore+0,#0 ; s_set_alvar B,y,kscore+2,#0 ; ; ; ct_set_chartptr x,off ; ; s_jmp_alsflag x,player2,.p2 ; ;.p1 s_set_strat x,playeragain_istrat ; s_set_alvar B,x,al_HP,#40 ;p1_hp ; bra .finish ;.p2 s_set_strat x,player2again_istrat ; s_set_alvar B,x,al_HP,#40 ;p2_hp ; ; ;.finish ; ; s_end_strat .remove_arm ; remove arm(ARMER) ;ÚÄÄÄÄÄÄÄÄÄ¿ ;³Set rot Y³ ;ÀÄÄÄÄÄÄÄÄÄÙ pl_ldy_viewblk x lda.w al_roty+1,y clc adc #20 nega sta work0 toheap y,x ;ÚÄÄÄÄ¿ ;³legL³ ;ÀÄÄÄÄÙ .reL s_jmp_alvarZERO W,y,exal_jetLobjptr,.noreL phx s_set_objtobealvar x,y,exal_jetLobjptr s_set_strat x,brokenleg_istrat s_set_alvar B,x,al_roty,work0 s_add_alvar B,x,al_roty,#128 s_set_alvar B,x,al_rotx,#-40 s_set_alvar B,x,al_vel,#12 plx .noreL ;ÚÄÄÄÄ¿ ;³legR³ ;ÀÄÄÄÄÙ .reR s_jmp_alvarZERO W,y,exal_jetRobjptr,.noreR phx s_set_objtobealvar x,y,exal_jetRobjptr s_set_strat x,brokenleg_istrat s_set_alvar B,x,al_roty,work0 s_set_alvar B,x,al_rotx,#-60 s_set_alvar B,x,al_vel,#10 plx .noreR rts ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ parameter table ³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ speed_tab pilottab B,speed_aw speedspace_tab pilottab B,speedspace_aw speed_battle_tab pilottab B,speed_battle_aw speedspace_battle_tab pilottab B,speedspace_battle_aw speedmax_tab pilottab B,boostspeed_aw speedmin_tab pilottab B,brakespeed_aw speedlr_tab pilottab B,brakeTspeed_aw speedspacemax_tab pilottab B,boostspeedspace_aw ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; end of file ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ strats_end end