; 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 ;====== zaco ====== ; 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 ;====== software sprite test ======== ; mapobj 0,5000,-100,1000,q,krot_istrat ;====== dacho ===== mapobj 0,0100,-160,2000,dacho,kstrat_istrat ;kturn360R_istrat mapobj 0,0700,-160,2500,dacho,kstrat_istrat ;kturn360R_istrat ; mapobj 0,0150,-160,3000,dacho,kstrat_istrat ;kturn360R_istrat ; mapobj 0,0800,-160,3500,dacho,kstrat_istrat ;kturn360R_istrat ; mapobj 0,0000,-160,4000,dacho,kstrat_istrat ;kturn360R_istrat ; mapobj 0,0800,-160,4500,dacho,kstrat_istrat ;kturn360R_istrat ;====== 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 1500,0000,2000,0,bu_6,kbuild m_inertpath -400,0000,3000,0,bu_6,kbuild m_inertpath 1500,0000,6000,0,bu_6,kbuild m_inertpath -300,0000,2000,0,bu_6,kbuild m_inertpath 1400,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 0400,-0080,5000,0,training,kring m_inertpath 0500,-0180,5800,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