wp EQU 0000H ; wood priority ;********************************************************************* ; mario kart << sprite pole >> ; Programed by H.Yajima ;********************************************************************* INCLUDE ../../SFX/RP5C77 INCLUDE ../../SFX/RP5A22 INCLUDE ../../DSP/D77C25 INCLUDE ../../../kimura/join/work.def INCLUDE ../../../kimura/join/buffer.def INCLUDE ../DEF/object.def include ../DEF/effect.def ;---------------------------------------------------------------------- EXT Random ;- - - glb super_project ext sound_zusin ext Copy_situation ;- - - GLB pole,poleX,pole_char,pole_char_B GLB tire,tireX GLB wood,woodX GLB arch,archX ;---------------------------------------------------------------------- GLB rogo,rogoX ;---------------------------------------------------------------------- GLB hammer,hammerX GLB option,optionX ;(BATTLE FUSEN) GLB ball,ballX ;(BATTLE FIRE) GLB gate ;(BATTLE GATE) ;---------------------------------------------------------------------- GLB option,optionX GLB dokan,dokanX ;(CIRCUIT,SNOW) GLB bubble,bubbleX ;(CASTLE) GLB dossun,dossunX ; GLB rainbow_dossun,rainbow_dossunX ;(RAINBOW) GLB wood,woodX ;(WOOD) GLB flower,flowerX ;(FLOWER) GLB poo,pooX ;(GRASS) GLB fish,fishX ;(SAND) ;---------------------------------------------------------------------- GLB position_box,flipH_box,flipV_box GLB position_mini,flipH_mini GLB position_y2 ;---------------------------------------------------------------------- EXT element,formate,convert,attitude EXT project_arch,screen_arch_A,screen_arch_B,disp_arch EXT jumpset_A,jumpset_B EXT zoom_size EXT attre,setobj,ret,subst,magna,disp_B_check EXT project EXT screen_AZ,screen_BZ,disp_B_check EXT tetre16,tetre16_v,tetre8,tetre8_v EXT double16,double16_v,double8,double8_v EXT monon16,monon16_v,monon16_item,monon8,monon8_v,monon8_item EXT check_BG EXT move_object,project_Z EXT Move_situation ext Z_stop ;====================================================================== glb poo_0,flower_0 ;==================== COMN work DS 2 ;====================================================================== EXTEND objprog SECT REL mem16 idx16 ;####################################################################### ;##### プクプクＯＢＪ ######## ;####################################################################### ;*********************************************************************** ; fish program ;*********************************************************************** bubble bubbleX fish DW 0 DW project_Z,fish_copy,move_object,screen_AZ DW check_mode_exit DW subst,fish_char ;----------------------------------------------------------------------- fishX DW 0 DW fish_test,move_object DW check_mode DW project_Z,setobj,fish_char_B,screen_BZ,ret ;----------------------------------------------------------------------- fish_char_B DW disp_B_check fish_char DW fish_select,fish_z1,fish_z2 ;----------------------------------------------------------------------- fish_VX DW 0060H,-030H,0020H,-070H DW 0030H,-040H,0000H,-050H fish_VY DW 0000H,0000H,0000H,0000H DW 0000H,0000H,0000H,0000H fish_VZ DW 0100H,0080H,0020H,00C0H DW 0120H,0100H,0060H,0070H ;----------------------------------------------------------------------- fish_copy phx ldx > LDX Random and #00ffh clc adc #0040h sta <_velocityZ,x ;- - - - - - - - - - - - - - - - - - - - - - - - - Xset lda <_situationXH,x sec sbc <_initposX,x bpl plus$ cmp #-0020h bcs skip$ jsr random_M ;マイナス方向距離オーバー bra skip_1$ plus$ cmp #0020h bcc skip$ jsr random_P ;プラス方向距離オーバー bra skip_1$ skip$ jsr random_N skip_1$ sta <_velocityX,x ;- - - - - - - - - - - - - - - - - - - - - - - - - Yset lda <_situationYH,x sec sbc <_initposY,x bpl plus$ cmp #-0020h bcs skip$ jsr random_M ;マイナス方向距離オーバー bra skip_1$ plus$ cmp #0020h bcc skip$ jsr random_P ;プラス方向距離オーバー bra skip_1$ skip$ jsr random_N skip_1$ sta <_velocityY,x ;- - - - - - - - - - - - - - - - - - - - - - - - - ft_1000 PLX ;<< INX INX JMP (!0,X) ;- - - - - - - - - - - - - - - - - - - - - - - - - random_N jsl >Random ;ノーマル and #007fh lsr a bcc random_skip rts random_M jsl >Random ;プラス方向へ戻す and #007fh rts random_P jsl >Random ;マイナス方向へ戻す and #007fh random_skip EOR #1111111111111111B INC A rts ;####################################################################### ;##### パックンフラワーＯＢＪ ######## ;####################################################################### ;*********************************************************************** ; flower program ;*********************************************************************** flower dw 0 dw check_mode dw project_Z,screen_AZ dw subst,flower_char flowerX dw 0 dw check_mode dw project_Z dw setobj,flower_char_B dw screen_BZ,ret ;-------------------------------------------------------------------- fish_select txy ldx > ldx Random and #007FH clc adc #0010H jmp next_pros ;- - - - - - - - - - - - - - - - - - - - - - exit$ rts ; 1周目は落下ストップ ;---------------------------------------------------------------------- ;ドッスン落下のウエイト ;---------------------------------------------------------------------- wait_dossun tyx dec <_timer,x bne exit$ inc <_process,x lda #-0040h sta <_velocityZ,x exit$ rts ;---------------------------------------------------------------------- ;ドッスン落下 ;---------------------------------------------------------------------- down_dossun tyx lda <_situationZL+1,x bpl exit$ ; jsl >sound_zusin ; stz <_situationZL,x stz <_situationZH,x stz <_velocityZ,x lda #120 sta <_pole_work,x lda #14 jmp next_pros exit$ sec ;　落下加速！ lda <_velocityZ,x sbc #0020h sta <_velocityZ,x ; rts ;---------------------------------------------------------------------- ;ドッスンふみつけ状態 ;---------------------------------------------------------------------- stop_dossun1 ; ドッスンふるえ状態 tya sec sbc #40h cmp !_crash_index+player_r0 ; screen 1 bne skip$ lda !_crash_timer+player_r0 bne fast$ skip$ cpy !_crash_index+player_r1 ; screen 2 bne slow$ lda !_crash_timer+player_r1 bne fast$ slow$ tyx ; タイマーもどり lda <_pole_work,x ; ドットゆれ状態 bra wait_pros fast$ tyx ; はやいもどり lda #0ch sta <_pole_work,x bra wait_pros ;- - - - - - - - - - - - - - - - - - stop_dossun2 ; ドッスンウェイト状態 tya sec sbc #40h cmp !_crash_index+player_r0 ; screen 1 bne skip$ lda !_crash_timer+player_r0 bne fast$ skip$ cpy !_crash_index+player_r1 ; screen 2 bne slow$ lda !_crash_timer+player_r1 bne fast$ slow$ tyx ; タイマーもどり bra wait_pros fast$ tyx ; はやいもどり lda #20 cmp <_timer,x bcs wait_pros sta <_timer,x bra wait_pros ;---------------------------------------------------------------------- ;ドッスン上昇 ;---------------------------------------------------------------------- up_dossun tyx lda #0040h sta <_velocityZ,x lda <_situationZH,x cmp #0010h bcc exit$ stz <_process,x exit$ rts ;---------------------------------------------------------------------- ;アニメＳＥＱ分岐 ;---------------------------------------------------------------------- move_test phx ldy Random ; ウェイトタイマ AND #003FH CLC ADC #0010H BRA next_process ;---------------------------------------------------------------------- ; 出現ウエイト ;---------------------------------------------------------------------- wait_poo LDX DSP_status BPL $-4 lda !DSP_data lda >0 lda !DSP_data lda >0 lda !DSP_data bcc skip$ sta <_distance_B,x rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - skip$ sta <_distance_A,x rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - ;********************************************************************* ; pole CHARACTER SELECT ;********************************************************************* pole_char_B DW disp_B_check pole_char DW magna,zoom_size DW pole_0,pole_1,pole_2,pole_3 DW pole_4,pole_5,pole_6,pole_7 DW pole_8,pole_9,pole_10,pole_11 ;********************************************************************* ; pole CHARACTER DATA ;********************************************************************* pole_0 DW tetre16 ; (0) OBJ address pointer DW position_box ; (2) OBJ position pointer DW tire_char0 ; (4) OBJ character ;-------------------------------------------------------------------- pole_1 DW tetre16_v ; (0) OBJ address pointer DW position_box ; (2) OBJ position pointer DW tire_char1 ; (4) OBJ character DW 2 ; (6) offset V ;-------------------------------------------------------------------- pole_2 DW tetre16_v ; (0) OBJ address pointer DW position_2x2 ; (2) OBJ position pointer DW tire_char2 ; (4) OBJ character DW 4 ; (6) offset V ;-------------------------------------------------------------------- pole_3 DW tetre16_v ; (0) OBJ address pointer DW position_2x2 ; (2) OBJ position pointer DW tire_char3 ; (4) OBJ character DW 6 ; (6) offset V ;-------------------------------------------------------------------- tire_char0 DW 2EC0H,6EC0H,2EC2H,6EC2H tire_char1 DW 2EC4H,6EC4H,2EC6H,6EC6H tire_char2 DW 2EC8H,2ECAH,2EC8H,2ECAH tire_char3 DW 2ECCH,2ECEH,2ECCH,2ECEH tire_char7 DW 2EE6H,2EF6H,2EE6H,2EF6H ;-------------------------------------------------------------------- pole_4 DW monon16_v,2EE0H,0 pole_5 DW monon16_v,2EE2H,0 pole_6 DW monon16_v,2EE4H,0 ;-------------------------------------------------------------------- pole_7 DW tetre8_v ; (0) OBJ address pointer DW position_2x2x2 ; (2) OBJ position pointer DW tire_char7 ; (4) OBJ character DW 1 ; (6) offset V ;-------------------------------------------------------------------- pole_8 DW monon8_v,2EE7H,-1 pole_9 DW monon8_v,2EF7H,0 pole_10 DW monon8_v,2EE8H,0 pole_11 DW monon8_v,2EF8H,1 ;-------------------------------------------------------------------- ; ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ;\ \ ;\ BATTLE MODE \ ;\ \ ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ; ;####################################################################### ;##### バトル用風船キャラクタ ######## ;####################################################################### ;*********************************************************************** ; 風船キャラクタ ;*********************************************************************** ball DW 0 dw erase_ball DW project DW attre,screen_AZ,jumpset_A DW subst,ball_char ;- - - - - - - - - - - - - - - - - - - - - - - - - - - ballX DW 0 DW move_ball dw erase_ball DW project,attre DW setobj,ball_char_B DW screen_BZ,jumpset_B,ret ;-------------------------------------------------------------------- ball_char_B DW disp_B_check ball_char DW magna,zoom_size DW ball_0,ball_1,ball_1,ball_2 DW ball_3,ball_4,ball_5,ball_6 DW ball_7,ball_8,ball_9,ball_A ;-------------------------------------------------------------------- tes EQU 0 ball_0 DW monon16,2320H+tes ball_1 DW monon16_item,2322H+tes ball_2 DW monon16_item,2324H+tes ball_3 DW monon16_item,2326H+tes ball_4 DW monon16_item,2328H+tes ball_5 DW monon8_item,232AH+tes ball_6 DW monon8_item,232BH+tes ball_7 DW monon8_item,232CH+tes ball_8 DW monon8_item,233AH+tes ball_9 DW monon8_item,233BH+tes ball_A DW monon8_item,233CH+tes ;-------------------------------------------------------------------- erase_ball phx ldx Erase_sprite plx rts ; skip$ ldy <_option_owner,x jsr Copy_situation lda <_option_Q,x clc adc #0400h sta <_option_Q,x ldy #0400h jsl >Move_situation plx INX INX JMP (!0,X) ;-------------------------------------------------------------------- ; ; ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ;\ \ ;\ ROGO ARCH \ ;\ \ ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ; gate option optionX hammerX hammer rogo rogoX arch archX dw 0 ; ; ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ;\ \ ;\ WOOD BRIDE \ ;\ \ ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ; ;####################################################################### ;##### おばけ橋ＯＢＪ ######## ;####################################################################### ;********************************************************************* ; おばけ橋プログラム ;********************************************************************* wood DW 0 DW project,screen_AZ DW subst,wood_char ;-------------------------------------------------------------------- woodX DW 0 DW project,setobj,wood_char_B DW screen_BZ,ret ;********************************************************************* ; おばけ橋キャラクター ;********************************************************************* wood_char_B DW disp_B_check wood_char DW magna,zoom_size DW wood_0,wood_1,wood_2,wood_3 DW wood_4,wood_5,wood_6,wood_7 DW wood_8,wood_9,wood_A,wood_B ;-------------------------------------------------------------------- wood_0 DW tetre16 ; (0) OBJ address pointer DW position_wood16 ; (2) OBJ position pointer DW wood_char0 ; (4) OBJ character wood_1 DW tetre16 ; (0) OBJ address pointer DW position_wood16 ; (2) OBJ position pointer DW wood_char1 ; (4) OBJ character wood_2 DW tetre16 ; (0) OBJ address pointer DW position_wood16 ; (2) OBJ position pointer DW wood_char2 ; (4) OBJ character wood_3 DW tetre16 ; (0) OBJ address pointer DW position_wood16 ; (2) OBJ position pointer DW wood_char3 ; (4) OBJ character wood_4 DW tetre8 ; (0) OBJ address pointer DW position_wood8 ; (2) OBJ position pointer DW wood_char4 ; (4) OBJ character wood_5 DW tetre8 ; (0) OBJ address pointer DW position_wood8 ; (2) OBJ position pointer DW wood_char5 ; (4) OBJ character wood_6 DW tetre8 ; (0) OBJ address pointer DW position_wood8 ; (2) OBJ position pointer DW wood_char6 ; (4) OBJ character wood_7 DW tetre8 ; (0) OBJ address pointer DW position_wood8 ; (2) OBJ position pointer DW wood_char7 ; (4) OBJ character ;- - - - - - - - - - - - - - wood_8 dw monon8_v,wp+0ee8h,06h wood_9 dw monon8_v,wp+0ef8h,06h wood_A dw monon8_v,wp+0ee9h,06h wood_B dw monon8_v,wp+0ef9h,06h ;-------------------------------------------------------------------- nchar equ 0e84h wood_char0 DW wp+0EC0H,wp+0EC2H,wp+0EC4H,wp+nchar wood_char1 DW wp+0EC6H,wp+0EC8H,wp+0ECAH,wp+nchar wood_char2 DW wp+0ECCH,wp+0ECEH,wp+nchar,wp+nchar wood_char3 DW wp+0EE0H,wp+0EE2H,wp+nchar,wp+nchar wood_char4 DW wp+0EE4H,wp+0EE4H,wp+0EF4H,wp+nchar wood_char5 DW wp+0EE5H,wp+0EF5H,wp+nchar,wp+nchar wood_char6 DW wp+0EE6H,wp+0EF6H,wp+nchar,wp+nchar wood_char7 DW wp+0EE7H,wp+0EF7H,wp+nchar,wp+nchar ;-------------------------------------------------------------------- position_wood16 DW 00000H-3,0FFF8H DW 00010H-3,0FFF8H DW 00020H-3,0FFF8H DW 00020H-3,0FFF8H position_wood8 DW 00000H-2,0FFFCH DW 00008H-2,0FFFCH DW 00010H-2,0FFFCH DW 00010H-2,0FFFCH ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; ; ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ;\ \ ;\ POSITION DATA \ ;\ \ ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ; ;####################################################################### ;##### SPRITE POSITION ######## ;####################################################################### ;********************************************************************** ; SPRITE POSITION DATA ;********************************************************************** ;-------------------------------------------------------------------- ; box size 16x16 ;-------------------------------------------------------------------- position_box DW 0FFE0H,0FFF0H DW 0FFE0H,00000H DW 0FFF0H,0FFF0H DW 0FFF0H,00000H flipH_box DW 0FFE0H,00000H DW 0FFE0H,0FFF0H DW 0FFF0H,00000H DW 0FFF0H,0FFF0H flipV_box DW 0FFF0H,0FFF0H DW 0FFF0H,00000H DW 0FFE0H,0FFF0H DW 0FFE0H,00000H ;-------------------------------------------------------------------- ; mini size 16x16 ;-------------------------------------------------------------------- position_mini DW 0FFE8H,0FFF4H DW 0FFE8H,0FFFCH DW 0FFF0H,0FFF4H DW 0FFF0H,0FFFCH flipH_mini DW 0FFE8H,0FFFCH DW 0FFE8H,0FFF4H DW 0FFF0H,0FFFCH DW 0FFF0H,0FFF4H ;-------------------------------------------------------------------- ; X1,Y2(16x16) x1,y2(8x8) ;-------------------------------------------------------------------- position_Y2 DW 0FFE0H,0FFF8H DW 0FFF0H,0FFF8H position_y2 DW 0FFF0H,0FFFCH DW 0FFF8H,0FFFCH flipV_Y2 DW 0FFF0H,0FFF8H DW 0FFE0H,0FFF8H flipV_y2 DW 0FFF8H,0FFFCH DW 0FFF0H,0FFFCH ;-------------------------------------------------------------------- ; X2,Y1(16x16) x2,y1(8x8) ;-------------------------------------------------------------------- position_X2 DW 0FFF0H,0FFF0H DW 0FFF0H,00000H position_x2 DW 0FFF8H,0FFF8H DW 0FFF8H,00000H flipV_X2 DW 0FFF8H,0FFF0H DW 0FFF8H,00000H flipV_x2 DW 0FFFCH,0FFF8H DW 0FFFCH,00000H ;-------------------------------------------------------------------- ; special position ;-------------------------------------------------------------------- position_2x2 DW 0FFE0H,0FFF8H DW 0FFF0H,0FFF8H DW 0FFE0H,0FFF8H DW 0FFF0H,0FFF8H position_2x2x2 DW 0FFF0H,0FFFCH DW 0FFF8H,0FFFCH DW 0FFF0H,0FFFCH DW 0FFF8H,0FFFCH ;-------------------------------------------------------------------- END