; disable player's movement and wobble:
	setfadedown	quick
	mapwaitfade
	setbg	intro
	initbg

;	m_range	8192
	m_scale	1

	mapcode_jsl	initblack_l
	setvar		stayblack,10

	setfadeup	quick



;	mapobj		0,1500,-40,1000,zaco_0,kturn360R_istrat
;	mapobj		0,1500,-40,2000,zaco_1,kturn360R_istrat
;	mapobj		0,1500,-40,3000,zaco_2,kturn360R_istrat

;	mapobj		0,5000,-100,1000,q,krot_istrat

;	pathobj		0,0600,0,1000,wave,sprite_0,10,10
;	pathobj		0,0720,0,1000,wave,sprite_0,10,10
;	pathobj		0,0840,0,1000,wave,sprite_0,10,10
;	pathobj		0,0960,0,1000,wave,sprite_0,10,10

;	pathobj		0,0500,-30,1000,item_00,sprite_2,10,10
;	pathobj		0,0600,-30,1000,item_00,sprite_2,10,10
;	pathobj		0,0700,-30,1000,item_00,sprite_2,10,10

;====== batta =====
;	mapobj		0,5000,0,4000,batte_0,kstrat_istrat
;	mapobj		0,4500,0,4000,batte_0,kstrat_istrat

;	mapobj		0,4000,0,7000,batta_0,kturn360R_istrat
;	mapobj		0,5000,0,3000,batta_0,kturn360R_istrat

;	pathobj		0,2000,0,6000,batta_0,krobo_0,10,10
;	pathobj		0,5000,0,6000,batta_0,kbatta_0,10,10
;====== robo ======
;	mapobj		0,3000,-40,2000,robo_0,kturn360R_istrat
;	pathobj		0,4000,-40,7000,robo_0,krobo_0,10,10
;	pathobj		0,2000,-40,4000,robo_0,krobo_0,10,10

;	mapobj		0,2500,-30,6000,robo_1,kturn360R_istrat
;	pathobj		0,5000,-30,3000,robo_1,krobo_0,10,10
;	pathobj		0,5000,-30,4000,robo_1,krobo_0,10,10

;	mapobj		0,2500,-40,6000,gun_walk,kturn360R_istrat
;	pathobj		0,5000,-40,3000,gun_shot,krobo_0,10,10
;	pathobj		0,5000,-40,4000,gun_look,krobo_0,10,10

;------------------ Flying -----------------
	ifeq	1
	mapobj		0,5800,-120,7000,shark_0_sp,kturn360R_istrat
	ENDC

	ifeq	1
	mapobj		0,5800,-0100,7000,shark_0_sp,kszaco_5_istrat
	endc

	ifeq	1
	mapobj		0,2000,-0100,2000,zaco_5_sp,kszaco_5_istrat
	mapobj		0,11800,-0100,7000,shark_0_sp,kszaco_5_istrat
	mapobj		0,5000,-0100,9000,zaco_5_sp,kszaco_5_istrat
	mapobj		0,2800,-0100,7000,shark_0_sp,kszaco_5_istrat
	mapobj		0,8000,-0100,6000,zaco_5_sp,kszaco_5_istrat
	endc

	ifeq	1
	pathobj		0,2000,-0100,6000,zaco_5_sp,kpzaco_5,10,10
	pathobj		0,7000,-0100,2000,zaco_5_sp,kpzaco_5,10,10
	pathobj		0,3000,-0100,5000,zaco_5_sp,kpzaco_5,10,10
	endc

	ifeq	1
	m_inertobj	1000,-100,3500,0,zaco_5,kturn360R_istrat
	m_inertobj	5000,-100,7000,0,shark_0,kturn360R_istrat
	endc
;------------------ Tank -------------------
	ifeq	1
	m_inertobj	$0100,0,$0100,0,tank_0,kturn360R_istrat
	m_inertobj	$1000,0,$-1000,0,tank_0,kturn360R_istrat
	m_inertobj	$-500,0,$-500,0,tank_0,kturn360R_istrat
	m_inertobj	$-2000,0,$2000,0,tank_0,kturn360R_istrat
	endc

;--------------- DANCING INSECTOR -------------------
	IFEQ	1
;Now There is bug in this routine.(93/6/30)
	m_inertpath	5000,-0300,8000,0,boss_h_0,dancing
	ENDC

;------------------ Friend Base -----------------
	IFEQ	1
	m_inertpath	0000,-200*2,0000,0,daruma_2,kbase0
	ENDC
;------------------ building -----------------
	ifeq	0
	m_inertpath	2000,0000,2000,0,bu_6,kbuild
	m_inertpath	2000,0000,3000,0,bu_6,kbuild
	m_inertpath	4000,0000,6000,0,bu_6,kbuild
	m_inertpath	5000,0000,2000,0,bu_6,kbuild
	m_inertpath	5000,0000,5000,0,bu_6,kbuild
	endc
	ifeq	1
	m_inertpath	11000,0000,11000,0,bu_5,kbuild
	m_inertpath	13000,0000,13000,0,bu_6,kbuild
	m_inertpath	11000,0000,12000,0,bu_5,kbuild
	m_inertpath	15000,0000,15000,0,bu_6,kbuild
	m_inertpath	18000,0000,18000,0,bu_6,kbuild
	m_inertpath	17000,0000,13000,0,bu_6,kbuild
	endc
	ifeq	1
	m_inertpath	21000,0000,21000,0,bu_5,kbuild
	m_inertpath	23000,0000,23000,0,bu_6,kbuild
	m_inertpath	21000,0000,22000,0,bu_5,kbuild
	m_inertpath	25000,0000,25000,0,bu_6,kbuild
	m_inertpath	28000,0000,28000,0,bu_6,kbuild
	m_inertpath	27000,0000,23000,0,bu_6,kbuild
	endc
;------------------ BOX ----------------------

	ifeq	1

	m_inertobj	-3000,-30,0,0,box_5,kbox1_istrat
	m_inertobj	0500,-30,500,0,box_5,kbox2_istrat
	m_inertobj	0200,-30,0,0,box_5,kbox1_istrat
	m_inertobj	0100,-30,-2000,0,box_5,kbox2_istrat
	m_inertobj	0300,-30,0,0,box_5,kbox1_istrat
	m_inertobj	1000,-30,300,0,box_5,kbox2_istrat
	m_inertobj	0000,-30,0,0,box_5,kbox1_istrat
	m_inertobj	4000,-30,1000,0,box_5,kbox2_istrat
	endc
;--------------- RING ---------------
	IFEQ	0

	m_inertpath	3000,-0080,5000,0,training,kring
	m_inertpath	8000,-0180,5000,0,training,kring
	m_inertpath	10000,-0080,10000,0,training,kring
	endc

	ifeq	1
	m_inertpath	7000,-0080,1000,0,training,kring3
	m_inertpath	2000,-0180,5000,0,training,kring3
	m_inertpath	6000,-0100,3000,0,training,kring3
	endc

	ifeq	1
	m_inertpath	1000,-0080,0000,0,item_7,kring2
 	m_inertpath	5000,-0100,6000,0,item_7,kring2
	m_inertpath	3000,-0180,5000,0,item_7,kring2

	ENDC

	IFEQ	1
	m_inertpath	0000,-0080,1000,0,training,kring
	m_inertpath	0000,-0080,800,0,training,kring
	m_inertpath	0000,-0080,000,0,training,kring
	ENDC

	IFEQ	1
	mapobj	0000,-1200,0000,2000,box_1,null_istrat
	mapobj	0000,0000,0000,2000,box_1,null_istrat
	mapobj	0000,-400,0000,2000,box_1,null_istrat
	mapobj	0000,0400,0000,2000,box_1,null_istrat
	mapobj	0000,-800,0000,2000,box_1,null_istrat
	ENDC

	IFEQ	1

	mapobj		0000,0600,0000,1800,box_1,null_istrat
;	mapobj		0000,0600,0000,1400,box_1,null_istrat
	mapobj		0000,0600,0000,1000,box_1,null_istrat
;	mapobj		0000,0600,0000,0600,box_1,null_istrat
	mapobj		0000,0600,0000,0200,box_1,null_istrat

;	mapobj		0000,-100,0000,1200,box_1,null_istrat
	mapobj		0000,-100,0000,0800,box_1,null_istrat
;	mapobj		0000,-100,0000,0400,box_1,null_istrat
	mapobj		0000,-100,0000,0000,box_1,null_istrat


	mapobj		0000,-300,0000,1400,box_1,null_istrat
	mapobj		0000,-700,0000,1400,box_1,null_istrat
	mapobj		0000,-1100,0000,1400,box_1,null_istrat
	mapobj		0000,-1500,0000,1400,box_1,null_istrat


	mapobj		0000,-300,0000,2600,box_1,null_istrat
	mapobj		0000,-700,0000,2600,box_1,null_istrat
	mapobj		0000,-1100,0000,2600,box_1,null_istrat
	mapobj		0000,-1500,0000,2600,box_1,null_istrat

	mapobj		0000,-100,0000,3400,box_1,null_istrat
	mapobj		0000,-500,0000,3400,box_1,null_istrat
	mapobj		0000,-900,0000,3400,box_1,null_istrat
	mapobj		0000,-1300,0000,3400,box_1,null_istrat
	mapobj		0000,-1800,0000,3400,box_1,null_istrat

	ENDC


	IFEQ	1

ioz	=	10000

	REPT	20000/3000+1
	m_inertobj	-9000,0000,ioz,0,saka_5,hill_istrat
	m_inertobj	-6000,0000,ioz,0,saka_8,seesaw_istrat
	m_inertobj	-3000,0000,ioz,0,saka_5,hill_istrat
	m_inertobj	-1000,0000,ioz,0,saka_8,seesaw_istrat
	m_inertobj	3000,0000,ioz,0,saka_5,hill_istrat
	m_inertobj	6000,0000,ioz,0,saka_8,seesaw_istrat
	m_inertobj	9000,0000,ioz,0,saka_5,hill_istrat

ioz	=	ioz-3000
	ENDR

ioz	=	6000
	REPT		5
	m_inertobj	2000,0,ioz,0,saka_8,seesaw_istrat
	m_inertobj	2000,0,ioz-400,0,saka_8,seesaw2_istrat
ioz	=	ioz-800
	ENDR

	m_inertobj	500,0,500,0,saka_5,hill_istrat
	m_inertobj	1500,0,-500,0,saka_6,springboard_istrat
	m_inertobj	-1000,0,-1500,0,saka_7,hill_istrat
	m_inertobj	2000,0,1500,0,saka_7,hill_istrat

	m_inertobj	-1000,-500,600,0,box_4,cube_istrat
;	m_inertobj	1000,-500,600,0,box_4,cube_istrat
;	m_inertobj	-1000,-500,-1000,0,box_4,cube_istrat
;	m_inertobj	1000,-500,-1000,0,box_4,cube_istrat

	ENDC
	IFEQ	1
	m_inertpath	0,0,4000,deg180,houdai_0,houdai1
	m_inertpath	-100,0,4000,deg180,houdai_0,houdai1
	m_inertpath	100,0,4000,deg180,houdai_0,houdai1

	m_inertpath	100,0,10000,deg180,friendship_4,fakeplayer
	ENDC

.lp	mapwait	5000
	mapgoto	.lp



; example of Eguchi's object list system.

	ols_object	bu_6,cube_istrat
	ols_object	bu_6,cube_istrat
	ols_object	bu_6,cube_istrat
	ols_wait	alldead
	ols_object	bu_6,cube_istrat
	ols_object	bu_6,cube_istrat
	ols_object	bu_6,cube_istrat
	ols_wait	onedead
	ols_object	bu_6,cube_istrat
	ols_wait	onedead
	ols_object	bu_6,cube_istrat
	ols_wait	alldead
	ols_goto	ifnotsos1,.boss
	ols_object	bu_6,cube_istrat
	
.boss
;	ols_end






