;;; ;;; incpub pathdata ;;;; ;;;;ebyte1 msg wo aratani hyoujishitemo yoika 0=OK/num=DAME ;;;;ebyte2 final door no lock kaijyono owatta kaisuu ;;;;ebyte2 space no wolf no tamedama 0=ataru/1=ataranai ;;;;ebyte3 tojikome door no lock kaijyono owatta kaisuu ;;;;ebyte4 semi final door no lock kaijyono owatta kaisuu ;;;;ebyte5 roomde de 1way_door no jyoutai 0=open/1=crose ;;;;ebyte5 bit3 space de msg_maker no jyoutai 0=inai/1=iru ;;;;ebyte6 bit1 demo ga owattaka doukano flag 0=demo/1=finished ;;;;ebyte6 bit2,3,4 yousai no antenna no jyoutai 0=mada/1=finished ;;;;ebyte6 bit5 modore no friend hikoucyuu flag 0=nashi/1=hikoucyuu ;;;;ebyte6 bit6,7,8 c_cup_switch no jyoutai 0=mada/1=finished ;;;;ebyte6 all_bit space de carier kara deru teki no kazu ;;;;ebyte7 tsuuro no jyoutai 0=groundobj ON/1=groundobj OFF ;;;;ebyte8 base nai no teki detemo iika 0=ok/1=dame ;;;;eword1 item no switch (stage gotoni init sareru) 0=mada/1=totta ;;;;eword2 dono hajimete msg wo hyoujisuruka 0=hyouji shinai/num=message number ;;;;eword3 hajimete msg no flag 1 2 3 4 ;;;; saisyu line teach base teach robo teach magma ;;;; 5 6 7 8 ;;;; teach boost teach airLR teach robLR teach fuse ;;;; 9 16 ;;;; pepper teach teach henkei ;;; ;;;;omake medal no number ;;;; ;;;;$40 mukade koroshitara ;;;;$41 sagyou box taoshitara ;;;;$42 hae box taoshitara ;;;;$43 kao man wo uttara ;;;;$44 kabemukade stg1_3 ;;;;$45 kabemukade stg4_5 ;;;;$46 kabemukade ext2_2 ;;;;$47 kabemukade stg1_5 ;;;; ;;;;;;;;;;;;;;;;;;;;; ;;;;;slope ni nottatokino takasa ga wakaru (pword1) ;;;; ;;;; P_JSL65816 getheight_l ;;;; P_IMPORT pword1,y1 ;;;; ;;;;;;;;;;;;;;;;;;;;; ;;;; ;;;showtrigs ;;; P_START65816 ;;; ldy al_stratmem,x ;;; lda.w heap,y ;;; printd Triggers,eguchi ;;; ;;; sta pathx1 ;;; iny ;;;.lp ;;; a16 ;;; lda.w heap,y ;;; printh T,eguchi ;;; a8 ;;; iny ;;; iny ;;; iny ;;; iny ;;; dec pathx1 ;;; bne .lp ;;; ;;; P_END65816 ;;; P_RETURN ;;;;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;;;;º º ;;;;º EGUCHI'S PATHDATA º ;;;;º º ;;;;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ junko_speed equ 10 run_speed equ 20 sankai_speed equ 60 action_dist equ 10000 ;;;;ÉÍÍÍÍÍÍÍÍÍÍ» ;;;;º DARK FOX º ;;;;ÈÍÍÍÍÍÍÍÍÍͼ ;; START_PATH e_wolf_demo ;; ;; P_RADAROBJ ra_sonota ;; P_INVISIBLE ON ;; P_WAIT 80 ;test ;; ;; P_COPYPLAYERPOS ;; P_ADD worldz,12000 ;; ;; P_QSPAWN wolf,e_wolf_demo_shape,10,10 ;; P_BECOME ;; P_ACTIVE ON ;; P_ADD worldz,10000 ;; P_ADD worldy,-6000 ;; P_UNBECOME ;; P_LINKTOBECOME ;; P_FACESHAPE IMMEDIATE ;; P_SETCAMERA IMMEDIATE ;; P_ADD roty,16 ;; P_ADD rotx,16 ;; P_DO 2 ;; P_SETCAMERA IMMEDIATE ;; P_NEXT ;; P_FLAGSHAPE ;;.more ;; P_BEGINDEMO ;; ;; P_GOSUB .get_speed ;; ;; P_DO 3 ;; P_DIV2 vx ;; P_DIV2 vy ;; P_DIV2 vz ;; P_INEXT ;; P_DO 20 ;; P_SETCAMERA ;; P_NEXT ;; ;; P_GOSUB .get_speed ;; ;; P_DO 100 ;; P_SETCAMERA ;; P_NEXT ;; ;; P_ENDDEMO ;; ;; P_REMOVE ;; P_END ;;.get_speed ;; P_BECOMESHAPE ;; P_EXPORT gword1,vx ;; P_EXPORT gword2,vy ;; P_EXPORT gword3,vz ;; P_UNBECOME ;; P_IMPORT vx,gword1 ;; P_IMPORT vy,gword2 ;; P_IMPORT vz,gword3 ;; P_RETURN ;;;------------ ;; START_PATH e_wolf_demo_shape ;; ;; P_ADD roty,120 ;; P_ADD rotx,24 ;; P_COLLISIONS OFF ;; P_QUADVECS ON ;;.wait ;; P_IFFLAG .go ;; P_GOTO .wait ;;.go ;; P_SETVEL 100 ;; P_END ;------------ START_PATH e_tamedama P_SETANIM 0 p_settype LASER P_SET coltab,id_1_c&wm P_RTRIGGER .hit_rem,WhenHit P_RTRIGGER .dead_coli,Always P_IMPORT pbyte1,KDifficulty P_IFSAME pbyte1,dif_hard,.go P_IFSAME pbyte1,dif_normal,.normal_ap P_SET ap,4 P_IGOTO .go .normal_ap P_SET ap,6 .go P_SOUNDEFTDISTPOS en_wolf_s_shot ;$b9 P_SOUND p2_wolf_laser ;0F ;sdst5 P_DO 64 P_DISTMORE 8000,.far P_SETVEL 0 P_DO 3 P_MOVEINPLAYER 100 P_INEXT P_GOSUB .rot P_IGOTO .ne .far P_QUADVECS ON P_SETVEL 100 P_FACEPLAYER y .ne P_NEXT .rem P_REMOVE .rot P_ADD rotx,32 P_ADD roty,32 P_RETURN .dead_coli P_IMPORT pbyte1,ebyte2 P_IFZERO pbyte1,.ok P_FORCE .rem .ok P_RETURN .hit_rem P_FORCE .rem P_RETURN ;----------- START_PATH e_wolf_tame p_collisions off p_sprite 0,16 .lp P_DO 15 P_ADD tx,2 P_NEXT P_WAIT 1 P_SET shape,tamatamal P_END ;------------ START_PATH e_find_tame P_INVISIBLE ON P_TRIGGER .find_tame,2 .lp P_IMPORT pbyte1,ebyte2 P_IFNOTZERO pbyte1,eg_remove P_FINDSHAPE wolf_1_eg P_SHAPEDEAD .f_wolf_eg P_IGOTO .cop .f_wolf_eg P_FINDSHAPE wolf_eg P_SHAPEDEAD eg_remove .cop P_BECOMESHAPE P_GOSUB expo_world P_UNBECOME P_GOSUB impo_world P_GOTO .lp ;.rem ; P_REMOVE .find_tame P_FINDSHAPE tame P_SHAPEDEAD .f_tamel P_IGOTO .teach .f_tamel P_FINDSHAPE tamel P_SHAPEDEAD .ret .teach P_SHAPEDISTMORE 4000,.ret P_GSET b,eftame,1 ; P_GSET b,eaction2,1 P_TRIGGER .find_tame,OFF P_TRIGGER .find_start_again,Timer,25 P_FORCE .lp .ret P_RETURN .find_start_again P_TRIGGER .find_tame,2 P_RETURN ;------------- ;pbyte1=free ;pbyte2=rotation no index ;slopenum=half of hp ;pword1=free ;childrotx ;childroty ;childrotz=movement ;childx=move counter ;tx=ref_rot_angle ;ty=ref_rot_counter ;childy=kaitenflag ;childz=collision 0=on/1=off START_PATH e_star_wolf P_GSET b,eftame,0 P_INVISIBLE ON P_RADAROBJ ra_enemy P_GOSUB wait_start_trigger P_GSET b,ebyte1,70 P_GOSUB set_hp100_ap4_enemy P_ENEMYDMGSE en_dmg_2 ;$65* P_COPYPLAYERPOS P_ADD worldz,3000 P_ADD worldx,10000 P_SET worldy,-4000 P_FACEPLAYER IMMEDIATE P_ADD worldz,5000 P_INVISIBLE OFF P_SOUND p2_wolf_arwing ;01 P_ENEMYRBDSE reboundlaser2 P_COLLISIONS OFF P_RTRIGGER .keep_dist,Always P_TRIGGER .first_msg,Timer,30 P_QSPAWN nullshape,e_find_tame,10,10 P_IMPORT pbyte1,KDifficulty P_IFSAME shape,wolf_1_eg,.set_hp ;yowaihounara P_INC pbyte1 .set_hp P_INDEX hp,e_wolf_hp,pbyte1 P_SET slopenum,hp P_ADD slopenum,-40 P_DIV2 slopenum P_ADD slopenum,40 P_INC slopenum P_GOSUB bm_star_wolf P_IMPORT pbyte1,STARWOLFNO P_IFZERO pbyte1,.this_hp P_IFSAME pbyte1,1,.ck_leon P_IFSAME pbyte1,2,.ck_pigma P_IMPORT pbyte1,ehp_algy P_IGOTO .ck_hp .ck_leon P_IMPORT pbyte1,ehp_leon P_IGOTO .ck_hp .ck_pigma P_IMPORT pbyte1,ehp_pigma .ck_hp P_IFZERO pbyte1,.this_hp .init_hp P_ADD pbyte1,10 P_IFLARGER hp,pbyte1,.kok P_SET pbyte1,hp .kok P_SET hp,pbyte1 P_GOSUB bm_in.hit .this_hp P_RTRIGGER .keep_hi,Always P_TRIGGER .gurari,WhenHit P_TRIGGER .find_pl_tame,Always P_ZERO worldy P_SET childrotx,40 P_SET childroty,2 P_SET childrotz,40 P_QUADVECS ON .main_action P_ACCEL 100,1 P_ZERO childx P_RTRIGGER .change_turn,128 P_RTRIGGER .change_updw,64 .turn_lp P_INC childx P_IFSAME childx,60,.atack P_IFNOTZERO childy,.now_rot P_CHASE rotz,childrotz .now_rot P_CHASE rotx,childrotx P_ADD roty,childroty P_GOTO .turn_lp ;------------ .keep_dist P_DISTLESS 15000,.dist_ok P_COLLISIONS OFF P_DO 5 P_FACEPLAYER y P_INEXT P_RETURN .dist_ok P_IFNOTZERO childz,.ret_col P_COLLISIONS ON .ret_col P_RETURN ;------------ .keep_hi P_SET pword1,-4000 P_IFSMALLER worldy,pword1,.p4000 P_SET pword1,4000 P_IFLARGER worldy,pword1,.p4000 P_CHILDDEAD 10,.b_nai P_REMOVE 10 P_REMOVE 11 .b_nai P_CHILDDEAD 9,.mk_boost P_RETURN .p4000 P_SET worldy,pword1 P_CHILDDEAD 9,.boo_nai P_REMOVE 9 .boo_nai P_CHILDDEAD 10,.breki P_RETURN .breki P_SPAWN -30< 7 ;;; ;;; P_IFSWITCH tx,pbyte1,.set_pos ;;; ;;; P_SET ty,1 ;;; P_IFSWITCH ty,pbyte2,.pass_1 ;;; P_RETURN ;;;.pass_1 ;;; P_INC ty ;;; P_IFSWITCH ty,pbyte2,.pass_2 ;;; P_RETURN ;;;.pass_2 ;;; P_INC ty ;;; P_RETURN ;;; ;;;;------------- ;;;mogu_base_x ;;; dw 0,800,800,1600,1600,0 ;;;mogu_base_z ;;; dw -800,-800,0,-800,0,0 ;;;;----------- ;;; START_PATH e_1_mogura_antenna ;;; ;;; P_QSPAWN ana_0,e_1_mogura_ana,100,0 ;;; P_STAMPSTART ;;; P_SET worldy,220 ;;; P_IGOTO pe_mogura_antenna.mog_1_start ;;; P_END ;;;;----------- ;;; START_PATH e_1_mogura_ana ;;; ;;; P_BECOMEINERT ;;; P_COLLISIONS OFF ;;; P_SHADOW OFF ;;; P_CLRTYPE enemy1 ;;; P_SET hp,100 ;;;.wait_stop ;;; P_IFFLAG .col_stop ;;; P_GOTO .wait_stop ;;;.col_stop ;;; P_STAMPSTART ;;; P_COLLISIONS OFF ;;; P_SHADOW OFF ;;; P_CLRTYPE enemy1 ;;; P_SET hp,100 ;;; P_SETCOLANIM 2 ;;; P_SCENERY ;;;;----------- ;;; START_PATH e_mogura_antenna ;;; ;;; P_SET pbyte2,30 ;flag mogura ;;;.mog_1_start LOCAL ;;; P_SET ap,4 ;;; P_SHADOW OFF ;;; P_SETANIM 0 ;;; P_INVINCIBLE ON ;;; P_CLIPPING ON ;;; P_SET pbyte1,antenna_hp ;;;.mogu_ante_up ;;; P_RADAROBJ ra_enemy ;;; P_SOUND p2_antenna ;;; P_SOUNDEFTDISTPOS ob_movewall_SL ;$90 ;;; ;;; P_DO 22 ;;; P_SET hp,100 ;;; P_ADD worldy,-10 ;;; P_NEXT ;;; ;;; P_INVINCIBLE OFF ;;; ;;; P_TRIGGER .mogante_hit,WhenHit ;;; P_DO 50 ;;; P_ADD roty,5 ;;; P_NEXT ;;; P_CLEARSTACK ;;; P_TRIGGER .mogante_hit,OFF ;;; ;;; P_INVINCIBLE ON ;;; ;;; P_SOUNDEFTDISTPOS ob_movewall_down ;$91 ;;; P_DO 22 ;;; P_ADD worldy,10 ;;; P_SET hp,100 ;;; P_NEXT ;;; ;;; P_IFZERO pbyte2,.for_mog_1_ante ;;; P_GOSUB pe_antenna.clr_cker ;;; P_REMOVE ;;;.for_mog_1_ante ;;; P_RADAROBJ ra_off ;;; P_SOUND port2_stop ;00 ;;;.mog_1_wait ;;; P_WAIT 60 ;;; P_RANDOMGOTO .mog_1_wait ;;; P_GOTO .mogu_ante_up ;;; ;;;.mogante_hit ;;; P_IFLARGER hp,pbyte1,.mog_live ;;; P_FORCE .exp ;;;.mog_live ;;; P_RETURN ;;;.exp ;;; P_TRIGGER .mogante_hit,OFF ;;; ;;; P_IFNOTZERO pbyte2,.not_1_mog ;;; P_FINDSHAPE ana_0 ;;; P_FLAGSHAPE ;;;.not_1_mog ;;; P_IGOTO pe_antenna.exp_mogante ;;;;---------- ;;; START_PATH e_mogura_hou ;;; ;;; P_SHADOW OFF ;;; P_CLIPPING ON ;;; P_WEAPON EPlasma1 ;;; P_FACEPLAYER IMMEDIATE ;;; P_RADAROBJ ra_honmei ;;; P_TRIGGER .mog_hou_dead,WhenDead ;;; ;;; P_SOUNDEFTNEARPOS ob_movewall_SL ;$90 ;;; ;;; P_DO 15 ;;; P_ADD worldy,-10 ;;; P_NEXT ;;; ;;; P_DO 50 ;;; P_FACEPLAYER y ;;; P_PLAYERINCONE 1,.mog_fire ;;; P_IGOTO .to_next ;;;.mog_fire ;;; P_BREAK .mog_fire_on ;;;.to_next ;;; P_NEXT ;;; ;;;.mog_fire_on ;;; P_CLEARSTACK ;;; P_BEHINDKPLAYER .out_range ;;; P_ADD worldy,-100 ;;; P_GOSUB immed_fire ;;; P_ZERO rotx ;;; P_ADD worldy,100 ;;;.out_range ;;; P_WAIT 20 ;;; P_SOUNDEFTNEARPOS ob_movewall_down ;$91 ;;; P_DO 15 ;;; P_ADD worldy,10 ;;; P_NEXT ;;; ;;; P_GOSUB pe_antenna.clr_cker ;;; P_REMOVE ;;;.mog_hou_dead ;;; P_GOSUB pe_antenna.clr_cker ;;; P_SCORE sc_mog_hou ;;; P_COLLISIONS OFF ;;; P_IFBETWEEN -10,worldy,30,.normal ;;; P_SET worldy,20 ;;;.normal ;;; P_RETURN ;;;;----------- ;;; START_PATH e_water_antenna ;;; ;;; P_GOSUB set_hp100_ap4_enemy ;;; P_CLRTYPE enemy1 ;;; P_SET pbyte1,antenna_hp ;;; P_SETANIM 0 ;;; P_TRIGGER .water_ante_hit,WhenHit ;ByPlayer ;;; P_RANGECHECK OFF ;;;.lp ;;; P_INVISIBLE ON ;;; P_WAIT 100 ;;; P_CLIPPING ON ;;; P_SET worldy,220 ;;; P_INVISIBLE OFF ;;; P_QSPAWN splash,e_sp_splash,7,40 ;;; P_BECOME ;;; P_ACTIVE ON ;;; P_SET worldy,-50 ;;; P_UNBECOME ;;; P_SOUNDEFTDISTPOS en_outmarine ;$89 ;;; P_DO 4 ;;; P_ADD worldy,-47 ;;; P_NEXT ;;; ;;; P_SPAWN 0,-50,0,0,0,0,splash,e_sp_splash_cont,7,30,9 ;;; P_BECOME ;;; P_ACTIVE ON ;;; P_UNBECOME ;;; P_SPAWN 0,-50,0,0,0,0,splash,e_sp_splash_cont,7,0,10 ;;; P_BECOME ;;; P_ACTIVE ON ;;; P_UNBECOME ;;; ;;; P_SOUND p2_antenna ;08 ;;; ;;; P_DO 40 ;;; P_ADD roty,4 ;;; P_NEXT ;;; ;;; P_SOUND port2_stop ;;; ;;; P_QSPAWN splash,e_sp_splash,7,40 ;;; P_BECOME ;;; P_ACTIVE ON ;;; P_SET worldy,-50 ;;; P_UNBECOME ;;; P_REMOVE 9 ;;; P_REMOVE 10 ;;; ;;; P_SOUNDEFTDISTPOS en_inmarine ;$88 ;;; P_DO 4 ;;; P_ADD worldy,47 ;;; P_NEXT ;;; P_GOTO .lp ;;;.water_ante_hit ;;; P_IFLARGER hp,pbyte1,.ok ;;; P_FORCE .ante_out ;;;.ok ;;; P_RETURN ;;;.ante_out ;;; P_TRIGGER .water_ante_hit,OFF ;;; P_CLIPPING ON ;;; P_SET worldy,32 ;;; P_IGOTO pe_antenna.exp_mogante ;;;;----------- ;;; START_PATH e_room_antennabig ;;; ;;; P_SET hp,100 ;;; P_SET rotx,-64 ;;; P_SPAWN 0,-40<>>> p_set shape,nullshape P_GOSUB mk_big_senkan ; p_spawn 0,0,-25<>>> p_export corex,worldx p_export corez,worldz p_export coreroty,roty p_remove ;!!!!!!!!!!!!<<<< ;---------- start_path e_tametame p_collisions off p_sprite 0,32 p_set tx,64 P_END ;;;;------------ ;;; START_PATH e_senkan_core ;;; ;;; P_SET hp,100 ;;; P_COLLISIONS OFF ;;; P_SPAWN 70<>>> p_export corex,worldx p_export corez,worldz p_export coreroty,roty ;!!!!!!!!!!!!<<<< P_END ;------------ START_PATH e_sh_base_shield P_RTRIGGER .shield_hit,WhenHit P_SET slopenum,95 P_SET skidy,ap P_SET ap,4 P_ACTIVE ON P_SHADOW OFF P_IMPORT pword1,PlanetSwitch P_IFSWITCH skidy,pword1,.already_end P_TRIGGER marker_set,Always P_END .shield_hit P_IFLARGER hp,slopenum,.ok P_COLLISIONS OFF P_FORCE .dead .ok P_RETURN .dead P_TRIGGER .shield_hit,OFF P_SET slopenum,85 P_IFLARGER hp,slopenum,.sugu P_IFZERO skidy,.sugu P_DO skidy P_WAIT 10 P_NEXT .sugu P_GDEC b,KEnemyNumber P_GDEC b,CurrentEEnemyNumber P_IMPORT pword1,PlanetSwitch P_SETSWITCH skidy,pword1 P_EXPORT PlanetSwitch,pword1 P_QSPAWN chi_b_2,e_wakidashi_damy_exp,10,10 P_BECOME P_ACTIVE ON P_UNBECOME P_SCORE sc_open_key P_TRIGGER marker_set,OFF .already_end P_COLLISIONS OFF P_SET shape,chi_b_2 P_END ;------------ START_PATH e_base_cliper P_GROUNDOBJ ON P_COLLISIONS OFF P_SET pword1,childy P_ZERO oy .lp P_IFFLAG .act1 P_GOTO .lp .act1 P_SOUNDEFFECT ob_black_barrior ;$9b .act P_CHASE childy,100 P_IFLARGER childy,oy,.okk P_GOTO .act .okk P_FLAGMOTHER .end P_REMOVE ;------------ START_PATH e_carier_core2_c P_CLIPPING ON P_SHADOW OFF P_COLLISIONS OFF P_SET pword1,-8<