;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ ³ ;³ STARFOX II - REVENGE OF PEPPY - ³ ;³ ³ ;ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ;³ ³ ;³ FILE: GPATHDAT.ASM ³ ;³ AUTHOR: Takumi Kawagoe ³ ;³ DESCRIPTION: Demo & Effect for Player ³ ;³ DATE CREATED: 10-4-95 ³ ;³ ³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ incpub gpathdat ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; TEST PATH ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path mr_debug ; p_radarobj ra_enemy ; display radar ; p_collisions off ; ;.loop p_setmarker 1 ; p_goto .loop ; ; p_end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; TEST PATH ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path ninten_r p_collisions off p_set coltab,id_1_c&WM p_wait 25h p_set coltab,id_0_c&WM p_end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; rebound ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path Prebound p_shadow off p_set hp,REBOUNDHP p_set ap,REBOUNDAP p_set count,REBOUNDLIF p_settype laser p_settype friend p_clrtype enemy1 p_setvel 60 p_gosub prou_rel2player1 p_trigger HITREMOVE,WhenHit P_HITFLASH OFF .main LOCAL p_do count p_hitground 0,.remove p_next .remove p_remove ;------------------------------------------------------------------------------------ IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path Preboundbat p_settype laser p_settype friend p_clrtype enemy1 p_setvel 60 p_gosub prou_rel2playerX p_trigger HITREMOVE,WhenHit .main LOCAL p_do count p_hitground 0,.remove P_START65816 s_set_objtobealvar y,x,al_ptr toheap y,y lda exal_SPweaponstatus,y and #exal_SPweaponstatus_rebound beq .sfoff .sfon s_jmp_alsflag x,sflag1,.alive bra .kill .sfoff s_jmpnot_alsflag x,sflag1,.alive .kill s_set_alvar B,x,al_pbyte1,#255 .alive P_END65816 p_ifsame pbyte1,255,.remove p_next .remove p_collisions off p_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Friend's weapon ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IFEQ 1 start_path Flaser p_shadow off p_set count,Pplasma1LIF p_settype laser p_settype friend p_clrtype enemy1 p_invincible on p_set shape,beam_0 p_set ap,FlaserAP p_set hp,FlaserHP p_setvel FlaserVEL p_set count,FlaserLIF p_add roty,deg180 p_trigger HITREMOVE,WhenHit p_import pbyte1,planet_mode P_DO count p_ifsame animframe,128,.exitanim p_addanim -1,3 .exitanim P_HITSLOPE .remove P_IFSAME pbyte1,pm_space,.cnt P_HITGROUND 0,.remove .cnt P_NEXT .remove P_REMOVE ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; SPECIAL WEAPON ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path Pmissile P_SOUNDEFTDISTPOS bomshoot p_settype friend p_clrtype enemy1 p_set shape,miss_4 p_setvel 0 p_do 10 p_copyplayerpos p_chase childy,50 p_add worldy,childy p_next p_spawn 0,0,-50,0,0,0,boost,missileboost,1,1,100 p_alwaysgenvecs on p_do 100 p_accel 80,5 p_add worldx,childx p_add worldz,childz p_andframegoto 1,.next p_chase childx,0 p_chase childz,0 .next p_next p_set hp,0 ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< p_remove ENDC ;---------------------------------------------------------------------------------- IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path arwingdummy ; al_pword1 : life counter P_SOUNDEFTDISTPOS bomshoot p_settype laser p_settype friend p_clrtype enemy1 p_alwaysgenvecs on p_add vel,30 p_add worldy,-2 p_do 13 p_setanim 0 p_accel dummyVEL,2 p_chase rotx,0 p_next p_do 7 p_addanim 1,8 p_chase rotx,0 p_next .hitck P_START65816 jsl chk_spweappnt_srou_l jsl setenemymark_srou_l stx dummyptr P_END65816 p_ifnotsame pword1,300,.cnt .kill p_set HP,0 .cnt p_inc pword1 p_goto .hitck p_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;---------------------------------------------------------------------------------- IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path robotdummy ; pbyte1 : special weapon pointer ; pword1 : special weapon pointer ; childx : life counter P_SOUNDEFTDISTPOS bomshoot p_settype laser p_settype friend p_clrtype enemy1 P_START65816 s_clr_alcollflag x,WEAPON P_END65816 p_slope on p_alwaysgenvecs on p_set vel,30 p_add worldy,-2 p_set rotx,-3cH p_do 13 p_setanim 0 p_accel 8,2 p_chase rotx,0 p_next p_do 7 p_addanim 1,8 p_chase rotx,0 p_next p_alwaysgenvecs off p_set vx,0 p_set vy,2 p_set vz,0 .hitck P_START65816 stx dummyptr jsl chk_spweappnt_srou_l jsl setenemymark_srou_l lda al_childx,x bit #7 bne .nockhigh jsl getheight_l s_set_alvar W,x,al_pword1,y1 .nockhigh a16 lda al_worldy,x sec sbc al_pword1,x bmi .noton lda al_pword1,x sta al_worldy,x a8 lda #0 bra .cxx .noton a8 lda al_childx,x and #8 bne .cx1 .cx0 lda #10 bra .cxx .cx1 lda #-10 .cxx sta al_childrotx,x .nocx .end65 P_END65816 p_chase rotx,childrotx p_chase rotz,childrotx p_ifnotsame childx,255,.cnt p_set HP,0 .cnt p_inc childx p_goto .hitck p_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;-------------------------------------------------------------------------------------- spreadr equ 60 spp_insea equ 1<<0 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path spreadplasma ; childrotx : planet_mode ; pbyte1 : find wo wait suru timer ; pbyte2 : no hit timer p_collisions on p_alwaysgenvecs on ; p_settype laser p_settype friend ; p_invincible on p_set hp,100 p_import pbyte1,planet_mode p_ifsame pbyte1,pm_space,.space .ground p_trigger .always_g,always p_igoto .gp .space p_trigger .always,always .gp p_trigger .whenhit,whenhit p_set shape,nullshape p_clrtype ENEMY1 p_clrtype ENEMY2 ; set shape p_set shape,bomb ; p_spawn 0,0,0,0,0,0,line,e_nocol_s_off,1,1,1 p_sprite 0,7 p_set pbyte1,0 p_set pbyte2,0 ; nohit timer p_setvel 127 ; init vel p_set ptr,0 P_DO spreadLIF P_SHAPEDISTLESS 3500,.facestart p_set ptr,0 .facestart p_shapedead .find p_objincone deg90,.face4 p_igoto .face2 .face4 p_faceshape p_faceshape .face2 p_faceshape p_faceshape P_START65816 s_set_objtobealvar y,x,al_ptr s_jmp_alsflag y,colldisable,.findagain s_jmpnot_alsflag y,nohitaffect,.cntc .findagain s_set_alvar W,x,al_ptr,#0 .cntc P_END65816 p_igoto .nofind ;------------ .find p_ifnotsame pbyte1,0,.faceplayer ;.nofind p_set pbyte1,8 P_START65816 sm_jmp_if1screen .findenemy ldy al_pword1,x s_jmp_alsflag y,player2,.p1 .p2 ldy playpt2 bra .pp .p1 ldy playpt1 .pp .setpp sty al_ptr,x P_END65816 p_igoto .nofind .findenemy P_END65816 p_findenemyshape 6000,90,.findenemy2 p_igoto .nofind .findenemy2 p_findenemyshape 10000,255,.faceplayer p_igoto .nofind .faceplayer p_faceplayerofs 0,0,80 .nofind p_dec pbyte2 p_ifnotsame pbyte2,0,.coloff p_collisions on .coloff p_ifsame pbyte1,0,.nopbyte1 p_dec pbyte1 .nopbyte1 p_accel spreadVEL,2 p_pweaphit .circle,.circle,.circle p_igoto .next .circle P_CIRCLEWINDOW 1 p_set pbyte2,10 ; nohit timer ; p_collisions off .next P_NEXT .remove P_CIRCLEWINDOW 1 P_SOUNDEFTDISTPOS bomexplode p_remove ;------------------------------------------------------------------------------------ .always_g ; hit ground? p_nothitground 30,.always p_set worldy,30 p_set rotx,0 .always P_START65816 ldy al_pword1,x toheap y,y lda exal_spweap_TYPE,y cmp #spweap_smartplasma bne .nolmt lda exal_SPweaponstatus,y and #exal_SPweaponstatus_counter^-1 ora #2 sta exal_SPweaponstatus,y lda KEnemyNumber beq .stgclr .nolmt P_END65816 p_return .stgclr P_END65816 p_force .remove p_return .whenhit P_CIRCLEWINDOW 1 p_set hp,100 p_set pbyte2,10 ; nohit timer p_collisions off p_return p_remove ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;---------------------------------------------------------- ; start_path spreadbeam_child ; ; p_collisions off ; ; p_set hp,1 ; p_set ap,8 ; ; p_immune ; ; P_START65816 ; s_set_alsflag x,notslope ; pl_set_area x,-1 ; s_clr_colltype x,ENEMY1 ; P_END65816 ; p_sprite 0,-4 ; ; ; P_DO 4 ; P_START65816 ; a16 ; lda al_childx,x ; jsl perc62A_l ; sta al_childx,x ; lda al_childy,x ; jsl perc62A_l ; sta al_childy,x ; a8 ; P_END65816 ; P_NEXT ; ; p_remove ; ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; Tame tame ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path tametame p_collisions off p_wait 2 p_set shape,tametame p_sprite 0,0 p_trigger .always,always p_do 8 p_add tx,1 p_next .loop p_import pbyte2,P1_maxMETER p_ifsame pbyte1,pbyte2,.red ;powermetermax,.red p_goto .loop .red p_sprite 0,0 p_set tx,8 p_set shape,tamatama p_end .always P_START65816 jsl tametame00_path_l P_END65816 p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; player's powerd laser ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ start_path Ppowerdlaser P_QUADVECS ON p_shadow off p_import ptr,p1_markptr ; IFEQ tamehomon ; p_zero ptr ; ENDC p_soundeffect longlaser1 p_setanim 4 ; p_set HP,PpowerdlaserHP ; p_set AP,PpowerdlaserAP p_settype laser p_settype friend p_clrtype enemy1 p_import pbyte2,planet_mode p_ifsame pbyte2,pm_space,.sp .gd p_setvel 60 ;PpowerdlaserVEL p_set count,PpowerdlaserLIF p_igoto .skip0 .sp p_setvel 120 ;PpowerdlaserVEL_space p_set count,PpowerdlaserLIF_space .skip0 p_set childrotx,rotx p_set childroty,roty p_set childrotz,rotz p_trigger .rnd,always .untilanim p_do 4 p_addanim -1,8 p_pweaphit .Bremove,.dmgremove,.rbdremove p_add rotz,childrotz p_next p_add count,-10 p_set shape,tamel p_do count p_ifsame animframe,128+7,.noanim p_addanim 1,8 .noanim p_set rotx,childrotx p_set roty,childroty p_set rotz,childrotz p_shapedead .nochase p_faceshape p_moveinshape 100 p_moveinshape 100 p_moveinshape 100 p_setvel 120 ;PpowerdlaserVEL_space p_igoto .skip .nochase p_setvel 120 ;PpowerdlaserVEL_space p_add vx,vx p_add vy,vy p_add vz,vz .skip p_set childrotx,rotx p_set childroty,roty p_set childrotz,rotz p_pweaphit .Bremove,.dmgremove,.rbdremove p_ifareaout .Bremove p_next ;;;;.remove LOCAL p_remove .dmgremove P_BREAK p_gosub prou_dmgsound p_qspawn nullshape,laserpart,10,10 p_remove .rbdremove P_BREAK p_gosub prou_rbdsound p_remove .Bremove P_BREAK p_remove .rnd p_setrandom rotx,255 p_setrandom roty,255 p_setrandom rotz,255 p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; WINGMAN ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path wingman childno_wingman_boost equ 10 wgmode_away equ 1 wgmode_find equ 2 wgmode_chase equ 3 wgmode_fire equ 4 wgmode_chaseplayer equ 5 wgmode_pullup equ 6 wgmode_pulldown equ 7 p_clrtype ENEMY1 p_settype ENEMY2 p_collisions on p_invincible on p_set hp,100 p_set ap,0 p_set tx,0 p_weapon Flaser p_trigger .wg_trigger,always p_alwaysgenvecs on p_set pbyte1,wgmode_find p_setvel 35 .loop p_ifsame pbyte1,wgmode_away,.wgmode_away p_ifsame pbyte1,wgmode_chase,.wgmode_chase p_ifsame pbyte1,wgmode_fire,.wgmode_fire p_ifsame pbyte1,wgmode_find,.wgmode_find p_ifsame pbyte1,wgmode_chaseplayer,.wgmode_chaseplayer p_ifsame pbyte1,wgmode_pullup,.wgmode_pullup p_ifsame pbyte1,wgmode_pulldown,.wgmode_pulldown p_igoto .wgmode_find ;----------------------------------------------------------------------------------- ; goto away .wgmode_away p_chase rotx,0 p_setrandom count,31 p_add count,60 p_set ty,2 p_andframegoto 1,.wgmode_away0 p_set ty,-2 .wgmode_away0 p_do count p_add roty,ty p_chase rotx,0 p_next p_set pbyte1,wgmode_find p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_chase p_shapedead .wgmode_fire_find p_shapedistless 4000,.wgmode_chase_fire p_accel 40,3 p_andframegoto 1,.end p_faceshape p_igoto .end .wgmode_chase_fire p_set pbyte1,wgmode_fire p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_fire p_shapedead .wgmode_fire_find p_shapedistless 500,.wgmode_fire_away p_accel 40,3 p_faceshape p_objincone 30,.fire p_igoto .end .fire p_andframegoto 7,.dofire p_igoto .end .dofire p_fire p_igoto .end .wgmode_fire_away p_set pbyte1,wgmode_away p_igoto .end .wgmode_fire_find p_set pbyte1,wgmode_away p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_chaseplayer p_distless 200,.wgmode_chaseplayer_away p_accel 50,5 p_andframegoto 1,.end p_faceplayerofs 10,-5,10 p_igoto .end .wgmode_chaseplayer_away p_set pbyte1,wgmode_away p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_pulldown ; p_print rotx,h,kawagoe ; p_print worldy,h,kawagoe p_do 8 p_push rotx p_andframegoto 1,.wgm_pd0 p_faceplayerofs 10,-5,10 .wgm_pd0 p_pull rotx p_chase rotx,20 p_next p_set pbyte1,wgmode_chaseplayer p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_pullup ; p_print rotx,h,kawagoe ; p_print worldy,h,kawagoe ; p_print vy,h,kawagoe p_do 8 p_push rotx p_andframegoto 1,.wgm_pu0 p_faceplayerofs 10,-5,10 .wgm_pu0 p_pull rotx p_chase rotx,-20 p_next p_set pbyte1,wgmode_chaseplayer p_igoto .end ;----------------------------------------------------------------------------------- .wgmode_find p_set pbyte2,0 p_do 32 p_ifnotsame pbyte2,7,.wgmode_find_next p_set pbyte2,0 p_findenemyshape 16000,255,.wgmode_find_next p_break .wgmode_find_chase .wgmode_find_next p_chase rotx,0 p_next p_set pbyte1,wgmode_chaseplayer p_igoto .end .wgmode_find_chase p_set pbyte1,wgmode_chase p_igoto .end ;--------------------------------------------------------------------------------- .end p_goto .loop p_end .wg_trigger ; p_print pbyte1,h,kawagoe p_inc pbyte2 p_setmarker 1 P_START65816 lda al_roty,x sec sbc al_tx,x asl a asl a asl a asl a sta z1 s_achase_alvar B,x,al_rotz,z1,2 P_END65816 p_set tx,roty p_import pword1,battlearea_maxy p_ifsmaller worldy,pword1,.wg_gotopulldown p_import pword1,battlearea_miny p_add pword1,-50 p_iflarger worldy,pword1,.wg_gotopullup p_distmore 4000,.wg_gotochaseplayer p_return .wg_gotofind p_set pbyte1,wgmode_find p_return .wg_gotopullup p_import pword1,battlearea_miny p_chase worldy,pword1 p_set pbyte1,wgmode_pullup p_return .wg_gotopulldown p_import pword1,battlearea_maxy p_chase worldy,pword1 p_set pbyte1,wgmode_pulldown p_return .wg_gotochaseplayer p_set pbyte1,wgmode_chaseplayer p_return ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; ANDORF CORE ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; P_BOSSMODELIST And_box0 ; P_BOSSMODE preturn ;andboxdead_cut1 equ 1 childno_andorf equ 1 P_BOSSFLAGLIST P_BOSSFLAG abf_ba_dead start_path and_box0 P_ENEMYDMGSE bs_andorf_damage P_CLRBOSSFLAGS p_set hp,50 p_Qspawn and_ba_0,and_ba_0,5,1 p_trigger andbox_ckebyte2,always p_shadow off p_trigger .death,Whendead p_trigger .always,always p_export corex,worldx p_export corez,worldz p_invincible on p_invisible on .loop p_ifbossflag abf_ba_dead,on,.make p_goto .loop .make p_spawn 0,300,0,0,0,0,and_z_1,and_box0_partslo,1,1,1 p_Qspawn and_zoon,and_box0_zoon,1,1 p_spawn 0,308,0,0,0,0,last_to,and_last_to,1,1,1 p_invisible off p_invincible off p_end .dead p_trigger Pcds_chika.exp,always P_CIRCLEWINDOW 8 p_wait 10 p_trigger .flash,2 p_wait 30 p_nextmap p_remove childno_andorf p_remove .death p_set HP,1 p_collisions off p_force .dead p_return .always p_add roty,2 p_export coreroty,roty p_return .flash LOCAL p_randomgoto .noflash P_SCREENFLASH .noflash p_return ;------------ start_path and_box0_zoon p_trigger .add,always,30 p_set rotx,deg180 p_igoto Pand_box0_part .add p_add worldy,-10 p_return ;------------ start_path and_box0_partslo p_slope on ;;;;; p_groundobj on ;------------ start_path and_box0_part p_invincible on p_collisions off p_shadow off .loop p_add childroty,-2 p_goto .loop ;------------ ;------------------------------------------------------------------------------------------- start_path and_last_to p_shadow off p_collisions off p_slope on .loop p_setanim 0 p_add childroty,-2 p_goto .loop ;------------------------------------------------------------------------------------------- start_path and_ba_0 p_slope on p_collisions off p_zero worldy p_invincible on p_do 4 p_spawn 0,-20<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;------------------------------------------------------------------------------------------- start_path deathofand_box p_setdemo andboxdead_cut1 p_shadow off P_START65816 ldy playpt1 ct_set_chartptr y,andboxdead P_END65816 p_demoshape p_qspawn nullshape,deathofand_box_cam_stand,1,1 p_trigger .always,always p_wait 43 P_SOUNDEFFECT bs_BOssexplode p_end .always p_gosub .andboxexplode p_add roty,5 p_return .andboxexplode p_andframegoto 3,.abe0 p_return .abe0 p_andframegoto 4,.circle p_qspawn explosion5,e_explode_circle127,1,1 p_return .circle p_qspawn explosion5,e_explode_127,1,1 p_return ;--------------------------------------------------------------------------------------- start_path deathofand_box_cam_stand p_collisions off p_faceplayer immediate p_spawn 0,0,500,0,0,0,nullshape,deathofand_box_cam,1,1,1 .loop p_add roty,2 p_goto .loop p_end ;--------------------------------------------------------------------------------------- start_path deathofand_box_cam p_collisions off p_trigger .view,always p_do 20 p_next p_end .view p_copypos2view 1 p_campandemoshape 1,0,immediate p_return ;--------------------------------------------------------------------------------------- START_PATH e_explode_circle127 p_gosub pe_explode_127.pos p_igoto pe_explode_127.enter START_PATH e_explode_127 p_gosub .pos .enter LOCAL P_SETCOLANIM 0 P_WAIT 1 P_DO 7 P_ADDCOLANIM 1,8 P_NEXT P_REMOVE .pos LOCAL P_COLLISIONS OFF p_sprite 0,32 p_setrandom pword1,255 p_add worldx,pword1 p_add worldx,-127 p_setrandom pword1,255 p_add worldy,pword1 p_add worldy,-127 p_setrandom pword1,255 p_add worldz,pword1 p_add worldz,-127 p_return ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³ ³ ;³ PATH for PLAYER'S EFFECT ³ ;³ ³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ;-------------------------------------------------------------------------------------- start_path overheat ; [al_vel : set from player] p_sprite 0,0 p_addrandom worldx,15 p_addrandom worldy,15 p_addrandom worldz,15 p_do 8 p_accel 0,5 p_addcolanim 1,8 p_inc pbyte1 p_ifsame pbyte1,7,.remove p_add vy,-1 p_next .remove p_remove ;-------------------------------------------------------------------------------------- start_path playershield p_collisions off p_shadow off p_copyplayerpos p_setanim 0 p_set pbyte1,1 p_set pbyte2,0 p_import tx,shieldinit p_ifnotzero tx,.trig P_SOUNDEFFECT shield_item p_do 9 p_addanim 1,10 p_next .trig p_trigger .always,always .loop p_gset b,shieldinit,0 p_setanim 9 p_ifnotsame pbyte1,0,.cnt p_remove .cnt p_goto .loop .always P_START65816 jsl playershield00_path_l lda al_pbyte1,x bit #~1 beq .flash .noflash P_END65816 p_return .flash P_END65816 p_index animframe,playershield.tab,pbyte2 p_inc pbyte2 p_return ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;-------------------------------------------------------------------------------------- start_path missileboost p_sprite 0,16 P_ADD tx,hp P_SET hp,100 p_trigger .hit,Whendead P_START65816 s_set_alsflag x,dontexplode P_END65816 p_collisions off .loop p_addcolanim 1,2 p_goto .loop .remove p_remove .hit p_force .remove p_return ;-------------------------------------------------------------------------------------- ;-------------------------------------------------------------------- ;------------ start_path boost p_trigger pdemoboost.ck,always ;------------ start_path demoboost_active start_path demoboost p_active on p_sprite 0,0 p_collisions off p_do 4 p_addcolanim 1,4 p_add tx,4 p_next .skip p_sprite 0,0 .loop p_zero pbyte1 p_addcolanim 1,2 p_goto .loop .ck LOCAL P_START65816 ldy playpt1 s_jmpnot_alsflag y,insidecockpit,.ncp lda #1 sta al_pbyte1,x .ncp P_END65816 p_ifnotzero pbyte1,.off p_ifplayerboost .cnt .off p_force .remove .cnt p_return .remove p_remove ;-------------------------------------------------------------------------------------- start_path brake p_sprite 0,-1 p_collisions off p_do 4 p_addcolanim 1,4 p_add tx,2 p_next p_sprite 0,0 .loop p_addcolanim 1,2 p_ifplayerbrake .cnt p_remove .cnt p_goto .loop ;-------------------------------------------------------------------------------------- start_path healeffect p_collisions off P_SOUNDEFFECT CatchHeart P_CIRCLEWINDOW -8 P_START65816 jsl healeffect00_path_l P_END65816 p_do 8 P_START65816 jsl healeffect01_path_l P_END65816 P_CIRCLEWINDOWPOS p_next p_remove ;-------------------------------------------------------------------------------------- start_path heal healwait equ 20-15 healint equ 5 healtime0 equ 25-20 healtime1 equ 20 ;100 healtime2 equ 10 ;20 healtime3 equ 10 healposx equ 40 P_SOUNDEFFECT heal_parts p_spawn 5,-100,-200,0,0,0,pow_l,heal_l,1,1,childno_healparts_l p_spawn -5,-100,-200,0,0,0,pow_r,heal_r,1,1,childno_healparts_r p_do healwait+healtime1+healtime2+10 p_zero rotz p_zero rotx p_next .remove p_remove start_path heal_l p_set count,3 p_set pword1,healposx p_igoto pheal_r.enter start_path heal_r p_set count,8 p_set pword1,-healposx .enter LOCAL p_trigger .always,always,healwait+healtime1+healtime2 p_clrtype ENEMY1 p_collisions off p_do healwait P_START65816 jsl heal_path00_l P_END65816 p_next p_trigger .pos0,always,healtime0+healtime1 p_wait healtime0 p_setvar b,player1_hpadd,40 p_wait healtime1>>1 p_setvar b,player1_hpadd,40 p_wait healtime1>>1 p_setvar b,player1_hpadd,40 p_do healtime2 p_set depthoffset,3 p_andframegoto 1,.d3 p_set depthoffset,1 .d3 p_next p_set depthoffset,3 .waitdeth p_do count p_next p_import pbyte2,planet_mode p_ifnotsame pbyte2,pm_marine,.g p_import pword1,seadepth p_ifsmaller worldy,pword1,.g .m ; marine p_set pbyte1,childx p_relative off p_zero childx p_zero childy p_zero childz p_do healtime3 p_chase rotz,pbyte1 p_add worldy,-4 p_next p_igoto .kill .g ; ground & space p_setrandom pbyte1,31 p_add pbyte1,-16 p_do healtime3 P_START65816 jsl heal_path02_l P_END65816 ; p_add childrotx,-8 ; p_add childy,10 ; p_add childz,-10 ; p_add childrotz,pbyte1 ; p_add childroty,pbyte1 p_hitslope .kill p_next .kill p_set HP,0 p_end .pos0 P_START65816 jsl heal_path01_l P_END65816 ; p_chase childx,pword1 ; p_chase childz,0 ; p_chase childz,0 ; p_chase childy,0 p_return .always p_push pbyte1 p_import pbyte1,demomode p_ifzero pbyte1,.alive p_force .remove .alive p_pull pbyte1 p_return .remove p_remove ;-------------------------------------------------------------------------------------- start_path bomeffect p_collisions off p_spawn 0,-10,0,-25,0,0,bomb,bomeffect_child,1,1,1 p_import immuneptr,playpt1 p_trigger .always,always p_do bombtimer p_import ap,bombexplode ; explode trigger p_ifnotzero ap,.waitdeath p_next p_igoto .end .waitdeath p_break .end p_wait 20 p_remove .always p_copyplayerpos p_faceplayerofs 0,0,127 p_div2 rotx p_zero rotz p_return start_path bomeffect_child p_import immuneptr,playpt1 P_SOUNDEFFECT bomshoot p_invincible on p_sprite 0,0 p_setvel 25 p_alwaysgenvecs on p_trigger .always,always p_trigger .whenhit,whenhit .loop p_import ap,bombexplode ; explode trigger p_ifnotzero ap,.explode p_ifareaout .explode P_HITSLOPE .explode p_goto .loop .whenhit p_force .explode p_return .explode p_trigger .whenhit,off p_setvar b,bombexplode,1 p_shockcam 1,128 P_START65816 jsl BOMBcircle_path_srou_l P_END65816 P_SOUNDEFFECT bomexplode p_setvel 0 p_set shape,nullshape .pos p_circlewindowpos p_goto .pos p_end .always p_add childrotx,4 p_add childy,vy p_return ;-------------------------------------------------------------------------------------- start_path damagespark p_sprite 0,-4 p_gosub prou_addrandom_cxyz31 .loop p_addcolanim 1,3 p_inc pbyte1 p_ifnotsame pbyte1,3,.cnt p_remove .cnt p_goto .loop ;-------------------------------------------------------------------------------------- start_path wingspark p_sprite 0,0 p_do 3 p_addcolanim 1,2 p_next p_remove ;-------------------------------------------------------------------------------------- ; start_path armerjet ; ; p_sprite 0,-1 ; ;.loop p_addcolanim 1,2 ; p_dec count ; p_ifsame count,0,.remove ; p_goto .loop ; ;.remove p_remove ; ;-------------------------------------------------------------------------------------- start_path burnning p_sprite 0,-6 p_set pbyte1,0 .loop p_addcolanim 1,2 p_inc pbyte1 p_ifnotsame pbyte1,2,.cnt p_ifplayerboost .nomake ; p_spawn 0,0,0,0,0,0,flame,burnning_child,1,1,1 p_goto .unlink .unlink p_addcolanim 1,2 p_unlinkchild 1 .nomake p_remove .cnt p_goto .loop p_end ; start_path burnning_child ; ; p_active on ; ; p_clrtype ENEMY1 ; p_collisions off ; ; p_sprite 0,-7 ; p_set pbyte1,0 ; p_reltoplayer on ; ;.loop p_addcolanim 1,2 ; p_inc pbyte1 ; p_ifnotsame pbyte1,2,.cnt ; p_remove ; p_end ; ;.cnt p_goto .loop ; p_end ;-------------------------------------------------------------------------------------- ; start_path armerarm ; ;.loop p_addcolanim 1,2 ; ; p_ifufo .ufo ; p_igoto .remove ; ;.ufo p_ifnotsame pbyte1,0ffH,.cnt ; ;.remove p_remove ; p_end ; ;.cnt p_goto .loop ;-------------------------------------------------------------------------------------- ; start_path pushobj ; ; p_set hp,100 ; p_set ap,1 ; ; p_invincible on ; ; p_collisions on ; p_settype object ; p_end ; ; ;-------------------------------------------------------------------------------------- start_path p_explode_s_rnd31 p_collisions off p_set pbyte1,0 p_do count p_ifnotsame pbyte1,0,.nospawn p_spawn 0,0,0,0,0,0,explosion,p_explode_s_rnd,1,1,1 p_set pbyte1,5 .nospawn p_dec pbyte1 p_next p_remove start_path p_explode_s_rnd p_gosub prou_addrandom_cxyz31 ; p_addrandom childx,31 ; p_addrandom childy,31 ; p_addrandom childz,31 start_path p_explode_s p_soundeffect pl_explode_s p_collisions off p_sprite 0,-2 P_SETCOLANIM 0 P_WAIT 1 P_DO 3 P_ADDCOLANIM 1,4 P_NEXT p_remove start_path p_explode_l p_collisions off p_sprite 0,10 P_SETCOLANIM 0 P_WAIT 1 P_DO 7 P_ADDCOLANIM 1,8 P_NEXT p_remove ;----------------------------------------------------------------------------- ; GUNBLAZE start_path gunblaze p_sprite 0,16 .enter LOCAL p_collisions off p_do 3 p_addcolanim 1,2 p_next p_remove ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; YOU WIN! ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;------------------------------------------------- ; Game over text uses NintendoPresents engine IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> START_PATH TOBECONTINUED P_SET pbyte2,tobecontinuedmsg-nintendomsg p_igoto .enter ;------------------------------------------------- ; Game over text uses NintendoPresents engine .enter LOCAL P_COLLISIONS OFF P_RELTOPLAYER ON P_CLRBOSSFLAGS P_SET worldx,-400 P_QSPAWN clipshape,font_clip2,10,10 P_DO 2 P_SET worldx,-400 P_GOSUB moji_throwchars P_WAIT 10 P_SET worldx,-400 P_ADD worldy,200 P_INEXT P_END ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ; P_WAIT 60 ; ; P_SETBOSSFLAG burstout,ON ; ; P_WAIT 100 ; ; P_ADD worldy,-200 ; P_ADD worldz,-200 ; ; P_SETBOSSFLAG burstout,OFF ; ; P_REMOVE ;------------------------------------------------- ; Game over text uses NintendoPresents engine chrsizex equ 120 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> START_PATH YOUWIN P_COLLISIONS OFF p_trigger .always,always p_spawn -chrsizex*3,0,-100,0,0,0,chr_y,youwin_chr,1,0,childno_youwin p_gosub setinside p_spawn -chrsizex*2,0,-100,0,0,0,chr_o,youwin_chr,1,2,childno_youwin p_gosub setinside p_spawn -chrsizex*1,0,-100,0,0,0,chr_u,youwin_chr,1,4,childno_youwin p_gosub setinside p_spawn chrsizex*1,0,-100,0,0,0,chr_w,youwin_chr,1,6,childno_youwin p_gosub setinside p_spawn chrsizex*2,0,-100,0,0,0,chr_o,youwin_chr,1,8,childno_youwin p_gosub setinside p_spawn chrsizex*3,0,-100,0,0,0,chr_n,youwin_chr,1,10,childno_youwin p_gosub setinside p_end ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;.always LOCAL ; ; P_COLLISIONS OFF ; ; p_copyviewpos ; ; p_set rotz,0 ; ; P_START65816 ; ldy pathplayer&WM ; pl_ldy_viewblk y ; lda.w al_rotx+1,y ; nega ; sta al_rotx,x ; lda.w al_roty+1,y ; nega ; sta al_roty,x ; P_END65816 ; ; p_return ;------------------------------------------------- ; Game over text uses NintendoPresents engine ;chrsizex equ 120 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> START_PATH YOULOST P_COLLISIONS OFF p_trigger Pyouwin.always,always p_spawn -chrsizex*4+60,0,-100,0,0,0,chr_y,youwin_chr,1,0,childno_youwin p_gosub setinside p_spawn -chrsizex*3+60,0,-100,0,0,0,chr_o,youwin_chr,1,2,childno_youwin p_gosub setinside p_spawn -chrsizex*2+60,0,-100,0,0,0,chr_u,youwin_chr,1,4,childno_youwin p_gosub setinside p_spawn chrsizex*0+60,0,-100,0,0,0,chr_l,youwin_chr,1,6,childno_youwin p_gosub setinside p_spawn chrsizex*1+60,0,-100,0,0,0,chr_o,youwin_chr,1,8,childno_youwin p_gosub setinside p_spawn chrsizex*2+60,0,-100,0,0,0,chr_s,youwin_chr,1,10,childno_youwin p_gosub setinside p_spawn chrsizex*3+60,0,-100,0,0,0,chr_t,youwin_chr,1,12,childno_youwin p_gosub setinside p_end ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;------------------------------------------------- ;setinside ; p_become ; P_START65816 ; s_set_alsflag x,insidecockpit ; ldy pathplayer&WM ; s_jmpnot_alsflag y,player2,.p1 ;.p2 s_clr_alsflag x,player2 ; s_set_coltab x,#id_1_c&WM ; bra .end ;.p1 s_set_alsflag x,player2 ;.end P_END65816 ; p_unbecome ; p_return ; ;------------------------------------------------- IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path youwin_chr p_collisions off p_shadow off p_set count,ap p_wait count p_do 16 p_add childz,800/16 p_add childrotx,256/16 p_add childrotz,256/16 p_next p_end ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;------------------------------------------------- ;---------------------------------------------------------------------------------- SHORTA LONGI ; pbyte1 : body No. ; pword1 : timer ; tx : hit counter ; ty : anim frame ; skidy : HP buffer ; pbyte2 : aki ;mode list P_BOSSMODELIST superdragon P_BOSSMODE sd_swim,sdm_swim P_BOSSMODE sd_beam,sdm_beam P_BOSSMODE sd_beam2,sdm_beam2 P_BOSSMODE preturn P_BOSSFLAGLIST P_BOSSFLAG sdf_demo P_BOSSFLAG sdf_coloff P_BOSSFLAG sdf_toguro P_BOSSFLAG sdf_bottom P_BOSSFLAG sdf_attack ;WWW P_BOSSFLAG sdf_flash ; P_BOSSFLAG sdf_invincible P_BOSSFLAG sdf_kireta P_BOSSFLAG sdf_dead P_BOSSFLAG sdf_ground P_BOSSFLAG sdf_warp P_BOSSFLAG sdf_firstattack P_BOSSFLAG sdf_HP0 start_path superdragon sd_fire_int equ 20 ; beam no hassya kankaku sd_fire_wait equ 4 ; hassya no wait childno_dragon_body equ 80 p_zero pbyte2 p_set ap,4 p_import pbyte1,Kdifficulty p_index hp,superdragon.hp,pbyte1 p_set skidy,hp ; set buffer P_IMPORT roty,Kinitroty p_enemydmgse bs_cry_1 p_import worldy,Ehight p_quadvecs on ;------------ p_set tx,0 : hit counter p_set ty,128 : anim frame ;------------ p_trigger .whenhitbyplayer,whenhitbyplayer p_trigger .whendead,whendead p_radarobj ra_enemy ; display radar p_clrbossflags p_set pword1,0 p_export bossflags,pword1 p_settype ENEMY2 p_gosub prou_dragon p_alwaysgenvecs on p_setbossflag sdf_demo,on p_setvel 48>>2 p_collisions off ;----------------------------------------------------------------------- ; set HP METER p_do 42h-30-10h p_gosub sd_swim p_next p_setbossname name_mirage p_zero pbyte2 p_do 30 p_ifsame pbyte2,hp,.next p_inc pbyte2 p_export bossmaxhp,pbyte2 p_export bosshp,pbyte2 .next p_gosub sd_swim p_next p_collisions on p_zero pbyte2 ;----------------------------------------------------------------------- .mid p_gosub sd_swim ; p_export bosshp,hp P_FACEPLAYER y P_MOVEINPLAYER 100 P_DISTLESS 3000,.demooff p_gosub .hp P_GOTO .mid .demooff p_do 10h p_gosub sd_swim ; p_export bosshp,hp P_FACEPLAYER y ; p_export bosshp,hp ; p_gosub superdragon_faceplayer ; p_gosub sd_beam.face p_gosub .hp p_next p_setbossflag sdf_demo,off p_zero pword1 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; main loop P_SOUNDEFFECT bs_cry_2 p_setbossmode sdm_beam ; init mode .loop0 ;----------------------------------------------------------------------- ; p_setbossflag sdf_invincible,OFF ;WWW p_setbossflag sdf_flash,OFF p_setbossflag sdf_toguro,OFF p_invincible off ;----------------------------------------------------------------------- p_gosub .sd_setbossmode p_setmarker 1 p_inc pword1 ;----------------------------------------------------------------------- p_ifzero ty,.addanim p_ifsame animframe,ty,.noanim .addanim p_addanim 1,16 .noanim ;----------------------------------------------------------------------- ; P_START65816 ; jsl superdragon01_path_l ; P_END65816 ; p_export bosshp,hp p_gosub .hp p_goto .loop0 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ p_end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;----------------------------------------------------------------------- .hp P_START65816 jsl superdragon01_path_l P_END65816 p_export bosshp,hp p_return ;----------------------------------------------------------------------- .sd_setbossmode p_jumpbossmode p_return ;************ .whenhitbyplayer ;------------ ; beam wo utsu toki wa nanimo sinai. p_ifbossflag sdf_toguro,ON,.wh0 ;------------ p_setbossmode sdm_swim p_set depthoffset,0 ;WWW p_setbossflag sdf_flash,OFF ; p_setbossflag sdf_invincible,OFF p_add rotx,-8 p_playerincone 60,.yoko p_gosub superdragon_faceplayer p_setvel 120 p_igoto .whry .yoko p_gosub superdragon_faceplayer p_setvel 70 P_START65816 jsl superdragon02_path_l P_END65816 .whry .wh0 p_return ;************ .whendead ; P_START65816 ; jsl superdragon01_path_l ; P_END65816 ; p_ifzero hp,.wd0 ; p_force .loop0 ; p_return .wd0 p_set hp,1 p_collisions off p_force .dead p_return ;************ .dead p_trigger .whendead,off p_setbossflag sdf_HP0,ON p_Qspawn explosion3,cds_explode,1,32 P_SOUNDEFTPOS bs_monster_down p_set depthoffset,4 p_alwaysgenvecs off P_GDEC b,KEnemyNumber P_SCORE 500 p_trigger .bom,4,60 p_trigger Pcds_piece.exp,4 p_trigger .deaddist,always p_copyplayerrots p_set rotx,deg90 p_set rotz,0 p_do 8 p_add roty,8 p_import vx,player1_vx p_set vy,-20 p_import vz,player1_vz P_START65816 jsl superdragon03_path_l P_END65816 ; p_add vx,vx ; p_add vz,vz ; p_add vx,vx ; p_add vz,vz ; p_add vx,vx ; p_add vz,vz p_next p_wait 40 p_trigger .deaddist,off p_trigger .deaddist2,always p_wait 14 p_setbossflag sdf_dead,ON P_SOUNDEFTPOS bs_BOSSexplode2 p_trigger .deaddist2,off p_trigger .dvz,always p_faceview immediate p_setvel 40 ; p_wait 35 ; p_explode p_end .deaddist p_distless 8000,.dvz .deaddist2 p_set vx,0 p_set vy,0 p_set vz,0 .dvz p_add rotx,30 p_clrdemoshape p_import tx,bossmaxhp p_ifzero tx,.nom p_dec tx p_export bossmaxhp,tx .nom p_return .bom P_SOUNDEFTDISTPOS en_explode_s p_return ;---------------------------------------------------------------------------------------------------- ;sd_tobikomi ; mode ; ; p_gosub superdragon_faceplayer ; ; p_setvel 60 ; p_distless 2000,.2tobikomi ; p_igoto sd_beam.face ; ; ;.2tobikomi p_setbossmode sdm_tobikomi2 ; p_zero pword1 ; p_accel 5,20 ;sd_tobikomi2 p_ifsame pword1,16,.toswim ; p_add roty,32 ; p_return ; ; ;.toswim p_setbossmode sdm_swim ; p_zero pword1 ; p_gosub superdragon_faceplayer ; p_return ; ;---------------------------------------------------------------------------------------------------- sd_beam ; mode ; p_setbossflag sdf_invincible,ON ;WWW p_setbossflag sdf_flash,ON p_setbossflag sdf_toguro,ON p_set ty,128 ; anim p_gosub superdragon_faceplayer_fire p_setvel 0 p_ifsame pword1,sd_fire_wait,.fire p_igoto .face .fire p_ifbossflag sdf_firstattack,off,.beam p_randomgoto .beam p_randomgoto .beam p_distless 2000,.fired p_trigger .magma,4,32 p_igoto .fired .beam p_setbossflag sdf_firstattack,on P_SOUNDEFFECT bs_dragon_laser2 p_set rotx,childrotx p_set roty,childroty p_Qspawn nullshape,superdragon_beam,30,6 p_spawn 0,0,60,deg270,0,0,clipshape,superdragon_clip,1,1,1 .fired p_set pbyte2,1 p_set depthoffset,0 p_setbossmode sdm_beam2 ; set rotation dir p_set tx,1 p_ifsame tx,-20,.ymi p_add tx,-2 .ymi p_set pword1,0 .face LOCAL p_chase rotx,childrotx p_chase roty,childroty p_chase rotz,childrotz p_return .magma p_andframegoto 15,.ryousan p_Qspawn magmaball,superdragon_magma,1,4 p_return .ryousan p_Qspawn nullshape,superdragon_garakuta,1,4 p_return sd_beam2 ; p_setbossflag sdf_invincible,ON p_set ty,128+8 ; anim p_setbossflag sdf_toguro,ON p_gosub sd_beam.face p_inc pbyte2 p_ifnotsame pword1,20,.ret .toswim LOCAL p_setbossmode sdm_swim p_set pword1,0 .ret p_return ;---------------------------------------------------------------------------------------------------- ;sd_escape ; mode ; ; p_accel 120,5 ; ; p_ifnotsame pword1,120,sd_swim.notzero ; ; p_setbossmode sdm_swim ; p_set pword1,0 ; p_accel 40>>2,5 ; ; p_return ; ;---------------------------------------------------------------------------------------------------- sd_swim ; mode P_START65816 jsl sd_swim00_path_l P_END65816 p_zero childrotx p_accel 40>>2,5 p_set ty,0 ; anim p_gosub superdragon_swim p_ifbossflag sdf_demo,ON,.noface p_distmore 6000,.face p_distless 4000,.Bnear p_playerincone 40,.beam .Bnear p_playerincone 5,.beam p_playerincone 50,.notfast p_accel 80,5 .notfast p_ifnotsame pword1,80,.noface p_zero pword1 .face p_gosub superdragon_faceplayer .noface p_return .beam p_accel 40>>2,5 p_distless 1000,.nobeam P_PUSH CHILDY p_set childy,sd_fire_int p_ifsmaller pword1,childy,.canbeam p_setbossmode sdm_beam P_SOUNDEFFECT bs_cry_2 p_zero pword1 ; fire rotation p_set tx,20 p_randomgoto .canbeam p_set tx,-20 .canbeam P_PULL CHILDY .nobeam p_return ;---------------------------------------------------------------------------------------------------- ; pbyte2: offset Z pos ;*************** start_path superdragon_body1s p_gosub superdragon_makebodys p_igoto Psuperdragon_body.enter ;*************** start_path superdragon_body1 p_gosub superdragon_makebody p_igoto Psuperdragon_body.enter ;*************** start_path superdragon_bodys p_gosub superdragon_makebodys p_ifnotsame pbyte1,9,Psuperdragon_body.enter p_set shape,dragon_2s p_igoto Psuperdragon_body.enter ;*************** start_path superdragon_body p_gosub superdragon_makebody p_ifnotsame pbyte1,9,.enter p_set shape,dragon_2 .enter LOCAL p_ifbossflag sdf_coloff,OFF,.colon p_collisions off .colon p_enemydmgse bs_cry_1 p_chainpos childz P_INVISIBLE ON P_WAIT 1 P_INVISIBLE OFF p_index hp,superdragon_body.hpdat,pbyte1 p_radarobj ra_enemy p_clrtype ENEMY1 p_settype ENEMY2 p_trigger .whendead,whendead p_ifbossflag sdf_ground,OFF,.nogd p_groundobj on .nogd .loop0 p_ifbossflag sdf_dead,ON,.motherdead P_SWAPVAR ptr,immuneptr p_chainpos childz p_ifbossflag sdf_HP0,OFF,.nodp p_set depthoffset,3 .nodp ;------------ p_gosub .bottom p_gosub .toguro ;------------ p_ifbossflag sdf_warp,OFF,.nowarp p_set rotx,0 .nowarp ;------------ P_SWAPVAR ptr,immuneptr p_goto .loop0 ;------------ Mother id dead .motherdead LOCAL ; copy depth p_set depthoffset,4 p_trigger .whendead,off p_faceshape immediate p_quadvecs on p_setvel -40 p_set hp,1 p_set count,pbyte1 p_neg count p_add count,20 p_setrandom rotx p_setrandom roty p_setrandom rotz p_do count p_add worldx,vx p_add worldy,vy p_add worldz,vz p_add rotx,32 p_add roty,16 p_add rotz,8 p_next p_Qspawn explosion3,cds_explode,1,32 p_remove .whendead p_set hp,10 p_collisions off p_return ;************ .bottom LOCAL p_ifbossflag sdf_bottom,OFF,.nobottom p_chase rotx,-60 p_chase rotx,-60 p_chase rotx,-60 .nobottom p_return ;************ .toguro LOCAL p_ifbossflag sdf_toguro,OFF,.nobottom p_index childrotx,superdragon_body.toguro_dat,pbyte1 p_chase rotx,childrotx p_chase rotx,childrotx p_chase rotx,childrotx p_add roty,10 .notoguro p_return ;************ ; ;.top LOCAL ; p_ifbossflag sdf_top,OFF,.notop ; ; p_chase rotx,60 ; ; p_chase childrotx,60 ; ; P_START65816 ; s_achase_alvar2alvar B,x,al_rotx,x,al_childrotx,1 ; P_END65816 ; ;.notop p_return ; ;************ ; ;superdragon_flash ; ; p_ifzero depthoffset,.5 ; p_dec depthoffset ; p_ifnotzero depthoffset,.dp ;.5 p_set depthoffset,5 ; ;.dp p_return ; ;************ superdragon_faceplayer_fire p_push rotx p_push roty p_faceplayer immediate p_igoto superdragon_faceplayer.enter superdragon_faceplayer p_push rotx p_push roty p_faceplayer immediate p_div2 rotx .enter LOCAL p_set childrotx,rotx p_set childroty,roty p_pull roty p_pull rotx p_chase rotx,childrotx p_chase roty,childroty p_return ;************ superdragon_swim P_PUSH CHILDROTX p_andframegoto 8,.xmi .xpl p_add childrotx,20 p_igoto .x .xmi p_add childrotx,-20 .x p_chase rotx,childrotx P_PULL CHILDROTX ; player no mae p_playerincone 80,.yoko p_chase roty,childroty p_return .yoko P_PUSH CHILDROTY p_andframegoto 16,.ymi .ypl p_add childroty,20 p_igoto .y .ymi p_add childroty,-20 .y p_chase roty,childroty P_PULL CHILDROTY p_return ;************ superdragon_makebodys p_gosub superdragon_makebody.get p_ifnotsame pbyte1,9,.body p_return .body p_spawn 0,0,-(100>>2),0,0,0,dragon_1s,superdragon_bodys,1,1,childno_dragon_body p_ifnotsame pbyte1,9,superdragon_makebody.mkend p_igoto superdragon_makebody.mkend superdragon_makebody p_gosub .get p_ifnotsame pbyte1,9,.body p_return .body p_spawn 0,0,-100,0,0,0,dragon_1,superdragon_body,1,1,childno_dragon_body p_igoto .mkend .mkend LOCAL P_START65816 s_set_objtobevar y,becomelastobj&WM stx al_immuneptr,y P_END65816 p_return .get LOCAL p_push childz p_relative off p_pull childz p_collisions on p_set hp,2 p_set ap,1 p_becomemother p_inc pbyte1 p_export x1,pbyte1 p_unbecome p_import pbyte1,x1 p_return ;*************** start_path superdragon_garakuta p_trigger .rot,always p_setrandom pbyte1,7 p_index shape,superdragon_garakuta,pbyte1 p_igoto Psuperdragon_magma.enter .rot p_add rotx,16 p_add roty,8 p_add rotz,4 p_return start_path superdragon_magma p_sprite 0,0 .enter LOCAL p_clrtype ENEMY1 p_settype ENEMY2 p_quadvecs on p_addrandom tx,3 p_setvel 60 p_wait 30 p_set hp,0 p_end ;*************** start_path superdragon_beam p_clrtype ENEMY1 p_settype ENEMY2 p_invincible on p_quadvecs on ;;;; p_groundobj on p_set clip,plane_BOSS2 p_wait 1 p_set shape,warpl p_setvel 127 p_wait 20 p_remove ;*************** start_path superdragon_clip p_collisions off p_groundobj on p_wait 20 p_remove ;*************** dragon_warp_rou p_setbossflag sdf_warp,ON p_return ;*************** IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> start_path superdragon_friend ; p_clrtype ENEMY1 ; p_settype ENEMY2 p_collisions off p_set hp,100 p_set ap,1 p_weapon Flaser .loop0 p_ifbossflag sdf_toguro,on,.exit p_alwaysgenvecs on p_shapedead .find p_igoto .found .find p_findenemyshape 10000,255,.found .found p_shapedistless 800,.spd2 .spd1 p_accel 50,3 p_igoto .spd .spd2 p_accel 40,3 .spd p_faceshape p_andframegoto 15,.incone p_igoto .exit .incone p_objincone 30,.fire p_igoto .exit .fire p_fire .exit p_setmarker 1 p_goto .loop0 p_end ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; TITLE DEMO ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ TITLEDEMO start_path titledirector title_nintendo_time equ 060h title_cut1 equ 1 title_cut2 equ 2 title_cut3 equ 3 title_cut4 equ 4 title_cut5 equ 5 title_cut6 equ 6 title_cut7 equ 7 title_cut8 equ 8 title_cut9 equ 9 childno_title equ 1 childno_title_bwing equ 2 childno_title_warp0 equ 3 childno_title_watch2 equ 4 childno_title_watch3 equ 5 childno_title_dragon_bwing equ 6 title_cam_cut3_x equ -1000 title_cam_cut3_y equ -1000 title_cam_cut3_z equ 2200 title_cam_cut4_x equ 0 title_cam_cut4_y equ 0 title_cam_cut4_z equ 0 title_cam_cut5_x equ 0 title_cam_cut5_y equ 0 title_cam_cut5_z equ 2000 title_cam_cut6_x equ 0 title_cam_cut6_y equ 0 title_cam_cut6_z equ 0 p_setvar w,player1_horizon_offset,SCR4_Hofs p_setvar w,player1hscroll_offset,80h+30h p_setvel 10 p_export player1_vz,vz p_collisions off p_setdemo title_cut1 p_gosub prou_posrot0 p_copypos2player p_copyrot2player p_spawn 0,0,300,0,0,0,nullshape,title_watch,1,1,childno_title p_Qspawn nullshape,nintendopresents,1,1 p_Qspawn nullshape,title_cam,1,0 ;beam p_spawn 0,-800,700+300,50,deg180,0,nullshape,title_warps,1,1,childno_title_warp0 p_wait title_nintendo_time P_SOUNDEFFECT bs_dragon_laser p_spawn -300+50,-400,-1500,0,0,0,ship_0,title_ship_explode_0,1,1,childno_title p_Qspawn ship_0,title_ship_1,1,5 p_Qspawn ryousan,title_bwing,18,0 p_Qspawn ryousan,title_bwing,15,1 p_Qspawn ryousan,title_bwing,20,2 .cut1 p_ifsamedemo title_cut2,.cut2 p_goto .cut1 .cut2 p_wait 1 p_remove childno_title_warp0 p_Qspawn dragon_0s,superdragon_demo,1,16 .cut3 p_ifsamedemo title_cut4,.cut4 p_goto .cut3 .cut4 p_Qspawn nullshape,title_watch2,1,15 .cut4_0 p_ifsamedemo title_cut5,.cut5 p_goto .cut4_0 .cut5 p_end ;---------------------------------------------------------------------------------- start_path title_watch p_collisions off p_demoshape p_wait title_nintendo_time+4 P_SWAPVAR pword1,ptr p_findshape ship_0 p_faceshape immediate p_set childrotx,rotx p_set childroty,roty P_SWAPVAR pword1,ptr p_setvel 50 p_add vx,-5 p_wait 20 p_setvel 0 .cut1_0 p_ifnotdemo title_cut1,.cut2 p_goto .cut1_0 .cut2 p_set childx,-500 p_set childy,0 p_set childz,300 p_wait 5 P_SWAPVAR pword1,ptr p_findshape dragon_0s p_faceshape immediate p_set childrotx,rotx p_set childroty,roty P_SWAPVAR pword1,ptr p_setvel 50 p_do 30 p_next .cut2_0 p_ifnotdemo title_cut2,.cut3 p_goto .cut2_0 .cut3 p_remove ;---------------------------------------------------------------------------------- start_path title_watch2 ; p_set shape,dragon_0 p_collisions off p_demoshape p_gosub Pes0_cam.pos ; p_set worldx,title_cam_cut4_x-50-500 ; p_set worldy,title_cam_cut4_y-20-200 ; p_set worldz,title_cam_cut4_z-50+200 ; ; p_set roty,deg180 ; p_set rotx,20 p_spawn -500,0,-(123<>>>>>>>>>>total 45h p_wait 10h p_ifnotsame ap,0,.noSE P_SOUND p2_demo_arwing ;GAKKI .noSE p_wait 35h ;<<<<<<<<<<< p_gosub .child p_do 15 p_gosub .addchild p_next .cut1 p_ifsamedemo title_cut2,.cut2 p_goto .cut1 .cut2 p_wait 1 p_setvel 11 p_add ap,3 p_gosub .pos p_gosub .child p_do count p_gosub .addchild p_next p_findshape dragon_0s p_do 16 p_chase rotz,40 p_add worldx,-5 p_next P_SOUNDEFTPOS ob_throughObst_L p_do count p_faceshape p_setvel 50 p_next p_do 10 p_add rotx,-1 p_next .cut2_0 p_ifsamedemo title_cut3,.cut3 p_goto .cut2_0 .cut3 p_invisible on P_SOUND port2_stop .cut3_0 p_ifsamedemo title_cut4,.cut4 p_goto .cut3_0 .cut4 p_add ap,3 p_ifnotsame ap,6,.noSE4 P_SOUND p2_demo_arwing ;GAKKI .noSE4 p_invisible off p_gosub .pos p_setvel 30 p_set rotz,0 p_wait 4 p_ifnotsame count,0,.cut4_2 p_circlewindow 0 p_set hp,0 .cut4_2 p_gosub .child p_do 20 p_gosub .addchild2 p_next .cut4_0 p_ifsamedemo title_cut5,.cut5 .cut4_1 p_goto .cut4_0 .cut5 p_add ap,3 p_gosub .pos p_setvel 40 p_do count p_next p_remove .always p_inc pword1 p_collisions off p_return .pos p_index worldx,title_bwing.x,ap p_index worldy,title_bwing.y,ap p_index worldz,title_bwing.z,ap p_index count,title_bwing.count,ap p_index rotx,title_bwing.rotx,ap p_index roty,title_bwing.roty,ap p_return .child p_index childx,title_bwing.childx,ap p_index childy,title_bwing.childy,ap p_index childz,title_bwing.childz,ap p_index rotz,title_bwing.crotz,ap p_return .addchild2 .addchild P_START65816 jsl title_bwing_path_l P_END65816 ; p_chase rotz,0 ; p_add worldx,childx ; p_add worldy,childy ; p_add worldz,childz ; p_chase childx,0 ; p_chase childy,0 ; p_chase childz,0 p_return ;---------------------------------------------------------------------------------- start_path title_ship_1 p_groundobj on p_setvel 20 p_set vy,-5 p_collisions off p_gosub Ptitle_cam.pos .cut1 p_ifsamedemo title_cut2,.cut2 p_goto .cut1 .cut2 p_ifsamedemo title_cut4,.cut4 p_invisible on p_goto .cut2 .cut4 p_gosub Ptitle_cam.pos p_invisible off p_wait 14 p_circlewindow 0,big P_SOUNDEFTDISTPOS en_explode_demo p_wait 1 p_set hp,0 p_end ;---------------------------------------------------------------------------------- start_path title_ship_explode_0 p_set vz,7 p_collisions off p_wait 20+10h p_spawn 50,5,0,0,3,deg90+10,clipshape,title_ship_clip,1,1,childno_title p_set clip,plane_BOSS2 p_Qspawn ship_0,title_ship_explode_l,1,1 p_wait 28+20-10h-4 p_trigger Pcds_chika.exp,always p_wait 4 p_circlewindow 1,big p_set hp,0 p_end start_path title_ship_explode_l p_groundobj on p_set vz,15 p_collisions off p_set clip,plane_BOSS p_set depthoffset,2 p_wait 8 p_trigger .add,always,20 p_wait 16 p_set shape,nullshape p_add worldx,-200 p_circlewindow 2 p_trigger Pcds_chika.exp,always p_wait 3 p_set hp,0 p_end .add p_add worldy,-6 p_add worldx,-3 p_return ;-------------------------------------------------------------------------------------------------- start_path title_ship_clip p_collisions off p_groundobj on p_wait 65 p_remove start_path title_dragon_clip p_collisions off p_groundobj on p_end ;-------------------------------------------------------------------------------------------------- start_path title_warps p_collisions off p_wait title_nintendo_time p_trigger .always,always p_spawn 0,0,-500,0,0,0,nullshape,title_warp_top,1,1,childno_title_warp0 p_spawn 0,0,-(173)<>2),0,0,0,dragon_1s,superdragon_body1s,1,1,childno_dragon_body P_START65816 s_set_objtobevar y,becomelastobj&WM stx al_immuneptr,y P_END65816 .cut2 p_do 8 p_ifsamedemo title_cut3,.cut2_0 p_dec rotx p_add roty,6 p_next p_do 8 p_ifsamedemo title_cut3,.cut2_0 p_inc rotx p_add roty,-6 p_next p_goto .cut2 .cut2_0 p_break .cut3 .cut3 p_set rotx,14h ;8+8+4 p_set roty,deg180 p_demoshape p_alwaysgenvecs on p_setvel 30 ; p_spawn 0,0,-123<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> START_PATH e_pla_test P_SOUNDEFTDISTPOS en_ringlaser_s P_SETTYPE LASER P_SET shape,enemybomb P_SPRITE 0,24 ;eweap_size P_ALWAYSGENVECS ON P_SOUND p2_EPlasma ;0C P_FACEPLAYER IMMEDIATE P_ALWAYSGENVECS ON P_QUADVECS ON P_DISTLESS 5000,.slow P_DISTLESS 7500,.mid P_DISTLESS 10000,.fast P_SETVEL 10 .fast P_ADD vel,5 .mid P_ADD vel,5 .slow P_ADD vel,25 P_SETRANDOM slopenum,3 P_SETRANDOM pbyte2,7 P_INDEX childrotx,.haba_tab,pbyte2 ; P_SETRANDOM childroty,3 P_SETRANDOM childroty,7 P_ADD childroty,4 P_SETRANDOM pbyte2 P_TRIGGER .life_ck,Always P_TRIGGER .wave_dat,Always P_TRIGGER .syusoku,16 .llp P_DISTLESS 4000,.sst P_GOTO .llp .sst P_TRIGGER .syusoku,OFF P_TRIGGER .syusoku,8 .lp P_DISTLESS 1000,.st P_GOTO .lp .st P_ACCEL 25,2 P_TRIGGER .wave_dat,OFF P_SET slopenum,6 P_IFSMALLER childrotx,slopenum,.hazure P_SCORE 1 P_FACEPLAYER IMMEDIATE .hazure P_WAIT 40 .rem P_REMOVE P_END .syusoku P_IFSAME childrotx,8,.ok P_INC childrotx .ok P_RETURN .wave_dat P_FACEPLAYER IMMEDIATE P_INDEX pbyte1,costab,pbyte2 P_DO childrotx ;2 P_DIV2 pbyte1 P_INEXT P_ADD pbyte2,childroty P_IFZERO slopenum,.zz P_IFSAME slopenum,1,.only_x P_IFSAME slopenum,2,.only_y .nzz P_ADD rotx,pbyte1 P_NEG pbyte1 P_ADD roty,pbyte1 P_RETURN .zz P_ADD rotx,pbyte1 .only_y P_ADD roty,pbyte1 P_RETURN .nonly_x P_NEG pbyte1 .only_x P_ADD rotx,pbyte1 P_RETURN .nonly_y P_NEG pbyte1 P_ADD roty,pbyte1 P_RETURN .life_ck P_INC pword1 P_IFNOTSAME pword1,110,.forc P_FORCE .rem .forc P_PRINT pword1,d,eguchi P_RETURN .haba_tab db 1,2,3,1 db 1,2,3,1 P_END ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;---------------------------------------------------------------------------------- printf "Title demo length = ",*-TITLEDEMO,"%n" ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; 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_alwaysgenvecs on p_setvel 50 p_gosub prou_dragon p_setbossflag sdf_coloff,ON p_set childrotx,20 p_zero pbyte2 p_rtrigger .always,always p_end .always p_chase rotx,childrotx ; p_add vy,vy ; p_add vy,vy ; p_add vy,vy ; p_add worldy,vy p_inc pbyte2 p_ifnotsame pbyte2,8,.sret1 p_zero pbyte2 p_neg childrotx .sret1 p_return ;--------------------------------------------------------------------------------------- END