;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ StarFox II ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ º ;º Copyright Argonaut Software Limited, 1993. º ;º All Rights Reserved. º ;ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ ;º Filename: BPATHDAT.ASM º ;ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ ;º Description: Boss programs (written in the PATH language) º ;ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ ;º Date: 29/8/94 º ;ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ ;º Author: Dylan Cuthbert º ;ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ ;º Modification list: º ;º BOSS DODORA º ;º BOSS PIERROT º ;º BOSS CRUSHER º ;º BOSS DRAGON º ;º BOSS TANK º ;º BOSS RUNNER º ;º BOSS ANDORF º ;º º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ boss_crusher_deflector_hp equ 4 boss_crusher_cannon_hp equ 2 boss_crusher_body_hp equ 6 boss_crusher_deflector_ap equ 1 boss_crusher_cannon_ap equ 1 boss_crusher_body_ap equ 1 boss_crusher_cplasma_ap equ 1 boss_dragon_hp equ 24 boss_dragon_ap equ 4 boss_crusher_rot_speed equ deg5 boss_pierrot_hands_hp equ 24 boss_pierrot_head_hp equ 64 boss_pierrot_max_z equ 800 boss_pierrot_min_z equ 700 boss_dodora_hp equ 24 boss_dodora_change_hp equ 16 boss_dodora_max_z equ 600 boss_dodora_stop_z equ 500 boss_dodora_min_z equ 400 boss_runner_hp equ 40 ;eguchi change 32->120 boss_runner_ap equ 4 boss_runner_wheel_ap equ 4 b_tank_launcher_hp equ 30 ;eguchi change 10->30 b_tank_launcher_ap equ 4 b_tank_ap equ 4 boss_andorf_mask_hp_norm equ 16 boss_andorf_mask_hp_hard equ 10 boss_andorf_cowl_hp_norm equ 20 boss_andorf_cowl_hp_hard equ 14 boss_andorf_hand_hp equ 16 boss_andorf_eye_hp equ 20 boss_andorf_hand_ap equ 1 boss_andorf_ball_ap equ 2 boss_andorf_breath_ap equ 2 boss_andorf_lasereye_ap equ 1 boss_andorf_head_ap equ 2 eye_time equ 50 boss_andorf_eye_ap equ 4 boss_andorf_eyecube_hp equ 20 boss_andorf_core_hp equ 22 boss_andorf_toge_ap equ 1 boss_tako_hp equ 50 boss_tako_ap equ 4 clippos_boundmax equ 3092-512 ;------------------------------------------- ; Octopus BOSS P_BOSSMODELIST Octopus ;----------- FLAGS ------------- P_BOSSFLAGLIST P_BOSSFLAG playerundersea P_BOSSFLAG liftlegs P_BOSSFLAG lowerlegs P_BOSSFLAG wibble P_BOSSFLAG hit P_BOSSFLAG abovesea P_BOSSFLAG noclipcheck tako_child_leg1 equ 1 tako_child_leg2 equ 5 tako_child_leg3 equ 10 tako_child_buildup equ 30 tako_max_children equ 20 ;------------------------------- START_PATH BOSS_tako P_SHADOW OFF ; P_RANGECHECK OFF P_RADAROBJ ra_enemy P_TRIGGER radar_change,8 P_ENEMYDMGSE en_cry_3 P_SET skidy,hp P_IMPORT pword1,planetswitch P_IFSWITCH skidy,pword1,.remit P_IGOTO .norem .remit P_REMOVE .norem P_SET shape,tako_0 P_SET ap,boss_tako_ap P_SET hp,boss_tako_hp ;;;;eguchi write P_SET pbyte1,hp ; P_DIV2 pbyte1 P_DIV2 pbyte1 P_EXPORT bosshp,pbyte1 P_EXPORT bossmaxhp,pbyte1 ;;;;eguchi end ;eguchi coment P_EXPORT bosshp,hp ;eguchi coment P_EXPORT bossmaxhp,hp P_CLRBOSSFLAGS P_SETBOSSNAME name_tako P_SPAWN -5,-20,0,deg22,deg90-deg22,0,nullshape,tako_dummypiece,10,10,tako_child_leg1 P_SPAWN 5,-20,0,deg22,-deg90+deg22,0,nullshape,tako_dummypiece,10,10,tako_child_leg2 P_SPAWN 0,-20,5,deg22,deg180,0,nullshape,tako_dummypiece,10,10,tako_child_leg3 P_TRIGGER .belowsea,BelowSea P_TRIGGER .abovesea,AboveSea P_TRIGGER .hit,WhenHit P_TRIGGER .always,ALWAYS P_RTRIGGER .dead,WhenDead P_INVISIBLE ON P_SETBOSSFLAG wibble,ON .wait P_WAIT 1 P_IFBOSSFLAG hit,OFF,.wait P_SETBOSSFLAG wibble,hit,OFF P_INVINCIBLE ON P_DO 10 P_FACEPLAYER Y P_NEXT P_SETBOSSFLAG lowerlegs,ON P_SET vy,-20 P_WAIT 5 P_SET vy,-60 P_GOSUB .setclipping P_TRIGGER .awa_spawn,2 .untilsurface P_WAIT 1 P_IFNOTBETWEEN -1100,worldy,-940,.untilsurface P_SET vy,0 P_TRIGGER .awa_spawn,OFF P_SETBOSSFLAG lowerlegs,OFF P_SETBOSSFLAG liftlegs,abovesea,ON P_WAIT 10 P_SETBOSSFLAG liftlegs,wibble,OFF P_IFBOSSFLAG playerundersea,ON,.madainvin P_INVINCIBLE OFF .madainvin P_SET oy,worldy P_RTRIGGER .headwibble,ALWAYS ; --- Main loop with King Tako sitting on the sea .loop P_DO 2 ; --- Make sure all the legs are flat P_GOSUB .legsdown ; --- rotate to the left P_DO 8 P_ADD roty,-5 P_CIRCLEPLAYER 1 P_NEXT ; --- Raise one leg (arm) P_DO 10 P_BECOMECHILD tako_child_leg1 P_CHASE childrotx,-deg45 P_CHASE childrotx,-deg45 P_UNBECOME P_CIRCLEPLAYER 1 P_NEXT ; --- Flag the leg to make it fire a plasma P_FLAGCHILD tako_child_leg1 P_FLAGCHILD tako_child_leg1+3 P_WAIT 4 ; P_FLAGCHILD tako_child_leg1+3 ; P_WAIT 2 ; P_FLAGCHILD tako_child_leg1+3 ; P_WAIT 2 ; --- set the legs flat again P_GOSUB .legsdown ; --- rotate to the right P_DO 8 P_ADD roty,5 P_CIRCLEPLAYER -1 P_NEXT ; --- Raise one leg (arm) P_DO 10 P_BECOMECHILD tako_child_leg2 P_CHASE childrotx,-deg45 P_CHASE childrotx,-deg45 P_UNBECOME P_CIRCLEPLAYER -1 P_NEXT ; --- Flag that leg also to make it fire P_FLAGCHILD tako_child_leg2 P_FLAGCHILD tako_child_leg2+3 P_WAIT 4 ; P_FLAGCHILD tako_child_leg2+3 ; P_WAIT 2 ; P_FLAGCHILD tako_child_leg2+3 ; P_WAIT 2 P_NEXT ; --- set the legs flat again P_GOSUB .legsdown P_WAIT 5 P_DO 10 P_ADD roty,deg11 P_ADD oy,-16 P_ADD worldx,5 P_ADD rotx,1 P_NEXT P_DO 20 P_ADD roty,deg11 P_ADD oy,40 P_ADD rotx,-1 P_MOVEINPLAYER 5 P_CIRCLEPLAYER 2 P_NEXT P_ALWAYSGENVECS ON P_DO 2 P_SETVEL 100 P_DO 40 P_CHASE rotx,deg45 P_NEXT P_SETVEL 0 P_DO 20 P_CHASE rotx,0 P_NEXT P_NEXT P_SETVEL 100 P_DO 80 P_CHASE rotx,deg45 P_NEXT P_ALWAYSGENVECS OFF P_SETVEL 0 .waituntilabove P_ADD oy,-20 P_ADD roty,deg11 P_CHASE rotx,0 P_WAIT 1 P_IFNOTBETWEEN -1100,worldy,-940,.waituntilabove P_GOTO .loop P_END ; --- set all legs flat .legsdown P_DO 15 P_BECOMECHILD tako_child_leg1 P_CHASE childrotx,0 P_UNBECOME P_BECOMECHILD tako_child_leg2 P_CHASE childrotx,0 P_UNBECOME P_NEXT P_DO 10 P_FACEPLAYER Y P_NEXT P_RETURN ; --- When the tako dies, set off the explosions .dead ; P_GDEC B,KEnemyNumber ;;;;eguchi write P_SET hp,1 P_SCREENFLASH P_FORCE .tako_exp P_RETURN .tako_exp P_TRIGGER .dead,OFF P_CLRDEMOSHAPE P_COLLISIONS OFF P_TRIGGER crash_flash,4 P_WAIT 30 ; drop switch P_EXPORT gbyte1,skidy P_QSPAWN on_d,e_sw_base_sw_drop_sea,100,4 P_BECOME P_IMPORT skidy,gbyte1 P_UNBECOME P_GOSUB boss_exp_screen_flash P_SCORE 1000 P_CIRCLEWINDOW 1,big P_SOUNDEFTPOS en_death_3 P_SOUNDEFTPOS bs_bossexplode2 P_EXPLODE ;;;;eguchi end P_RETURN ; --- wobble the head up and down .headwibble P_SET worldy,oy P_INDEX pbyte1,sintab,pbyte2 P_ADD pbyte2,17 P_DIV2 pbyte1 P_DIV2 pbyte1 P_DIV2 pbyte1 P_ADD worldy,pbyte1 P_RETURN ; --- set all children to clip --- .setclipping P_CLIPPING ON P_SET pbyte1,0 P_DO tako_max_children P_BECOMECHILD pbyte1 P_CLIPPING ON P_UNBECOME P_INC pbyte1 P_INEXT P_RETURN .awa_spawn P_QSPAWN bubble,tako_awa,10,10 P_RETURN ; --- set the marker for the track arrow .always P_SETMARKER 1 P_GOSUB clippos P_IFBOSSFLAG noclipcheck,ON,.con342 P_IMPORT tx,bclipflag P_IFZERO tx,.con342 P_RTRIGGER .turnaround,ALWAYS,deg90/deg11 P_RTRIGGER .checkon,Timer,50 P_SETBOSSFLAG noclipcheck,ON .con342 P_RETURN .turnaround P_ADD roty,deg11 P_RETURN .checkon P_SETBOSSFLAG noclipcheck,OFF P_RETURN ; --- hit routine .hit ;;;;eguchi write P_PUSH pbyte1 P_SET pbyte1,hp P_DIV2 pbyte1 ; P_DIV2 pbyte1 P_EXPORT bosshp,pbyte1 P_PULL pbyte1 ;;;;eguchi end ;eguchi coment P_EXPORT bosshp,hp P_SETBOSSFLAG hit,ON P_RETURN ; --- set the flags for when the player goes above the sea .abovesea P_SETBOSSFLAG playerundersea,OFF P_IFBOSSFLAG abovesea,OFF,.nocols1 P_INVINCIBLE OFF .nocols1 P_RETURN ; --- set the flags for when the player goes below the sea .belowsea P_SETBOSSFLAG playerundersea,ON IFEQ 0 P_INVISIBLE OFF P_IFBOSSFLAG abovesea,OFF,.nocols2 P_INVINCIBLE OFF .nocols2 P_PUSH pbyte1 P_SET pbyte1,0 P_DO tako_max_children P_BECOMECHILD pbyte1 P_INVISIBLE OFF P_COLLISIONS OFF P_UNBECOME P_INC pbyte1 P_INEXT P_PULL pbyte1 ENDC P_RETURN ;-------------------------------------------------------------- clippos P_GSET B,bclipflag,0 P_GOSUB .xchk2 P_GOSUB .zchk2 P_PUSH ox P_PUSH oz P_PUSH slopenum .andagain P_ZERO slopenum P_SET ox,32767 P_IFNOTBETWEEN -1024,worldz,1024,.noxchk1 P_GOSUB .xchk1 .noxchk1 P_IFNOTBETWEEN -1024,worldx,1024,.nozchk1 P_GOSUB .zchk1 .nozchk1 P_IFZERO slopenum,.ret2 P_GINC B,bclipflag P_IFSAME slopenum,1,.1 P_IFSAME slopenum,2,.2 P_IFSAME slopenum,3,.3 P_IFSAME slopenum,4,.4 .ret2 P_PULL slopenum P_PULL oz P_PULL ox P_RETURN .1 P_SET worldx,-1025 P_IGOTO .andagain .2 P_SET worldx,1025 P_IGOTO .andagain .3 P_SET worldz,-1025 P_IGOTO .andagain .4 P_SET worldz,1025 P_IGOTO .andagain .xchk1 P_IFBETWEEN -1024,worldx,0,.xchk1_1 P_IFBETWEEN 0,worldx,1024,.xchk1_2 P_RETURN .xchk1_1 ;; P_SET worldx,-1024 P_SET oz,worldx P_ADD oz,1024 P_IFLARGER oz,ox,.ret P_SET slopenum,1 P_SET ox,oz .ret P_RETURN .xchk1_2 ;; P_SET worldx,1024 P_SET oz,worldx P_NEG oz P_ADD oz,1024 P_IFLARGER oz,ox,.ret P_SET slopenum,2 P_SET ox,oz P_RETURN .xchk2 P_IFBETWEEN -clippos_boundmax-2048,worldx,-clippos_boundmax,.xchk2_1 P_IFBETWEEN clippos_boundmax,worldx,clippos_boundmax+2048,.xchk2_2 P_RETURN .xchk2_1 P_SET worldx,-clippos_boundmax P_GINC B,bclipflag P_RETURN .xchk2_2 P_SET worldx,clippos_boundmax P_GINC B,bclipflag P_RETURN .zchk1 P_IFBETWEEN -1024,worldz,0,.zchk1_1 P_IFBETWEEN 0,worldz,1024,.zchk1_2 P_RETURN .zchk1_1 ;; P_SET worldz,-1024 P_SET oz,worldz P_ADD oz,1024 P_IFLARGER oz,ox,.ret P_SET slopenum,3 P_SET ox,oz P_RETURN .zchk1_2 P_SET oz,worldz P_NEG oz P_ADD oz,1024 P_IFLARGER oz,ox,.ret P_SET slopenum,4 P_SET ox,oz ;; P_SET worldz,1024 P_RETURN .zchk2 P_IFBETWEEN -clippos_boundmax-2048,worldz,-clippos_boundmax,.zchk2_1 P_IFBETWEEN clippos_boundmax,worldz,clippos_boundmax+2048,.zchk2_2 P_RETURN .zchk2_1 P_SET worldz,-clippos_boundmax P_GINC B,bclipflag P_RETURN .zchk2_2 P_SET worldz,clippos_boundmax P_GINC B,bclipflag P_RETURN IFEQ 1 P_IFBETWEEN -1024,worldz,1024,.chk1 .nxtchk P_IFBETWEEN -1024,worldx,1024,.chk2 .nxtchk2 P_RETURN .chk1 P_GOSUB .chkit1 P_IGOTO .nxtchk .chkit1 P_IFBETWEEN -clippos_boundmax-2048,worldx,-clippos_boundmax,.clp1 P_IFBETWEEN -1024,worldx,0,.clp2 P_IFBETWEEN 0,worldx,1024,.clp3 P_IFBETWEEN clippos_boundmax,worldx,clippos_boundmax+2048,.clp4 P_RETURN .clp1 P_SET worldx,-clippos_boundmax P_RETURN .clp2 P_SET worldx,-1024 P_RETURN .clp3 P_SET worldx,1024 P_RETURN .clp4 P_SET worldx,clippos_boundmax P_RETURN .chk2 P_GOSUB .chkit2 P_IGOTO .nxtchk2 .chkit2 P_IFBETWEEN -4096,worldz,-3092,.clp5 P_IFBETWEEN -1024,worldz,0,.clp6 P_IFBETWEEN 0,worldz,1024,.clp7 P_IFBETWEEN 3092,worldz,4096,.clp8 P_RETURN .clp5 P_SET worldz,-3092 P_RETURN .clp6 P_SET worldz,-1024 P_RETURN .clp7 P_SET worldz,1024 P_RETURN .clp8 P_SET worldz,3092 P_RETURN ENDC ;-------------------------------------------------------------- START_PATH tako_awa P_COLLISIONS OFF P_SHADOW OFF ; P_RANGECHECK OFF P_SPRITE 0,32 P_ADD worldy,150< c_title c_name1 c_title c_name1 c_title c_name1 c_title c_name1 c_name1 c_name1 c_title c_name1 c_title <3D SHAPE DESIGN> c_name1 c_title c_name1 c_name1 c_name1 c_title <3D SYSTEM PROGRAM> c_name1 c_name1 c_title c_name1 c_title < > c_name1 < THE END> c_end ENDC ;------------------------------------------- ; the Nintendo presents introduction P_BOSSMODELIST IntroText ;--------- FLAGS ---------- P_BOSSFLAGLIST P_BOSSFLAG burstout START_PATH NintendoPresents P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_CLRBOSSFLAGS P_SET pbyte1,0 P_DO 9 P_INDEX ox,.tabsh,pbyte1 P_INDEX pbyte2,.tabx,pbyte1 P_INC pbyte1 P_EXPORT gword1,ox P_QSPAWN nullshape,font_flyin,10,19 P_BECOME P_IMPORT shape,gword1 P_UNBECOME P_QSPAWN nullshape,font_flyin,10,20 P_BECOME P_IMPORT shape,gword1 P_UNBECOME IFNE mark_scale-3 error ENDC P_SET oy,pbyte2 P_ADD oy,oy P_ADD oy,oy P_ADD oy,oy P_ADD worldx,oy P_NEXT P_SET worldx,-750 P_QSPAWN clipshape,font_clip3,10,10 P_WAIT 92 P_SETBOSSFLAG burstout,ON P_REMOVE .tabsh dw mark_0 dw mark_N dw mark_i dw mark_nn dw mark_t dw mark_e dw mark_nn dw mark_d dw mark_o .tabx db -70 db 19 db 18 db 19 db 19 db 23 db 23 db 23 db 0 IFEQ 1 .newline P_SET worldx,-400 P_QSPAWN clipshape,font_clip2,10,10 P_SET pbyte2,0 P_GOSUB moji_throwchars P_WAIT 10 P_SET worldx,-400 P_ADD worldy,200 P_ADD worldz,200 .nextchar2 P_INDEX pbyte1,nintendomsg,pbyte2 P_INC pbyte2 P_IFZERO pbyte1,.nomoremoji2 P_GOSUB getfontshape P_EXPORT gword1,pword1 P_QSPAWN chr_a,font_flyin,10,10 P_BECOME P_IMPORT shape,gword1 P_UNBECOME ; P_WAIT 2 P_ADD worldx,120 P_GOTO .nextchar2 .nomoremoji2 P_WAIT 60 P_SETBOSSFLAG burstout,ON P_WAIT 100 P_ADD worldy,-200 P_ADD worldz,-200 P_SETBOSSFLAG burstout,OFF P_REMOVE ENDC ;------------------------------------------------- ; Game over text uses NintendoPresents engine START_PATH corneriafell P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_CLRBOSSFLAGS P_SET pbyte2,corneriafellmsg-nintendomsg p_igoto Pgameover.enter START_PATH GameOver P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_CLRBOSSFLAGS P_SET pbyte2,gameovermsg-nintendomsg .enter LOCAL 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_WAIT 60 P_SETBOSSFLAG burstout,ON P_WAIT 100 P_ADD worldy,-200 P_ADD worldz,-200 P_SETBOSSFLAG burstout,OFF P_REMOVE nintendomsg db "NINTENDO",0 db "PRESENTS",0 gameovermsg db " GAME",0 db " OVER",0 ;KAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKA youwinmsg db "YOU WIN",0 db " ",0 youlostmsg db "YOU LOST",0 db " ",0 tobecontinuedmsg db " TO BE",0 db "CONTINUED",0 corneriafellmsg db "CORNERIA",0 db " FELL",0 ;KAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKA ;--------------------------------------------------- ; throw the characters out one by one moji_throwchars .nextchar P_INDEX pbyte1,nintendomsg,pbyte2 P_INC pbyte2 P_IFZERO pbyte1,.nomoremoji P_GOSUB getfontshape P_EXPORT gword1,pword1 P_QSPAWN chr_a,font_flyin,10,10 P_BECOME P_SET coltab,fieryfont_c&WM P_CLIPPING BOSS P_IMPORT shape,gword1 P_UNBECOME P_QSPAWN chr_a,font_flyin,10,10 P_BECOME P_SET pbyte1,1 P_CLIPPING BOSS2 P_IMPORT shape,gword1 P_UNBECOME ; P_WAIT 2 P_ADD worldx,120 P_GOTO .nextchar .nomoremoji P_RETURN ;--------------------------------------------------------- ; entry: pbyte1 = ascii code ; exit: pword1 = shape address ;--------------------------------------------------------- getfontshape P_IFBETWEEN 47,pbyte1,58,.numbers P_ADD pbyte1,-65 P_IFBETWEEN -66,pbyte1,-1,.noletter P_INDEX pword1,fontshapes,pbyte1 P_RETURN .noletter P_SET pword1,nullshape P_RETURN .numbers P_ADD pbyte1,-48 P_INDEX pword1,fontnumbers,pbyte1 P_RETURN fontshapes dw chr_a&WM dw chr_b&WM dw chr_c&WM dw chr_d&WM dw chr_e&WM dw chr_f&WM dw chr_g&WM dw chr_h&WM dw chr_i&WM dw chr_j&WM dw chr_k&WM dw chr_l&WM dw chr_m&WM dw chr_n&WM dw chr_o&WM dw chr_p&WM dw chr_q&WM dw chr_r&WM dw chr_s&WM dw chr_t&WM dw chr_u&WM dw chr_v&WM dw chr_w&WM dw chr_x&WM dw chr_y&WM dw chr_z&WM fontnumbers dw chr_0&WM dw chr_1&WM dw chr_2&WM dw chr_3&WM dw chr_4&WM dw chr_5&WM dw chr_6&WM dw chr_7&WM dw chr_8&WM dw chr_9&WM ;------------------------------------ START_PATH font_clip3 P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_GROUNDOBJ ON P_SET rotz,deg90+deg22 P_SET roty,0 P_SET rotx,0 P_ADD worldz,1500 P_ADD worldx,-100 .wipeout P_WAIT 19 P_DO 2000/150 P_ADD worldx,150 P_NEXT .noburstyet P_IFBOSSFLAG burstout,ON,.remove P_GOTO .noburstyet .remove P_REMOVE ;------------------------------------ START_PATH font_clip2 P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_GROUNDOBJ ON P_SET rotz,deg90+deg22 P_SET roty,0 P_SET rotx,0 P_ADD worldz,1000 P_ADD worldx,-100 .wipeout P_WAIT 30 ; P_DO 1000/50 ; Sorry! Kawagoe chenged (12/26) P_DO 1100/50+2 P_ADD worldx,50 P_NEXT .noburstyet P_IFBOSSFLAG burstout,ON,.remove P_GOTO .noburstyet .remove P_REMOVE ;------------------------------------ START_PATH font_clip P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_SET worldx,0 P_SET rotx,0 P_DO deg180/3 P_ADD rotz,3 P_NEXT P_REMOVE ;------------------------------------ START_PATH font_rotatein P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_SET depthoffset,1 P_SET rotz,rotx P_SET rotx,0 P_SET roty,deg90 P_CLIPPING BOSS2 .rotatein P_IFSAME roty,deg180,.con P_ADD roty,-deg11 P_GOTO .rotatein .con P_WAIT 5 P_CLIPPING OFF P_WAIT 20 P_CLIPPING BOSS P_WAIT 22 ; P_DO 20 ; P_ADD roty,deg22 ; P_ADD worldz,-40 ; P_NEXT P_REMOVE ;------------------------------------- START_PATH font_flyin P_COLLISIONS OFF P_RELTOPLAYER ON ; P_RANGECHECK OFF P_SET depthoffset,1 P_SET skidy,50 P_RTRIGGER .scroll,ALWAYS P_IFNOTSAME ap,19,.noclip P_CLIPPING BOSS P_SET skidy,50 P_SET depthoffset,1 P_SET coltab,fieryfont_c&WM .noclip P_IFNOTSAME ap,20,.noclip2 P_SET skidy,50 P_CLIPPING BOSS2 P_SET depthoffset,3 .noclip2 .loop P_DO 20 P_ADD worldz,skidy ; P_ADD worldx,15 P_ADD rotx,deg11 P_NEXT .untilstraight P_IFSAME rotx,0,.nomore P_ADD rotx,deg11 P_GOTO .untilstraight .nomore .notyet P_IFBOSSFLAG burstout,ON,.burstout P_GOTO .notyet .burstout P_IFSAME pbyte1,1,.rem P_IFSAME ap,20,.rem P_CLIPPING OFF P_PUSH rotx P_PUSH roty P_SETRANDOM rotx P_SETRANDOM roty P_SETVEL 40 P_PULL rotx P_PULL roty P_SETRANDOM pbyte1,31 P_ADD pbyte1,-16 P_SETRANDOM pbyte2,31 P_ADD pbyte2,-16 P_DO 40 P_ADD rotx,pbyte1 P_ADD roty,pbyte2 P_NEXT .rem P_REMOVE .scroll P_ADD ty,4 P_RETURN ;------------------------------------------- ;------------------------------------------- ; Andorf's final incarnation P_BOSSMODELIST FinalAndorf P_BOSSFLAGLIST fandorf_child_pyr1 equ 1 fandorf_child_pyr2 equ 2 fandorf_child_pyr3 equ 3 fandorf_child_pyr4 equ 4 fandorf_child_pyr5 equ 5 fandorf_child_pyr6 equ 6 IFEQ 1 START_PATH finalfinal_andorf P_RELTOPLAYER ON ; P_RANGECHECK OFF P_RADAROBJ ra_enemy P_SET area,-1 P_SET ap,1 P_COLLISIONS OFF P_SET hp,boss_andorf_core_hp ; P_RTRIGGER .weirdness,128 P_RTRIGGER .spin,ALWAYS P_RTRIGGER .dead,WhenDead .lp P_WOBBLE P_WAIT 1 P_MOVEINPLAYER 10 P_DISTMORE 150,.lp P_WAIT 20 P_DO 30 P_WOBBLE P_NEXT P_COLLISIONS ON P_DO 10 P_ADD worldx,10 P_ADD worldz,10 P_WAIT 1 P_ADD worldx,-10 P_ADD worldz,-10 P_NEXT P_SPAWN 0,0,16*10< P_SET tx,hp P_DIV2 tx P_SET ty,hp P_DIV2 ty P_COLLISIONS OFF P_TRIGGER .adjustdist,ALWAYS P_TRIGGER .setmarker,ALWAYS P_SPAWN 0,-300,0,0,0,0,and_hako_big,and_hako,10,10,andorf_child_box P_IMPORT pbyte1,andorf_core_onetime P_IFNOTZERO pbyte1,.nowait P_WAIT 40 .nowait ; P_SET shape,and_hako P_SPAWN 500,0,0,0,-deg90-deg45,0,mask,closemaskleft,10,10,andorf_child_closemask1 P_SPAWN -500,0,0,0,deg90+deg45,0,mask,closemaskright,10,10,andorf_child_closemask2 .waitwait P_WAIT 1 P_IFBOSSFLAG maskclosed,OFF,.waitwait P_REMOVE andorf_child_closemask1 P_REMOVE andorf_child_closemask2 P_COLLISIONS ON P_TRIGGER .hit,WhenHit P_TRIGGER andorf_iroiro,Always P_SETCOLANIM 0 P_REMOVE andorf_child_box P_SET shape,mask .lp P_SET pbyte1,tx P_ADD pbyte1,ty ; P_EXPORT bosshp,pbyte1 P_IFNOTZERO pbyte1,.notdeadyet P_INC pbyte2 P_IFSAME pbyte2,20,.andorfburst P_GOTO .lp .notdeadyet ; --- do we need to warp? --- P_SETRANDOM pbyte1,127 P_INPLAYERSCONE -deg22,deg22,.okwarp P_IGOTO .nowarp .okwarp P_IFZERO pbyte1,.dosomewarping .nowarp P_ANDFRAMEGOTO 1,.smokecheck P_GOTO .lp ; --- warp mask out of view and into another dimension --- .dosomewarping P_TRIGGER .adjustdist,OFF P_ACCEL 80,5 P_COLLISIONS OFF P_CLIPPING boss P_SPAWN 0,300,0,0,0,0,clipshape,andorfwarper,10,10,11 P_SOUNDEFTPOS bs_disappear P_WAIT 40 P_INVISIBLE ON P_WAIT 10 P_SETRANDOM pbyte1,128 P_ADD pbyte1,64 P_ADD roty,pbyte1 P_SETVEL 100 P_DO 10 P_ADD worldx,vx P_ADD worldz,vz P_INEXT P_SETVEL 0 P_NEG pbyte1 P_ADD roty,pbyte1 P_FACEPLAYER Y P_FACEPLAYER Y P_FACEPLAYER Y P_CLIPPING boss2 P_REMOVE 11 P_WAIT 1 P_SPAWN 0,300,0,0,0,0,clipshape,andorfwarper,10,10,11 P_WAIT 1 P_INVISIBLE OFF P_WAIT 20 P_REMOVE 11 P_CLIPPING OFF P_TRIGGER .adjustdist,ALWAYS P_COLLISIONS ON P_GOTO .lp .setmarker P_SETMARKER 2 P_RETURN ; --- adjust distance from player continuously --- .adjustdist LOCAL P_IMPORT pword1,player1_worldy P_ANDFRAMEGOTO 64,.nochg P_ADD pword1,600 .nochg P_CHASE worldy,pword1 P_WOBBLE P_FACEPLAYER Y P_IFBOSSFLAG goback,OFF,.normstuff P_ACCEL -50,5 P_IGOTO .closer2 .normstuff P_IFBOSSFLAG dontcomeclose,ON,.dontdo332 P_ANDFRAMEGOTO 64,.closer P_DISTLESS 1400,.accelaway P_IGOTO .there .dontdo332 P_DISTLESS 1000,.accelaway .there P_DISTMORE 1600,.acceltowards ; P_ANDFRAMEGOTO 64,.closer2 P_ACCEL 0,10 P_IGOTO .closer2 .closer P_DISTLESS 1200,.accelaway P_ACCEL 40,2 .con554 P_DISTMORE 2000,.acceltowards P_ANDFRAMEGOTO 64,.closer2 P_ACCEL 0,10 .closer2 P_INPLAYERSCONE -deg45+deg11,deg45-deg11,.ok P_IFNOTBETWEEN -3,skidy,3,.ok2 P_INPLAYERSCONE -deg180+5,0,.oneway P_INC skidy P_IGOTO .ok2 .oneway P_DEC skidy P_IGOTO .ok2 .ok P_IFZERO skidy,.norot ; P_DO 1 P_IFBETWEEN -127,skidy,0,.inc P_DEC skidy P_IGOTO .dec .inc P_INC skidy .dec ; P_INEXT .ok2 P_CIRCLEPLAYER skidy .norot P_RETURN .acceltowards P_ACCEL 80,5 P_RETURN .accelaway P_ACCEL -80,10 P_RETURN ; --- hit routine --- .hit P_SET hp,64 P_IFHITFLAG .1,1 P_IFHITFLAG .2,2 P_RETURN .1 P_IFZERO tx,.txz P_GOSUB .gensmoke1 P_HITFLASHTRIG P_DEC tx P_INVINCIBLE ON P_TRIGGER .muku2,ALWAYS,5 P_TRIGGER .muku2_2,Timer,6 P_IFZERO tx,.txz .ret P_RETURN .txz P_SET colframe,6+128 P_IFZERO ty,.ret P_SET colframe,4+128 P_RETURN .2 P_IFZERO ty,.tyz P_GOSUB .gensmoke2 P_HITFLASHTRIG P_DEC ty P_INVINCIBLE ON P_TRIGGER .muku,ALWAYS,5 P_TRIGGER .muku_2,Timer,6 P_IFZERO ty,.tyz P_RETURN .tyz P_SET colframe,6+128 P_IFZERO tx,.ret P_SET colframe,2+128 P_RETURN .muku P_ADD roty,deg22 P_RETURN .muku2 P_ADD roty,-deg22 P_RETURN .muku_2 P_TRIGGER .muku2,ALWAYS,3 P_INVINCIBLE OFF P_RETURN .muku2_2 P_TRIGGER .muku,ALWAYS,3 P_INVINCIBLE OFF P_RETURN ; --- Andorf's face bursts through the mask .andorfburst P_TRIGGER andorf_iroiro,OFF P_IMPORT pbyte1,Kdifficulty P_IFSAME pbyte1,dif_easy,.diediedie P_IFNOTSAME pbyte1,dif_normal,.nochk P_IMPORT pbyte1,andorf_core_onetime P_IFSAME pbyte1,1,.diediedie .nochk P_COLLISIONS OFF P_SPAWN 0,0,0,0,0,0,andorf_0,andorf_head,10,10,andorf_child_head P_SPAWN 0,0,0,0,0,0,clipshape,andorfburst,10,10,andorf_child_maskclip P_WAIT 1 P_CLIPPING BOSS .lp433 P_IFBOSSFLAG andorfdeath,OFF,.notdeadyet2 P_SETBOSSFLAG andorfdeath,OFF .diediedie LOCAL P_SET pbyte1,1 P_DO 100 P_BECOMECHILD pbyte1 P_SET hp,0 P_UNBECOME P_INC pbyte1 P_INEXT ; P_GSET B,andorfdead,1 P_SPAWN -300,0,0,0,0,0,nullshape,e_runner_damy,10,10,254 P_SPAWN 300,0,0,0,0,0,nullshape,e_runner_damy,10,10,253 P_IMPORT pbyte1,Kdifficulty P_IFNOTSAME pbyte1,dif_easy,.nomask P_CLIPPING OFF P_SPAWN 50,0,0,0,0,0,mask,crackmaskleft,10,10,andorf_child_closemask1 P_SPAWN -50,0,0,0,0,0,mask,crackmaskright,10,10,andorf_child_closemask2 P_GROUNDOBJ ON P_WAIT 1 P_SET shape,and_m P_SETANIM 0 P_WAIT 15 P_DO 5 P_ADDANIM 1,16 P_NEXT .nomask P_IMPORT pbyte1,Kdifficulty P_IFSAME pbyte1,dif_hard,.nodo223 P_SET shape,nullshape P_SPAWN 0,-300,0,0,0,0,and_hako_big,andorf_death_throes,10,10,252 .nodo223 P_FLAGCHILD andorf_child_eyecube P_WAIT 50 P_UNLINKCHILD andorf_child_eyecube P_UNLINKCHILD 254 P_UNLINKCHILD 253 P_UNLINKCHILD 252 P_EXPLODE .notdeadyet2 P_GOTO .lp433 P_END ;.dothat P_FORCE .exp ; P_TRIGGER .dothat,OFF ; P_RETURN ;.exp P_EXPLODE ; --- check if smoke is required from eyes --- .smokecheck ; P_GOSUB .chk1 ; P_GOSUB .chk2 P_ANDFRAMEGOTO 127,.doit P_GOTO .lp .doit P_SPAWN 30<0 .speedy_gonzales P_ACCEL 55,10 P_IGOTO .checked .checked P_ANDFRAMEGOTO 63,.chk ;eguchi change 127->63 P_IGOTO .nochk .chk P_DISTMORE 1800,.nochk ;eguchi change 1500->1800 P_FLAGCHILD br_child_leftsupport P_FLAGCHILD br_child_rightsupport .nochk P_ANDFRAMEGOTO 31,.fire P_IGOTO .nofire .fire P_PUSH worldy P_PUSH rotx P_PUSH roty P_ADD rotx,-deg11+2 P_ADD worldy,-160 P_ADD roty,deg180-deg22 P_WEAPON relelaser P_FIRE P_ADD roty,deg22 P_FIRE P_ADD roty,deg22 P_FIRE P_ADD roty,-deg180 P_PULL roty P_PULL rotx P_PULL worldy .nofire P_IFSAME roty,-deg90,.runright P_IFSAME roty,deg90,.runleft P_IFSAME roty,0,.runup P_IFSAME roty,deg180,.rundown P_RETURN .turnaround P_FORCE .turn P_RETURN .turn P_TRIGGER .run,OFF P_NEG pbyte2 .trn P_ACCEL 0,10 P_IFZERO vel,.nowturn P_GOTO .trn .nowturn P_DO deg180/deg11 P_ADD roty,-deg11 P_NEXT P_ACCEL 30,1 P_TRIGGER .run,ALWAYS P_END .runright P_IFBETWEEN 5120-512,worldx,5120,.setrotx1 P_RETURN .runleft P_IFBETWEEN 0,worldx,512,.setrotx2 P_RETURN .runup P_IFBETWEEN 5120-512,worldz,5120,.setrotz1 P_RETURN .rundown P_IFBETWEEN 0,worldz,512,.setrotz2 P_RETURN .setrotx1 P_FORCE .beginrot P_TRIGGER .setx1,ALWAYS,30 P_RETURN .setrotx2 P_FORCE .beginrot P_TRIGGER .setx2,ALWAYS,30 P_RETURN .setrotz1 P_FORCE .beginrot P_TRIGGER .setz1,ALWAYS,30 P_RETURN .setrotz2 P_FORCE .beginrot P_TRIGGER .setz2,ALWAYS,30 P_RETURN .setx1 P_CHASE worldx,5120-256 P_RETURN .setx2 P_CHASE worldx,256 P_RETURN .setz1 P_CHASE worldz,5120-256 P_RETURN .setz2 P_CHASE worldz,256 P_RETURN .beginrot P_TRIGGER .run,OFF P_TRIGGER .beginrottrig,ALWAYS P_END .beginrottrig P_ACCEL 0,6 P_ADD roty,pbyte2 P_IFSAME roty,deg90,.endrot P_IFSAME roty,0,.endrot P_IFSAME roty,-deg90,.endrot P_IFSAME roty,deg180,.endrot P_RETURN .endrot P_FORCE .forceendrot P_RETURN .forceendrot P_ACCEL 30,1 P_TRIGGER .beginrottrig,OFF P_TRIGGER .run,ALWAYS P_END ;----------- Big wheel on front of runner ----------- START_PATH br_bigwheel P_INVINCIBLE ON P_SET area,-1 ; P_RANGECHECK OFF .lp P_IFFLAG .throwit P_ADD childrotx,deg11 P_GOTO .lp P_END .accel P_ADD worldx,vx P_ADD worldz,vz P_RETURN .fasteroff LOCAL P_SETBOSSFLAG faster,OFF P_RETURN ; --- launch it off --- .throwit ; P_BECOMEMOTHER ; P_TRIGGER .accel,ALWAYS,30 ; P_UNBECOME P_SOUNDEFTDISTPOS en_throw_2 P_UNLINKCHILD P_SETBOSSFLAG faster,ON P_TRIGGER .fasteroff,Timer,30 P_PUSH rotx P_SET rotx,0 P_DISTLESS 400,.slower P_DISTLESS 800,.slower2 P_SETVEL -50 P_IGOTO .vset .slower2 P_SETVEL -35 P_IGOTO .vset .slower P_SETVEL -20 .vset P_PULL rotx P_SET pbyte1,60 .bethrown P_DEC pbyte1 P_IFZERO pbyte1,.explode P_ADD rotx,-deg22 P_ADD vy,4 P_HITGROUND 30,.bounce P_GOTO .bethrown .bounce P_SOUNDEFTDISTPOS en_land_L P_NEG vy P_DIV2 vy P_GOTO .bethrown .explode P_EXPLODE ;----------- Little wheel on front of runner ----------- START_PATH br_littlewheel P_COLLISIONS OFF P_SET area,-1 ; P_RANGECHECK OFF .lp P_ADD childrotx,deg11 P_GOTO .lp P_END ;----------- Side struts ----------- START_PATH br_supports P_COLLISIONS OFF P_SET area,-1 ; P_RANGECHECK OFF .remake P_IFCHILD br_child_leftsupport,.nospawn P_SPAWN 52< P_TRIGGER .b_tank_meter,ALways ;;;;eguchi end P_TRIGGER .movetracks,ALWAYS P_ACCEL 30,1 P_WAIT 50 P_ACCEL 0,1 P_WAIT 20 P_DO deg90/2 P_ADD roty,2 P_NEXT P_ACCEL 50,1 P_WAIT 50 ;;;;eguchi write .turn_again P_RANDOMGOTO .turn_little P_RANDOMGOTO .turn_little P_ACCEL 0,4 P_WAIT 30 P_RANDOMGOTO .turn_neg P_DO 30 P_ADD roty,4 P_NEXT P_IGOTO .turn_neg_end .turn_neg P_DO 30 P_ADD roty,-4 P_NEXT .turn_neg_end P_ACCEL 50,1 P_WAIT 50 .turn_little ;;;;eguchi end P_RANDOMGOTO .left .lp P_ACCEL 0,4 P_WAIT 30 P_DO 10 P_ADD roty,4 P_NEXT P_ACCEL 50,1 P_WAIT 50 ;;;;eguchi write P_IGOTO .turn_again ;;;;eguchi end P_IGOTO .lp .left .lp2 P_ACCEL 0,4 P_WAIT 30 P_DO 10 P_ADD roty,-4 P_NEXT P_ACCEL 50,1 P_WAIT 50 ;;;;eguchi write P_IGOTO .turn_again ;;;;eguchi end P_IGOTO .lp2 P_END .cd1 P_CHILDDEAD 2,.cd2 P_IGOTO .ndead .cd2 P_CHILDDEAD 3,.cd3 P_IGOTO .ndead .cd3 P_FORCE .dead P_IGOTO .ndead .dead P_TRIGGER .movetracks,OFF P_TRIGGER pdr_dragon1.explode,4 ;;;;eguchi write P_ACCEL 0,5 P_SETVEL 0 P_TRIGGER crash_flash,4 ;;;;eguchi end P_WAIT 50 ;;;;eguchi write P_GOSUB boss_exp_screen_flash ;;;;eguchi end P_GDEC B,KEnemyNumber ;;;;eguchi write P_SCORE 1000 P_CIRCLEWINDOW 1,big ;;;;eguchi end P_EXPLODE .movetracks P_CHILDDEAD 1,.cd1 .ndead P_IFZERO vel,.nowt P_SET pbyte1,vel P_NEG pbyte1 P_DIV2 pbyte1 P_ADD ty,pbyte1 .nowt P_RETURN ;;;;eguchi write .b_tank_meter P_PUSH pbyte1 P_ZERO pbyte1 P_EXPORT bosshp,pbyte1 P_SET pbyte1,1 P_DO 3 P_BECOMECHILD pbyte1 P_SET slopenum,hp P_DIV2 slopenum P_GADD bosshp,slopenum P_UNBECOME P_INC pbyte1 P_INEXT P_PULL pbyte1 P_RETURN ;;;;eguchi end ;------------ b_tank's turrets ------------------ START_PATH B_TANK_launcher ; P_RANGECHECK OFF P_TRIGGER .death,WhenDead P_SHADOW OFF P_SET hp,b_tank_launcher_hp P_SET ap,b_tank_launcher_ap P_SET pbyte2,childroty .lp P_IFNOTSAME childroty,pbyte2,.nope P_BECOMEMOTHER P_EXPORT gbyte1,vel P_UNBECOME P_IMPORT pbyte1,gbyte1 P_IFZERO pbyte1,.shootchk .nope P_CHASE childroty,pbyte2 P_GOTO .lp .shootchk P_PUSH roty P_PUSH rotx P_FACEPLAYER IMMEDIATE P_PULL rotx P_SET pbyte1,roty P_PULL roty P_SET skidy,roty P_NEG skidy P_ADD pbyte1,skidy ; find the difference P_IFNOTBETWEEN -deg90+2,pbyte1,deg90-2,.nope P_TRIGGER .ponponpon,16 P_TRIGGER .rotback,ALWAYS P_DO 50 P_FACEPLAYER Y P_ADJUSTROT P_NEXT P_TRIGGER .ponponpon,OFF .waitfor0 P_IFSAME childrotx,0,.con P_GOTO .waitfor0 .con P_TRIGGER .rotback,OFF P_GOTO .lp .rotback P_CHASE childrotx,0 P_RETURN .ponponpon P_DISTMORE 1200,.nowt P_PUSH rotx P_PUSH roty P_ADD worldy,-30 P_FACEPLAYER IMMEDIATE P_WEAPON releplasma1 P_FIRE P_ADD worldy,30 P_PULL roty P_PULL rotx P_ADD childrotx,-deg22 .nowt P_RETURN ; --- The death routine --- .death P_SET hp,1 P_INVINCIBLE ON P_FORCE .bounceandexplode P_RETURN .bounceandexplode P_SHADOW ON P_TRIGGER .ponponpon,OFF P_TRIGGER pdr_dragon1.explode,4 P_TRIGGER .death,OFF P_WAIT 16 P_BECOMEMOTHER P_EXPORT gword1,worldx P_EXPORT gword2,worldz P_UNBECOME P_IMPORT vx,gword1 P_NEG vx P_ADD vx,worldx P_IMPORT vz,gword2 P_NEG vz P_ADD vz,worldz P_DO 4 P_DIV2 vx P_IFCHILD 3,.nodo P_DIV2 vz .nodo P_INEXT P_UNLINKCHILD P_SET vy,-32 .fly P_ADD rotx,12 P_ADD vy,4 P_HITGROUND 40,.die P_GOTO .fly .die P_INVINCIBLE OFF P_EXPLODE ENDC IFEQ 1 ;------------------- START BOSS DRAGON ---------------------- DRAGONBOSSSTART P_BOSSMODELIST Dragon P_BOSSMODE dr_stationary P_BOSSMODE dr_tiltright P_BOSSMODE preturn ;--------- FLAGS ---------- P_BOSSFLAGLIST P_BOSSFLAG steppedon ; --- children --- dr_child_head equ 1 ; **** tilt to the right **** dr_tiltright .lp3 P_IFSAME pbyte2,10,.le_fin3 P_INC pbyte2 P_GOTO .lp3 .le_fin3 P_GOSUB dr_makedrag2 P_WAIT 120 .lp4 P_IFSAME pbyte2,4,.le_fin4 P_DEC pbyte2 P_GOTO .lp4 .le_fin4 P_GOSUB dr_makedrag1 P_WAIT 120 .lp P_IFSAME pbyte2,14,.le_fin P_INC pbyte2 P_GOTO .lp .le_fin P_GOSUB dr_makedrag4 P_WAIT 120 .lp2 P_IFZERO pbyte2,.le_fin2 P_DEC pbyte2 P_GOTO .lp2 .le_fin2 P_GOSUB dr_makedrag3 P_WAIT 120 P_GOTO dr_tiltright P_NEXTBOSSMODE P_RETURN ; --- make a dragon that's waiting to bite --- dr_makedrag1 P_IMPORT pbyte1,bosshp P_IFZERO pbyte1,.nomake1 P_QSPAWN dragon_0,dr_dragon1,10,10 P_BECOME P_ADD worldx,600 P_ADD roty,deg90 P_UNBECOME .nomake1 P_RETURN dr_makedrag2 P_IMPORT pbyte1,bosshp P_IFZERO pbyte1,.nomake2 P_QSPAWN dragon_0,dr_dragon1,10,10 P_BECOME P_ADD worldx,-600 P_ADD roty,-deg90 P_UNBECOME .nomake2 P_RETURN dr_makedrag3 P_IMPORT pbyte1,bosshp P_IFZERO pbyte1,.nomake3 P_QSPAWN dragon_0,dr_dragon1,10,10 P_BECOME P_ADD worldx,400 P_ADD roty,deg90 P_UNBECOME .nomake3 P_RETURN dr_makedrag4 P_IMPORT pbyte1,bosshp P_IFZERO pbyte1,.nomake4 P_QSPAWN dragon_0,dr_dragon1,10,10 P_BECOME P_ADD worldx,-400 P_ADD roty,-deg90 P_UNBECOME .nomake4 P_RETURN ; **** wait a while **** dr_stationary P_SET slopenum,1 P_TRIGGER .stepped,WhenSteppedOn P_SETBOSSFLAG steppedon,OFF .lp P_WAIT 1 P_CHASE pbyte2,7 P_IFBOSSFLAG steppedon,OFF,.lp P_TRIGGER .stepped,OFF P_NEXTBOSSMODE P_RETURN .stepped P_SETBOSSFLAG steppedon,ON P_RETURN ENDC ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ START_PATH BOSS_Dragon IFEQ 1 ; P_RANGECHECK OFF P_SHADOW OFF P_MOVEPLAYER ON P_SLOPE ON P_COLLISIONS OFF P_SET pbyte2,8 ; stationary position P_SET hp,boss_crusher_body_hp P_SET ap,boss_crusher_body_ap P_RADAROBJ ra_enemy ; player no mae hajimaru P_START65816 ldy pathplayer&WM a16 lda.w al_worldx,y clc adc #0 sta al_worldx,x lda.w al_worldz,y clc adc #700 sta al_worldz,x P_END65816 P_SET worldy,10< P_SET shape,hako_0 P_CLIPPING ON ; make some vital body parts ; .. and set up some player bits and pieces: P_TRIGGER .mainloop,ALWAYS P_TRIGGER .firtreecheck,4 P_TRIGGER .deccount,WhenDead .again P_GOSUB .setbossmode P_GOTO .again .setbossmode P_JUMPBOSSMODE ; --- when dead decrement map count --- .deccount P_GDEC B,KEnemyNumber P_RETURN ; --- main loop, called every frame --- .mainloop P_SET animframe,pbyte2 P_ADD animframe,128 P_INDEX rotz,.angletab,pbyte2 P_RETURN ; --- Check if we need some firtrees --- .firtreecheck P_DISTLESS 1000,.nofirtrees ENDC .firtrees LOCAL P_QSPAWN flame,dr_firtree,10,10 P_SOUNDEFTDISTPOS pillar_of_flames P_GOSUB dp_plrrndset IFEQ 1 .nofirtrees P_RETURN ; --- table for matching slope animation with real angle --- .angletab db -7*2,-6*2,-5*2,-4*2,-3*2,-2*2,-1*2,0 db 1*2,2*2,3*2,4*2,5*2,6*2,7*2 ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ; Magma ripples START_PATH dr_ripples P_SPRITE 0,24 P_COLLISIONS OFF P_SETCOLANIM 3 P_SET worldy,-80 P_GROUNDOBJ ON P_SETRANDOM pbyte1,3 P_ADD tx,pbyte1 ; P_RANGECHECK OFF P_SETRANDOM pbyte1,15 P_ADD pbyte1,-8 P_ADD worldx,pbyte1 P_SETRANDOM pbyte1,15 P_ADD pbyte1,-8 P_ADD worldz,pbyte1 P_WAIT 1 P_REMOVE ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ENDC ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ; send trees of flame up towards the player START_PATH dr_firtree ; P_RANGECHECK OFF P_COLLISIONS OFF P_SPRITE 0 P_SETANIM 0 P_TRIGGER .anim,ALWAYS P_ADD worldy,-60 P_WAIT 1 P_IFBETWEEN -1000,worldy,-500,.nomake P_QSPAWN flame,dr_firtree,10,10 .nomake P_WAIT 7 P_REMOVE .anim P_DEC tx P_ADDANIM 1,4 P_WITHINRADIUS 80,.setfire P_IGOTO .dontsetfire .setfire P_PLRBURN C .dontsetfire P_RETURN ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ IFEQ 1 ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ; this dragon tries to eat the player as he slides off the platform START_PATH dr_dragon1 P_SPAWN 0,50,-30,-deg90,0,0,dragon_1,dr_dragon1_neck,10,10,1 P_CLIPPING ON P_SET rotz,0 P_SET hp,100 P_SET ap,boss_dragon_ap P_TRIGGER .hit,WhenHit P_RADAROBJ ra_enemy P_SET oy,100 P_SET ox,worldx P_TRIGGER .wibble,ALWAYS .burstforth P_IFBETWEEN -50,oy,0,.ok P_ADD oy,-20 P_GOTO .burstforth .ok P_TRIGGER .fire,32 ;eguchi change 16->32 P_DO 90 P_FACEPLAYER Y P_INVINCIBLE ON P_DISTMORE 550,.nofurther ;eguchi change 450->550 P_IFARWING .nofurther P_INVINCIBLE OFF P_IFBETWEEN -200,oy,-150,.ok2 P_ADD oy,-20 .ok2 .nofurther P_NEXT P_DO 20 P_ADD oy,20 P_NEXT P_REMOVE .hit P_GDEC B,bosshp P_IMPORT pbyte1,bosshp P_IFNOTZERO pbyte1,.nofdie P_FORCE .die P_RETURN .nofdie P_IFBETWEEN 85,hp,100,.nosinkyet P_FORCE .sink .nosinkyet P_RETURN .die ;;;;eguchi write P_TRIGGER .fire,OFF ;;;;eguchi end P_TRIGGER .hit,OFF P_TRIGGER .explode,4 P_WAIT 20 ;;;;eguchi write P_GOSUB boss_exp_screen_flash ;;;;eguchi write end P_GDEC B,KEnemyNumber ;;;;eguchi write P_SCORE 1000 P_CIRCLEWINDOW 1,big ;;;;eguchi write end P_EXPLODE .sink P_TRIGGER .hit,OFF ;eguchi coment P_TRIGGER .explode,4 P_DO 20 P_ADD oy,20 P_NEXT P_REMOVE .explode LOCAL P_QSPAWN explosion5,e_sp_explosion_stay_apsize,10,32 P_BECOME P_SETRANDOM pbyte1,64 P_ADD pbyte1,-32 P_ADD worldx,pbyte1 P_SETRANDOM pbyte1,64 P_ADD pbyte1,-32 P_ADD worldy,pbyte1 P_SETRANDOM pbyte1,64 P_ADD pbyte1,-32 P_ADD worldz,pbyte1 P_UNBECOME P_RETURN ; --- Wibble the movement --- .wibble P_SET worldy,oy P_INDEX pbyte1,sintab,pbyte2 P_ADD pbyte2,17 P_DIV2 pbyte1 P_DIV2 pbyte1 P_DIV2 pbyte1 P_ADD worldy,pbyte1 P_QSPAWN msplash,dr_ripples,10,10 P_RETURN ; --- fire unrelentlessly at the player --- .fire P_IFNOTBETWEEN -200,worldy,-150,.nofire P_WEAPON eplasma1 P_PUSH rotx P_PUSH roty P_PUSH rotz P_FACEPLAYER IMMEDIATE P_FIRE P_PULL rotz P_PULL roty P_PULL rotx .nofire P_RETURN ; --- Path for neck piece --- START_PATH dr_dragon1_neck P_CLIPPING ON P_INVINCIBLE ON P_END ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ENDC ;------------------- ;------------------- START BOSS CRUSHER ---------------------- CRUSHERBOSSSTART P_BOSSMODELIST Crusher P_BOSSMODE cb_fly P_BOSSMODE cb_spinfaster,cbm_loop P_BOSSMODE cb_risehigh P_BOSSMODE cb_towards P_BOSSMODE cb_towards P_BOSSMODE cb_lower P_BOSSMODE cb_gotospin P_BOSSMODE preturn ;--------- FLAGS ---------- P_BOSSFLAGLIST P_BOSSFLAG compactmode P_BOSSFLAG preparefire P_BOSSFLAG finishfire P_BOSSFLAG bossdead ;------------------- ; Child definitions: cb_child_deflector1 equ 1 cb_child_deflector2 equ 2 cb_child_deflector3 equ 3 cb_child_cannon1 equ 4 cb_child_cannon2 equ 5 cb_child_cannon3 equ 6 cb_child_cannon4 equ 7 cb_child_cannon5 equ 8 cb_child_cannon6 equ 9 cb_child_bottom equ 10 cb_child_top equ 11 cb_child_buildup equ 12 ;---------------------------------------------------------- cb_fly P_RELTOPLAYER ON P_WAIT 100 P_NEXTBOSSMODE P_RETURN ;---------------------------------------------------------- cb_spinfaster ; P_DO 30 ; P_ADD roty,2 ; P_NEXT P_DO 30 P_ADD roty,4 P_NEXT P_NEXTBOSSMODE P_RETURN ;---------------------------------------------------------- cb_gotospin P_SETBOSSMODE cbm_loop P_RETURN ;---------------------------------------------------------- cb_risehigh P_DO 50 P_ADD worldy,-60 P_NEXT P_NEXTBOSSMODE P_RETURN ;---------------------------------------------------------- cb_lower P_DO 50 P_ADD worldy,60 P_NEXT P_NEXTBOSSMODE P_RETURN ;---------------------------------------------------------- cb_towards P_PUSH roty P_PUSH rotx P_PUSH rotz P_FACEPLAYER IMMEDIATE P_SET rotx,0 P_SET rotz,0 P_SETVEL 60 P_PULL rotz P_PULL rotx P_PULL roty P_WAIT 60 P_SETVEL 0 P_NEXTBOSSMODE P_RETURN ;---------------------------------------------------------- START_PATH BOSS_Crusher ; P_RANGECHECK OFF P_SET hp,boss_crusher_body_hp P_SET ap,boss_crusher_body_ap P_SETBOSSNAME name_Crusher P_SET pbyte1,boss_crusher_body_hp+boss_crusher_cannon_hp*6 P_EXPORT bossmaxhp,pbyte1 P_EXPORT bosshp,pbyte1 P_ZERO pbyte2 ; P_CLIPPING ON P_RADAROBJ ra_enemy ; player no mae hajimaru P_START65816 ldy pathplayer&WM a16 lda.w al_worldx,y clc adc #0 sta al_worldx,x lda.w al_worldz,y clc adc #1200 sta al_worldz,x P_END65816 P_SET worldy,400 P_SOUND p2_crusher ; clear some vital flags P_CLRBOSSFLAGS P_SETBOSSMODE start P_SET shape,nullshape P_INVISIBLE ON ; make some vital body parts P_SPAWN 0,0,0,0,0,0,spin_1,C_top,10,10,cb_child_top P_SPAWN 0,40< ; make some vital body parts P_SPAWN -1000,0,0,0,0,0,hand_r,pi_hand_r,10,10,pi_child_righthand P_SPAWN 1000,0,0,0,0,0,hand_l,pi_hand_l,10,10,pi_child_lefthand ; .. and set up some player bits and pieces: P_PLRTURN OFF P_PLRFORCETURN 0,1024 P_FORCETRANSFORM ROBOT P_PLRTRANSLOCK P_TRIGGER pi_mainloop,ALWAYS ; P_TRIGGER .hitstuff,WhenHit .again P_GOSUB pi_setbossmode P_GOTO .again ;ÄÄÄÄÄÄÄÄ* MAIN LOOP *ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ pi_mainloop P_ZDISTLESS boss_pierrot_max_z,.nochase P_START65816 ldy pathplayer&WM a16 lda.w al_worldz,y clc adc #boss_pierrot_max_z sta bword1 P_END65816 P_IMPORT pword1,bword1 P_CHASE worldz,pword1 .nochase P_ZDISTMORE boss_pierrot_min_z,.nochase2 P_START65816 ldy pathplayer&WM a16 lda.w al_worldz,y clc adc #boss_pierrot_min_z sta bword1 P_END65816 P_IMPORT pword1,bword1 P_CHASE worldz,pword1 .nochase2 P_IFBOSSFLAG pf_gogogo,OFF,.nocheckyet P_IMPORT pbyte1,bossHP P_IFSAME pbyte1,0,pi_diesequence .nocheckyet P_IFBOSSFLAG pf_makeball,OFF,.dontmakeball P_SETBOSSFLAG pf_makeball,OFF P_CHILDDEAD pi_child_ball,.makeit P_IGOTO .dontmakeball .makeit P_SPAWN 0,-100,-70,0,0,0,bossball,pi_ball,10,10,pi_child_ball .dontmakeball P_IFBOSSFLAG pf_risehead,OFF,.dontmakehead P_SETBOSSFLAG pf_risehead,OFF P_CHILDDEAD pi_child_head,.makeit2 P_IGOTO .dontmakehead .makeit2 ; P_SPAWN 0,400,200,0,0,0,pierrot,pi_head,10,10,pi_child_head P_SET pbyte2,110 .dontmakehead P_IFSAME pbyte2,0,.nosmoke P_ADD worldy,50 P_GOSUB pi_dosmoke P_ADD worldy,-50 P_DEC pbyte2 .nosmoke P_RETURN ;------------------------------ ; Call Pierrot's mode routine: pi_setbossmode P_JUMPBOSSMODE ; --- Death sequence --- pi_diesequence P_SETBOSSMODE pim_deathsequence P_RETURN ; --- Die die die --- pi_deathsequence P_SETBOSSFLAG pf_magichands,pf_dying,ON P_TRIGGER pi_mainloop,OFF P_SET pbyte1,deg5 P_DO 50 P_BECOMECHILD pi_child_head P_CHASE childrotx,0 P_CHASE childrotx,0 P_CHASE childrotx,0 P_UNBECOME P_ADD rotz,pbyte1 P_ADD worldz,50 P_ADD worldy,-30 P_ADD pbyte1,2 P_NEXT ; P_CLEARSEQUENCE P_GDEC B,KEnemyNumber P_EXPLODE ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³---------------------- PI_HEAD --------------------------------³ START_PATH pi_head P_INVINCIBLE ON ; P_RANGECHECK OFF P_INVISIBLE ON P_WAIT 10 P_START65816 kbgm fadeout P_END65816 P_INVISIBLE OFF P_CLIPPING ON P_SETANIM 0 P_SET depthoffset,4 .nxtup P_WAIT 1 P_ADD childy,-6 P_IFBETWEEN -30,childy,1000,.nxtup P_DO 3 P_DEC depthoffset P_WAIT 5 P_NEXT P_CLIPPING OFF P_FLAGCHILD pi_child_lefthand P_FLAGCHILD pi_child_righthand ; P_SETBOSSNAME P_SET pbyte1,boss_pierrot_head_hp P_EXPORT bossHP,pbyte1 P_EXPORT bossmaxHP,pbyte1 P_SOUNDEFFECT bs_pierrot_voice P_START65816 kbgm boss P_END65816 P_SETBOSSFLAG pf_gogogo,ON P_DO 10 P_ADD childz,-20 P_NEXT P_WAIT 5 P_BECOMEMOTHER P_NEXTBOSSMODE P_UNBECOME .check P_IFBOSSFLAG pf_spitting,ON,.nospit P_IFBOSSFLAG pf_spitbox,OFF,.nospit P_SETBOSSFLAG pf_spitbox,OFF P_QSPAWN arrowbox,pi_arrowbox,10,10 P_SETBOSSFLAG pf_magichands,ON .nospit P_IFFLAG .spinhead P_GOTO .check .spinhead P_SOUNDEFFECT bs_pierrot_damage P_DO deg360/deg45 P_ADD childrotx,deg45 P_IMPORT pbyte1,bossHP P_ADD pbyte1,-boss_pierrot_head_hp/4/(deg360/deg45) P_EXPORT bossHP,pbyte1 P_NEXT P_GOTO .check ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³---------------------- PI_ARROWBOXHIT--------------------------³ START_PATH PI_ARROWBOXHIT P_INVINCIBLE ON P_INVISIBLE ON P_COLLISIONS ON P_SET ap,4 P_END ; --- start pierrot animating --- pi_startanim ; P_FINDSHAPE pierrot P_BECOMESHAPE P_SET animframe,0 P_UNBECOME P_RETURN pi_stopanim ; P_FINDSHAPE pierrot P_BECOMESHAPE P_SETANIM 0 P_UNBECOME P_RETURN ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³---------------------- PI_ARROWBOX-----------------------------³ START_PATH pi_arrowbox P_RELTOPLAYER ON P_TRIGGER .deadcheck,ALWAYS ; P_RANGECHECK OFF P_SPAWN 0,0,10< child rotation P_IFBETWEEN -deg45-deg22,childroty,deg45+deg22,.noteyeing P_IFBETWEEN -deg90-deg45,childroty,-deg45-deg22,.1clip P_SET childroty,deg45+deg22 P_IGOTO .noteyeing .1clip P_SET childroty,-deg45-deg22 .noteyeing P_IFBOSSFLAG firebreathing,ON,.makefirebreath P_GOTO .loop ; make the firey breath.. cor .makefirebreath P_IFNOTSAME pword1,bd_breathtiming,.nomake P_CHILDDEAD kd_child_firebreath,.makeit .nomake P_IFBETWEEN deg45-deg11,childrotx,deg90-deg11,.unbec P_IFBETWEEN deg90-deg11,childrotx,deg90+deg45,.2clip P_SET childrotx,deg45-deg11 P_IGOTO .unbec .2clip P_SET childrotx,deg90-deg11 .unbec P_GOTO .loop .makeit P_SPAWN 0,-10<