;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º º ;º EGUCHI'S DPATHDAT º ;º º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º SPECIAL OBJECT º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ START_PATH e_test_0 P_INVISIBLE ON P_IMPORT pbyte2,KStackNumber P_IMPORT pbyte1,EEnemyNumber_5 P_IMPORT pword1,SebangoSwitch_5 .lp P_PRINT pbyte1,h,eguchi P_PRINT pbyte2,d,eguchi P_PRINT pword1,d,eguchi P_GOTO .lp P_END ;------------ ;------------ ;------------ ;------------ START_PATH e_auto_walker_bat P_INVISIBLE ON P_PLAYER 1 P_FORCETRANSFORM robot P_PLAYER 2 P_FORCETRANSFORM robot P_REMOVE ;----------- START_PATH e_final_map P_INVISIBLE ON P_EXPORT KSoundMapPtr,pbyte1 ;sound_ptr init P_EXPORT ebyte1,pbyte1 ;switch init P_EXPORT ebyte2,pbyte1 ; P_EXPORT ebyte3,pbyte1 ; P_EXPORT ebyte4,pbyte1 ; P_EXPORT ebyte5,pbyte1 ; P_EXPORT ebyte6,pbyte1 ; P_EXPORT eword1,pword1 ; P_DO 16 ; P_INC pbyte1 ; P_CLRSWITCH pbyte1 ; P_INEXT ; P_REMOVE ;------------ START_PATH e_andross_msg1 P_INVISIBLE ON P_WAIT 10 P_SET pbyte1,133 P_DO 3 P_MSG pbyte1 P_INC pbyte1 P_WAIT 30 P_NEXT P_REMOVE ;------------ START_PATH e_starfox_msg1 P_INVISIBLE ON P_WAIT 8 P_SET pbyte1,136 P_DO 6 P_MSG pbyte1 P_WAIT 40 P_INC pbyte1 P_NEXT P_REMOVE ;------------ START_PATH e_ck_msg_maker P_INVISIBLE ON P_IMPORT pbyte1,ebyte5 P_SET pbyte2,3 P_IFSWITCH pbyte2,pbyte1,.rem P_DO 20 P_IMPORT pbyte1,ebyte5 P_SETSWITCH pbyte2,pbyte1 P_EXPORT ebyte5,pbyte1 P_NEXT P_CLRSWITCH pbyte2,pbyte1 P_EXPORT ebyte5,pbyte1 .rem P_REMOVE ;;----------- START_PATH e_msg_maker P_INVISIBLE ON P_IMPORT pbyte1,ebyte5 P_SET pbyte2,3 P_IFSWITCH pbyte2,pbyte1,.now_msg P_SETSWITCH pbyte2,pbyte1 P_EXPORT ebyte5,pbyte1 P_IMPORT tx,Player_friend P_IFSAME tx,-1,.now_msg P_ADD tx,118 ;boost wo tsukae P_MSG tx P_DO 2 P_WAIT 100 P_NEXT P_IMPORT pbyte1,ebyte5 P_CLRSWITCH pbyte2,pbyte1 P_EXPORT ebyte5,pbyte1 .now_msg P_REMOVE ;------------ START_PATH e_fire_mark P_QSPAWN laser_0,egu_speed_RelElaser_suka,100,0 P_BECOME P_ACTIVE ON P_UNBECOME P_COLLISIONS OFF P_RANGECHECK OFF P_SPRITE 0,8 P_ADD tx,ap P_CLRTYPE enemy1 P_SETCOLANIM 0 P_WAIT 1 P_SETCOLANIM 1 P_WAIT 1 P_REMOVE ;----------- START_PATH egu_speed_RelElaser_suka P_COLLISIONS OFF P_RANGECHECK OFF P_RELTOPLAYER ON P_ALWAYSGENVECS ON P_SET childx,worldx P_SET childy,worldy P_SET childz,worldz P_FACEPLAYER IMMEDIATE P_SETRANDOM pbyte1,3 P_ADD pbyte1,-2 P_ADD roty,pbyte1 P_SETRANDOM pbyte1,3 P_ADD pbyte1,-2 P_ADD rotx,pbyte1 P_SETVEL 70 P_WAIT 1 P_SET ox,worldx P_SET oy,worldy P_SET oz,worldz P_NEG childx P_NEG childy P_NEG childz P_ADD ox,childx P_ADD oy,childy P_ADD oz,childz P_SETVEL 0 .loop P_DISTLESS 300,.near P_INC pword1 P_IFSAME pword1,100,.rem P_DO 2 P_ADD worldx,ox P_ADD worldy,oy P_ADD worldz,oz P_INEXT P_GOTO .loop .near P_SETVEL 127 P_WAIT 10 .rem P_REMOVE START_PATH egu_speed_RelElaser P_COLLISIONS OFF P_RANGECHECK OFF .lp P_WITHINRADIUS 300,.come .rcome P_FACEPLAYER IMMEDIATE P_MOVEINPLAYER 70 P_MOVEINPLAYER 70 P_INC pword1 P_IFSAME pword1,100,.rem P_GOTO .lp .come P_SETVEL 90 P_WAIT 10 .rem P_REMOVE ;ÉÍÍÍÍÍÍÍÍÍÍÍÍ» ;º SEA OBJECT º ;ÈÍÍÍÍÍÍÍÍÍÍÍͼ START_PATH e_kozakana P_SET hp,100 P_SHADOW OFF P_COLLISIONS OFF P_GOSUB sea_init_below P_SET pbyte1,roty P_ZERO roty P_SET ox,-800 P_SET oy,-50 P_DO pbyte1 P_INC pbyte2 P_EXPORT gbyte1,pbyte2 P_SPAWN 0,0,0,0,0,0,kozakana,e_kozakana_c,100,0,1 P_BECOME P_IMPORT pbyte1,gbyte1 P_SETID pbyte1 P_SET pbyte2,6 P_SETRANDOM pword1,255 ;511 P_ADD pword1,-128 ;256 P_SETSWITCH pbyte2,pword1 P_ADD childx,pword1 P_SETRANDOM pword1,255 ;511 P_ADD pword1,-128 ;256 P_SETSWITCH pbyte2,pword1 P_ADD childz,pword1 P_SETRANDOM pword1,127 P_ADD pword1,-127 P_SETSWITCH pbyte2,pword1 P_ADD childy,pword1 P_UNBECOME P_INEXT P_ALWAYSGENVECS ON P_SET childx,worldx P_NEG childx P_SET childy,worldy P_NEG childy P_SET childz,worldz P_NEG childz P_TRIGGER .kozakana_c_move,Always .loop P_SETVEL 40 P_ACCEL 10,1 P_WAIT 30 P_GOSUB .mk_fish_move P_DO 8 P_CHASE roty,childroty P_CHASE rotx,childrotx P_NEXT P_GOTO .loop .mk_fish_move LOCAL P_PUSH roty P_PUSH rotx P_FACEPLAYER IMMEDIATE P_SET childrotx,rotx P_SET childroty,roty P_PULL rotx P_PULL roty P_SETRANDOM childrotz,31 P_ADD childrotz,-16 P_ADD childrotx,childrotz P_RETURN .kozakana_c_move P_IFLARGER worldy,ox,.hi_ok P_SET worldy,ox P_CHASE rotx,0 .hi_ok P_IFSMALLER worldy,oy,.hi_ok2 P_SET worldy,oy .hi_ok2 P_ADD childx,worldx P_EXPORT gword1,childx P_ADD childy,worldy P_EXPORT gword2,childy P_ADD childz,worldz P_EXPORT gword3,childz P_SET childx,worldx P_NEG childx P_SET childy,worldy P_NEG childy P_SET childz,worldz P_NEG childz P_EXPORT gbyte1,roty P_EXPORT gbyte2,rotx P_ZERO pbyte2 P_DO pbyte1 P_INC pbyte2 P_BECOMECHILD pbyte2 P_GADD worldx,gword1 P_GADD worldy,gword2 P_GADD worldz,gword3 P_IMPORT roty,gbyte1 P_IMPORT rotx,gbyte2 P_UNBECOME P_INEXT P_RETURN ;------------ START_PATH e_kozakana_c P_SHADOW OFF P_COLLISIONS OFF P_GOSUB sea_init_below P_RELATIVE OFF P_END ;----------- START_PATH e_sea_nocol_above_soff P_SET hp,100 P_CLRTYPE enemy1 P_COLLISIONS OFF P_SHADOW OFF P_GOSUB sea_init_above P_END ;----------- START_PATH e_sea_buil_above_soff P_GOSUB init_hardslope_soff P_GOSUB sea_init_above ;.above_same LOCAL P_END ;----------- START_PATH e_sea_nocol_below_soff P_SET hp,100 P_CLRTYPE enemy1 P_SHADOW OFF P_GOSUB sea_init_below P_END ;----------- START_PATH e_sea_buil_below_soff P_GOSUB init_hardslope_soff P_GOSUB sea_init_below ;sea_init_below ; P_IMPORT pword1,Player1_worldy ; P_SET ox,-1000 ; P_IFLARGER pword1,ox,.below_same ; P_INVISIBLE ON ;.below_same ; P_TRIGGER i_sea_pl_in_sea_nocol,BelowSea ; P_TRIGGER i_sea_pl_out_sea,AboveSea ; P_RETURN P_END ;----------- START_PATH e_hyouzan P_CLIPPING ON P_GOSUB init_hardslope_soff P_SCENERY ;----------- START_PATH e_sea_outline P_SET hp,100 P_SHADOW OFF P_COLLISIONS OFF P_CLRTYPE enemy1 P_SET worldy,512 P_IMPORT pword1,Player1_worldy P_SET ox,-1000 P_IFLARGER pword1,ox,.again P_SET worldy,-488 .again P_TRIGGER .under,BelowSea P_TRIGGER .above,AboveSea P_END .under P_SET worldy,512 P_RETURN .above P_SET worldy,-488 P_RETURN ;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º GROUND OBJECT º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ START_PATH e_totem_pole P_GOSUB init_hardslope_soff P_INVISIBLE ON .wait_loop P_WITHINRADIUS 500,.near P_GOTO .wait_loop .near P_INPLAYERSCONE -10,10,.act_on P_GOTO .wait_loop .act_on P_SET worldy,400 P_CLIPPING ON P_INVISIBLE OFF P_COLLISIONS OFF P_DO 8 P_ADD worldy,-50 P_NEXT P_CLIPPING OFF P_ZERO worldy P_END ;------------ START_PATH e_kinoko P_GOSUB init_hardslope P_SETANIM 0 P_EXPORT gbyte1,roty P_INC roty P_DO roty P_ADD worldy,-20 P_INEXT P_ZERO roty P_EXPORT gword1,worldy P_SET pword1,-70 P_IFSMALLER worldy,pword1,.pass P_SET shape,kinoko_dlow .pass P_SPAWN 0,0,0,0,0,0,kinoko_n,e_buil_shadow_off,100,4,1 P_BECOME P_IMPORT childy,gword1 P_NEG childy P_IMPORT animframe,gbyte1 P_SET pbyte1,8 P_SETSWITCH pbyte1,animframe P_UNBECOME P_WAIT 1 P_POSCHILDREN OFF P_SCENERY ;------------ START_PATH e_for_m_iwa P_GOSUB init_hardslope_soff .col_loop P_WITHINRADIUS 1500,.change_id P_SET coltab,id_3_c&WM P_GOTO .col_loop .change_id P_IFNOTZERO pbyte1,.id_is_1 P_SET coltab,id_0_c&WM P_GOTO .col_loop .id_is_1 P_SET coltab,id_1_c&WM P_GOTO .col_loop ;------------ START_PATH e_hako_lift P_GOSUB init_hardslope P_SETANIM 0 P_SET pbyte1,-2 .loop P_WAIT 60 ; P_SOUNDEFFECT ob_slide_switch ;$ad P_DO 72 P_ADD worldy,pbyte1 P_NEXT ; P_SOUNDEFFECT leveltrig_stop ;$cc P_NEG pbyte1 P_IGOTO .loop ;------------ START_PATH e_hako_6 P_INC pbyte1 START_PATH e_hako_5 P_INC pbyte1 START_PATH e_hako_4 P_INC pbyte1 START_PATH e_hako_3 P_INC pbyte1 START_PATH e_hako_2 P_INC pbyte1 START_PATH e_hako_1 P_INC pbyte1 START_PATH e_hako_0 .hako_same P_SET pbyte2,8 P_SETSWITCH pbyte2,pbyte1 P_SET animframe,pbyte1 P_GOSUB init_hardslope_soff P_IMPORT pbyte1,KGameMapPtr P_IFNOTSAME pbyte1,5,.not_sea P_CLIPPING ON .not_sea P_SCENERY ;------------ START_PATH e_kowareru_box P_INC skidy P_IGOTO pe_antenna_box.start ;------------ START_PATH e_kaifuku_panel P_GOSUB init_hardslope_soff P_RADAROBJ ra_HPpanel P_CLIPPING ON P_INC slopenum P_SETCOLANIM 0 P_TRIGGER .kaifu_ani,Always P_TRIGGER .kaifu_on,WhenSteppedOn P_END .invis_arrow P_BECOMESHAPE P_INVISIBLE ON P_UNBECOME P_IGOTO .no_arrow .kaifu_on P_FINDSHAPE arrow_0 P_SHAPEDEAD .no_arrow P_SHAPEDISTLESS 500,.invis_arrow .no_arrow P_INC childrotx P_IFPLAYERFULLHP .kaifu_full P_IFNOTZERO pbyte1,.nothajimete P_SOUNDEFFECT shieldrecover ;$38 ; P_TRIGGER .kaifuku_kira,8 P_INC pbyte1 .nothajimete P_GINC b,player1_hpadd P_SET childrotz,5 P_RETURN .kaifu_full P_IFZERO pbyte1,.mou_tometa P_DEC childrotz P_IFNOTZERO childrotz,.mou_tometa P_SOUNDEFFECT leveltrig_stop ;$cc ; P_TRIGGER .kaifuku_kira,OFF P_ZERO pbyte1 .mou_tometa P_RETURN ;.kaifuku_kira ; P_QSPAWN kirakira,e_sp_kirakira,100,-3 ; P_BECOME ; P_COPYPLAYERPOS ; P_ADD worldy,-10 ; P_UNBECOME ; P_RETURN .kaifu_ani P_ADDCOLANIM 1,3 P_IFNOTSAME childroty,childrotx,.now_on P_IFZERO pbyte1,.now_on P_SOUNDEFFECT leveltrig_stop ;$cc ; P_TRIGGER .kaifuku_kira,OFF P_ZERO pbyte1 .now_on P_SET childroty,childrotx P_RETURN ;----------- START_PATH e_miss_dai_live_sea P_SET pword1,-1000 P_IFLARGER worldy,pword1,.in_sea ;out_sea P_GOSUB sea_init_above P_IGOTO .same_live .in_sea P_GOSUB sea_init_below .same_live ;----------- START_PATH e_miss_dai_live P_GOSUB init_hardslope_soff P_TRIGGER .miss_dead,WhenFlagged P_END .miss_dead P_FORCE .col_lock P_RETURN .col_lock P_STAMPSTART ;----------- START_PATH e_miss_dai_sea P_SET pword1,-1000 P_IFLARGER worldy,pword1,.in_sea ;out_sea P_GOSUB sea_init_above P_IGOTO .same_live .in_sea P_GOSUB sea_init_below .same_live START_PATH e_miss_dai P_SETCOLANIM 3 P_GOSUB init_hardslope_soff P_END ;----------- START_PATH e_planet_cannon P_SET roty,hp P_SET rotx,ap P_GOSUB set_hp100_ap4_enemy P_ACTIVE ON P_SHADOW OFF P_SET slopenum,50 P_SPAWN 0,0,130<