;^Cg
	title "U-ver0.02-"
	cls 4: screen 0,640,480,0


;`
;    1@
;    2@e
;    4@[U[
;    8
;   16Ginj
;   32Gi󒆁j
;   64
;  128Geijsj
;  256GeiVbgŔj\jлٗ
;  512Gei[U[Ŕj\jɓG[U[
; 1024
; 2048ACe()
; 4096ACe(ȊO)
;݂̊Kw(D揇ʁF̏ꍇͽײNoႢ)
;(\)
sp_000=   0 ;ǂݍ݃ubN	;    0~
sp_010=1000 ;Ge				; 1000~	(͒ẽTCYBje͏
sp_020=2000 ;Gڰް			; 2000~
sp_030=3000 ;@				; 3000~
sp_040=4000 ;rbg				; 4000~
sp_050=5000 ;o[i[			; 5000~
sp_060=6000 ;Vbg			; 6000~
sp_070=7000 ;[U[it		; 7000~
sp_080=8000 ;[U[i[		; 8000~
sp_090=9000 ;[U[i		; 9000~
sp_100=10000;󒆓Gi&	;10000~
sp_110=11000;󒆓G				;11000~
sp_120=12000;nGi&	;12000~
sp_130=13000;nG				;13000~
sp_140=14000;Gc				;14000~
;
;(\)



;VXeϐ
  ;Z[uf[^[
  ;;;
  ;XRAǗf[^[(;
	;Ǘt@Cǂݍ݁iCu[Ȃǁj
	test_sco=100
	dirlist chkdir,"test_sco.sco"
	if stat=1 : gosub *loading_0 : else : gosub *sinki_0
	goto *load_0_e
	*loading_0;۰
	bload "test_sco.sco",test_sco
	sys.2.0+1;N񐔁{P
	return
	*sinki_0;VK쐬
	bsave "test_sco.sco",test_sco
	return
	*load_0_e;̏
	;;;
  ;VXe
	kaihatsu=0	;0=ڲ԰	1=J
	w_mode=0	;XN[[h	0=full 1=window 2=low window
	f_mode=0	;t[EGCg	0=60   1=30		2=
	d_3d=1		;DirectX/3D	0=gp	1=gp
	oto_se_off=0;1ŗȂ
	oto_cv_off=0;1ŗȂ
	oto_bgm_off=0;1BGMȂ
  ;XvCgdl
	t_mx=600	;őeiftHg600@z_sp̒l΂ɔȂ悤ɂ
	b_no=600	;No
	z_no=1000	;@NoiɃ{XG̃XvCgio[
	o_no=2000	;IuWFNoijЂȂǂ̃io[@s_mx𒴂Ȃ悤ɂ
	zan_no=2100	;cNo(޼ުNoƔĂ
	m_no=3500	;ŉ}bvNoiXe[W̉nƂȂ镗iXvCgŌꍇɎgpB
	s_mx=8192;4096	;őLN^[XvCg
	dim sp_hp,s_mx	;HPA܂͍U
	dim sp_mv,s_mx	;sp^[
	dim sp_ti,s_mx	;
	dim sp_on,s_mx	;iVbgĂђʂȂǂɉpj
	dim sp_p1,s_mx	;ŗL̕ϐiDɎgj	
	dim sp_p2,s_mx	;ŗL̕ϐiDɎgj
  ;[hdl
	re_play=0	;0=ڲ@1=ڲĐӰޒ
  ;@dl
	z_id=0		;@
	z_mode=0	;[h
  ;
	re_play=0	;0=ʏ	1=Đ

;N`[;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include "z_window.hsp"

;۰ޕ\;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	title "U-ver0.02-"
	color 0,0,0:boxf 0,0,640,480 : color 255,255,255:pos 10,460:mes "Now loading..."

;vOCǂݍ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include "HSPDXFIX.AS";hspfix
#include "CWSDRV.AS";CWSDRV
;
nn=99999999
#include "z_result.hsp";UgñCxg

;VXẽ[h;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;fix
	wx=640:wy=480					; ʂ̉𑜓x̎w
	es_ini s_mx,s_mx ,360			; system
	es_screen wx,wy,16,,w_mode,d_3d	; XN[
	es_area -200,-250,840,680		;ײĐر@(唼̓vOō폜)
	es_window -150,-100,640,480		;\GAi͈͊Oō폜󂶂Ȃ
	;es_window 140,0,500,480
	if stat=1 : goto *dderr1
	if stat=2 : goto *dderr2

	goto *dderr_e				; Ɋ
*dderr1;װ1
	dialog "DirectX̏Ɏs܂",1
	end
*dderr2;װ2
	dialog "XN[̏Ɏs܂",1
	end
*dderr_e

;CWSDRV
	drv_ini

;۰ޒ
	color 0,0,0 : es_boxf 0,0,640,480
	color 255,255,255 : pos 10,460 : es_mes "Now Loading... "
;摜t@Cǂݍ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;00@OB
;01@OA
;02Ge
;04G@
;06{X
;08ðނl`o_AiXe[Wɓǂݍ݁j
;09ðނl`o_BiXe[Wɓǂݍ݁j
;10TCho[
;11GtFNg

;01///@OtBbNX
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >"
buffer 1,1024,1024 : picload "pic\\001.bmp":es_buffer 1,,$000000,,d_3d;vA\Ȃ
;@֌W
;[001]o[Xg
	es_size 48,48 ,8   : es_pat 1, 500,150
;[002]
	es_size 48,48 ,8   : es_pat 2, 500,200
;[003]
	es_size 48,48 ,8   : es_pat 3, 500,250

;@B-type[](OtBbN)
;[010~011]@
	es_size 48,48 ,8   : es_pat 10, 150,50 ,16 : es_pat 11, 200,50 ,4 : es_link 11,10
;[015]@vy
	es_size 48,48 ,10  : es_pat 15, 100,100
;[020~023]ʏVbg
	es_size 48,48 ,100 : es_pat 20, 150,100 ,1:es_pat 21, 200,100 ,1:es_pat 22, 250,100 ,1:es_pat 23, 300,100 ,1 : es_link 23,20
;[025~028]rbg
	es_size 48,48 ,10  : es_pat 25, 150,150 ,4:es_pat 26, 200,150 ,4:es_pat 27, 250,150 ,4:es_pat 28, 300,150 ,4 : es_link 28,25
;[040~041]rbgVbg
	es_size 48,48 ,50  : es_pat 40, 150,200 ,1:es_pat 41, 200,200 ,1 : es_link 41,40
;[042~043]rbgVbgio[Xgj
	es_size 48,48 ,90  : es_pat 42, 250,200 ,1:es_pat 43, 300,200 ,1 : es_link 43,42
;[045~046]ꃌ[U[Vbg
	es_size 48,48 ,90  : es_pat 45, 150,250 ,1:es_pat 46, 200,250 ,1 : es_link 46,45
;[047~048]ꃌ[U[Vbgio[Xgj
	es_size 48,48 ,90  : es_pat 47, 250,250 ,1:es_pat 48, 300,250 ,1 : es_link 48,47



;@C-type[JX](OtBbN)
;[050]@
	es_size 48,48 ,10: es_pat 50, 150,300
;[051]@P
	es_size 48,48 ,8 : es_pat 51, 200,300
;[052]@Q
	es_size 48,48 ,6 : es_pat 52, 250,300
;[053]@R
	es_size 48,48 ,4 : es_pat 53, 300,300
;[054]@P
	es_size 48,48 ,8 : es_pat 54, 100,300
;[055]@Q
	es_size 48,48 ,6 : es_pat 55, 50,300
;[056]@R
	es_size 48,48 ,4 : es_pat 56, 0,300

;[063]EVbg
	nn=63
	es_size 48,48 ,80 : es_pat nn, 350,300
;[064]Eu[XgVbg
	nn=64
	es_size 48,48 ,80 : es_pat nn, 400,300
;[065~066]~TC
	nn=65
	es_size 48,48 ,90 : es_pat nn, 500,300 ,1 : es_pat nn+1, 500,350 ,1 : es_link nn+1,nn
;[070~071][U[F_
	nn=70
	es_size 48,24 ,38
	es_pat nn, 550,150 : es_pat nn+1, 550,175
;[072~073][U[F[
	nn=72
	es_size 48,35 ,80
	es_pat nn, 550,200 ,1
	es_size 48,34 ,86
	es_pat (nn+1), 550,237 ,1 : es_link (nn+1),nn


;@A-type[](OtBbN)
;[100]@
	es_size 48,48 ,10 : es_pat 100, 150,0
;[101]@P
	es_size 48,48 ,8 : es_pat 101, 200,0
;[102]@Q
	es_size 48,48 ,6 : es_pat 102, 250,0
;[103]@R
	es_size 48,48 ,4 : es_pat 103, 300,0
;[104]@P
	es_size 48,48 ,8 : es_pat 104, 100,0
;[105]@Q
	es_size 48,48 ,6 : es_pat 105, 50,0
;[106]@R
	es_size 48,48 ,4 : es_pat 106, 0,0
;[110~113]rbg
	nn=110
	es_size 48,48 ,1
	es_pat nn, 350,0 ,4 : es_pat (nn+1), 350,50 ,4 : es_pat (nn+2), 350,100 ,4 : es_pat (nn+3), 350,150 ,4 : es_link (nn+3),nn
;[114]rbgCGtFNg
	nn=114
	es_size 48,48 ,1 : es_pat nn, 350,200 : es_pat nn+1, 350,250
;[120~123]UFEN
	nn=120
	es_size 48,48 ,80
	es_pat nn, 400,0 ,4 : es_pat (nn+1), 400,50 ,4 : es_pat (nn+2), 400,100 ,4 : es_pat (nn+3), 400,150 ,4 : es_link (nn+3),nn
;[125~128]UFENio[Xgj
	nn=125
	es_size 48,48 ,90
	es_pat nn, 450,0 ,1 : es_pat (nn+1), 450,50 ,1 : es_pat (nn+2), 450,100 ,1 : es_pat (nn+3), 450,150 ,1 : es_link (nn+3),nn
;[130~131]UF~TC
	nn=130
	es_size 48,48 ,90
	es_pat nn, 500,0 ,4 : es_pat (nn+1), 500,50 ,4 : es_link (nn+1),nn
;[132~133][U[F_
	nn=132
	es_size 48,24 ,60
	es_pat nn, 550,0 : es_pat nn+1, 550,25
;[134~135][U[F[
	nn=134
	es_size 48,35 ,96
	es_pat nn, 550,50 ,1
	es_size 48,34 ,90
	es_pat (nn+1), 550,87 ,1 : es_link (nn+1),nn
;[140~145]o[i[
	nn=140 : nnn=5
	es_size 12,14 ,100
	es_pat nn+0, 500,100 ,nnn : es_pat nn+1, 500,116 ,nnn : es_pat nn+2, 500,132 ,nnn
	es_pat nn+3, 514,100 ,nnn : es_pat nn+4, 514,116 ,nnn : es_pat nn+5, 514,132; ,nnn
;[150~151][U[F_io[Xg
	nn=150
	es_size 58,24 ,90
	es_pat nn, 600,0 : es_pat nn+1, 600,25
;[152~153][U[F[io[Xg
	nn=152
	es_size 58,58 ,100
	es_pat nn, 600,50 : es_pat nn+1, 600,110



;02///e
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>"
buffer 1,1024,1024 : picload "pic\\002.bmp":es_buffer 2,,$000000,,d_3d;
;[200~205]eXgeij
	nn=200
	es_size 18,18 ,1  : es_pat nn+0, 0,0 ,3  : es_pat nn+1, 0,20 ,3;˴̪
	es_size 18,18 ,20 : es_pat nn+2, 0,40 ,10: es_pat nn+3, 0,60 ,10 : es_pat nn+4, 0,80 ,10 : es_pat nn+5, 0,100 ,10
	es_link nn+5,nn+2
;[206~208]Fij
	nn=206
	es_size 18,18 ,1 : es_pat nn+0, 20,0 ,3  : es_pat nn+1, 20,20 ,3 : es_pat nn+2, 20,40
;[210~212]~TCij
	nn=210
	es_size 18,18 ,1 : es_pat nn+0 ,40,20 ,2 : es_pat nn+1 ,40,40 ,2 : es_pat nn+2 ,40,40 ,2
	es_link nn+2,nn+0
;[215~220]eij
	nn=215
	es_size 18,18 ,1  : es_pat nn+0, 60,0 ,3  : es_pat nn+1, 60,20 ,3;˴̪
	es_size 18,18 ,20 : es_pat nn+2, 60,40 ,4: es_pat nn+3, 60,60 ,4 : es_pat nn+4, 60,80 ,4 : es_pat nn+5, 60,100 ,4
	es_link nn+5,nn+2
;[225~230]jeij
	nn=225
	es_size 18,18 ,1  : es_pat nn+0, 80,0 ,3  : es_pat nn+1, 80,20 ,3;˴̪
	es_size 18,18 ,5  : es_pat nn+2, 80,40 ,4 : es_pat nn+3, 80,60 ,4 : es_pat nn+4, 80,80 ,4 : es_pat nn+5, 80,100 ,4
	es_link nn+5,nn+2
;[235~240]Ԓeij
	nn=235 : nnn=15
	es_size 18,18 ,1  : es_pat nn+0, 100,0 ,3  : es_pat nn+1, 100,20 ,3;˴̪
	es_size 18,18 ,5  : es_pat nn+2, 100,40 ,nnn : es_pat nn+3, 100,60 ,nnn : es_pat nn+4, 100,80 ,nnn : es_pat nn+5, 100,100 ,nnn
	es_link nn+5,nn+2
;[245~250]eij
	nn=245 : nnn=15
	es_size 18,18 ,1  : es_pat nn+0, 120,0 ,3  : es_pat nn+1, 120,20 ,3;˴̪
	es_size 18,18 ,5  : es_pat nn+2, 120,40 ,nnn : es_pat nn+3, 120,60 ,nnn : es_pat nn+4, 120,80 ,nnn : es_pat nn+5, 120,100 ,nnn
	es_link nn+5,nn+2
;[255~][U[ij
	nn=255
	es_size 48,24 ,20  : es_pat nn+0, 140,0 ,1  : es_pat nn+1, 140,25 ,1  : es_link nn+1,nn+0; 255
	nn=257
	es_size 48,48 ,30  : es_pat nn+0, 140,50 ,1  : es_pat nn+1, 140,100 ,1;̐ 257
	nn=259
	es_size 48,48 ,30  : es_pat nn+0, 140,150 ,4 : es_pat nn+1, 140,200 ,4 : es_pat nn+2, 140,250 ,4
					   : es_pat nn+3, 140,300 ,4 : es_link nn+3,nn+0; 259

;[270~274]jeij
	nn=270
	es_size 18,18 ,1  : es_pat nn+0, 190,0 ,3  : es_pat nn+1, 190,20 ,3;˴̪
	es_size 18,18 ,5  : es_pat nn+2, 190,40 ,4 : es_pat nn+3, 190,60 ,4 : es_pat nn+4, 190,80 ,4 : es_pat nn+5, 190,100 ,4
	es_link nn+5,nn+2

;[280~284]eijCglŒF{P̗p}
	nn=280
	es_size 28,28 ,1  : es_pat nn+0, 210, 0 ,3  : es_pat nn+1, 210,30 ,3;˴̪
	es_size 28,28 ,5  : es_pat nn+2, 210,60 ,4 : es_pat nn+3, 210,90 ,4 : es_pat nn+4, 210,120 ,4
	es_link nn+4,nn+2




;04///G
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>"
buffer 1,1024,1024 : picload "pic\\004.bmp":es_buffer 4,,$000000,,d_3d;
;[400 401]eXgGl~[
	nn=400
	es_size 48,48 ,100 : es_pat nn, 0,0
	es_size 48,48 ,100 : es_pat nn+1, 0,50;_
;[402 403 404]Gw
	nn=402
	es_size 48,48 ,100 : es_pat nn, 50,0
	es_size 48,48 ,100 : es_pat nn+1, 50,50;_
	es_size 48,48 ,100 : es_pat nn+2, 100,0;
;[405~411]G퓬@
	nn=405
	es_size 48,48 ,100
	repeat 7,0 : es_pat nn+cnt, 150+(cnt*50),0 : loop
;[420 421]^^@
	nn=420
	es_size 98,48 ,100 : es_pat nn  , 100,50
	es_size 98,48 ,100 : es_pat nn+1, 200,50;
;[425 426]KgOK
	nn=425
	es_size 48,68 ,100 : es_pat nn  , 0,100
	es_size 48,68 ,100 : es_pat nn+1, 50,100;j
;[430]^ݒuC
	nn=430
	es_size 148,148 ,95
	repeat 5,0 : es_pat (nn+cnt), 0,170+(cnt*150) ,4 : loop	: es_link nn+4,nn+0 ;{
	es_size 148,148 ,40 : es_pat nn+5, 150,100	;C䓪
	es_size 148,148 ,40 : es_pat nn+6, 150,250	;C
	es_size 148,148 ,40 : es_pat nn+7, 150,400 ,4 : es_pat nn+8, 150,550 ,4 : es_link nn+8,nn+7	;c[
;[440 441 442 443]Gԁ^
	nn=440
	es_size 48,48 ,90
	es_pat nn+0, 300,50 ,10 : es_pat nn+1, 350,50 ,2 : es_link nn+1,nn+0;{
	es_pat nn+2, 400,50;j
	es_pat nn+3, 450,50;j
;[445~446 447 448]Gԁ_
	nn=445
	es_size 48,48 ,90
	es_pat nn+0, 300,100 ,10 : es_pat nn+1, 350,100 ,2 : es_link nn+1,nn+0;{
	es_pat nn+2, 400,100;j
	es_pat nn+3, 450,100;j

;[450~451 452]GD^
	nn=450
	es_size 78,78 ,80
	es_pat nn+0, 300,150 ,30 : es_pat nn+1, 300,230 ,30 : es_link nn+1,nn+0;{
	es_pat nn+2, 300,310;j
;[453]^@i_T΁j
	nn=453
	es_size 168,148 ,90
	es_pat nn+0, 300,390
;[455~456]^@ij
	nn=455
	es_size 100,98 ,80
	es_pat nn+0, 380,150 ,2 : es_pat nn+1, 380,250 ,2 : es_link nn+1,nn+0;{
;[457~460]^A@i΁joeŒeWʁp
	nn=457
	es_size 98,100 ,70
	es_pat nn+0, 480,150 ,2 : es_pat nn+1, 480,250 ,2 : es_pat nn+2, 480,350 ,2 : es_pat nn+3, 480,250 ,2 : es_link nn+3,nn+0;{
;[461]S^^@ij
	nn=461
	es_size 220,110 ,70
	es_pat nn+0, 150,700
;[463~464 465]ΐԁoeŒeUʁp
	nn=463
	es_size 48,48 ,80
	es_pat nn+0, 500,0 ,4 : es_pat nn+1, 500,50 ,4 : es_link nn+1,nn+0;{
	es_pat nn+2, 500,100;c[

;[466~467]G퓬@iDF
	nn=466
	es_size 48,48 ,80
	es_pat nn+0, 550,0 ,1 : es_pat nn+1, 550,50 ,1 : es_link nn+1,nn+0;{

;06///{X
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>"
buffer 1,1024,1024 : picload "pic\\006.bmp":es_buffer 6,,$000000,,d_3d;
;[600]eXg{X
	es_size 148,78 ,100 : es_pat 600, 0,0


;10///TCho[
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>>>>>"
buffer 1,1024,1024 : picload "pic\\010.bmp":es_buffer 10,,$000000,,d_3d;vA\Ȃ
;@A-type(OtBbN)
;[1000]TCho[
	es_size 140,480 ,100 : es_pat 1000, 0,0

;[1004]WARNINGI
	es_size 300,100 ,100 : es_pat 1004,720,530
;[1005~1006]WARNINGI
	es_size 360,100 ,100 : es_pat 1005,  0,530
	es_size 360,100 ,100 : es_pat 1006,360,530
;[1007]S
	nn=1007
	es_size 200,40 ,100 : es_pat nn ,0,750

;[1010~1019]ǂݍ݃ubN
	nn=1010 : es_size 36,48 ,100
	repeat 10,0 : es_pat (nn+cnt), (0+(cnt*36)),480 ,2 : loop
	es_link (nn+9),(nn+0)

;[1020~1029]
	nn=1020 : es_size 8,15 ,100
	repeat 10,0 : es_pat (nn+cnt), (0+(cnt*10)),650 : loop

;[1030~]ү
	nn=1030 : es_size 50,15 ,100 : es_pat nn, 0,730		;score
	nn=1031 : es_size 50,15 ,100 : es_pat nn, 60,730	;combo

;[1040]Q[I[o[isj
	nn=1040 : es_size 360,40 ,100 : es_pat nn, 0,790
;[1041]Q[I[o[ij
	nn=1041 : es_size 360,30 ,100 : es_pat nn, 0,840


;11///GtFNg
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>>>>>>"
buffer 1,1024,1024 : picload "pic\\011.bmp":es_buffer 11,,$000000,,d_3d
;[1100]_~[
	nn=1100 : es_size 4,4 ,100 : es_pat nn,0,0
;[1101~1116]ij
	nn=1101
	repeat 8,0
	es_size 96,96 ,100 : es_pat (nn+0)+cnt ,0+(cnt*96),0 ,2
	loop:repeat 8,0
	es_size 96,96 ,100 : es_pat (nn+8)+cnt ,0+(cnt*96),96 ,2
	loop
	es_link nn+15,nn+14
;[1120~1137]i󒆁j
	nn=1120
	repeat 18,0
	es_size 48,48 ,100 : es_pat (nn+cnt) ,0+(cnt*50),200 ,3
	loop
	es_link (nn+17),(nn+0)
;[1140~1157]ް޴сinGj
	nn=1140
	repeat 18,0
	es_size 48,48 ,100 : es_pat (nn+cnt) ,0+(cnt*50),270 ,5
	loop
	es_link (nn+1),(nn+0);̨
;[1158]їpа
	nn=1158 : es_size 48,48 ,100 : es_pat nn ,0,320

;[1160~1161]o[XgQ[W
	nn=1160 : es_size 100,10 ,100 : es_pat nn ,0,370
	nn=1161 : es_size 100,10 ,100 : es_pat nn ,0,380;max
;[1165]޹ް
	nn=1165 : es_size 100, 5 ,100 : es_pat nn ,0,400

;t@Cǂݍ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;bgm
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>>>>>>>"
	mmload "bgm\\SAM_d17.mp3",1,1					;Xe[WPafl
	mmload "bgm\\cyaermix_m12_half.mp3",2,1			;{Xafl
	mmload "bgm\\Mika_track020_Desert_Battle.mp3",3,1;Xe[WQafl
	mmload "bgm\\cyrf_steel.mp3",4,1				;@̑I
	mmload "bgm\\anosaka.mp3",5,1					;^Cgʁi
	mmload "bgm\\cyaermix_m14_full.mp3",6,1			;OP
	mmload "bgm\\free0522.mp3",7,1					;Q[I[o[
;se
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>>>>>>>>"
	snd_load "se\\101.wav",101	;ˉ
	snd_load "se\\102_osa.wav",102	;jij
	snd_load "se\\103_osa.wav",103	;jij
	snd_load "se\\104_osa.wav",104	;u[XgJn
	snd_load "se\\105.wav",105	;s
	snd_load "se\\106.wav",106	;jiKbIȁj
	snd_load "se\\107.wav",107	;u[Xgl`w
	snd_load "se\\108.wav",108	;Gˌ
	snd_load "se\\109.wav",109	;݉()
	snd_load "se\\110.wav",110	;݉(ڰް)
	snd_load "se\\111.wav",111	;
	snd_load "se\\112.wav",112	;x
	snd_load "se\\113_osa.wav",113	;ij
	snd_load "se\\114_osa.wav",114	;icj
	snd_load "se\\115_osa.wav",115	;GԔC
	snd_load "se\\116_osa.wav",116	;[U[\
	snd_load "se\\117_osa.wav",117	;[U[
	snd_load "se\\118_osa.wav",118	;@ĉ
	snd_load "se\\119_osa.wav",119	;@e
	snd_load "se\\120.wav",120		;Guo
	snd_load "se\\121.wav",121		;Gu擾
	snd_load "se\\122_osa.wav",122	;Vbg
	;122~129 ꉞ󂯂Ă
;se(ėp)
	snd_load "se\\201.wav",201		;
	snd_load "se\\202_osa.wav",202	;Vb^[opened
	snd_load "se\\203_osa.wav",203	;Vb^[open
	snd_load "se\\204_osa.wav",204	;{XJ
	snd_load "se\\205_osa.wav",205	;ŏI⏕ړ
	snd_load "se\\206_osa.wav",206	;ŏI⏕A
	snd_load "se\\207_osa.wav",207	;mCYP
	snd_load "se\\208_osa.wav",208	;mCYQ
	snd_load "se\\209_osa.wav",209	;LG\
	snd_load "se\\210_osa.wav",210	;Gu
	snd_load "se\\211_3104.wav",211	;mCYir؂r؂j
	snd_load "se\\212_3104.wav",212	;mCY
	;
	snd_load "se\\250_osa.wav",250	;X^[g
	snd_load "se\\251_osa.wav",251	;I

;cv(׸޲)
color 255,255,255 : pos 10,460 : es_mes "Now Loading... >>>>>>>>>>>>>> OK!"
	snd_load "cv\\may_001.wav",301	;ڕWɓB܂
	snd_load "cv\\may_002.wav",302	;RAQAPA@̓
	snd_load "cv\\may_003.wav",303	;u[X^[NA~bVJn܂B
	snd_load "cv\\may_004.wav",304	;K{jڕWڋ߁Aɓ܂B
	snd_load "cv\\may_005.wav",305	;U܂B
	snd_load "cv\\may_006.wav",306	;`[WOԂɓ܂B
	snd_load "cv\\may_011.wav",311	;ǂ̋@̂ŏo܂H
	snd_load "cv\\may_012.wav",312	;܂A䕐^
	snd_load "cv\\may_013.wav",313	;ڕWjmFÃtF[Yֈȍ~܂B
	snd_load "cv\\may_014.wav",314	;ɓ܂B
	snd_load "cv\\may_015.wav",315	;~bVIAlłB

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;^CgʂȂ
#include "z_op_title.hsp"


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*st_r1
;ϐ
	;Ԋ֌W
	p_time=0;vC
	stage=1	;Jnð
	uramen=0;˓tOi0=ʏ 1=
	;XRA֌W
	score=0 : score_E=1999999999		;݃XRAQJXgl(19
	sco_ex=0							;׸ 1st=50000000 2nd=150000000
	combo=0 : combo_E=99999 : combo_t=0	;݃R{QݽĒl(x99999QꂪOɂȂƌĂ
	b_en=0  : b_en_all=0				;ðނł̏Qތv
	;@֌W
	zi_zanki=2			;c@
	z_hp=1				;ꌂ̏
	zi_bb=0 			;u[XgQ[W
	zix=295 : ziy=400	;ʒu
	hold=0				;0=Ȃ	1=Us({XjȂ)	2=ړUs(ĒȂ)
	;XvCgp[^[
	dim sp_hp,s_mx	;XvCgHPA܂͍U
	dim sp_mv,s_mx	;XvCg̍sp^[
	dim sp_ti,s_mx	;XvCg̎
	dim sp_on,s_mx	;XvCg̑iVbgĂђʂȂǂɉpj
	dim sp_p1,s_mx	;XvCgŗL̕ϐiDɎgj	
	dim sp_p2,s_mx	;XvCgŗL̕ϐiDɎgj

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*st_r2
;
;fobO;;;;;;;;;;
;stage=2
;time=12100;{X
;time=11000
;;;;;;;;;;;;;;;;;;;

;XvCg
	es_clear
;ubNp
	b_time=100
;tOZbg
	uramen=0
;aflĐ
	mmstop
	if stage=0 : mmplay 1
	if stage=2 : mmplay 3
;Xe[Wp摜
;08///Xe[Wl`o
if stage=1{
buffer 1,1024,1024 : picload "pic\\stage_1A.bmp":es_buffer 8,,$000000,,d_3d
	nn=800
	es_size 460,1024 ,100 : es_pat nn,   0,0	;sX`
	es_size 460,1024 ,100 : es_pat nn+1, 470,0	;sXa
	;[850~858]rC
	nn=850
	es_size 29,29 ,100 : es_pat nn+0, 940,0	;ҋ@ [850]
	repeat 6,0
	es_pat (nn+1)+cnt, 940,30+(cnt*30), 8		;J [851~856]
	loop
	es_pat nn+7, 940,210		;UJn [857]
	es_pat nn+8, 940,240		;j	  [858]	
}
if stage=2{
buffer 1,1024,1024 : picload "pic\\stage_2A.bmp":es_buffer 8,,$000000,,d_3d
	nn=800
	es_size 460,1024 ,100 : es_pat nn,    0,0	;a
	es_size 460,1024 ,100 : es_pat nn+1,470,0	;`
	es_size 460,150  ,100 : es_pat nn+2,  0,0	;ai{X[vpj
}


;09///Xe[WIuWF
if (stage=1)|(stage=0){
buffer 1,1024,1024 : picload "pic\\stage_1B.bmp":es_buffer 9,,$000000,,d_3d
;[900~906]A@
	nn=900 : nnn=5;Ұ݊Ԋu
	es_size 198,138 ,100
	es_pat nn+0, 0,0 ,300   : es_pat nn+1, 0,140 ,nnn : es_pat nn+2, 0,280 ,nnn
	es_pat nn+3, 0,420 ,nnn : es_pat nn+4, 0,560 ,nnn : es_pat nn+5, 0,700 ,nnn
	es_pat nn+6, 0,840 : es_link nn+6,nn+0
;[907]A@ij
	nn=907
	es_size 198,138 ,100
	es_pat nn, 200,840
;[910~915]vy
	nn=910 : nnn=1;Ұ݊Ԋu
	es_size 198,138 ,100
	es_pat nn+0, 200,0 ,nnn   : es_pat nn+1, 200,140 ,nnn : es_pat nn+2, 200,280 ,nnn
	es_pat nn+3, 200,420 ,nnn : es_pat nn+4, 200,560 ,nnn : es_pat nn+5, 200,700 ,nnn
	es_link nn+5,nn+0
;[920~928]_
	nn=920
	repeat 9,nn
	es_size 150,80 ,100
	es_pat cnt, 400,(cnt-nn)*90
	loop
;[930]C
	nn=930
	es_size 150,80 ,100 : es_pat nn, 400,810

;[940 941 942]{XiS@j
	nn=940
	es_size 78,44 ,90 : es_pat nn+0,  0,980	;
	es_size 98,44 ,100: es_pat nn+1, 80,980	;
	es_size 78,44 ,90 : es_pat nn+2,180,980	;E
	
;[950~]{X{
	nn=950
	es_size (150-2),(80-2) ,90 : es_pat nn+0,  550,0	;{
	es_size 156,156 ,40 : es_pat nn+1,  700,0			;
	es_size 156,156 ,40 : es_pat nn+2,  860,0			;E
	es_size 148,78  ,90 : es_pat nn+3,  850,640			;{́iŏj
	es_size 24,24   ,100: es_pat nn+4,  1000,160		;⏕C
	;ό`Aj[V
	nn=955 : nnn=4
	es_size (150-2),(80-2) ,90
	repeat 11,0
	es_pat nn+0+cnt, 550,80+(cnt*80) ,nnn
	loop
	repeat 10,0
	es_pat nn+11+cnt, 700,160+(cnt*80) ,nnn
	loop
	repeat 6,0
	if cnt=5 : nnn=99999999
	es_pat nn+21+cnt, 850,160+(cnt*80) ,nnn
	loop
	;ŏIǉ
	nn=985
	es_size 80,144 ,90
	es_pat nn+0, 850,880;
	es_pat nn+1, 940,880;E
}
;st2
if stage=2{
buffer 1,1024,1024 : picload "pic\\stage_2B.bmp":es_buffer 9,,$000000,,d_3d
;[900~902]{X{
	nn=900 : nnn=5;Ұ݊Ԋu
	es_size 240,260 ,84
	es_pat nn+0, 0,0 ,nnn   : es_pat nn+1, 0,270 ,nnn : es_pat nn+2, 0,540 ,nnn
	es_link nn+2,nn+0
;[903]{Xijj
	nn=903  :  es_size 100,200 ,90  :  es_pat nn+0, 250,0
;[905]{Xirj
	nn=905  :  es_size 100,200 ,80  :  es_pat nn+0, 250,210
;[907]{XiErj
	nn=907  :  es_size 100,200 ,80  :  es_pat nn+0, 250,420
;[910~912]ioj
	nn=910  :  es_size 100,100 ,80  :  es_pat nn+0, 250,630 ,5:es_pat nn+1, 250,740 ,5:es_pat nn+2, 250,850; ,5 : es_link nn+2,nn+0
;[915~917]{X{́iAj[Vԁj
	nn=915 : nnn=2;Ұ݊Ԋu
	es_size 240,260 ,84
	es_pat nn+0, 0,0 ,nnn   : es_pat nn+1, 0,270 ,nnn : es_pat nn+2, 0,540 ,nnn
	es_link nn+2,nn+0

}





;ϐ
	;Ԋ֌W
	fps=0	;fpsl
	time=0	;Xe[W
	c_time=0;Xe[WNA[ϐ
if stage=0 : time=9900;ꉞiOOPȂǂ}邩Ȃ̂
if stage=1 : time=9900
if stage=2 : time=10000
;time=16100
	coma2=0
	coma3=0
	coma4=0
	coma4=0
	coma5=0
	coma10=0
	coma15=0
	coma20=0
	coma50=0
	coma60=0
	coma64=0
	coma100=0
	coma120=0
	coma160=0
	coma180=0
	coma240=0
	coma360=0
	;MAP֌W
	aq=0	;唚Ȃǂɂh
	z_aq=0	;CӍEXN[
	r_z_aq=0;1fpsO̔CӍE̒l
	mapx=0	;MAPxʒu̽ڐ
	mapy=0	;MAPxʒu̽ڐ
	
	;XRA֌W
	combo=0 : combo_t=0
	b_en=0
	;@֌W
	zix=295 : ziy=400		;ʒu
	r_zix=zix : r_ziy=ziy;1ڰёO̍W
	if z_id=1 : bx=32:by=25;rbgʒu(A)
	if z_id=2 : bx=42:by=25;rbgʒu(B)
	zi_kata=0	;X
	zi_shot=0	;[U[tO
	re_load=0	;[h
	s_fire=0	;Ĵ̪
	zi_bbon=0	;u[Xĝnmnee
	zi_ammo_now=0		;ʓőeiʏU
	zi_ammo_max=20		;
	z_die_t=0	;S 0ȏゾƎS
	g_over=0	;Q[I[o[tO
	;G֌W
	boss_P=0		;{Xϐ
	dim boss_M,10	;{Xp[cϐ
	boss_PP=0		;{Xϐ
	dim boss_MM,10	;{Xp[cϐ
	;Ŋ֌W
	kesu_0_t=0	;e
	;ȕϐ
	nn=0:nnn=0:nnnn=0:nnnnn=0
;@ʕϐpӁiړxȂ
	if z_id=0 : zm_sx=3:zm_sy=3 : zm_lx=1:zm_ly=1
	if z_id=1 : zm_sx=4:zm_sy=4 : zm_lx=2:zm_ly=2
	if z_id=2 : zm_sx=2:zm_sy=2 : zm_lx=1:zm_ly=1
;@p
	;@
	es_clear;ײĸر
	if z_id=0 : es_set z_no, zix,ziy ,50  ,d_3d,sp_030 : es_type z_no,1
	if z_id=1 : es_set z_no, zix,ziy ,100 ,d_3d,sp_030 : es_type z_no,1
	if z_id=2 : es_set z_no, zix,ziy ,10  ,d_3d,sp_030 : es_type z_no,1
	if z_id=2 : es_set z_no-1, zix,ziy ,15  ,d_3d,sp_030 : es_type 1024,1;vy
	if z_id=2 : es_set z_no-2, zix,ziy ,15  ,d_3d,sp_030 : es_type 1024,1;vy
	;rbg
	if z_id=1 : es_set (z_no+1), (zix+bx),(ziy-by) ,110 ,d_3d,sp_040 : es_type (z_no+1),1024;(E)
	if z_id=1 : es_set (z_no+2), (zix-bx),(ziy-by) ,110 ,d_3d,sp_040 : es_type (z_no+2),1024;()
	if z_id=2 : es_set (z_no+1), (zix+bx),(ziy-by) ,25 ,d_3d,sp_040 : es_type (z_no+1),1024;(E)
	if z_id=2 : es_set (z_no+2), (zix-bx),(ziy-by) ,25 ,d_3d,sp_040 : es_type (z_no+1),1024;()
	if z_id=2 : es_set (z_no+3), (zix+0) ,(ziy+(by*2)) ,25 ,d_3d,sp_040 : es_type (z_no+1),1024;()


;A@ýā@y+50͎@i[ʒu
if (stage=1)|(stage=0) : if time=9900{
	es_set z_no-20 , 220,475 ,910 ,d_3d : es_type z_no-20,1024;
	es_set z_no-10 , 220,475 ,900 ,d_3d : es_type z_no-10,1024;A@
	es_set z_no+20 , 220,475 ,907 ,d_3d : es_type z_no+20,1024;
	zix=295:ziy=525 : es_pos z_no, zix,ziy;@ʒuύX
	hold=2;Ȃ
	bx=0:by=0;rbgi[
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;C[v;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
*st_m
	gsel 0;:es_cls;ʏ
	r_zix=zix:r_ziy=ziy	: r_z_aq=z_aq;1ڰёOW擾
	
	;ϐ
	time+1 : if time>999999 : time=999999
	if c_time>0		: c_time+1;ر
	if z_die_t>0	: z_die_t+1;S
	if g_over>0		: g_over+1	;ްѵް
	if zi_muteki>0 : zi_muteki-1;G
	coma2+1 : if coma2=2 : coma2=0
	coma3+1 : if coma3=4 : coma3=0
	coma4+1 : if coma4=4 : coma4=0
	coma5+1 : if coma5=5 : coma5=0
	coma10+1 : if coma10=10 : coma10=0
	coma15+1 : if coma15=15 : coma15=0
	coma20+1 : if coma20=20 : coma20=0
	coma50+1 : if coma50=50 : coma50=0
	coma60+1 : if coma60=60 : coma60=0
	coma64+1 : if coma64=64 : coma64=0
	coma100+1 : if coma100=100 : coma100=0
	coma120+1 : if coma120=120 : coma120=0
	coma160+1 : if coma160=160 : coma160=0
	coma180+1 : if coma180=180 : coma180=0
	coma240+1 : if coma240=240 : coma240=0
	coma360+1 : if coma360=360 : coma360=0
	;۰
	if re_load>0 : re_load-1
	;ްĹްފ֌W
	if zi_bbon=1:if zi_bb>0 : zi_bb-20 : if zi_bb<0:zi_bb=0;ްތ
	if zi_bbon=1:if zi_bb=0 : zi_bbon=0  :  kesu_0_t=60 : oto=306 : gosub *oto_cv;ްďI
	;޹ްފ֌W
	if combo_t>0 : combo_t-1 : if coma5=0 : if combo>0:combo-1;
	if combo_t=0 : combo-2   : if combo<0:combo=0;匸
	;e
	if kesu_0_t>0 : kesu_0_t-1 : gosub *kesu_0

	;i()
	gosub *ef_sita
	;GtFNg()
	;gosub *

	;;;֌W a h1~3[zxc]iUnj
	gosub *stick_1
	gosub *zi_mv		;
	;gosub *z_aq_ene	;Cӽ۰قɍ킹ēG
	;;;
	gosub *zi_bit	;rbg֌W
	if hold=0:if b_time=0 : gosub *zi_at	;U
	;Go
	#include "z_e_set.hsp"
	;ubNo
	;`
	if b_time>0:if b_time<100{
		gosub *brock_in
	};
	if b_time>=100:if b_time<200{
		gosub *brock_out
	}
	
	es_draw;ײĕ`ʁieAGA@Ȃǁj

	;Gesp^[
	if stage=0{
	#include "z_000.hsp"
	}
	if stage=1{
	#include "z_001.hsp"
	}
	if stage=2{
	#include "z_002.hsp"
	}
	;ۯsp^[
	gosub *brock_out_mv

	;ʍsp^[
	#include "z_000all.hsp"
	;蔻
	#include "z_hit.hsp"
	if zi_shot=35:if (z_id=0)|(z_id=1) : gosub *lz_sen

;;;GNXeh
	if sco_ex<2{
		if sco_ex=0:if score>=50000000 : sco_ex=1:zi_zanki+1;1st
		if sco_ex=1:if score>=150000000: sco_ex=2:zi_zanki+1;1st
	}
;;;Q[I[o[
	if g_over=100{
		 gosub *go_1_r
		 goto *t_r
	}
;;;NA
	if g_over=0{
		if c_time=20 : oto=313:gosub *oto_cv;NAAiEX
		if c_time=200 : b_time=1
if c_time=260 : if stage=2 : gosub *go_1_r:goto *t_r;I
		if c_time=260 : stage+1 : gosub *st_r2
	}
 
	;GtFNg()
	gosub *ef_up
	;i()
	;gosub *
	;
	;gosub *

	#include "z_keiki.hsp";v

	;I
	if a=128 : gosub *esc_1

	;t[
	if f_mode=0 : es_sync 16,0 : await 0
	if f_mode=1 : if coma2=0:es_sync 16,0 : await 0
	if f_mode=2 : es_sync 1,0 : await 0
	goto *st_m;XV[v;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;






































;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;CTu[`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;@̈ړ;;;;;;;;;;;;;;;;;;;
*zi_mv
;ړ
	;Eړ
if hold!2{ 
	if a&1{
		if zi_shot<=30:zix-zm_sx
		if zi_shot>30 :zix-zm_lx;ڰް
		if z_id=0 : zi_kata-2;X
		if z_id=1 : zi_kata-2
		if z_id=2 : zi_kata-1
		;if zix<280 : 
		if zi_shot<=30: z_aq+2 : if z_aq>50:z_aq=50;MAPCӽ۰
		if zi_shot>30 : z_aq+1 : if z_aq>50:z_aq=50
		if zix<130:zix=130;
	}
	if a&4{
		if zi_shot<=30:zix+zm_sx
		if zi_shot>30 :zix+zm_lx;ڰް
		if z_id=0 : zi_kata+2
		if z_id=1 : zi_kata+2
		if z_id=2 : zi_kata+1
		;if zix>310 : 
		if zi_shot<=30: z_aq-2 : if z_aq<-50:z_aq=-50;MAPCӽ۰
		if zi_shot>30 : z_aq-1 : if z_aq<-50:z_aq=-50
		if zix>460:zix=460;
	}
	;㉺ړ
	if (a!2)|(a!8):zzy=0
	if a&2{
		if zi_shot<=30:ziy-zm_sy
		if zi_shot>30 :ziy-zm_ly;ڰް
		if ziy<10 :ziy=10;
	}
	if a&8{
		if zi_shot<=30:ziy+zm_sy
		if zi_shot>30 :ziy+zm_ly;ڰް
		if ziy>432:ziy=432;
	}
}
	es_pos z_no, zix,ziy;WXV
;X
	;X
	if a!1:if a!4{;EǂړȂ
		if z_id=0{
			if zi_kata>0 : zi_kata-1
			if zi_kata<0 : zi_kata+1
		}
		if z_id=1{
			if zi_kata>0 : zi_kata-1
			if zi_kata<0 : zi_kata+1
		}
		if z_id=2:if coma2=0{
			if zi_kata>0 : zi_kata-1
			if zi_kata<0 : zi_kata+1
		}
	}
	;C
	if zi_kata>15 : zi_kata=15
	if zi_kata<-15 : zi_kata=-15
	;lɉĸ̨ύX
	if z_id=0{
	if zi_kata=-15					 : es_chr z_no,56
	if zi_kata>-15  : if zi_kata<=-10: es_chr z_no,55
	if zi_kata>-10  : if zi_kata<=-5 : es_chr z_no,54
	if zi_kata>-5   : if zi_kata<5   : es_chr z_no,50
	if zi_kata>=5   : if zi_kata<10  : es_chr z_no,51
	if zi_kata>=10  : if zi_kata<15  : es_chr z_no,52
	if zi_kata=15					 : es_chr z_no,53
	}
	;lɉĸ̨ύX
	if z_id=1{
	if zi_kata=-15					 : es_chr z_no,106
	if zi_kata>-15  : if zi_kata<=-10: es_chr z_no,105
	if zi_kata>-10  : if zi_kata<=-5 : es_chr z_no,104
	if zi_kata>-5   : if zi_kata<5   : es_chr z_no,100
	if zi_kata>=5   : if zi_kata<10  : es_chr z_no,101
	if zi_kata>=10  : if zi_kata<15  : es_chr z_no,102
	if zi_kata=15					 : es_chr z_no,103
	}
	;lɉČXύX
	if z_id=2{
	es_effect z_no, ,, ,0+(zi_kata*3),0-(zi_kata*2)
	es_effect z_no+1, ,, ,,330-(zi_kata*2);r
	es_effect z_no+2, ,, ,,30-(zi_kata*2);l
	es_effect z_no+3, ,, ,,0-(zi_kata*4);c
	}
;o[i
	if hold!2:if coma5=0{
		if (z_id=0)|(z_id=1){
			if zi_kata=-15					 : nnn=12:nnnn=21
			if zi_kata>=-15 : if zi_kata<-10 : nnn=12:nnnn=22
			if zi_kata>=-10 : if zi_kata<-5  : nnn=12:nnnn=25
			if zi_kata>=-5  : if zi_kata<5   : nnn=12:nnnn=26
			if zi_kata>=5   : if zi_kata<10  : nnn=12:nnnn=26
			if zi_kata>=10  : if zi_kata<15  : nnn=15:nnnn=26
			if zi_kata=15					 : nnn=17:nnnn=26
			repeat 2,0
			if cnt=0 : nnnnn=nnnn
			if cnt=1 : nnnnn=nnn
			es_new nn,(z_no+5);o_no
			es_set nn,(zix+nnnnn),(ziy+38) ,140 ,d_3d,sp_050
			es_type nn,1024
			;
			es_flag nn,30
			;es_blink nn,1,30
			;
			es_adir nn,0,240
			loop
			if nn>(s_mx-10) : gosub *sp_kill :es_kill o_no;׵ް΍
		}
	}
;c
	if zi_shot>30:if coma4=0 : if z_die_t=0{
		es_get nnn,z_no,12;݂̊O擾
		es_get nnnn,z_no,29
		es_new nn,o_no+40
		es_set nn,zix,ziy ,nnn ,d_3d,sp_140
		es_type nn,1024
		;
		;es_flag nn,16+(zi_bbon*12)
		es_blink nn,1,16+(zi_bbon*12)
		;
		es_adir nn,0,10
		es_effect nn, ,, ,,nnnn, ESB_ALPHA,150,$AA00AA
		if nn>(s_mx-10) : gosub *sp_kill :es_kill o_no;׵ް΍
	}
	return

;G̎c(Ge);;;;;;;;;;;
*ene_shadow
	if coma4=0{
	if d_3d=1{
		es_get nnn,cnt,12 ;݂̊O擾
		es_get nnnn,cnt,29;px擾
		es_new nn,zan_no
		sp_hp.nn=0	:sp_mv.nn=999	:sp_ti.nn=0;ײĎ擾HP&`
		sp_on.nn=0	:sp_p1.nn=0		:sp_p2.nn=0
		es_set nn,nx,ny ,nnn ,d_3d,(sp_050+1)
		es_type nn,1024
		;
		;es_flag nn,16
		es_blink nn,1,16
		;
		es_adir nn,0,10
		es_effect nn, ,, ,,nnnn, ESB_ALPHA,150,$AA00AA
		if nn>(s_mx-10) : gosub *sp_kill :es_kill o_no;׵ް΍
	}}
	return
;rbg;;;;;;;;;;;;;;;;;;;;;;;
*zi_bit
;typeA
if z_id=1{
	;ʏtH[[V
	if zi_shot<30{
		;
		if hold!2{
			if bx<32:bx+2 : if bx>32:bx=32
			if by<25:by+4 : if by>25:by=25
		}
		es_pos (z_no+1), (zix+bx),(ziy+by);E
		es_pos (z_no+2), (zix-bx),(ziy+by);
	}
	;[U[tH[[V
	if zi_shot>=30{
		if bx>0:bx-4 : if bx<0:bx=0
		if by>-20:by-6 : if by<-20:by=-20
		es_pos (z_no+1), (zix+bx),(ziy+by);
		es_pos (z_no+2), (zix-bx),(ziy+by);
	}
	;邭
		;es_effect (z_no+1), ,, ,-(coma60*6)
		;es_effect (z_no+2), ,, ,(coma60*6)
}
;typeB
if z_id=2{
	;B
	es_pos z_no-1,zix,ziy;Ɏ@ʒu
	es_pos z_no-2,zix,ziy
	es_setp z_no-1,29,-coma10*9
	es_setp z_no-2,29,-coma5*18
	;ʏtH[[V
		if hold!2{
		if bx<42:bx+2 : if bx>42:bx=42
		if by<25:by+4 : if by>25:by=25
		}
		es_pos (z_no+1), (zix+bx),(ziy+by);r
		es_pos (z_no+2), (zix-bx),(ziy+by);l
		es_pos (z_no+3), (zix+0) ,(ziy-(by*2));c
}
	return

;U;;;;;;;;;;;;;;;;;;;;;;;;;
;620~699
*zi_at
if zi_shot>0:zi_shot-1;							;[U[tO

if a&16 : zi_shot+3 : if zi_shot>35:zi_shot=35	;[U[tO

if (a&16):if (a&64) : zi_shot=35;őU[U[

	if (a&16)|(a&64){;Vbg{^Ă邩H
		if re_load=0:if zi_shot<35{;[h^C͂Hi{̍U
		if (zi_ammo_now<zi_ammo_max)|(zi_bbon=1){;ʓeiްĎ͖j
		;typeC
		if z_id=0{
		oto=122:gosub *oto_1
		;(e)
		repeat 4,0
			es_new nn,(z_no+20)
			sp_hp.nn=100+(zi_bbon*20):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			if cnt=0 : nnnn=230:nnnnn=230+180;310;nnnn=ړpxAnnnnn=
			if cnt=1 : nnnn=200:nnnnn=200+180;340
			if cnt=2 : nnnn=160:nnnnn=160+180;20
			if cnt=3 : nnnn=130:nnnnn=130+180;50
			es_set nn,zix,ziy-8 ,65 ,d_3d,sp_060: es_type nn,2 : es_adir nn,nnnn,1200+(zi_bbon*800)
			es_effect nn, ,, ,,nnnnn;, ESB_ADD,200,
			zi_ammo_now+1
		loop
		repeat 3,0
			es_new nn,(z_no+20)
			sp_hp.nn=80+(zi_bbon*40):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			if cnt=0 : nnnn=180:nnnnn=180+180;0;nnnn=ړpxAnnnnn=
			if cnt=1 : nnnn=215:nnnnn=215+180;325
			if cnt=2 : nnnn=145:nnnnn=145+180;35
			es_set nn,zix,ziy-8 ,63+zi_bbon ,d_3d,sp_060: es_type nn,2 : es_adir nn,nnnn,1600+(zi_bbon*800)
			es_effect nn, ,, ,,nnnnn, ESB_ADD,250,
			zi_ammo_now+1
		loop

		re_load=5
		}
		;typeA
		if z_id=1{
		oto=101:gosub *oto_1
		repeat 3+(zi_bbon*2),0
			nnnnn=0 : if cnt=1 : nnnnn=10
			es_new nn,(z_no+30)-nnnnn
			sp_hp.nn=50+(zi_bbon*10):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			nnn=120+(zi_bbon*5) : if zi_bbon=0:if cnt=(1+(zi_bbon*1)):nnn=130;лْe߼޼
			es_set nn,zix,ziy-8 ,nnn ,d_3d,sp_060: es_type nn,2 : es_adir nn,171+(cnt*9)-(zi_bbon*9),1300+(zi_bbon*800)
			if d_3d=1:if zi_bbon=0:if cnt!(1+(zi_bbon*1)) : es_effect nn, ,, ,,180+(171+(cnt*9)-(zi_bbon*9)), ESB_ALPHA,200,	;Z
			if d_3d=1:if zi_bbon=1 : es_effect nn, ,, ,,180+(171+(cnt*9)-(zi_bbon*9)), ESB_ALPHA,200,
			zi_ammo_now+1
		loop
		repeat 2,0;bit1 2
			es_new nn,(z_no+30)
			sp_hp.nn=50+(zi_bbon*10):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			es_get nx,((z_no+1)+cnt),3:es_get ny,((z_no+1)+cnt),5 ;xyW擾
			es_set nn,nx,ny-10 ,120+(zi_bbon*5) ,d_3d,sp_060: es_type nn,2 : es_adir nn,180,1300+(zi_bbon*800)
			if d_3d=1:if zi_bbon=0 : es_effect nn, ,, ,,, ESB_ALPHA,200,	;Z
			if d_3d=1:if zi_bbon=1 : es_effect nn, ,, ,,, ESB_ALPHA,200,
			zi_ammo_now+1
		loop
		re_load=3
		s_fire=2;Ĵ̪ĕ\
		}
		;typeB
		if z_id=2{
		oto=101:gosub *oto_1
		repeat 1,0
			es_new nn,(z_no+20)
			sp_hp.nn=75+(zi_bbon*50):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			nnn=20
			es_set nn,zix,ziy-8 ,nnn ,d_3d: es_type nn,2 : es_adir nn,180-(zi_kata*2),1300+(zi_bbon*800)
			if d_3d=1:if zi_bbon=0:if cnt!(1+(zi_bbon*1)) : es_effect nn, ,, ,0+(zi_kata*3),0-(zi_kata*2);, ESB_ALPHA,200,	;Z
			if d_3d=1:if zi_bbon=1:if cnt!(1+(zi_bbon*1)) : es_effect nn, ,, ,0+(zi_kata*3),0-(zi_kata*2);, ESB_ADD,200,
			zi_ammo_now+1
		loop
		repeat 2,0;bitE
			es_new nn,(z_no+20)
			sp_hp.nn=100+(zi_bbon*50):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			es_get nx,((z_no+1)+cnt),3:es_get ny,((z_no+1)+cnt),5 ;xyW擾
			nnn=40+(zi_bbon*2)
			nnnn=150+(cnt*60)
			es_set nn,nx,ny ,nnn ,d_3d: es_type nn,2 : es_adir nn,nnnn-(zi_kata*2),1300+(zi_bbon*800)
			nnnn=330-(cnt*300)
			if d_3d=1:if zi_bbon=0 : es_effect nn, ,, ,,nnnn-(zi_kata*2), ESB_ALPHA,200,	;Z
			if d_3d=1:if zi_bbon=1 : es_effect nn, ,, ,,nnnn-(zi_kata*2), ESB_ADD,255,
			zi_ammo_now+1
		loop
		repeat 1,0;bit
			es_new nn,(z_no+20)
			sp_hp.nn=50+(zi_bbon*25):sp_mv.nn=10000:sp_ti.nn=0
			sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
			es_get nx,((z_no+3)+cnt),3:es_get ny,((z_no+3)+cnt),5 ;xyW
			nnn=40+(zi_bbon*2)
			es_set nn,nx,ny ,nnn ,d_3d: es_type nn,2 : es_adir nn,180-(zi_kata*4),1300+(zi_bbon*800)
			if d_3d=1:if zi_bbon=0 : es_effect nn, ,, ,,0-(zi_kata*4), ESB_ALPHA,200,	;Z
			if d_3d=1:if zi_bbon=1 : es_effect nn, ,, ,,0-(zi_kata*4), ESB_ADD,255,
			zi_ammo_now+1
		loop
		re_load=3
		}


		}}



		if zi_shot=35{;[U[U
			;
			if z_id=0{;C
				if coma20=0:oto=105:gosub *oto_1
				es_new nn,(z_no+20)
				sp_hp.nn=64*4+(zi_bbon*38):sp_mv.nn=10001:sp_ti.nn=0
				sp_on.nn=1:sp_p1.nn=zi_bbon:sp_p2.nn=0
				if zi_bbon=0 :  nnn=70+coma2:es_set nn,zix  ,r_ziy+37 ,nnn ,d_3d
				if zi_bbon=1 : nnn=150+coma2:es_set nn,zix-5,r_ziy+37 ,nnn ,d_3d
				es_type nn,4 : es_adir nn,180,2200
				if zi_bbon=0 : es_effect nn, ,, ,,, ESB_ADD,200+coma50,	;Z
				if zi_bbon=1 : es_effect nn, ,, ,,, ,200+coma50,				;Z
				;I[
				es_new nn,(z_no+16)
				sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0
				sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
				es_set nn,zix-10-(zi_bbon*0),ziy-10-(zi_bbon*0) ,72+(zi_bbon*80) ,d_3d,
				if zi_bbon=0 : es_effect nn ,68,68+(coma4*2) ,,, ,ESB_ADD,200+coma50
				if zi_bbon=1 : es_effect nn ,68,68+(coma4*2) ,,, ,;ESB_ADD,240+(coma50/5)
				es_type nn,1024
				es_blink nn,1,2
				;if zi_bbon=0 : es_exput zix-10,ziy-10,  72, 68,68+(coma4*2), ,,, ESB_ADD,200+coma50
				;if zi_bbon=1 : es_exput zix-20,ziy-20, 152, 88,88+(coma4*2);, ,,, ESB_ADD,240+(coma50/5)
			}
			if z_id=1{;A
				if coma20=0:oto=105:gosub *oto_1
				es_new nn,(z_no+20)
				sp_hp.nn=68*4+(zi_bbon*42):sp_mv.nn=10001:sp_ti.nn=0
				sp_on.nn=1:sp_p1.nn=zi_bbon:sp_p2.nn=0
				if zi_bbon=0 : nnn=132+coma2:es_set nn,zix  ,r_ziy+37 ,nnn ,d_3d
				if zi_bbon=1 : nnn=150+coma2:es_set nn,zix-5,r_ziy+37 ,nnn ,d_3d
				es_type nn,4 : es_adir nn,180,2200
				if zi_bbon=0 : es_effect nn, ,, ,,, ESB_ADD,200+coma50,	;Z
				if zi_bbon=1 : es_effect nn, ,, ,,, ,200+coma50,	;Z
				;I[
				es_new nn,(z_no+16)
				sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0
				sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
				es_set nn,zix-10-(zi_bbon*0),ziy-10-(zi_bbon*0) ,134+(zi_bbon*18) ,d_3d,
				if zi_bbon=0 : es_effect nn ,68,68+(coma4*2) ,,, ,ESB_ADD,244+(coma50/5)
				if zi_bbon=1 : es_effect nn ,68,68+(coma4*2) ,,, ,;ESB_ADD,240+(coma50/5)
				es_type nn,1024
				es_blink nn,1,2
				;if zi_bbon=0 : es_exput zix-10,ziy-10, 134, 68,68+(coma4*2), ,,, ESB_ADD,244+(coma50/5),
				;if zi_bbon=1 : es_exput zix-20,ziy-20, 152, 88,88+(coma4*2);, ,,, ESB_ADD,240+(coma50/5)
			}
			if z_id=2{;B
				if coma10=0:oto=105:gosub *oto_1
				es_new nn,(z_no+20)
				sp_hp.nn=60*4+(zi_bbon*33):sp_mv.nn=10002:sp_ti.nn=0
				sp_on.nn=1:sp_p1.nn=zi_bbon:sp_p2.nn=0
				if zi_bbon=0 : nnn=132+coma2:es_set nn,zix  ,r_ziy+25 ,45 ,d_3d
				if zi_bbon=1 : nnn=150+coma2:es_set nn,zix  ,r_ziy+25 ,47 ,d_3d
				es_type nn,4 : es_adir nn,180,2200
				if zi_bbon=0 : es_effect nn, ,, ,,coma20*18, ESB_ADD,230+(coma50/2),	;Z
				if zi_bbon=1 : es_effect nn, ,, ,,coma20*18, ,200+coma50,	;Z
				;I[
				es_new nn,(z_no+16)
				sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0
				sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
				es_set nn,zix-10-(zi_bbon*0),ziy-10-(zi_bbon*0) ,45+(zi_bbon*2)+coma2 ,d_3d,
				if zi_bbon=0 : es_effect nn ,68,68+(coma4*2) ,,,coma20*18 ,ESB_ADD,244+(coma50/5)
				if zi_bbon=1 : es_effect nn ,68,68+(coma4*2) ,,,coma10*36 ,;ESB_ADD,240+(coma50/5)
				es_type nn,1024
				es_blink nn,1,2
				;if zi_bbon=0 : es_exput zix-10,ziy-10, 45+coma2, 68,68+(coma4*2), ,,coma20*18, ESB_ADD,200+coma50
				;if zi_bbon=1 : es_exput zix-20,ziy-20, 47+coma2, 88,88+(coma4*2), ,,coma10*36, ESB_ADD,240+(coma50/5)
			}
		}
	}
	if a&32 : if zi_bb>=10000{;o[XgI
		oto=104 : gosub *oto_1
		zi_bbon=1;ް׸ON
		combo_t=100;޹ްމ
		zi_muteki=120;QbԖG
	}
	return
;[U[[;;;;;;;;;;;;;
*lz_sen
	nn=0	;No
	nnn=0	;
	nnnn=0	;ő勗
	nnnnn=0	;ő勗No
repeat 80,(z_no+20)
	es_get nx,cnt,3 : es_get ny,cnt,5
	es_get nn,cnt,13
	nnn=0
	if nn=4{
	es_dist nnn,zix,ziy,nx,ny;nnnɋ
	}
	if nnn>nnnn : nnnn=nnn : nnnnn=cnt;ŋXvCg
loop
	if nnnnn=0 : goto *lz_sen_e
	if z_id=0{
	if sp_p1.nnnnn=0 : es_chr nnnnn, 72+coma2 : es_get nn,nnnnn,26:es_effect nnnnn ,,nn+10+(coma5*2) ,,, ,-1
	if sp_p1.nnnnn=1 : es_chr nnnnn,152+coma2 : es_get nn,nnnnn,26:es_effect nnnnn ,,nn+50+(coma5*2); ,,, ,-1
	}
	if z_id=1{
	if sp_p1.nnnnn=0 : es_chr nnnnn,134+coma2 : es_get nn,nnnnn,26:es_effect nnnnn ,,nn+10+(coma5*2) ,,, ,-1,,$4444FF
	if sp_p1.nnnnn=1 : es_chr nnnnn,152+coma2 : es_get nn,nnnnn,26:es_effect nnnnn ,,nn+50+(coma5*2); ,,, ,-1
	}
	*lz_sen_e
	return

;i();;;;;;;;;;;;;;;;;;;;;
*ef_sita
if stage=1{
	if time>14500{;C
		;1w
		repeat 7,0 : ny=cnt;c
		repeat 4,0 : nx=cnt;
		if d_3d=0 : es_put 20+(nx*150)+aq+z_aq,((ny*80)-80)+(coma160/2),930
		if d_3d=1 : es_exput 20+(nx*150)+aq+z_aq,((ny*80)-80)+(coma160/2),930
		loop:loop
		;2w
		if d_3d=1{
		nn=coma240 : if coma240>=120 : nn=240-coma240
		nn=nn/4
		repeat 7,0 : ny=cnt;c
		repeat 4,0 : nx=cnt;
		es_exput 20+(nx*150)-15+nn,((ny*80)-80)+(coma160/2),930 ,,, ,,, ESB_ADD,60
		loop:loop
		}
	}
	if time>=12800 : if time<16000{;(4)sX㔼
	if d_3d=1 : es_exput 90+aq+z_aq,480-1024-1024+((time-11800)/2),801
	if d_3d=0 : es_put 90+aq+z_aq,480-1024-1024+((time-11800)/2),801
	}
	if time>=11800 : if time<13900{;(3)sXO
	if d_3d=1 : es_exput 90+aq+z_aq,480-1024+((time-11800)/2),800
	if d_3d=0 : es_put 90+aq+z_aq,480-1024+((time-11800)/2),800
	}
	if time<12100{;(1)_
		repeat 7,0 : ny=cnt;c
		repeat 4,0 : nx=cnt;
		nn=920 : if time>11800:nn=920+((time-11800)/30) : if nn>928:nn=928
		if d_3d=0 : es_put 20+(nx*150)+aq+z_aq,((ny*80)-80)+(coma20*4),nn
		if d_3d=1{
			if coma180<=90 : nnn=coma180
			if coma180>90  : nnn=180-coma180
			es_exput 20+(nx*150)+aq+z_aq,((ny*80)-80)+(coma20*4),nn ,, ,,, ,,,$FFFFFF
		}
		loop:loop
	}
}
	if stage=2{;
	;
	;[
	if time<12000{
	if time<10000 : nn=$FFD0D0;-GB
	if time>=10000: nn=$FFC7C7
	if time>=10500: nn=$FFC0C0
	if time>=10600: nn=$FFB7B7
	if time>=10700: nn=$FFB0B0
	if time>=10800: nn=$FFA7A7
	if time>=10900: nn=$FFA0A0
	if time>=11000: nn=$FF9797
	if time>=11100: nn=$FF9090
	if time>=11200: nn=$FF8787
	if time>=11300: nn=$FF8080
	if time>=11400: nn=$FF7777
	if time>=11500: nn=$FF7070
	if time>=11600: nn=$FF6767
	if time>=11700: nn=$FF6060;-R +GB
	if time>=11800: nn=$F76767
	if time>=11900: nn=$F07070
	}
	if time>=12000{
	if time>=12000: nn=$D77777;-R +B
	if time>=12100: nn=$D07780
	if time>=12200: nn=$C77787
	if time>=12300: nn=$C07790
	if time>=12400: nn=$B77797
	if time>=12500: nn=$B077A0
	if time>=12600: nn=$A777A7
	if time>=12700: nn=$A077B0
	if time>=12800: nn=$9777B7
	if time>=12900: nn=$9077C0
	if time>=13000: nn=$8777C7
	if time>=13100: nn=$8077D0
	if time>=13200: nn=$7777D7;-RG +B
	if time>=13300: nn=$7070E0
	if time>=13400: nn=$6767E7
	if time>=13500: nn=$6060F0
	if time>=13600: nn=$5757F7
	if time>=13700: nn=$5050FF
	}
	;pos zix,ziy+50:es_mes ""+nn
	if d_3d=0 : es_put 90+aq+z_aq,480-1024+((time-10000)/2),801
	if d_3d=0 : es_put 90+aq+z_aq,480-1024-1024+((time-10000)/2),800
	if d_3d=1 : es_exput 90+aq+z_aq,480-1024+((time-10000)/2)      ,801 ,, ,,, ,,,nn
	if d_3d=1 : es_exput 90+aq+z_aq,480-1024-1024+((time-10000)/2) ,800 ,, ,,, ,,,nn
	;{X[v
	es_exput 90+aq+z_aq,480-2048-150+((time-10000)/2) ,802 ,, ,,, ,,,nn
	es_exput 90+aq+z_aq,480-2048-300+((time-10000)/2) ,802 ,, ,,, ,,,nn
	es_exput 90+aq+z_aq,480-2048-450+((time-10000)/2) ,802 ,, ,,, ,,,nn
	es_exput 90+aq+z_aq,480-2048-600+((time-10000)/2) ,802 ,, ,,, ,,,nn
	es_exput 90+aq+z_aq,480-2048-750+((time-10000)/2) ,802 ,, ,,, ,,,nn
	es_exput 90+aq+z_aq,480-2048-900+((time-10000)/2) ,802 ,, ,,, ,,,nn
	if uramen=0:if time=14936 : time=(14936-300);{X|܂Ń[v͓Kij
	;[v
}


	return
;i();;;;;;;;;;;;;;;;;;;;;
*ef_up
	;Ĵ̪
	if s_fire>0{
		if z_id=1 : repeat 2,0 : es_get nx,(z_no+1)+cnt,3:es_get ny,(z_no+1)+cnt,5 : es_exput nx,ny ,114+(s_fire-1) : loop
		s_fire-1
	}
	;o[XgGtFNg
	if zi_bbon=1{
		;
		nnn=400-(zi_bb/25);nnn=0~30
		if nnn<=30 : es_exput (zix+20)-(nnn*4),(ziy+20)-(nnn*4), 1, 8+(nnn*8),8+(nnn*8), ,,, ESB_ADD,120-(nnn*4),
		;
		if coma50<=20{
		if nnn>30  : es_exput (zix+20)-(coma50*2),(ziy+20)-(coma50*2), 1, 8+(coma50*4),8+(coma50*4), ,,, ESB_ADD,120-(coma50*6),
		}
	}

if stage=1{
	;x
	nn=16250 : if time>=nn:gosub *war_1
}
if stage=2{
	;Jn
	if time=10050 : oto=314:gosub *oto_cv;
	;x
}
	return

;x;;;;;;;;;;;;;;;;;;;;;;;
*war_1	;nn͊Jn
	if time=nn : oto=112: mmstop :gosub *oto_1;x
	if time=nn : oto=304:		  gosub *oto_cv
	if time>=(nn+0)		: if time<(nn+50)   :  es_exboxf 140,150 ,500,150-((nn-time)*2) ,$FFFFFF ,,, ,ESB_NEGATIVE,125
	if time>=(nn+50)	: if time<(nn+300)  :  es_exboxf 140,150 ,500,250 ,$FFFFFF ,,, ,ESB_NEGATIVE,125 ,;$0000FF,$FF0000,$0000FF
	if time>=(nn+300)	: if time<(nn+350)  :  es_exboxf 140,150 ,500,150+(((nn+350)-time)*2) ,$FFFFFF ,,, ,ESB_NEGATIVE,125
	if time=(nn+350) : oto=2 : gosub *oto_bgm;{Xafl
	;
	if time>(nn+50) : if time<(nn+300) : es_exput 140,150 ,1004 ,360,100 ,,, ,,200,;x
	nnn=coma50 : if coma50>=25:nnn=(50-coma50)
	if time>(nn+50) : if time<(nn+300) : es_exput 140,150 ,1004 ,360,100 ,,, ,ESB_ALPHA,(nnn*9),$FF00FF;x(̪)
	return




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;VXenTu[`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;I{^
*esc_1
	if w_mode>0 : es_bye
	drv_bye
	end
	return

;ʉ_퓬
*oto_1
	if oto_se_off=1:oto=0;~[gݒ莞
	if oto=101 : snd_play 101,CWS_PLAY_NOLOOP;@A_ˉ
	if oto=102 : snd_play 102,CWS_PLAY_NOLOOP;Gij
	if oto=103 : snd_play 103,CWS_PLAY_NOLOOP;Gij
	if oto=104 : snd_play 104,CWS_PLAY_NOLOOP;u[Xg
	if oto=105 : snd_play 105,CWS_PLAY_NOLOOP;s
	if oto=106 : snd_play 106,CWS_PLAY_NOLOOP;Kb
	if oto=107 : snd_play 107,CWS_PLAY_NOLOOP;BOOSTl`w
	if oto=108 : snd_play 108,CWS_PLAY_NOLOOP;Gˌ
	if oto=109 : snd_play 109,CWS_PLAY_NOLOOP;݉iāj
	if oto=110 : snd_play 110,CWS_PLAY_NOLOOP;݉iڰްj
	if oto=111 : snd_play 111,CWS_PLAY_NOLOOP;
	if oto=112 : snd_play 112,CWS_PLAY_NOLOOP;WARNING
	if oto=113 : snd_play 113,CWS_PLAY_NOLOOP;ij
	if oto=114 : snd_play 114,CWS_PLAY_NOLOOP;icj
	if oto=115 : snd_play 115,CWS_PLAY_NOLOOP;GԔC
	if oto=116 : snd_play 116,CWS_PLAY_NOLOOP;[U[\
	if oto=117 : snd_play 117,CWS_PLAY_NOLOOP;[U[
	if oto=118 : snd_play 118,CWS_PLAY_NOLOOP;@ĉ
	if oto=119 : snd_play 119,CWS_PLAY_NOLOOP;@e
	if oto=120 : snd_play 120,CWS_PLAY_NOLOOP;Guo
	if oto=121 : snd_play 121,CWS_PLAY_NOLOOP;Gu擾
	if oto=122 : snd_play 122,CWS_PLAY_NOLOOP;Vbgˉ
	;122~129(ꉞ󂯂Ă)
	
	oto=0
	return
;ʉ_Cxg
*oto_2
	if oto_se_off=1:oto=0;~[gݒ莞
	if oto=201 : snd_play 201,CWS_PLAY_NOLOOP;
	if oto=202 : snd_play 202,CWS_PLAY_NOLOOP;opened
	if oto=203 : snd_play 203,CWS_PLAY_NOLOOP;open
	if oto=204 : snd_play 204,CWS_PLAY_NOLOOP;{XJ
	if oto=205 : snd_play 205,CWS_PLAY_NOLOOP;ŏI⏕ړ
	if oto=206 : snd_play 206,CWS_PLAY_NOLOOP;ŏI⏕A
	if oto=207 : snd_play 207,CWS_PLAY_NOLOOP;mCYP
	if oto=208 : snd_play 208,CWS_PLAY_NOLOOP;mCYQ
	if oto=209 : snd_play 209,CWS_PLAY_NOLOOP;LG
	if oto=210 : snd_play 210,CWS_PLAY_NOLOOP;Gu
	if oto=211 : snd_play 210,CWS_PLAY_NOLOOP;mCYir؂r؂j
	if oto=212 : snd_play 210,CWS_PLAY_NOLOOP;mCY
	;
	if oto=250 : snd_play 250,CWS_PLAY_NOLOOP;X^[g
	if oto=251 : snd_play 251,CWS_PLAY_NOLOOP;I
	oto=0
	return
;LN^[{CX
*oto_cv
	if oto_cv_off=1:oto=0;~[gݒ莞
	if oto=301 : snd_play 301,CWS_PLAY_NOLOOP;B
	if oto=302 : snd_play 302,CWS_PLAY_NOLOOP;RCQCP
	if oto=303 : snd_play 303,CWS_PLAY_NOLOOP;u[X^[
	if oto=304 : snd_play 304,CWS_PLAY_NOLOOP;{XO
	if oto=305 : snd_play 305,CWS_PLAY_NOLOOP;ްĂl`w
	if oto=306 : snd_play 306,CWS_PLAY_NOLOOP;ްĂO
	if oto=311 : snd_play 311,CWS_PLAY_NOLOOP;@̃ZNg
	if oto=312 : snd_play 312,CWS_PLAY_NOLOOP;I
	if oto=313 : snd_play 313,CWS_PLAY_NOLOOP;{Xj
	if oto=314 : snd_play 314,CWS_PLAY_NOLOOP;ðފJniQȍ~
	if oto=315 : snd_play 315,CWS_PLAY_NOLOOP;ްѵް
	oto=0
	return
;afl
*oto_bgm
	if oto_bgm_off=1:oto=0;~[gݒ莞
	if oto=1 : mmplay 1	;st1
	if oto=2 : mmplay 2	;boss
	if oto=3 : mmplay 3	;st2
	if oto=4 : mmplay 4	;airframe select
	if oto=5 : mmplay 5	;title
	if oto=6 : mmplay 6	;op
	if oto=7 : mmplay 7	;game over
	oto=0
	return


;XRAǗ
*sco_plus_ene_death;(cnt=GID
	;f_Zo
	if stage=1{
		if sp_mv.cnt=1  : nn=50	;Gw
		if sp_mv.cnt=2  : nn=180;^^@
		if sp_mv.cnt=3  : nn=30	;G퓬@
		if sp_mv.cnt=10 : nn=900 : combo=combo+(combo/2)	;{X{
		if sp_mv.cnt=11 : nn=500 : combo=combo+(combo/4)	;{X
		if sp_mv.cnt=12 : nn=5000: combo=combo+(combo/2)	;{X{()
		if sp_mv.cnt=20 : nn=10000	;{X{
		if sp_mv.cnt=21 : nn=1500	;
		if sp_mv.cnt=23 : nn=2000	;ŏI⏕
		if sp_mv.cnt=51 : nn=120;KgOC
		if sp_mv.cnt=52 : nn=500;^Ci{́j
		if sp_mv.cnt=53 : nn=100;^CiCj
		if sp_mv.cnt=54 : nn=200;^Cij
		if sp_mv.cnt=55 : nn=40 ;G
		if sp_mv.cnt=56 : nn=40 ;ǖC
		if sp_mv.cnt=57 : nn=500;D
	}
	if stage=2{
		if sp_mv.cnt=201 : nn=75	;΃URԁoeUp
		if sp_mv.cnt=202 : nn=50	;DFG퓬@
		if sp_mv.cnt=251 : nn=280	;A@oeWp
		if sp_mv.cnt=260 : nn=1500: combo=combo+(combo/2)	;{X{́j
		if sp_mv.cnt=262 : nn=850 : combo=combo+(combo/4)	;{Xr
	}
	;ʑf_
	
	;R{Z
	combo=combo+1+zi_bbon+(zi_shot/35)
	;R{Q[WZ
	combo_t=combo_t+20-(zi_bbon*15) : if combo>combo_E:combo=combo_E
	;XRAZ
	score=score+nn+((nn/25)*combo) : if score>score_E:score=score_E
	;{\
	gosub *ene_bai
	return
;[U[ cnt=ײNO  nn=nx nnn=ny̍W  nnnn=Jn  
*lez_01	
	if sp_ti.cnt=nnnn : oto=116:gosub *oto_1
	if sp_ti.cnt>=(nnnn+0)  : if sp_ti.cnt<(nnnn+10) : es_exput nx+(nn-24),ny+(nnn-24),257+((sp_ti.cnt-nnnn)/5)	;[U[`[WO
	if sp_ti.cnt>=(nnnn+10) : es_exput nx+(nn-24),ny+(nnn-24),259+(coma10/3)	;[U[`[WO
;
	return
;iGW^񒆁j
*ene_boon;(cnt=GID		nnn,nnnn=S̃Y(x,y)@ nnnnn={
	if sp_ti.cnt<nnnnn : goto *ene_boon_e;K莞Ԃɂ܂ŕ\Ȃ
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	nn=1100+((sp_ti.cnt-nnnnn)/2) : if nn>1116:nn=1116;׸ްȂ[u
	if d_3d=0 : es_put nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,nn
	if d_3d=1 : es_exput nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,nn ,, ,,, ,ESB_ADD,50+(coma2*200),
	if nn>(s_mx-10) : gosub *sp_kill :es_kill o_no;׵ް΍
	*ene_boon_e
	return
;˔iGW^񒆂甚Uj
*ene_boon_1;(cnt=GID  nnn,nnnn=Y
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	;;
	repeat 20
	es_new nn,b_no
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	es_set nn ,nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,1101 ,d_3d
	es_type nn,1024
	;
	;es_flag nn,40
	es_blink nn,1,40
	;
	es_adir nn,cnt*18 ,400
	if nn>(s_mx-10) : gosub *sp_kill :es_kill nn;׵ް΍
	loop
	;;
	return
;˔i{Xpj
*ene_boon_b;(cnt=GID  nnn,nnnn=Y@nnnnn=x
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	;;
	repeat 30
	es_new nn,b_no
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	es_set nn ,nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,1101 ,d_3d
	es_type nn,1024
	;
	;es_flag nn,40
	es_blink nn,1,60
	;
	es_adir nn,cnt*12 ,nnnnn
	if nn>(s_mx-10) : gosub *sp_kill :es_kill nn;׵ް΍
	loop
	;;
	return
;˔iPjnnn,nnnn=S̃Y nnnnn=pxA360̏ꍇ̓_
*ene_boon_2;(cnt=GID
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	es_new nn,b_no
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	es_set nn ,nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,1101 ,d_3d
	es_type nn,1024
	es_blink nn,1,40
	if nnnnn=360 : nnnnn=rnd(360)
	es_adir nn,nnnnn ,200+(coma10*50)
	if nn>(s_mx-10) : gosub *sp_kill :es_kill nn;׵ް΍
	return
;XvCggPi(G͈͓)
*ene_boon_3; Să_@nnn= nnnn=@ hits=0small 1big   nnnnn=yY
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	nnn=rnd(sx)
	nnnn=rnd(ny)
	hits=rnd(2)
	es_new nn,b_no
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	if hits=0 : es_set nn ,nx-24+nnn,ny-24+nnnn+nnnnn ,1101 ,d_3d : es_setp nn,25,48 : es_setp nn,26,48
	if hits=1 : es_set nn ,nx-48+nnn,ny-48+nnnn+nnnnn ,1101 ,d_3d
	es_type nn,1024
	es_blink nn,1,40
	if nn>(s_mx-10) : gosub *sp_kill :es_kill nn;׵ް΍
	return


;ic[ՂȂ
*ene_smoke_1;(cnt=GID
	es_new nn,b_no;o_no()
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	es_set nn ,nx+((sx/2)-48)+nnn,ny+((sy/2)-48)+nnnn ,1101 ,d_3d
	es_type nn,1024
	;
	es_flag nn,128
	;es_blink nn,1,128
	;
	es_adir nn,140 ,400
	if nn>(s_mx-10) : gosub *sp_kill :es_kill nn;׵ް΍
	return

;ZtbV 10fps
*ene_flush_1; nn=Jn
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+10){
		if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+5) : nnn=((sp_ti.cnt-(nn+0))*10) : if nnn>100:nnn=100
		if sp_ti.cnt>=(nn+5) : nnn=100-((sp_ti.cnt-(nn+5))*10):if nnn<0:nnn=0
		;es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_NEGATIVE,nnn
		es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_ALPHA,nnn;DD,nnn
	}
	return
;ʏtbV 40fps
*ene_flush_2; nn=Jn
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+40){
		if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+15) : nnn=((sp_ti.cnt-(nn+0))*10) : if nnn>150:nnn=150
		if sp_ti.cnt>=(nn+15) : nnn=150-((sp_ti.cnt-(nn+15))*7):if nnn<0:nnn=0
		;es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_NEGATIVE,nnn
		es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_ALPHA,nnn;DD,nnn
	}
	return
;tbV 100fps
*ene_flush_3; nn=Jn
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+100){
		if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+25) : nnn=((sp_ti.cnt-(nn+0))*8) : if nnn>150:nnn=150
		if sp_ti.cnt>=(nn+25):if sp_ti.cnt<(nn+50) : nnn=150
		if sp_ti.cnt>=(nn+50) : nnn=155-((sp_ti.cnt-(nn+50))*3):if nnn<0:nnn=0
		;es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_NEGATIVE,nnn
		es_exboxf 140,0,500,480 ,$FFFFFF ,,, ,ESB_ALPHA,nnn;DD,nnn
	}
	return

; 30fps
*ene_light_in; nn=Jn nnn,nnnn=Yxy
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+30){
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	hits=30-(sp_ti.cnt-nn);20~0
	es_exput nx+(((sx/2)-5)+nnn)-(10*hits),ny+(((sy/2)-5)+nnnn)-(10*hits), 2, 10+(20*hits),10+(20*hits),
	}
	return
;gU 60fps
*ene_light_out; nn=Jn nnn,nnnn=Yxy nnnnn=gUx
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+60){
	es_get sx,cnt,25 : es_get sy,cnt,26;G̑傫
	hits=(sp_ti.cnt-nn);0~60
	es_exput nx+(((sx/2)-5)+nnn)-(nnnnn*hits),ny+(((sy/2)-5)+nnnn)-(nnnnn*hits), 3, 10+((nnnnn*2)*hits),10+((nnnnn*2)*hits) ,,, ,ESB_ADD,120-(hits*2)
	}
	return

;{\
*ene_bai	;nn=SPno nnn= nnnn= nnnnn=ŏʌ
	es_get sx,cnt,25  : es_get sy,cnt,26	;XvCg̃TCY擾
	;
	hits=combo;hitsŌvZB
	;Zo
	nnnnn=1
	if combo>9    : nnnnn=2
	if combo>99   : nnnnn=3
	if combo>999  : nnnnn=4
	if combo>9999 : nnnnn=5
	;[v񐔔
	repeat 5,1
	if nnn<0:nnn=0
	if cnt=1: nnn = hits/10000 	: hits = hits-(nnn*10000)
	if cnt=2: nnn = hits/1000 	: hits = hits-(nnn*1000)
	if cnt=3: nnn = hits/100 	: hits = hits-(nnn*100)
	if cnt=4: nnn = hits/10 	: hits = hits-(nnn*10)
	if cnt=5: nnn = hits/1 		: hits = hits-(nnn*1)
	;XvCg
	es_new nn,o_no
	sp_hp.nn=0:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=0:sp_p1.nn=0:sp_p2.nn=0
	es_set nn ,nx+((sx/2)-4)+(cnt*10)-10,ny+((sy/2)-8) ,1020+nnn ,d_3d
	es_effect nn,,,,,,,,$00FF00;
	es_type nn,1024
	es_flag nn,60
	if cnt=1{;
		if nx<=320 : nnnn=0
		if nx>320  : nnnn=1
	}
	es_adir nn,90+(nnnn*180) ,100
	if (6-cnt)>nnnnn : if nnn=0 : gosub *sp_kill:es_kill nn : goto *ene_bai_e;
	if nn>(s_mx-10) : gosub *sp_kill:es_kill nn : goto *ene_bai_e;׵ް΍
	*ene_bai_e
	loop
	return


;U
*ene_aq_1	; nn=Jn
	if sp_ti.cnt>=(nn+0):if sp_ti.cnt<(nn+60){
		if sp_ti.cnt=(nn+0)  : aq=0
		if sp_ti.cnt=(nn+3)  : aq=2
		if sp_ti.cnt=(nn+6)  : aq=-2
		if sp_ti.cnt=(nn+9)  : aq=4
		if sp_ti.cnt=(nn+12)  : aq=-8
		if sp_ti.cnt=(nn+15) : aq=0
		if sp_ti.cnt=(nn+18) : aq=8
		if sp_ti.cnt=(nn+21) : aq=-16
		if sp_ti.cnt=(nn+24) : aq=24
		if sp_ti.cnt=(nn+27) : aq=0
		if sp_ti.cnt=(nn+30) : aq=-24
		if sp_ti.cnt=(nn+33) : aq=-10
		if sp_ti.cnt=(nn+36) : aq=12
		if sp_ti.cnt=(nn+39) : aq=-14
		if sp_ti.cnt=(nn+42) : aq=0
		if sp_ti.cnt=(nn+45) : aq=10
		if sp_ti.cnt=(nn+48) : aq=5
		if sp_ti.cnt=(nn+51) : aq=-6
		if sp_ti.cnt=(nn+54) : aq=4
		if sp_ti.cnt=(nn+57) : aq=-2
		if sp_ti.cnt=(nn+59) : aq=0
	}
	return


;Ge
*kesu_0
	repeat t_mx,0
	es_get nn,cnt,13
	if (nn=128)|(nn=256){
		;eĖ
		nn=cnt:gosub *sp_kill
		;
		es_get nn,cnt,3 : es_get nnn,cnt,5;e̍W
		es_get nnnn,cnt,25 : es_get nnnnn,cnt,26;e̻
		es_chr cnt,1101
		es_effect cnt,48,48;ޒ
		es_pos cnt, nn+((nnnn/2)-24),nnn+((nnnnn/2)-24);ʒu
		;
		es_flag cnt,30
		;es_blink cnt,1,30
		;
	}
	loop
return
;Geɕς
*kesu_1
	repeat t_mx,0
	es_get nn,cnt,13
	if (nn=128)|(nn=256){
		;eăACe
		nn=cnt:gosub *sp_kill
		sp_mv.cnt=2000
		es_type cnt,2048
		;OtBbNύX
		es_get nn,cnt,3 : es_get nnn,cnt,5;e̍W
		es_get nnnn,cnt,25 : es_get nnnnn,cnt,26;e̻
		es_chr cnt,1120
		if uramen=0:es_effect cnt,48,48,,,,,,$FFFFFF;ޒ
		if uramen=1:es_effect cnt,48,48,,,,,,$FF0000;ޒ
		es_pos cnt, nn+((nnnn/2)-24),nnn+((nnnnn/2)-24);ʒu
		es_adir cnt,0,25;Î~
	}
	loop
return
;
*kesu_2
	repeat t_mx,0
	es_get nn,cnt,13
	if (nn=2048){
		;eĖ
		nn=cnt:gosub *sp_kill
		;
		es_get nn,cnt,3 : es_get nnn,cnt,5;e̍W
		es_get nnnn,cnt,25 : es_get nnnnn,cnt,26;e̻
		es_chr cnt,1101
		es_effect cnt,48,48;ޒ
		es_pos cnt, nn+((nnnn/2)-24),nnn+((nnnnn/2)-24);ʒu
		;
		es_flag cnt,10
		;es_blink cnt,1,30
		;
	}
	loop
return


;@eŔiɂj
*zi_sh_h
	repeat 80,(z_no+20)
	if sp_on.cnt<0{
	nn=cnt:gosub *sp_kill
	es_kill cnt;Ƃ肠_ł͍폜
	zi_ammo_now-1:if zi_ammo_now<0:zi_ammo_now=0;Ƃ肠
	}
	loop
	return
;GeI[o[t[΍
*tama_over
	if nn>(t_mx-2){
	gosub *sp_kill
	es_kill nn
	}
	return
;GAI[o[XvCg폜(Ge)
*sp_area_tama_kill
	if (nx<(120-50))|(nx>530)|(ny<(0-50))|(ny>490){
	gosub *sp_kill
	es_kill nn
	}
	return
;GAI[o[XvCg폜(GeȊO)
*sp_area_ene_kill
	if (nx<0)|(nx>640)|(ny<-200)|(ny>490){
	gosub *sp_kill
	es_kill nn
	}
	return

;XvCgϐ	es_kill߂ٰ݊Oŏ
*sp_kill
	sp_hp.nn=0
	sp_mv.nn=0
	sp_ti.nn=0
	sp_on.nn=0
	sp_p1.nn=0
	sp_p2.nn=0
	es_type nn,1024;
	es_effect nn,, ,0,0,0 ,,,;]pxZbgies_killጳɖ߂Ȃ
	return



;
*stick_1
	stick a,31+64
	getkey h1,90;[z]space
	if (a&16):h1=0
	if (h1=1):a+16
	getkey h2,88;[x]Enter
	if (a&32):h2=0
	if (h2=1):a+32
	getkey h3,67;[c]Ctrl
	if (a&64):h3=0
	if (h3=1):a+64
	return



;ǂݍ݃ubN;;;;;;;;;;;;;
;ubN b_time=0~99
*brock_in
	b_time+1
	if (b_time=2)|(b_time=12)|(b_time=22)|(b_time=32)|(b_time=42){
	repeat 2,0	: nnn=cnt ;E
	repeat 10,0 : nnnn=cnt;\
	es_new nn,0
	sp_hp.nn=100:sp_mv.nn=0:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=1  :sp_p1.nn=0:sp_p2.nn=0
	if b_time=2  : es_set nn ,(140+(36*0))+(nnn*(36*9)),nnnn*48 ,1010 ,d_3d,sp_000;ײĂ̐
	if b_time=12 : es_set nn ,(140+(36*1))+(nnn*(36*7)),nnnn*48 ,1010 ,d_3d,sp_000
	if b_time=22 : es_set nn ,(140+(36*2))+(nnn*(36*5)),nnnn*48 ,1010 ,d_3d,sp_000
	if b_time=32 : es_set nn ,(140+(36*3))+(nnn*(36*3)),nnnn*48 ,1010 ,d_3d,sp_000
	if b_time=42 : es_set nn ,(140+(36*4))+(nnn*(36*1)),nnnn*48 ,1010 ,d_3d,sp_000
	es_type nn,1024;ײ
	loop:loop
	}
	if b_time=50 : b_time=0

	return

;ubN b_time=100~199 p1ɕ
*brock_out
	b_time+1
	if b_time=101{
	repeat 10,0	: nnn=cnt ;
	repeat 10,0 : nnnn=cnt;
	nnnnn=rnd(20)
	es_new nn,0
	sp_hp.nn=100:sp_mv.nn=10000:sp_ti.nn=0;ײĎ擾HP&`
	sp_on.nn=1  :sp_p1.nn=nnnnn:sp_p2.nn=0
	es_set nn ,140+(nnn*36),nnnn*48 ,1010 ,d_3d,sp_000;ײĂ̐
	es_type nn,1024;ײ
	loop:loop
	}
	if b_time=150 : b_time=0
	return

*brock_out_mv
repeat t_mx,0;ubNp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	if sp_mv.cnt=10000{
		sp_ti.cnt+1
		es_get ny,cnt,5;YW擾
		es_adir cnt,(10-(sp_p1.cnt)),(sp_ti.cnt)*10
		if ny>480 : nn=cnt : gosub *sp_kill:es_kill nn
	}
loop;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
return
