;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ ³ ;³ STARFOX II - REVENGE OF PEPPY - ³ ;³ ³ ;ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ;³ ³ ;³ FILE: TPATHDAT.ASM ³ ;³ AUTHOR: Takumi Kawagoe ³ ;³ DESCRIPTION: Effect,enemy & weapon strategy ³ ;³ DATE CREATED: 16-3-93 ³ ;³ ³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ incpub tpathdat childno_base_t equ 50 childno_base_u equ 51 childno_base_rb equ 52 childno_base_rf equ 53 childno_base_rh equ 54 childno_base_lf equ 55 childno_base_lb equ 56 childno_base_lh equ 57 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; STAR WOLF ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path SWAPdirector p_collisions off p_active on p_copyplayerpos p_copyplayerrots p_zero rotz ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; DUMMY PATH ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path path_dummy p_remove ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; STARFOX ARE GO! ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path logodirector start_path letsgodirector letsgo_opentime equ 40h letsgo_entertime equ 0a7h letsgo_turntime equ 10h ld_warp equ 0a0h ;0b4h p_rtrigger .always,always p_collisions off p_setvar w,player1hscroll_offset,300h ;-200h p_set vz,10 p_setdemo 1 p_setvar w,player1_horizon_offset,SCR2_Hofs-10h p_gosub prou_posrot0 p_Qspawn nullshape,letsgo_cam,1,3 p_Qspawn nullshape,letsgo_base,1,1 p_end .always p_import pword1,player1_horizon p_export player1vscroll,pword1 p_return ;---------------------------------------------------------------------------------- start_path letsgo_base p_trigger letsgo_key,always p_alwaysgenvecs on p_setvel 10 p_spawn 55<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path credits_crusher p_collisions off p_set hp,100 P_INVISIBLE ON P_TRIGGER offcheck,ALWAYS P_WAIT 1 P_INVISIBLE OFF p_setvel 50 p_gosub prou_crusher p_wait 70 p_do 32 p_add childroty,1 p_add roty,childroty p_next .loop p_add roty,childroty p_goto .loop p_end ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; STEPUP for Credits ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path credits_stepup p_collisions off p_set hp,100 P_INVISIBLE ON P_TRIGGER offcheck,ALWAYS P_WAIT 1 P_INVISIBLE OFF p_setvel 50 p_gosub prou_armada_stepup_init p_set shape,stepup_0 p_end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; DRAGON for Credits ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path credits_dragon ; !!don't use PBYTE1 ;;;; p_radarobj ra_enemy P_INVISIBLE ON P_TRIGGER offcheck,ALWAYS P_WAIT 1 P_INVISIBLE OFF p_setvel 50 p_gosub prou_dragon p_set childrotx,20 p_zero pbyte2 p_rtrigger .always,always p_end .always p_chase rotx,childrotx p_inc pbyte2 p_ifnotsame pbyte2,8,.sret1 p_zero pbyte2 p_neg childrotx .sret1 p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; STAR WOLF ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path STARWOLFdirector ;childno_kiran equ 99 P_START65816 KBGM stg2 P_END65816 start_path STARWOLFdirector_demo p_setvar w,player1_horizon_offset,SCR4_Hofs p_import pbyte1,demomode p_ifzero pbyte1,.nodemo0 p_demosetmap ; map start .nodemo0 p_collisions off p_active on p_copyplayerpos p_add worldx,8000h p_add worldy,8000h p_add worldz,8000h p_set rotx,26 p_set roty,deg90 p_zero rotz p_setvel 30 p_spawn 100,10,-3500,0,0,50,nullshape,sw_wolf,1,1,1 p_wait 2 p_set count,95+15+1 p_ifnotzero pbyte1,.do P_BEGINDEMO p_add count,-15 .do p_do count P_START65816 a16 lda player1vscroll_offset bpl .pl stz player1vscroll_offset .pl P_END65816 p_setvar w,player1vscroll_offset,0h p_copypos2view 1,immediate p_campandemoshape 1,1,immediate P_START65816 jsl STARWOLFdirector00_path_l P_END65816 p_next p_ifzero pbyte1,.enddemo p_setvar b,Etrigger,1 p_copyplayerrots p_copyrot2view 1,immediate p_remove .enddemo P_ENDDEMO p_remove ;---------------------------------------------------------------------------------- start_path sw_wolf p_import ap,starwolfNo p_spawn 0,0,60,0,0,0,nullshape,e_nocol_s_off,1,1,1 p_become p_demoshape p_unbecome p_active on p_collisions off p_alwaysgenvecs on p_import pbyte1,demomode p_ifzero pbyte1,.nodemo0 p_wait 15 .nodemo0 ;---- kiran! ---- p_wait 5 p_set shape,kiran P_SOUNDEFFECT wolf_flash p_setanim 0 p_wait 1 p_do 6 p_addanim 1,6 p_next p_set shape,nullshape p_wait 8 p_setvel 120 ;---- wolf ---- p_index shape,sw_wolf,ap p_wait 14h p_accel 15,7 p_ifsame ap,3,.andrew p_ifsame ap,2,.pigma p_ifsame ap,1,.leon .wolf P_MSG 176 p_igoto .endmsg .leon P_MSG 169 p_igoto .endmsg .pigma P_MSG 170 p_igoto .endmsg .andrew P_MSG 171 .endmsg p_rtrigger .always2,always p_wait 10h+8 p_accel 120,1 p_wait 10 p_setvel 80 p_spawn 0,0,-(40<>1 p_setvar w,player1hscroll_offset,100h>>2 p_setdemo pc_cut1 p_collisions off p_gosub prou_posrot0 p_Qspawn nullshape,pc_cam,1,4 p_Qspawn d_sen_2,pc_d_sen,5,127 p_become p_demoshape p_unbecome .cut1 p_ifnotdemo pc_cut1,.cut2 p_goto .cut1 .cut2 p_setvar w,player1hscroll_offset,0h p_set rotx,18h ; p_spawn 3800,1200,-4000,64,0,0,inseki_2s,pc_inseki,10,10,1 ; p_spawn 3800,-200,-4000,64,0,0,inseki_2,pc_inseki,10,10,1 p_spawn 400,-250,-8200,0,0,0,nullshape,pc_warp,1,1,1 p_wait 53h P_SOUNDEFTDISTPOS bs_BossExplode2 p_end ;------------------------------------------------------------------------------ ; start_path pc_inseki ; ; p_shadow off ; p_collisions off ; ; p_set vz,-10 ; ; ; p_do 20 ; p_inc childrotx ; p_inc childroty ; p_inc childrotz ; p_next ; ; p_set clip,plane_BOSS ; p_Qspawn clipshape,pc_clip,1,1 ; ; p_end ; start_path pc_clip ; ; p_collisions off ; ; p_set shape,clipshape ; ; p_add worldz,-200 ; ; p_wait 3 ; ; p_set vz,200 ; ; p_end ; ;------------------------------------------------------------------------------ start_path pc_d_sen p_collisions off p_set depthoffset,4 p_spawn 0,-15<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path es0_gal1 start_path es0_fox p_collisions off p_alwaysgenvecs on p_neg roty p_index pword1,es0_starfox.x,ap p_add worldx,pword1 p_index pword1,es0_starfox.y,ap p_add worldy,pword1 p_index pword1,es0_starfox.z,ap p_add worldz,pword1 p_index pbyte1,es0_starfox.rx,ap p_add rotx,pbyte1 p_index pbyte1,es0_starfox.ry,ap p_add roty,pbyte1 p_index pbyte1,es0_starfox.rz,ap p_add rotz,pbyte1 p_index vel,es0_starfox.vel,ap p_index count,es0_starfox.count,ap p_wait count p_index count,es0_starfox.count1,ap p_do count p_chase rotx,0 p_add roty,2 p_chase rotz,30 p_next p_set childroty,roty p_trigger .always,always p_index count,es0_starfox.count2,ap p_do count p_chase rotz,50 p_next p_index count,es0_starfox.count3,ap p_do count p_chase rotz,0 p_next p_accel 30,2 p_do 10h p_add rotx,-2 p_next p_end .always p_chase roty,childroty p_chase childroty,09eh p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;----------------------------------------------------------------------------------- ; start_path es0_suisei_explode ; p_collisions off ; p_trigger .exp,always ; p_set vy,es0_suisei_vy ; p_end ; ; ;.exp p_add roty,16 ; p_andframegoto 1,.exp2 ; p_randomgoto .exp2 ; p_spawn 0,0,80<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> abd_cut1 equ 2 childno_abd equ 1 childno_abd_arwing equ 10 childno_abd_watch equ 11 ; P_SOUNDEFFECT demo_on p_setvar b,demoflag,demoflag_dustoff p_set worldx,0 p_set worldy,0 p_set worldz,0 P_IMPORT roty,Kinitroty p_Qspawn a_robo,abd_watch,1,1 p_setvar w,Ehight,0 p_setdemo abd_cut1 p_demosetmap p_spawn 0,0,0,0,0,0,nullshape,abd_chair,1,1,childno_abd p_wait 38h p_setvar b,Etrigger,1 p_setvar b,demoflag,0 .wait p_ifnotdemo abd_cut1,.finish p_goto .wait .finish ; P_SOUNDEFFECT demo_off p_wait 4 p_remove start_path abd_chair p_collisions off p_quadvecs on ; p_setvel -50 ; p_accel -100,10 p_setvel -30 p_accel -50,2 ; p_spawn 300,1200,8000,0,0,0,nullshape,abd_carrier,1,1,childno_abd p_spawn 300,800,8000,0,0,0,nullshape,abd_carrier,1,1,childno_abd .wait p_ifnotdemo abd_cut1,.finish p_goto .wait .finish p_wait 4 p_remove ;---------------------------------------------------------------------------------- start_path abd_cam p_collisions off p_rtrigger abd_always,always p_rtrigger .always,always p_copypos2view 1,immediate p_campandemoshape 1,0,immediate p_wait 48h-5 p_do 5 p_add childy,-16 p_add childz,10 p_next p_end .always p_copypos2view 1,immediate p_campandemoshape 1,0 p_return ;---------------------------------------------------------------------------------- start_path abd_cam_carrier p_collisions off p_rtrigger abd_always,always p_rtrigger .always,always ; p_spawn 0,80,-180,0,0,0,nullshape,abd_cam,1,1,childno_abd p_spawn 0,80,-180,0,0,0,nullshape,abd_cam,1,1,childno_abd p_wait 40h p_trigger .always,off p_do 100 p_chase childroty,0 p_next p_end .always ; P_START65816 ; lda Kinitroty ; clc ; adc #deg180 ; sec ; sbc p1_roty_init ; sta al_childroty,x ; P_END65816 p_findshape ship_0 p_faceshape immediate P_START65816 ldy al_childrotobj,x lda al_roty,x sec sbc.w al_roty,y sta al_childroty,x P_END65816 p_return ;---------------------------------------------------------------------------------- start_path abd_carrier p_collisions off p_rtrigger abd_always,always p_rtrigger .always,always P_START65816 lda p1_roty_init sec sbc Kinitroty sta al_childroty,x P_END65816 ; p_spawn 0,0,150,0,0,0,nullshape,abd_cam_carrier,1,1,childno_abd ; p_spawn 0,0,0,0,0,0,nullshape,abd_arwing,1,1,childno_abd p_spawn 0,0,0,0,0,0,nullshape,abd_arwing,1,1,childno_abd p_end .always p_return ;---------------------------------------------------------------------------------- start_path abd_arwing p_rtrigger abd_always,always p_rtrigger .always,always p_export player1_vz,vz p_demoshape p_spawn 0,0,0,0,0,0,nullshape,abd_cam_carrier,1,1,childno_abd p_collisions off p_playershape p_end .always p_setvel 40 p_export player1_vx,vx p_export player1_vy,vy p_export player1_vz,vz p_set vx,0 p_set vy,0 p_set vz,0 p_copyrot2player p_copypos2player p_return ;---------------------------------------------------------------------------------- start_path abd_watch p_rtrigger abd_always,always p_collisions off ; p_demoshape ; p_set shape,a_robo p_set shape,ship_0 p_invisible on p_setvel junko_speed ; p_add worldx,vx ; p_add worldy,vy ; p_add worldz,vz ; p_add worldx,vx ; p_add worldy,vy ; p_add worldz,vz p_end ;---------------------------------------------------------------------------------- abd_always p_ifnotdemo abd_cut1,demoobj_remove_force p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; START CHIKA ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path start_chikadirector childno_sc equ 1 sc_cut1 equ 2 sc_wait equ 8 p_import pword1,KGameMapPtr p_ifsame pword1,stg_stg2,.notrans p_forcetransform ROBOT .notrans ;----------------------------------------------------------------------------------- start_path start_d_sendirector p_setvar w,player1_horizon_offset,SCR6_Hofs P_SOUNDPLACE ROOM P_START65816 KM_PUSHSNDPLACE P_END65816 p_trigger sc_always,always p_gosub prou_copyplayerinitpos p_set worldy,0 p_setdemo sc_cut1 p_collisions off p_spawn 0,-100,159,0,0,0,nullshape,sc_cam,1,1,childno_sc p_spawn 0,-120,-200,0,0,0,nullshape,sc_arwing,1,1,childno_sc p_spawn 0,-50< pword1 p_gosub prou_rbotyofstab p_collisions off p_invisible on p_wait sk_waittime p_spawn 30,0,0,20,0,0,nullshape,sk_ashi_r,1,1,childno_sk p_spawn -30,0,0,20,0,0,nullshape,sk_ashi_l,1,1,childno_sk p_setvel 15 p_set vy,-52 p_do 3 p_add vy,4 p_next p_Qspawn splash,sk_splash,1,1 p_invisible off p_do 16 p_add vy,4 p_next p_set clip,plane_off p_wait sk_jmptime-19 p_set vy,0 p_set childy,pword1 p_do 10 p_chase vz,0 p_chase vx,0 p_next p_end .always p_push worldy p_set worldy,pword1 p_copypos2player p_copyrot2player p_pull worldy ; p_print worldy,h,kawagoe p_return ;------------ start_path sk_ashi_l P_START65816 jsl ASHI_player_L_path_l P_END65816 p_igoto Psk_ashi_r.enter start_path sk_ashi_r P_START65816 jsl ASHI_player_R_path_l P_END65816 .enter LOCAL p_rtrigger sk_always,always p_set clip,plane_GROUND p_set pbyte1,80 p_rtrigger .always,always p_setanim 12 p_invisible on p_wait 3 p_invisible off p_wait sk_jmptime-3-2-4 p_set pbyte1,0 p_set clip,plane_off p_wait 4+2 p_Qspawn smoke,sk_smoke,1,1 p_setanim 11 p_set childrotx,0 p_wait 2 p_setanim 0 p_end .always p_chase childrotx,pbyte1 p_return ;---------------------------------------------------------------------------------- sk_always p_ifnotdemo sk_cut1,demoobj_remove_force p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; GOTO kaitei ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path gotokaiteidirector childno_gk equ 5 gk_time0 equ 30h gk_cut1 equ 2 p_set pbyte1,0 p_copyplayerpos p_copyplayerrots p_import worldx,corex p_import worldz,corez p_set worldy,0 p_import roty,coreroty p_set rotx,0 p_set rotz,0 .wait p_distmore 2000,.cnt p_playerincone 8,.make .cnt p_goto .wait .make p_setdemo gc_cut1 ; p_spawn 0,0,0,0,0,0,nullshape,gk_rb_carrier,1,1,childno_gk p_end .always p_inc pbyte1 ; p_print pbyte1,h,kawagoe p_return ;----------------------------------------------------------------------------- start_path gk_rb_carrier p_collisions off p_set shape,c_wing P_START65816 jsl rotateplrpos2childpos_l lda al_childroty,x clc adc #40h bmi .c180 P_END65816 p_set pbyte1,0 p_spawn 0,0,0,0,0,0,nullshape,gc_arwing0,1,1,childno_gc p_igoto .skip .c180 P_END65816 p_set pbyte1,deg180 p_spawn 0,0,0,0,0,0,nullshape,gc_arwing180,1,1,childno_gc .skip p_spawn 80,-200,200,0,0,0,nullshape,gk_cam,1,1,childno_gc p_rtrigger .always,always p_wait 20 p_trigger .always,off p_rtrigger .always2,always p_end .always2 p_chase childx,0 .always p_chase childroty,pbyte1 p_return ;----------------------------------------------------------------------------- start_path gk_cam p_collisions off p_wait 1 p_campandemoshape 1,1,immediate p_copypos2view 1,immediate p_rtrigger .always,always p_end .always p_campandemoshape 1,1,immediate p_copypos2view 1,immediate p_return ;---------------------------------------------------------------------------------- start_path gk_robo p_demoshape p_gosub prou_playershape_rb p_spawn 30,0,0,50,0,0,nullshape,kaitei_ashi_r,1,1,childno_kaitei p_spawn -30,0,0,50,0,0,nullshape,kaitei_ashi_l,1,1,childno_kaitei p_alwaysgenvecs on p_collisions off p_rtrigger .bubble,always p_rtrigger .always,always p_do 30 p_add childy,150/30 p_next p_do 3bh-30 p_chase childx,0 p_next p_invisible on .cut1 p_ifsamedemo kaitei_cut2,.cut2 p_goto .cut1 .cut2 p_invisible off p_set childx,0 p_set childy,-35<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path gc_aw_carrier p_trigger gotochika_always,always p_collisions off p_set shape,c_wing P_START65816 jsl rotateplrpos2childpos_l lda al_childroty,x clc adc #40h bpl .c180 P_END65816 ;;;;P_PLRFORCEWAY deg90,100,4000 p_end ; p_set pbyte1,deg180 ; p_spawn 0,0,0,0,0,0,nullshape,gc_arwing0,1,1,childno_gc ; p_spawn 80,-120,200+200,0,0,0,nullshape,gc_cam,1,1,childno_gc ; p_igoto .skip .c180 P_END65816 p_set pbyte1,0 p_spawn 0,0,0,0,0,0,nullshape,gc_arwing180,1,1,childno_gc p_spawn 80,-200,-200,0,0,0,nullshape,gc_cam,1,1,childno_gc .skip p_playershape p_trigger .always,always p_wait 20 p_trigger .always,off p_trigger .always2,always p_end .always2 p_chase childx,0 .always p_chase childroty,pbyte1 p_chase childx,0 p_return ;----------------------------------------------------------------------------- start_path gc_arwing180 p_trigger gotochika_always,always p_alwaysgenvecs on p_demoshape p_collisions off p_set pbyte1,0 p_trigger .always,always p_playershape p_setvel 45 p_wait 18 p_do 2fh-18 p_chase pbyte1,-6 p_chase childrotx,-20 p_chase childrotz,-40 p_next p_do 48h-2fh p_chase pbyte1,2 p_chase childrotx,25 p_chase childrotz,8 p_next p_trigger .always,off p_trigger .always2,always p_end .always p_add childroty,pbyte1 ; p_print childx,h,kawagoe ; p_print childroty,h,kawagoe p_return .always2 LOCAL p_chase childx,0 p_chase childy,-70 p_chase childroty,deg180 p_chase childrotx,0 p_copypos2player p_return ;----------------------------------------------------------------------------- start_path gc_arwing0 p_trigger gotochika_always,always p_alwaysgenvecs on p_demoshape p_collisions off p_trigger .always,always p_playershape p_setvel 30 p_end .always LOCAL p_chase childx,0 p_chase childroty,0 p_copypos2player p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC IFEQ 1 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< p_alwaysgenvecs on p_demoshape p_collisions off p_setvel 30 p_gosub prou_player1shape_aw p_wait 5 p_trigger .always,always p_wait 16 p_trigger .always,off p_set childrotx,-64 p_do 8 p_add childroty,-128/8 p_next p_do 32 p_add childrotx,-4 p_next p_accel 50,1 p_do 16 p_add childrotx,-4 p_next p_end .always p_add childrotx,-4 p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;----------------------------------------------------------------------------- start_path gc_cam ; P_START65816 ; ldy al_ptr,x ; s_jmp_distmore x,y,#1000,.skip ; ; s_or_var B,demoflag,#demoflag_nextmap_start ; ; P_END65816 ; p_end ; ; ; ;.skip P_END65816 p_trigger gotochika_always,always p_collisions off p_wait 1 p_copypos2view 1 ;,immediate p_campandemoshape 1,1,immediate p_trigger .always,always p_end .always p_copypos2view 1 ;,immediate p_campandemoshape 1,1,immediate p_return ;---------------------------------------------------------------------------------- gotochika_always p_ifsamedemo gc_cut1,.ret p_igoto demoobj_remove_force .ret p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; CHIKA DEMO ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path chikadirector childno_chika equ 1 chika_cut1 equ 2 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> p_setdemo chika_cut1 p_trigger chika_always,always p_set shape,chika_k1 p_collisions off p_set roty,deg180 p_spawn 50,-200,800,0,deg180,0,nullshape,chika_cam,1,1,childno_chika p_spawn 0,-80,1550,0,deg180,0,nullshape,chika_arwing,1,1,childno_chika p_end ;---------------------------------------------------------------------------------- start_path chika_arwing p_demoshape p_playershape p_collisions off p_trigger .always,always p_alwaysgenvecs on p_setvel 30 p_set pbyte1,0 p_set pbyte2,0 p_end .always p_return ;---------------------------------------------------------------------------------- start_path chika_cam p_collisions off p_copypos2view 1,immediate p_trigger chika_always,always p_trigger .always,always p_set vy,170/1bh p_wait 1bh p_set vy,0 p_wait 10 p_accel 50,2 p_do 30h-1bh-10 p_chase childx,0 p_next p_do 0eh p_chase childy,-70 p_chase childx,0 p_next p_set vz,0 p_accel 0,0 p_end .always p_copypos2view 1,immediate p_campandemoshape 1,0,immediate p_chase pword1,0 p_add childy,pword1 p_return ;---------------------------------------------------------------------------------- chika_always p_ifnotdemo chika_cut1,demoobj_remove_force p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; D_SEN DEMO ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ d_sen_camx1 equ -1980 d_sen_camy1 equ -2965 d_sen_camz1 equ -5210 d_sen_camvz equ 100 d_sen_cut1 equ 2 start_path d_sendirector childno_d_sen equ 1 childno_d_sen_arwing equ 2 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> p_setvar w,p1_camrotzbuf,0 p_setvar w,player1_horizon_offset,SCR4_Hofs p_spawn 0,0,0,0,0,0,d_sen_2,d_sen,1,1,childno_d_sen p_spawn 0,0,(120+25)<>1) ; p_igoto Parmada_stepup.enter ; ;--------------------------------------------------------------------------------------- start_path armada_d_sen .nodemo LOCAL p_gosub prou_d_sen2 p_sound p2_d_sen_ss start_path armada_d_sen_ss p_set depthoffset,3 p_set pbyte1,hp p_dec pbyte1 p_index worldx,armada_d_sen.x,pbyte1 p_index worldy,armada_d_sen.y,pbyte1 p_index worldz,armada_d_sen.z,pbyte1 p_index vz,armada_d_sen.vz,pbyte1 p_index vy,armada_d_sen.vy,pbyte1 p_zero rotx p_zero roty p_zero rotz p_ifsame HP,5,.ds p_ifnotsame HP,1,.nw .ds p_Qspawn nullshape,armada_watch,1,1 .nw p_collisions off p_set count,AP p_do count p_next p_Qspawn nullshape,armada_warp,15,1 p_wait 1 p_quadvecs on p_setvel 100 p_set vy,-20 P_SOUNDEFFECT en_dash_demo ;GAKKI p_wait 15 p_set shape,nullshape P_CIRCLEWINDOW 8,warp p_wait 4 p_setvel 0 p_remove childno_a_d_sen p_remove .end p_end start_path armada_d_sen_parts p_collisions off p_set depthoffset,3 p_end start_path armada_ninja_warp p_zero roty p_zero rotx p_index pword1,armada_ninja_warp.nwx,ap p_add worldx,pword1 p_index pword1,armada_ninja_warp.nwy,ap p_add worldy,pword1 p_set vz,200<<2 p_igoto Parmada_warp.enter start_path armada_warp_dragon p_set vz,200<<2 p_igoto Parmada_warp.enter start_path armada_warp p_set vz,100<<2 .enter LOCAL p_set shape,warpl p_set vy,-20 p_collisions off p_add worldz,-130<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .enter LOCAL p_set roty,-40h p_collisions off p_groundobj on p_set depthoffset,3 p_spawn 0,-50<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path logodirector p_gosub prou_posrot0 p_spawn 0,0,0,0,0,0,nullshape,logocam,1,1,childno_logo_cam p_Qspawn nullshape,logo_base,1,1 p_alwaysgenvecs on p_setvel 10 p_do 80h p_import pbyte1,tiw_sprmode p_ifnotsame pbyte1,2,.cansel p_ifnotsame pbyte1,1,.nobreak .cansel p_set roty,-40h p_igoto .next .nobreak p_andframegoto 1,.addy p_igoto .next .addy p_add roty,-1 .next p_next p_end ;-------------------------------------------------------------------------------- start_path logocam p_collisions off p_set pword1,0 p_rtrigger .always,always p_do 80h P_START65816 ldy #viewblk1 a16 lda tiw_sprmode and #0ffh cmp #1 bpl .pushed lda.w al_roty,y clc adc #80h sta.w al_roty,y bra .next .pushed lda #4000h+8000h sta.w al_roty,y ; lda #(512+256+128+128)>>1 lda #(512+256+128+128)>>2 sta player1hscroll_offset a8 P_END65816 P_becomemother p_setvel -10 p_unbecome p_next p_end .next a8 P_END65816 p_next p_end .always p_copypos2view 1,immediate p_return ;-------------------------------------------------------------------------------- start_path logo_base p_add worldz,-1000 p_add worldy,-100 p_add worldx,1800 p_add rotx,0 p_add roty,deg180-4-deg90 p_add rotz,-10 p_set vz,10 p_rtrigger .always,always p_collisions off p_gosub prou_makebase p_wait logo_turnwait_time-8 p_do 61 p_chase rotz,10 p_add roty,2 p_next p_quadvecs on p_setvel 120 p_add vx,vx p_add vy,vy p_add vz,vz p_add vx,vx p_add vy,vy p_add vz,vz p_gosub .warp ; P_SOUNDEFFECT en_dash_demo ; p_spawn 0,-(90-40)<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> p_demoshape p_collisions off p_setdemo 1 P_START65816 ldy playpt1 toheap y,y lda exal_rotyoffset+1,y nega sta al_childroty,x P_END65816 p_set pword1,worldy p_wait 1 p_rtrigger .always,always p_spawn 0,0,0,0,0,0,nullshape,clrrbofcam_carrier,1,1,childno_clrdemo1 p_spawn 50<<1,-50h<<1,-40h<<2,20h,0,0,nullshape,clrrbofarwing,1,1,childno_clrdemo1 p_wait 2dh-5 ; p_spawn 0,0,0,0,0,0,c_wing,e_nocol_s_off,1,1,childno_clrdemo1 ; p_spawn 0,0,0,0,0,0,c_wing,clrrbof_watch,1,1,childno_clrdemo1 ;.loop P_START65816 ; ldy pathplayer&WM ; s_copy_alvar2alvar W,x,al_worldx,y,al_worldx ; s_copy_alvar2alvar W,x,al_worldz,y,al_worldz ; P_END65816 ; ; p_chase childroty,0 ; ; p_goto .loop p_end .always P_START65816 ldy pathplayer&WM s_copy_alvar2alvar W,x,al_worldx,y,al_worldx s_copy_alvar2alvar W,x,al_worldz,y,al_worldz P_END65816 p_chase childroty,0 p_return ;---------------------------------------------------------------------------------- start_path clrrbofcam_carrier p_collisions off p_set pword1,worldy p_wait 1 p_spawn 0,0,-125,0,0,0,nullshape,clrrbofcam,1,1,childno_clrdemo1 p_rtrigger prou_faceclrdemoshape,always p_end ;---------------------------------------------------------------------------------- start_path clrrbofarwing P_SOUND p2_demo_arwing ;GAKKI P_GOSUB set_friend_shape ; p_gosub prou_friendshape_aw p_rtrigger .always,always p_alwaysgenvecs on p_setvel 20h p_collisions off p_set pword1,worldy p_do 10h p_chase vel,0 p_chase childrotx,0 p_add childy,vy p_next p_do 10h p_chase childx,0 p_chase childrotx,0 p_chase childrotz,50 p_next p_do 5 p_chase childx,0 p_chase childz,0 p_chase childrotz,-20 p_next p_spawn 0,-30,0,0,0,0,a_wing_1,clrrbofrb,1,1,childno_clrdemo1 p_do 4 p_chase childx,0 p_chase childy,40 p_next p_do 4 p_chase childx,0 p_chase childy,0 p_next p_spawn 0,0,-20,0,0,0,boost,demoboost,1,1,childno_clrdemo1 p_demoshape p_do 45 p_chase childrotz,0 p_add childrotx,-1 ; p_add childroty,-1 p_accel 80,5 p_next ; p_do 40 ; p_accel 80,5 ; p_add childrotx,-1 ; p_add childroty,-1 ; p_next p_end .always P_START65816 ldy pathplayer&WM lda.w al_roty,y ldy al_childrotobj,x sec sbc.w al_roty,y sta al_childroty,x P_END65816 p_chase childz,-50 p_return ;---------------------------------------------------------------------------------- start_path clrrbof_watch p_collisions off ; p_demoshape p_accel 50,5 p_end ;---------------------------------------------------------------------------------- start_path clrrbofcam p_collisions off p_wait 1 p_rtrigger .always,always p_end .always p_copypos2view 1,immediate p_campandemoshape 1,1 p_return ;---------------------------------------------------------------------------------- start_path clrrbofrb p_collisions off p_import pbyte1,p1_pilotNo p_index shape,wingman_RB_shape,pbyte1 p_index coltab,wingman_RB_col,pbyte1 .loop p_setanim 1 p_goto .loop ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC prou_ramdomexpsound p_randomgoto .SE p_randomgoto .SE2 .SE1 P_SOUNDEFTDISTPOS en_explode_s p_return .SE2 P_SOUNDEFTDISTPOS en_explode_demo .SE p_return ;---------------------------------------------------------------------------------- prou_friendNo_shape P_START65816 jsl friendNo_shape_srou_l P_END65816 p_return ;---------------------------------------------------------------------------------- prou_armada_stepup_init p_export gbyte1,hp P_SPAWN 280,0,0,0,0,0,stepup_1,armada_stepup_arm,100,2,childno_dragon_body p_become p_import count,gbyte1 p_unbecome P_SPAWN -280,0,0,0,0,0,stepup_1,armada_stepup_arm,100,2,childno_dragon_body p_become p_import count,gbyte1 p_unbecome p_return ;---------------------------------------------------------------------------------- ;prou_facegotodemoshape ; kichi,d_sen ni totsunyu- suru tsunagi de tsu kau. ; ; P_START65816 ; ldy dummyobj ; a16 ; lda corex ; sta.w al_worldx,y ; lda #0 ; sta.w al_worldy,y ; lda corez ; sta.w al_worldz,y ; tya ; sta al_pword1,x ; a8 ; s_jmp_distless x,y,#800,.notface ; P_END65816 ; ; p_swapvar pword1,ptr ; ; p_push roty ; p_faceshape immediate ; p_set childroty,roty ; p_pull roty ; ; P_START65816 ; lda al_childroty,x ; sec ; sbc al_roty,x ; asra ; sta tpz ; s_achase_alvar B,x,al_rotz,tpz,3 ; P_END65816 ; ; p_chase roty,childroty ; ; p_swapvar pword1,ptr ; p_return ; ; ;.notface P_END65816 ; p_return ; ;prou_faceclrdemoshape ; ; P_START65816 ; ldy dummyobj ; a16 ; lda clrdemoshape_x ; sta.w al_worldx,y ; lda clrdemoshape_y ; sta.w al_worldy,y ; lda clrdemoshape_z ;.enter LOCAL ; sta.w al_worldz,y ; tya ; sta al_pword1,x ; a8 ; P_END65816 ; ; ; p_push roty ; ; p_swapvar pword1,ptr ; ; p_faceshape immediate ; ; p_player 1 ; P_START65816 ; ldy pathplayer&WM ; lda al_roty,x ; sec ; sbc.w al_roty,y ; sta tpy ; s_achase_alvar B,x,al_childroty,tpy,3 ; ; lda tpy ; asra ; sta tpz ; ; s_achase_alvar B,x,al_childrotz,tpz,3 ; ; P_END65816 ; ; p_pull roty ; ; ;.notface p_swapvar pword1,ptr ; p_return ; ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; clear demo (space) ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path clrawof p_zero pbyte2 p_collisions off p_playershape p_set childrotz,30h p_rtrigger .always1,always p_alwaysgenvecs on p_do 8 p_accel 25,5 p_add rotx,-1 p_next p_demoshape p_accel 0,0 p_setvel 50 P_SOUNDEFFECT boost p_spawn 0,0,-20,0,0,0,boost,demoboost,100,100,childno_clrdemo1 p_trigger .always1,off p_do 20 p_add rotx,-1 p_chase rotz,0 p_import vx,player1_vx p_add worldx,vx p_import vz,player1_vz p_add worldz,vz p_next .loop p_chase rotz,0 p_import vx,player1_vx p_add worldx,vx p_import vz,player1_vz p_add worldz,vz p_goto .loop p_end .always1 p_add rotz,childrotz p_chase childrotz,0 p_return .rz LOCAL p_index rotz,rotzofsdat,pbyte2 p_inc pbyte2 p_ifnotsame pbyte2,32,.rzrt p_set pbyte2,0 .rzrt p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; DESTRUCTION DIRECTOR ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ DESTRUCTDEMO start_path destructdirector destruct_space equ 1 destruct_ground equ 2 destruct_gameover equ 3 destruct_space_camx equ 0 destruct_space_camy equ 0 destruct_space_camz equ 0 destruct_ground_camx1 equ 0e1h destruct_ground_camy1 equ -1cch ;0fe34h destruct_ground_camz1 equ 0200h ;5c0h destruct_ground_camx2 equ 0e1h destruct_ground_camy2 equ -1cch ;0fe34h destruct_ground_camz2 equ -2dfh ;0fd21h destruct_space_cam_time0 equ 100 destruct_ground_cam_time0 equ 80 destruct_ground_camz_rate equ (destruct_ground_camz1-destruct_ground_camz2)/destruct_ground_cam_time0 childno_destruct equ 1 p_trigger DESTRUCT_REMOVE,always P_SOUNDPLACE space ; boss meter off p_collisions off p_gosub prou_posrot0 ;---------------------------------------------------------------------------- ; space P_SOUNDEFFECT en_tekikan_demo ; GAKKI0 p_setdemo destruct_space p_setbg attackcorneriademo p_setvar w,player1_horizon_offset,SCR4_Hofs+60h-8 p_setvar w,player1hscroll_offset,0 p_Qspawn nullshape,destructcam,1,1 .space0 p_ifnotdemo destruct_space,.ground p_goto .space0 ;---------------------------------------------------------------------------- ; ground .ground P_SOUNDEFFECT stop_tr5 ; GAKKI0 P_SOUNDEFFECT stop ; GAKKI0 p_fadein p_setbg explodecorneriademo p_setvar w,player1_horizon_offset,SCR2_Hofs-10h-10h p_spawn 0,-1000-400,2000,0,0,0,nullshape,destruct_g_look,1,1,3 p_spawn 0,-500,2000,68,-4,0,clipshape,destruct_g_clip,1,1,4 p_spawn 00000,-25<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; *********** attack start_path suisei p_set depthoffset,3 ;depth_large p_gosub suisei_enter_init1 p_set worldx,0 p_set worldy,150 p_set worldz,0 p_spawn 0,-50<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path suisei_freet0 p_gosub prou_makebase p_spawn 0,-50,0,0,0,0,nullshape,suisei_attack_watch,1,1,1 p_gosub suisei_enter_init1 p_set rotx,0 p_set roty,deg180 p_set rotz,0 p_export gbyte1,rotx p_qspawn nullshape,suisei_fighter,1,0 p_become p_gosub prou_othershape p_unbecome p_qspawn nullshape,suisei_fighter2,1,1 p_become p_gosub prou_othershape p_unbecome p_gosub .pos p_gosub .init P_SOUND p2_ship_0 ;*** P_WAIT 49h p_gosub psuisei_freetexplode.lexp P_SOUND port2_stop ;*** p_do 15 p_chase rotz,20 p_add rotx,1 p_next p_spaceship off .loop p_ifnotdemo suisei_attack,.remove ; p_add rotz,5 p_gosub psuisei_freetexplode.freetexplode7_nosnd p_goto .loop .remove p_goto demoobj_remove .pos LOCAL p_set worldx,700 p_set worldy,suisei_attack_camy+100 p_set worldz,suisei_attack_camz+1400 p_return .init LOCAL p_spaceship on ; p_rtrigger suiseiremove,always p_gosub suisei_enter_init0 p_alwaysgenvecs on p_setvel 30 p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;------------EXPLODING BATTLE SHIP start_path suisei_freetexplode IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> p_set worldx,suisei_attack_camx-70 ;-120 p_set worldy,suisei_attack_camy+150 ;+150 p_set worldz,suisei_attack_camz-500+(2*30h) ;-700 .enter LOCAL p_gosub suisei_enter_init0 p_wait 30h .loop p_ifsamedemo suisei_charge,.charge p_gosub .add p_gosub psuisei_freetexplode.freetexplode3 p_goto .loop .charge p_goto .pos2 .pos2 p_set worldx,suisei_charge_camx-400 p_set worldy,-2500 p_set worldz,suisei_charge_camz+200 .loop1 p_ifsamedemo suisei_enter,.remove p_gosub psuisei_freetexplode.freetexplode3 p_gosub .add p_goto .loop1 .remove p_goto demoobj_remove .add p_add rotz,-2 p_add roty,1 p_add rotx,2 p_add worldz,2 p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;------------EXPLOSION .freetexplode7_nosnd LOCAL p_andframegoto 7,.snd p_return .freetexplode3_nosnd LOCAL p_andframegoto 3,.snd p_return .freetexplode3 LOCAL p_andframegoto 3,.exp p_return .freetexplodeL3 LOCAL p_andframegoto 3,.lexp p_return .exp LOCAL P_SOUNDEFTDIRECT en_explode_demo,explode3 LOCAL p_andframegoto 3,.exp p_return .freetexplodeL3 LOCAL p_andframegoto 3,.lexp p_return .exp LOCAL P_SOUNDEFTDIRECT en_explode_demo,midR .snd p_qspawn explosion5,e_demo_expnosound_m,10,1 p_return .lexp LOCAL P_SOUNDEFTDIRECT en_explode_demo,far p_qspawn explosion5,e_demo_expnosound_l,10,1 p_return ;------------EXPLOSION start_path e_demo_expnosound_m p_sprite 0,16 p_igoto pe_demo_expnosound_l.enter start_path e_demo_expnosound_l p_sprite 0,32 .enter LOCAL ; p_igoto pe_worm_smoke.start p_set ap,15 ; size(see e_sp_explosion) p_igoto pe_sp_explosion.same ;start ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;------------BEAM(suisei) IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path suisei_suisei_beam3 p_set pword1,25 p_igoto psuisei_suisei_beam.enter start_path suisei_suisei_beam2 p_set pword1,1 p_igoto psuisei_suisei_beam.enter start_path suisei_suisei_beam p_set pword1,4 .enter LOCAL p_gosub suisei_enter_init1 P_SOUNDEFTDIRECT en_laser_sL,far p_set worldy,-100 p_sprite 0,10 p_do 20 p_add worldz,250 p_add worldy,pword1 p_next p_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;------------LASER (BATTLESHIP) ; start_path suisei_ship_laser ; p_gosub suisei_enter_init1 ; p_setrandom rotx,7 ; p_add rotx,-3 ; p_add worldy,-30 ; p_setvel 127 ; p_do 20 ; p_setanim 3 ; p_next ; p_remove ; ;-------------------------------------------------------------------------- ; charge ;-------------------------------------------------------------------------- ; start_path suisei_arwing_charge ; ; P_SOUND p2_demo_arwing ; ;; p_spawn -50,115,-100,0,0,0,c_wing,suisei_friend1_charge,100,100,2 ; ; p_import pbyte1,player_friend ; p_ifsame pbyte1,-1,.nofriend ; ; p_spawn 50,-100,-200,0,0,0,nullshape,suisei_friend2_charge,100,100,3 ; ;.nofriend p_demoshape ; ; p_set worldx,suisei_charge_camx+100 ; p_set worldy,suisei_charge_camy-600 ; p_set worldz,suisei_charge_camz-500 ; ; p_set pbyte1,0 ; ;.enter LOCAL ; ; p_playershape ; set player shape ; p_gosub suisei_enter_init1 ; ; p_alwaysgenvecs on ; p_setvel 50 ; ; p_set rotx,40 ; p_set roty,0 ; p_set rotz,-40 ; ;.loop p_chase rotz,-40 ; p_ifnotdemo suisei_charge,demoobj_remove ; ; p_ifsame pbyte1,10h,.snd ; p_ifnotsame pbyte1,0ch,.nosnd ;.snd P_SOUNDEFFECT ob_throughobst_l ;.nosnd ; p_inc pbyte1 ; ; p_goto .loop ; ; ;************ ; start_path suisei_friend2_charge ; P_GOSUB set_friend_shape ;; p_gosub prou_friendshape_aw ; ; start_path suisei_friend1_charge ; p_gosub suisei_enter_init0 ; ; p_add childz,-5 ; p_add childy,-2 ; p_add childrotx,-1 ; ; p_end ; ;-------------------------------------------------------------------------- ; enter ;-------------------------------------------------------------------------- start_path suisei_gate p_gosub suisei_enter_init0 p_gosub prou_suisei ; p_spawn 0,-50<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;************ start_path suisei_extra1_charge p_gosub suisei_enter_init0 .loop p_ifsamedemo suisei_enter,demoobj_remove1 p_goto .loop ;************ start_path suisei_extra1_enterdemoshape p_demoshape start_path suisei_extra1_chargeenterinto p_gosub suisei_enter_init0 .loop p_ifsamedemo suisei_final,demoobj_remove1 p_goto .loop start_path suisei_extra1_chargeenter p_gosub suisei_enter_init0 .loop p_ifsamedemo suisei_into,demoobj_remove1 p_goto .loop .remove p_goto demoobj_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ; start_path suisei_enter_obj ; p_gosub suisei_enter_init0 ;.loop p_ifsamedemo suisei_into,demoobj_remove1 ; p_goto .loop ; ;************ start_path suisei_enter_laser1 p_set rotx,30 p_igoto psuisei_enter_laser0.enter start_path suisei_enter_laser0 p_set rotx,37 .enter LOCAL p_ifplrweaplevel 1,.normal .twin p_spawn 50,0,0,0,0,0,elaser2,e_nocol_s_off,10,10,1 p_ifplrweaplevel 2,.normal .twintwin p_set shape,plasma1 p_sprite 0,0 p_becomechild 1 p_add childx,20 p_set shape,plasma1 p_sprite 0,0 p_unbecome P_SOUNDEFFECT twinbmball1 p_igoto .normal2 .normal P_SOUNDEFFECT arwinglaser1 .normal2 p_set roty,30+5 p_set rotz,-30 p_set worldx,suisei_enter_laserx ;20+suisei_enter_camx p_set worldy,suisei_enter_lasery ;-80+suisei_enter_camy p_set worldz,suisei_enter_laserz ;suisei_enter_camz p_gosub suisei_enter_init1 p_setvel 100 p_relative off p_do 30 p_setanim 3 p_next p_remove ;************ start_path suisei_enemy2 p_ifplrweaplevel 3,Psuisei_enemy0.start p_set hp,60 p_igoto Psuisei_enemy0.start start_path suisei_enemy1 P_SOUND p2_zako_0 p_ifplrweaplevel 1,psuisei_enemy0.start p_set hp,17 start_path suisei_enemy0 .start LOCAL p_index worldx,suisei_enemy0.x,ap p_index worldy,suisei_enemy0.y,ap p_index worldz,suisei_enemy0.z,ap p_index rotx,suisei_enemy0.rx,ap p_index roty,suisei_enemy0.ry,ap p_gosub suisei_enter_init1 p_setvel 100 p_alwaysgenvecs on p_set depthoffset,1 p_do 1ch p_dec hp p_chase roty,0a4h p_chase rotx,-36 p_next p_remove ;************ start_path suisei_enter_buoy p_invisible on p_gosub suisei_enter_init1 p_wait 25 p_do 15 p_add childz,10 p_next .loop p_add childz,-30 p_ifsamedemo suisei_into,.into p_goto .loop .into p_set childz,suisei_into_camz+400h p_set childy,50<