//"Battleship Leadsardine L" // // 〜操作説明〜 // ↑↓=出力増減 // ←→=操舵 // Q=兵装変更 W=角度上げる E=兵装変更 // A=方位左 S=砲撃 D=方位右 // X=角度下げる // Val { //推進 JET(default=0,min=-50000,max=300000,step=0,disp=0) //方向翼 LR(default=0,min=-12,max=12,step=2,disp=0) //オートバランサー ABN(default=1500,min=1500,max=3000,step=30,disp=0) ABS(default=1500,min=1500,max=3000,step=30,disp=0) ABW(default=1500,min=1500,max=3000,step=30,disp=0) ABE(default=1500,min=1500,max=3000,step=30,disp=0) //視界移動 Aspect(default=0,min=-10000000,max=10000000,step=0,disp=0) //主砲 kanon1(default=0,max=1000000,step=1000000,disp=0) kanon1x(default=90,min=90,max=110,step=0,disp=0) kanon1y(default=0,min=-115,max=115,step=5,disp=0) kanon2(default=0,max=1000000,step=1000000,disp=0) kanon2x(default=90,min=90,max=110,step=0,disp=0) kanon2y(default=0,min=-115,max=115,step=5,disp=0) kanon3(default=0,max=1000000,step=1000000,disp=0) kanon3x(default=90,min=90,max=110,step=0,disp=0) kanon3y(default=0,min=-115,max=115,step=5,disp=0) kanon4(default=0,max=1000000,step=1000000,disp=0) kanon4x(default=90,min=70,max=90,step=0,disp=0) kanon4y(default=0,min=-115,max=115,step=5,disp=0) kanon5(default=0,max=1000000,step=1000000,disp=0) kanon5x(default=90,min=70,max=90,step=0,disp=0) kanon5y(default=0,min=-115,max=115,step=5,disp=0) //主砲基準角度 K_angle_F(default=90,min=90,max=110,step=0,disp=0) K_angle_B(default=90,min=70,max=90,step=0,disp=0) //対反動 antiback_F1(default=0,min=-260000,max=260000,step=160000,disp=0) antiback_F2(default=0,min=-260000,max=260000,step=160000,disp=0) antiback_F3(default=0,min=-260000,max=260000,step=160000,disp=0) antiback_B4(default=0,min=-260000,max=260000,step=160000,disp=0) antiback_B5(default=0,min=-260000,max=260000,step=160000,disp=0) //発砲遅延 Fire_Order(default=0,min=0,max=3,step=0,disp=0) //機銃北西 Mov_GUN1_NWA(default=0,max=1000000,step=1000000,disp=0) Mov_GUN1_NWB(default=0,max=1000000,step=1000000,disp=0) MG1NWy(default=-90,min=-225,max=-90,step=0,disp=0) //y方位 MG1NWx(default=0,min=-36,max=10,step=0,disp=0) //x角度 MG1NW_Dir(default=0,min=0,max=135,step=0,disp=0) //制御用方位 MG1NW_Ang(default=0,min=-10,max=36,step=0,disp=0) //制御用角度 Fix_GUN_NW(default=0,max=1000000,step=1000000,disp=0) //固定機銃 //機銃南西 Mov_GUN1_SWA(default=0,max=1000000,step=1000000,disp=0) Mov_GUN1_SWB(default=0,max=1000000,step=1000000,disp=0) MG1SWy(default=90,min=90,max=225,step=0,disp=0) //y方位 MG1SWx(default=0,min=-36,max=10,step=0,disp=0) //x角度 MG1SW_Dir(default=180,min=45,max=180,step=0,disp=0) //制御用方位 MG1SW_Ang(default=0,min=-10,max=36,step=0,disp=0) //制御用角度 Fix_GUN_SW(default=0,max=1000000,step=1000000,disp=0) //固定機銃 //機銃北東 Mov_GUN1_NEA(default=0,max=1000000,step=1000000,disp=0) Mov_GUN1_NEB(default=0,max=1000000,step=1000000,disp=0) MG1NEy(default=90,min=90,max=225,step=0,disp=0) //y方位 MG1NEx(default=0,min=-36,max=10,step=0,disp=0) //x角度 MG1NE_Dir(default=-0,min=-135,max=0,step=0,disp=0) //制御用方位 MG1NE_Ang(default=0,min=-10,max=36,step=0,disp=0) //制御用角度 Fix_GUN_NE(default=0,max=1000000,step=1000000,disp=0) //固定機銃 //機銃南東 Mov_GUN1_SEA(default=0,max=1000000,step=1000000,disp=0) Mov_GUN1_SEB(default=0,max=1000000,step=1000000,disp=0) MG1SEy(default=-90,min=-225,max=-90,step=0,disp=0) //y方位 MG1SEx(default=0,min=-36,max=10,step=0,disp=0) //x角度 MG1SE_Dir(default=-180,min=-180,max=-45,step=0,disp=0) //制御用方位 MG1SE_Ang(default=0,min=-10,max=36,step=0,disp=0) //制御用角度 Fix_GUN_SE(default=0,max=1000000,step=1000000,disp=0) //固定機銃 //左舷対空機関砲 Mov_GUN2A(default=0,max=1000000,step=1000000,disp=0) Mov_GUN2B(default=0,max=1000000,step=1000000,disp=0) MG2ABy(default=180,min=135,max=225,step=0,disp=0) //y方位 MG2ABx(default=-90,min=-126,max=-78,step=0,disp=0) //x角度 MG2AB_Dir(default=90,min=45,max=135,step=0,disp=0) //制御用方位 MG2AB_Ang(default=0,min=-12,max=36,step=0,disp=0) //制御用角度 //右舷対空機関砲 Mov_GUN2C(default=0,max=1000000,step=1000000,disp=0) Mov_GUN2D(default=0,max=1000000,step=1000000,disp=0) MG2CDy(default=180,min=135,max=225,step=0,disp=0) //y方位 MG2CDx(default=-90,min=-126,max=-78,step=0,disp=0) //x角度 MG2CD_Dir(default=-90,min=-135,max=-45,step=0,disp=0) //制御用方位 MG2CD_Ang(default=0,min=-12,max=36,step=0,disp=0) //制御用角度 //機銃発射スイッチ MG2AB_Switch(default=0,min=0,max=1,step=0,disp=0) MG2CD_Switch(default=0,min=0,max=1,step=0,disp=0) MG1NW_Switch(default=0,min=0,max=1,step=0,disp=0) MG1SW_Switch(default=0,min=0,max=1,step=0,disp=0) MG1NE_Switch(default=0,min=0,max=1,step=0,disp=0) MG1SE_Switch(default=0,min=0,max=1,step=0,disp=0) FG_NWE_Switch(default=0,min=0,max=1,step=0,disp=0) FG_SWE_Switch(default=0,min=0,max=1,step=0,disp=0) //機銃制御用基準方位&角度 GUN_Base_y(default=0,min=-180,max=180,step=0,disp=0) //y方位 GUN_Base_x(default=0,min=-12,max=36,step=0,disp=0) //x角度 //ミサイル M1_jet(default=0,min=-300000,max=300000,step=0,disp=0) //ミサイル推進1 M2_jet(default=0,min=-300000,max=300000,step=0,disp=0) //ミサイル推進2 mis_y(default=0,min=-90,max=90,step=0,disp=0) //y方位 mis_x1(default=25,min=9,max=41,step=0,disp=0) //x角度1 mis_x2(default=-25,min=-41,max=-9,step=0,disp=0) //x角度2 mis_Dir(default=0,min=-90,max=90,step=0,disp=0) //制御用方位 mis_Ang(default=0,min=-16,max=16,step=0,disp=0) //制御用角度 mis_COUNT(default=2,min=0,max=2,step=0,disp=0) //ミサイル基数 mis_Switch(default=0,min=0,max=2,step=2,disp=0) //連続発射防止スイッチ //ミサイル制御用基準方位&角度 mis_Base_y(default=180,min=-180,max=180,step=0,disp=0) //y方位 mis_Base_x(default=0,min=-16,max=16,step=0,disp=0) //x角度 //選択兵装 AM_Switch(default=0,min=0,max=2,step=2,disp=0) //連続切り替え防止スイッチ ARM_MOOD(default=0,min=-1,max=3,step=0,disp=0) //ガイドライン GL_TEST(default=0,min=-100000,max=100000,step=0,disp=0) } Key { //推進 0:JET(step=10000) 1:JET(step=-10000) //方向翼 2:LR(step=-2) 3:LR(step=2) //視界旋回 7:Aspect(step=5) 9:Aspect(step=-5) } Body { //ボディ制作開始 Core(){ //コア //艦橋-------------------- //カウル-------------------- N:COWL(angle=0,option=5){} N:FRAME(angle=90,option=1){ W:TRIMF(angle=Radar,option=1){ //レーダー W:COWL(angle=-180,option=5){} } E:TRIMF(angle=-Radar,option=1){ //レーダー E:COWL(angle=-180,option=5){} } W:COWL(angle=-120){} W:COWL(angle=120){} E:COWL(angle=-120){} E:COWL(angle=120){} N:COWL(NAME=ZERO,angle=90){} N:COWL(angle=-90,option=5){} //-------------------------- N:TRIMF(angle=Aspect,option=0){ N:FRAME(angle=-0,option=0){ N:FRAME(angle=0,option=0){ N:FRAME(angle=0,option=0){ //バラスト--------- N:FRAME(angle=0,option=1){ N:FRAME(angle=0,option=0){ N:FRAME(angle=0,option=0){ W:WEIGHT(angle=90,option=0){ E:WEIGHT(angle=0,option=0){ E:WEIGHT(angle=0,option=0){} } W:WEIGHT(angle=0,option=0){ W:WEIGHT(angle=0,option=0){ }}} E:WEIGHT(angle=90,option=0){ W:WEIGHT(angle=0,option=0){ W:WEIGHT(angle=0,option=0){} } E:WEIGHT(angle=0,option=0){ E:WEIGHT(angle=0,option=0){ }}} }}} //------------------------- S:FRAME(angle=90,NAME=BASE){ //ミサイル発射機--------------------WEIGHT CHIP COWL S:FRAME(angle=-35){ S:FRAME(angle=-35){ S:FRAME(angle=-20){ S:RUDDERF(angle=0,option=1){ N:TRIMF(angle=mis_y,option=1){ //方位 W:TRIMF(angle=mis_x1,option=1){ //ミサイル1--------------------WEIGHT CHIP COWL N:JET(NAME=M1,power=M1_jet,angle=180,Option=0,effect=1){ N:COWL(power=00,angle=-105,Option=0){ N:COWL(power=00,angle=0,Option=0){} } S:COWL(power=00,angle=-105,Option=0){ S:COWL(power=00,angle=0,Option=0){} } N:COWL(power=00,angle=90,Option=0){} S:COWL(power=00,angle=90,Option=0){} W:COWL(power=00,angle=90,Option=0){ N:COWL(angle=-45,Option=4){} S:COWL(angle=-45,Option=3){} } E:COWL(power=00,angle=90,Option=0){ N:COWL(angle=-45,Option=3){} S:COWL(angle=-45,Option=4){} } } //----------------------------- } E:TRIMF(angle=mis_x2,option=1){ //ミサイル2--------------------WEIGHT CHIP COWL N:JET(NAME=M2,power=M2_jet,angle=180,Option=0,effect=1){ N:COWL(power=00,angle=-105,Option=0){ N:COWL(power=00,angle=0,Option=0){} } S:COWL(power=00,angle=-105,Option=0){ S:COWL(power=00,angle=0,Option=0){} } N:COWL(power=00,angle=90,Option=0){} S:COWL(power=00,angle=90,Option=0){} W:COWL(power=00,angle=90,Option=0){ N:COWL(angle=-45,Option=4){} S:COWL(angle=-45,Option=3){} } E:COWL(power=00,angle=90,Option=0){ N:COWL(angle=-45,Option=3){} S:COWL(angle=-45,Option=4){} } } //----------------------------- } }}}}} //------------------------ //前部--------------------WEIGHT CHIP COWL N:FRAME(angle=50){ //船底フロート----------------WEIGHT CHIP COWL N:FRAME(angle=80,Option=1){ // N:JET(angle=50,power=2600,Option=1){} // } //---------------------------- N:FRAME(angle=0){ //三番砲塔--------------------WEIGHT CHIP COWL N:FRAME(angle=-140){ N:FRAME(angle=-0){ N:FRAME(NAME=K3yb,angle=-0){ N:TRIMF(NAME=K3y,angle=kanon3y,option=1){ W:TRIMF(angle=-kanon3x){ E:TRIMF(angle=90,option=1){ N:JET(angle=180,power=antiback_F3,Option=0,effect=1){} //対反動 } S:ARM(NAME=KARM3,angle=0,Power=kanon3,option=200000){} } E:TRIMF(angle=kanon3x){ S:ARM(angle=0,Power=kanon3,option=200000){} } }}}} //------------------------ N:FRAME(angle=-50){ N:FRAME(angle=0){ //二番砲塔--------------------WEIGHT CHIP COWL N:FRAME(angle=-90){ N:FRAME(NAME=K2yb,angle=-0){ N:TRIMF(NAME=K2y,angle=kanon2y,option=1){ W:TRIMF(angle=-kanon2x){ E:TRIMF(angle=90,option=1){ N:JET(angle=180,power=antiback_F2,Option=0,effect=1){} //対反動 } S:ARM(NAME=KARM2,angle=0,Power=kanon2,option=200000){} } E:TRIMF(angle=kanon2x){ S:ARM(angle=0,Power=kanon2,option=200000){} } }}} //------------------------ N:FRAME(angle=0){ N:FRAME(NAME=NOSE,angle=0){ //一番砲塔--------------------WEIGHT CHIP COWL N:FRAME(NAME=K1yb,angle=-90){ N:TRIMF(NAME=K1y,angle=kanon1y,option=1){ W:TRIMF(angle=-kanon1x){ E:TRIMF(angle=90,option=1){ N:JET(angle=180,power=antiback_F1,Option=0,effect=1){} //対反動 } S:ARM(NAME=KARM1,angle=0,Power=kanon1,option=200000){} } E:TRIMF(angle=kanon1x){ S:ARM(angle=0,Power=kanon1,option=200000){} } }} //------------------------ //方向翼--------------------WEIGHT CHIP COWL N:TRIMF(angle=90,Option=1){ N:CHIP(angle=-LR){ //-LR E:CHIP(angle=0){} } } //------------------------ N:FRAME(angle=0){ N:JET(power=3000,angle=0,Option=1){} //前部フロート N:JET(power=ABN,angle=0,Option=1){} //艦首バランサー N:JET(power=ABN,angle=0,Option=1){} //艦首バランサー2 }}}}}}} //------------------------ //後部--------------------WEIGHT CHIP COWL S:FRAME(angle=50){ //船底フロート----------------WEIGHT CHIP COWL S:FRAME(angle=80,Option=1){ // S:JET(angle=50,power=2600,Option=1){} // } //---------------------------- S:FRAME(angle=0){ S:FRAME(angle=-50){ //動力--------------------WEIGHT CHIP COWL N:RLW(power=JET,angle=90,option=0,effect=10,brake=100){} N:JET(NAME=W_JET,power=JET,angle=90){} //------------------------ S:FRAME(angle=0){ S:FRAME(angle=0){ //四番砲塔--------------------WEIGHT CHIP COWL N:FRAME(angle=-90){ N:FRAME(NAME=K4yb,angle=-0){ N:TRIMF(NAME=K4y,angle=kanon4y,option=1){ W:TRIMF(angle=-kanon4x){ E:TRIMF(angle=90,option=1){ N:JET(angle=180,power=antiback_B4,Option=0,effect=1){} //対反動 } N:ARM(NAME=KARM4,angle=0,Power=kanon4,option=200000){} } E:TRIMF(angle=kanon4x){ N:ARM(angle=0,Power=kanon4,option=200000){} } }}} //------------------------ S:FRAME(angle=0){ //方向翼--------------------WEIGHT CHIP COWL S:TRIMF(angle=90,Option=1){ S:CHIP(angle=LR){ W:CHIP(angle=0){} } } //------------------------ S:FRAME(angle=0){ //五番砲塔--------------------WEIGHT CHIP COWL N:FRAME(NAME=K5yb,angle=-90){ N:TRIMF(NAME=K5y,angle=kanon5y,option=1){ W:TRIMF(angle=-kanon5x){ E:TRIMF(angle=90,option=1){ N:JET(angle=180,power=antiback_B5,Option=0,effect=1){} //対反動 } N:ARM(NAME=KARM5,angle=0,Power=kanon5,option=200000){} } E:TRIMF(angle=kanon5x){ N:ARM(angle=0,Power=kanon5,option=200000){} } }} //------------------------ S:JET(power=3000,angle=0,Option=1){} //後部フロート S:JET(power=ABS,angle=0,Option=1){} //艦尾バランサー S:JET(power=ABS,angle=0,Option=1){} //艦尾バランサー2 }}}}}}} //------------------------ //左舷--------------------WEIGHT CHIP COWL W:FRAME(angle=0){ //対空機関砲------------WEIGHT CHIP COWL E:FRAME(angle=-160){ E:FRAME(angle=-200){ W:RUDDERF(angle=MG2ABy,Option=1){ //y方位 E:FRAME(angle=MG2ABx,Option=0,effect=5){ //x角度 N:ARM(NAME=MG2A,angle=90,Power=Mov_GUN2A,option=20000){} S:ARM(NAME=MG2B,angle=90,Power=Mov_GUN2B,option=20000){} }}}} //---------------------- //機銃北西NW--------------------WEIGHT CHIP COWL N:FRAME(angle=20){ W:TRIMF(angle=-20){ //機銃 W:RUDDERF(angle=MG1NWy,Option=1){ E:ARM(NAME=MG1NWA,angle=MG1NWx,Power=Mov_GUN1_NWA,option=10000){} }} N:FRAME(angle=0){ N:FRAME(angle=0){ W:TRIMF(angle=-20){ //機銃 W:RUDDERF(angle=MG1NWy,Option=1){ E:ARM(NAME=MG1NWB,angle=MG1NWx,Power=Mov_GUN1_NWB,option=10000){} }} N:ARM(NAME=FGNW,angle=-20,Power=Fix_GUN_NW,option=30000){} //固定砲 }}} //------------------------ //機銃南西SW--------------------WEIGHT CHIP COWL S:FRAME(angle=20){ W:TRIMF(angle=20){ //機銃 W:RUDDERF(angle=MG1SWy,Option=1){ E:ARM(NAME=MG1SWA,angle=MG1SWx,Power=Mov_GUN1_SWA,option=10000){} }} S:FRAME(angle=0){ S:FRAME(angle=0){ W:TRIMF(angle=20){ //機銃 W:RUDDERF(angle=MG1SWy,Option=1){ E:ARM(NAME=MG1SWB,angle=MG1SWx,Power=Mov_GUN1_SWB,option=10000){} }} S:ARM(NAME=FGSW,angle=-20,Power=Fix_GUN_SW,option=30000){} //固定砲 }}} //------------------------ W:FRAME(angle=50){ W:FRAME(angle=0,Option=1){ W:JET(power=3000,angle=-50,Option=1){} //左舷フロート W:JET(power=ABW,angle=-50,Option=1){} //左舷バランサー W:JET(power=ABW,angle=-50,Option=1){} //左舷バランサー2 }}} //------------------------ //右舷-------------------- E:FRAME(angle=0){ //対空機関砲--------------WEIGHT CHIP COWL W:FRAME(angle=-160){ W:FRAME(angle=-200){ E:RUDDERF(angle=MG2CDy,Option=1){ //y方位 W:FRAME(angle=MG2CDx,Option=0,effect=5){ //x角度 N:ARM(NAME=MG2C,angle=90,Power=Mov_GUN2C,option=20000){} S:ARM(NAME=MG2D,angle=90,Power=Mov_GUN2D,option=20000){} }}}} //------------------------ //機銃北東NE--------------------WEIGHT CHIP COWL N:FRAME(angle=20){ E:TRIMF(angle=20){ //機銃 E:RUDDERF(angle=MG1NEy,Option=1){ W:ARM(NAME=MG1NEA,angle=MG1NEx,Power=Mov_GUN1_NEA,option=10000){} }} N:FRAME(angle=0){ N:FRAME(angle=0){ E:TRIMF(angle=20){ //機銃 E:RUDDERF(angle=MG1NEy,Option=1){ W:ARM(NAME=MG1NEB,angle=MG1NEx,Power=Mov_GUN1_NEB,option=10000){} }} N:ARM(NAME=FGNE,angle=-20,Power=Fix_GUN_NE,option=30000){} //固定砲 }}} //------------------------ //機銃南東SE--------------------WEIGHT CHIP COWL S:FRAME(angle=20){ E:TRIMF(angle=-20){ //機銃 E:RUDDERF(angle=MG1SEy,Option=1){ W:ARM(NAME=MG1SEA,angle=MG1SEx,Power=Mov_GUN1_SEA,option=10000){} }} S:FRAME(angle=0){ S:FRAME(angle=0){ E:TRIMF(angle=-20){ //機銃 E:RUDDERF(angle=MG1SEy,Option=1){ W:ARM(NAME=MG1SEB,angle=MG1SEx,Power=Mov_GUN1_SEB,option=10000){} }} S:ARM(NAME=FGSE,angle=-20,Power=Fix_GUN_SE,option=30000){} //固定砲 }}} //------------------------ E:FRAME(angle=50){ E:FRAME(angle=0,Option=1){ E:JET(power=3000,angle=-50,Option=1){} //右舷フロート E:JET(power=ABE,angle=-50,Option=1){} //右舷バランサー E:JET(power=ABE,angle=-50,Option=1){} //右舷バランサー2 }}} //------------------------ }}}}}}//艦橋END------------------------ } //コアここまで } //ボディ制作終了 Script { //艦名---------------------- print 0,"Lead sardine" //機銃基準方位-------------- if (_KEY(7)=1 | _KEY(9)=1) & (GUN_Base_y=-180 | GUN_Base_y=180){ //符号切り替え判定 GUN_Base_y=GUN_Base_y*-1 } if _KEY(7)=1{ GUN_Base_y=GUN_Base_y+5 } if _KEY(9)=1{ GUN_Base_y=GUN_Base_y-5 } //ミサイル基準方位-------------- if (_KEY(7)=1 | _KEY(9)=1) & (mis_Base_y=-180 | mis_Base_y=180){ //符号切り替え判定 mis_Base_y=mis_Base_y*-1 } if _KEY(7)=1{ mis_Base_y=mis_Base_y+5 } if _KEY(9)=1{ mis_Base_y=mis_Base_y-5 } //動力制御------------------ //安全装置 if _Y(W_JET)>0{ JET=0 print 1,"Power output : Safety lock" GOTO arms_control } //出力表示 power=Jet/300000*100 print 1,"Power output : ",JET,"(",power,"%)" //火器管制システム-------------- label arms_control //兵装セレクト------------------- if _KEY(14)=1 | _KEY(16)=1{ //連続切り替え防止スイッチ mis_Switch=mis_Switch+1 } if _KEY(14)=1 & mis_Switch=1 { ARM_MOOD=ARM_MOOD-1 } if _KEY(14)=1 & ARM_MOOD=-1 { //ループ判定 ARM_MOOD=2 } if _KEY(16)=1 & mis_Switch=1 { ARM_MOOD=ARM_MOOD+1 } if _KEY(16)=1 & ARM_MOOD=3 { //ループ判定 ARM_MOOD=0 } //選択兵装表示 if ARM_MOOD=0{ //主砲 print 3,"Arms : Cannon" } if ARM_MOOD=1{ //機銃 print 3,"Arms : GUN" } if ARM_MOOD=2{ //ミサイル print 3,"Arms : Missile" } //方位連動---------------------- if ARM_MOOD=0{ //主砲 goto K_Direction } if ARM_MOOD=1{ //機銃 goto G_Direction } if ARM_MOOD=2{ //ミサイル goto M_Direction } goto Direction_Ini //主砲方位---------------------- label K_Direction //前部---------------------- //一番砲塔---------------------- if (_RY(BASE,0)+0.05)>(_RZ(K1yb,K1y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // + 砲塔_RZ(K1yb,K1y) 艦橋_RY(BASE,0) kanon1y=kanon1y-5 } if (_RY(BASE,0)-0.05)<(_RZ(K1yb,K1y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // - kanon1y=kanon1y+5 } //二番砲塔---------------------- if (_RY(BASE,0)+0.05)>(_RZ(K2yb,K2y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // + 砲塔_RZ(K2yb,K2y) 艦橋_RY(BASE,0) kanon2y=kanon2y-5 } if (_RY(BASE,0)-0.05)<(_RZ(K2yb,K2y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // - kanon2y=kanon2y+5 } //三番砲塔---------------------- if (_RY(BASE,0)+0.05)>(_RZ(K3yb,K3y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // + 砲塔_RZ(K3yb,K3y) 艦橋_RY(BASE,0) kanon3y=kanon3y-5 } if (_RY(BASE,0)-0.05)<(_RZ(K3yb,K3y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { // - kanon3y=kanon3y+5 } //後部---------------------- //四番砲塔---------------------- if (_RY(BASE,ZERO)+0.05)>(_RZ(K4yb,K4y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { // + 砲塔_RZ(K4yb,K4y) 艦橋_RY(BASE,ZERO) kanon4y=kanon4y-5 } if (_RY(BASE,ZERO)-0.05)<(_RZ(K4yb,K4y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { // - kanon4y=kanon4y+5 } //五番砲塔---------------------- if (_RY(BASE,ZERO)+0.05)>(_RZ(K5yb,K5y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { // + 砲塔_RZ(K5yb,K5y) 艦橋_RY(BASE,ZERO) kanon5y=kanon5y-5 } if (_RY(BASE,ZERO)-0.05)<(_RZ(K5yb,K5y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { // kanon5y=kanon5y+5 } goto Direction_Ini //主砲方位END---------------------- //機銃方位---------------------- label G_Direction //対空機関砲---------------------- //左舷対空機関砲 if GUN_Base_y>MG2AB_Dir & GUN_Base_y<=145 & GUN_Base_y>=35 { MG2ABy=MG2ABy-5 MG2AB_Dir=MG2AB_Dir+5 } if GUN_Base_y=35 { MG2ABy=MG2ABy+5 MG2AB_Dir=MG2AB_Dir-5 } //右舷対空機関砲 if GUN_Base_y>MG2CD_Dir & GUN_Base_y>=-145 & GUN_Base_y<=-35 { MG2CDy=MG2CDy-5 MG2CD_Dir=MG2CD_Dir+5 } if GUN_Base_y=-145 & GUN_Base_y<=-35 { MG2CDy=MG2CDy+5 MG2CD_Dir=MG2CD_Dir-5 } //対空機関砲END---------------------- //機銃方位---------------------- //機銃北西 if GUN_Base_y>MG1NW_Dir & GUN_Base_y<=145 & GUN_Base_y>=0 { MG1NWy=MG1NWy-5 MG1NW_Dir=MG1NW_Dir+5 } if GUN_Base_y=0 { MG1NWy=MG1NWy+5 MG1NW_Dir=MG1NW_Dir-5 } //機銃南西 if GUN_Base_y>MG1SW_Dir & GUN_Base_y<=180 & GUN_Base_y>=45 { MG1SWy=MG1SWy-5 MG1SW_Dir=MG1SW_Dir+5 } if GUN_Base_y=45 { MG1SWy=MG1SWy+5 MG1SW_Dir=MG1SW_Dir-5 } //機銃北東 if GUN_Base_y>MG1NE_Dir & GUN_Base_y>=-145 & GUN_Base_y<=-0 { MG1NEy=MG1NEy-5 MG1NE_Dir=MG1NE_Dir+5 } if GUN_Base_y=-145 & GUN_Base_y<=-0 { MG1NEy=MG1NEy+5 MG1NE_Dir=MG1NE_Dir-5 } //機銃南東 if GUN_Base_y>MG1SE_Dir & GUN_Base_y>=-180 & GUN_Base_y<=-45 { MG1SEy=MG1SEy-5 MG1SE_Dir=MG1SE_Dir+5 } if GUN_Base_y=-180 & GUN_Base_y<=-45 { MG1SEy=MG1SEy+5 MG1SE_Dir=MG1SE_Dir-5 } //機銃END---------------------- goto Direction_Ini //機銃方位END---------------------- //ミサイル方位---------------------- label M_Direction if mis_Base_y>mis_Dir & mis_Base_y<=110 & mis_Base_y>=-110 { mis_y=mis_y-5 mis_Dir=mis_Dir+5 } if mis_Base_y=-110 { mis_y=mis_y+5 mis_Dir=mis_Dir-5 } goto Direction_Ini //ミサイル方位END---------------------- //方位初期化---------------------- label Direction_Ini //対空機関砲---------------------- //左舷対空機関砲 if 90>MG2AB_Dir & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) { MG2ABy=MG2ABy-5 MG2AB_Dir=MG2AB_Dir+5 } if 901 | GUN_Base_y>145 | GUN_Base_y<35) { MG2ABy=MG2ABy+5 MG2AB_Dir=MG2AB_Dir-5 } //右舷対空機関砲 if -90>MG2CD_Dir & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-35) { MG2CDy=MG2CDy-5 MG2CD_Dir=MG2CD_Dir+5 } if -901 | GUN_Base_y<-145 | GUN_Base_y>-35) { MG2CDy=MG2CDy+5 MG2CD_Dir=MG2CD_Dir-5 } //機銃---------------------- //機銃北西 if ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<0 { MG1NWy=MG1NWy+5 MG1NW_Dir=MG1NW_Dir-5 } //機銃南西 if ARM_MOOD<>1 | GUN_Base_y>180 | GUN_Base_y<45 { MG1SWy=MG1SWy-5 MG1SW_Dir=MG1SW_Dir+5 } //機銃北東 if ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-0 { MG1NEy=MG1NEy-5 MG1NE_Dir=MG1NE_Dir+5 } //機銃南東 if ARM_MOOD<>1 | GUN_Base_y<-180 | GUN_Base_y>-45 { MG1SEy=MG1SEy+5 MG1SE_Dir=MG1SE_Dir-5 } //ミサイル---------------------- if 0>mis_Dir & (ARM_MOOD<>2 | mis_Base_y>110 | mis_Base_y<-110) { mis_y=mis_y-5 mis_Dir=mis_Dir+5 } if 02 | mis_Base_y>110 | mis_Base_y<-110) { mis_y=mis_y+5 mis_Dir=mis_Dir-5 } //方位初期化END---------------------- //方位連動END---------------------- //角度---------------------- if ARM_MOOD=0{ //主砲 goto K_angle } if ARM_MOOD=1{ //機銃 goto G_angle } if ARM_MOOD=2{ //ミサイル goto M_angle } goto angle_Ini //主砲角度---------------------- label K_angle //基準角度---------------------- if _KEY(15)=1{ K_angle_F=K_angle_F+1 K_angle_B=K_angle_B-1 } if _KEY(5)=1{ K_angle_F=K_angle_F-1 K_angle_B=K_angle_B+1 } //前部---------------------- //一番砲塔---------------------- if K_angle_F>kanon1x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { kanon1x=kanon1x+1 } if K_angle_F-2.20 { kanon1x=kanon1x-1 } //二番砲塔---------------------- if K_angle_F>kanon2x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { kanon2x=kanon2x+1 } if K_angle_F-2.20 { kanon2x=kanon2x-1 } //三番砲塔---------------------- if K_angle_F>kanon3x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 { kanon3x=kanon3x+1 } if K_angle_F-2.20 { kanon3x=kanon3x-1 } //後部---------------------- //四番砲塔---------------------- if K_angle_B>kanon4x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { kanon4x=kanon4x+1 } if K_angle_B-2.20 { kanon4x=kanon4x-1 } //五番砲塔---------------------- if K_angle_B>kanon5x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { kanon5x=kanon5x+1 } if K_angle_B-2.20 { kanon5x=kanon5x-1 } goto angle_Ini //主砲角度END---------------------- //機銃角度---------------------- label G_angle //基準角度---------------------- if _KEY(15)=1{ GUN_Base_x=GUN_Base_x+2 } if _KEY(5)=1{ GUN_Base_x=GUN_Base_x-2 } //対空機関砲---------------------- //左舷対空機関砲 if GUN_Base_x>MG2AB_Ang & GUN_Base_y<=145 & GUN_Base_y>=35 { MG2ABx=MG2ABx-2 MG2AB_Ang=MG2AB_Ang+2 } if GUN_Base_x=35 { MG2ABx=MG2ABx+2 MG2AB_Ang=MG2AB_Ang-2 } //右舷対空機関砲 if GUN_Base_x>MG2CD_Ang & GUN_Base_y>=-145 & GUN_Base_y<=-35 { MG2CDx=MG2CDx-2 MG2CD_Ang=MG2CD_Ang+2 } if GUN_Base_x=-145 & GUN_Base_y<=-35 { MG2CDx=MG2CDx+2 MG2CD_Ang=MG2CD_Ang-2 } //機銃 //機銃北西 if GUN_Base_x>MG1NW_Ang & GUN_Base_y<=145 & GUN_Base_y>=25 { MG1NWx=MG1NWx-2 MG1NW_Ang=MG1NW_Ang+2 } if GUN_Base_x=25 { MG1NWx=MG1NWx+2 MG1NW_Ang=MG1NW_Ang-2 } //機銃南西 if GUN_Base_x>MG1SW_Ang & GUN_Base_y<=155 & GUN_Base_y>=45 { MG1SWx=MG1SWx-2 MG1SW_Ang=MG1SW_Ang+2 } if GUN_Base_x=45 { MG1SWx=MG1SWx+2 MG1SW_Ang=MG1SW_Ang-2 } //機銃北東 if GUN_Base_x>MG1NE_Ang & GUN_Base_y>=-145 & GUN_Base_y<=-25 { MG1NEx=MG1NEx-2 MG1NE_Ang=MG1NE_Ang+2 } if GUN_Base_x=-145 & GUN_Base_y<=-25 { MG1NEx=MG1NEx+2 MG1NE_Ang=MG1NE_Ang-2 } //機銃南東 if GUN_Base_x>MG1SE_Ang & GUN_Base_y>=-155 & GUN_Base_y<=-45 { MG1SEx=MG1SEx-2 MG1SE_Ang=MG1SE_Ang+2 } if GUN_Base_x=-155 & GUN_Base_y<=-45 { MG1SEx=MG1SEx+2 MG1SE_Ang=MG1SE_Ang-2 } goto angle_Ini //機銃角度END------------------- //ミサイル角度---------------------- label M_angle //基準角度---------------------- if _KEY(15)=1{ mis_Base_x=mis_Base_x+2 } if _KEY(5)=1{ mis_Base_x=mis_Base_x-2 } //ミサイル角度---------------------- if mis_Base_x>mis_Ang & mis_Base_y<=110 & mis_Base_y>=-110 { mis_x1=mis_x1+2 mis_x2=mis_x2-2 mis_Ang=mis_Ang+2 } if mis_Base_x=-110 { mis_x1=mis_x1-2 mis_x2=mis_x2+2 mis_Ang=mis_Ang-2 } goto angle_Ini //ミサイル角度END------------------- //角度初期化---------------------- label angle_Ini //主砲 //前部角度初期化判定---------------------- if _RY(BASE,0)>2.20 | _RY(BASE,0)<-2.20 | ARM_MOOD<>0{ kanon1x=kanon1x-1 kanon2x=kanon2x-1 kanon3x=kanon3x-1 } //後部角度初期化判定---------------------- if _RY(BASE,ZERO)>2.20 | _RY(BASE,ZERO)<-2.20 | ARM_MOOD<>0{ kanon4x=kanon4x+1 kanon5x=kanon5x+1 } //対空機関砲 //左舷対空機関砲 if 0>MG2AB_Ang & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) { MG2ABx=MG2ABx-2 MG2AB_Ang=MG2AB_Ang+2 } if 01 | GUN_Base_y>145 | GUN_Base_y<35) { MG2ABx=MG2ABx+2 MG2AB_Ang=MG2AB_Ang-2 } //右舷対空機関砲 if 0>MG2CD_Ang & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-35) { MG2CDx=MG2CDx-2 MG2CD_Ang=MG2CD_Ang+2 } if 01 | GUN_Base_y<-145 | GUN_Base_y>-35) { MG2CDx=MG2CDx+2 MG2CD_Ang=MG2CD_Ang-2 } //機銃 //機銃北西 if 0>MG1NW_Ang & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<25) { MG1NWx=MG1NWx-2 MG1NW_Ang=MG1NW_Ang+2 } if 01 | GUN_Base_y>145 | GUN_Base_y<25) { MG1NWx=MG1NWx+2 MG1NW_Ang=MG1NW_Ang-2 } //機銃南西 if 0>MG1SW_Ang & (ARM_MOOD<>1 | GUN_Base_y>155 | GUN_Base_y<45){ MG1SWx=MG1SWx-2 MG1SW_Ang=MG1SW_Ang+2 } if 01 | GUN_Base_y>155 | GUN_Base_y<45){ MG1SWx=MG1SWx+2 MG1SW_Ang=MG1SW_Ang-2 } //機銃北東 if 0>MG1NE_Ang & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-25){ MG1NEx=MG1NEx-2 MG1NE_Ang=MG1NE_Ang+2 } if 01 | GUN_Base_y<-145 | GUN_Base_y>-25){ MG1NEx=MG1NEx+2 MG1NE_Ang=MG1NE_Ang-2 } //機銃南東 if 0>MG1SE_Ang & (ARM_MOOD<>1 | GUN_Base_y<-155 | GUN_Base_y>-45){ MG1SEx=MG1SEx-2 MG1SE_Ang=MG1SE_Ang+2 } if 01 | GUN_Base_y<-155 | GUN_Base_y>-45){ MG1SEx=MG1SEx+2 MG1SE_Ang=MG1SE_Ang-2 } //ミサイル if 0>mis_Ang & (ARM_MOOD<>2 | mis_Base_y>110 | mis_Base_y<-110) { mis_x1=mis_x1+2 mis_x2=mis_x2-2 mis_Ang=mis_Ang+2 } if 02 | mis_Base_y>110 | mis_Base_y<-110) { mis_x1=mis_x1-2 mis_x2=mis_x2+2 mis_Ang=mis_Ang-2 } //角度初期化END---------------------- label angle_END //角度END---------------------- //射撃---------------------- if ARM_MOOD=0{ //主砲 goto K_Attack } if ARM_MOOD=1{ //機銃 goto G_Attack } if ARM_MOOD=2{ //ミサイル goto M_Attack } goto Attack_END //主砲発射---------------------- label K_Attack //発砲遅延---------------------- If Fire_Order>0{ Fire_Order=Fire_Order-1 } If _KEY(8)=1 & Fire_Order=0{ Fire_Order=3 } //前部主砲---------------------- //一番砲塔---------------------- if Fire_Order=1 & _E(KARM1)=200000 & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 & ((_RY(BASE,0)+0.05)>(_RZ(K1yb,K1y)*-1) & (_RY(BASE,0)-0.05)<(_RZ(K1yb,K1y)*-1) | (_RZ(K1yb,K1y)*-1)>2.00 | (_RZ(K1yb,K1y)*-1)<-2.00){ kanon1=200000 antiback_F1=-300000 } //二番砲塔---------------------- if Fire_Order=2 & _E(KARM2)=200000 & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 & ((_RY(BASE,0)+0.05)>(_RZ(K2yb,K2y)*-1) & (_RY(BASE,0)-0.05)<(_RZ(K2yb,K2y)*-1) | (_RZ(K2yb,K2y)*-1)>2.00 | (_RZ(K2yb,K2y)*-1)<-2.00){ kanon2=200000 antiback_F2=-300000 } //三番砲塔---------------------- if Fire_Order=3 & _E(KARM3)=200000 & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 & ((_RY(BASE,0)+0.05)>(_RZ(K3yb,K3y)*-1) & (_RY(BASE,0)-0.05)<(_RZ(K3yb,K3y)*-1) | (_RZ(K3yb,K3y)*-1)>2.00 | (_RZ(K3yb,K3y)*-1)<-2.00){ kanon3=200000 antiback_F3=-300000 } //後部主砲---------------------- //四番砲塔---------------------- if (kanon4y<=-110 | kanon4y>=110) & kanon4x<80 & mis_COUNT>0 { //干渉防止判定 Safety=1 } if Fire_Order=2 & _E(KARM4)=200000 & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 & Safety=0 & ((_RY(BASE,ZERO)+0.05)>(_RZ(K4yb,K4y)*-1) & (_RY(BASE,ZERO)-0.05)<(_RZ(K4yb,K4y)*-1) | (_RZ(K4yb,K4y)*-1)>2.00 | (_RZ(K4yb,K4y)*-1)<-2.00){ kanon4=200000 antiback_B4=300000 } //五番砲塔---------------------- if Fire_Order=1 & _E(KARM5)=200000 & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 & ((_RY(BASE,ZERO)+0.05)>(_RZ(K5yb,K5y)*-1) & (_RY(BASE,ZERO)-0.05)<(_RZ(K5yb,K5y)*-1) | (_RZ(K5yb,K5y)*-1)>2.00 | (_RZ(K5yb,K5y)*-1)<-2.00){ kanon5=200000 antiback_B5=300000 } goto Attack_END //主砲発射END---------------------- //機銃発射----------------------MG2AB_Switch MG2CD_Switch label G_Attack //対空機関砲---------------------- //左舷---------------------- if GUN_Base_y>=140 & GUN_Base_x>20 & mis_COUNT>0 { //干渉防止判定 Safety2=1 } if _KEY(8)=1 & _E(MG2B)>=10000 & MG2AB_Switch=1 & GUN_Base_y<=145 & GUN_Base_y>=35 & Safety2=0{ Mov_GUN2A=1000000 MG2AB_Switch=0 goto G_Attack1_END } if _KEY(8)=1 & _E(MG2A)>=10000 & MG2AB_Switch=0 & GUN_Base_y<=145 & GUN_Base_y>=35 & Safety2=0{ Mov_GUN2B=1000000 MG2AB_Switch=1 goto G_Attack1_END } label G_Attack1_END //右舷---------------------- if GUN_Base_y<=-140 & GUN_Base_x>20 & mis_COUNT>0 { //干渉防止判定 Safety2=1 } if _KEY(8)=1 & _E(MG2D)>=10000 & MG2CD_Switch=0 & GUN_Base_y>=-145 & GUN_Base_y<=-35 & Safety2=0{ Mov_GUN2C=1000000 MG2CD_Switch=1 goto G_Attack2_END } if _KEY(8)=1 & _E(MG2C)>=10000 & MG2CD_Switch=1 & GUN_Base_y>=-145 & GUN_Base_y<=-35 & Safety2=0{ Mov_GUN2D=1000000 MG2CD_Switch=0 goto G_Attack2_END } label G_Attack2_END //機銃---------------------- //機銃北西 if _KEY(8)=1 & _E(MG1NWB)>=5000 & MG1NW_Switch=1 & GUN_Base_y<=145 & GUN_Base_y>=-15 { Mov_GUN1_NWA=1000000 MG1NW_Switch=0 goto G_Attack3_END } if _KEY(8)=1 & _E(MG1NWA)>=5000 & MG1NW_Switch=0 & GUN_Base_y<=145 & GUN_Base_y>=-15 { Mov_GUN1_NWB=1000000 MG1NW_Switch=1 goto G_Attack3_END } label G_Attack3_END //機銃南西 if _KEY(8)=1 & _E(MG1SWB)>=5000 & MG1SW_Switch=0 & ((GUN_Base_y<=180 & GUN_Base_y>=45) | GUN_Base_y<=-165) { Mov_GUN1_SWA=1000000 MG1SW_Switch=1 goto G_Attack4_END } if _KEY(8)=1 & _E(MG1SWA)>=5000 & MG1SW_Switch=1 & ((GUN_Base_y<=180 & GUN_Base_y>=45) | GUN_Base_y<=-165) { Mov_GUN1_SWB=1000000 MG1SW_Switch=0 goto G_Attack4_END } label G_Attack4_END //機銃北東 if _KEY(8)=1 & _E(MG1NEB)>=5000 & MG1NE_Switch=0 & GUN_Base_y>=-145 & GUN_Base_y<=15 { Mov_GUN1_NEA=1000000 MG1NE_Switch=1 goto G_Attack5_END } if _KEY(8)=1 & _E(MG1NEA)>=5000 & MG1NE_Switch=1 & GUN_Base_y>=-145 & GUN_Base_y<=15 { Mov_GUN1_NEB=1000000 MG1NE_Switch=0 goto G_Attack5_END } label G_Attack5_END //機銃南東 if _KEY(8)=1 & _E(MG1SEB)>=5000 & MG1SE_Switch=1 & ((GUN_Base_y>=-180 & GUN_Base_y<=-45) | GUN_Base_y>=165) { Mov_GUN1_SEA=1000000 MG1SE_Switch=0 goto G_Attack6_END } if _KEY(8)=1 & _E(MG1SEA)>=5000 & MG1SE_Switch=0 & ((GUN_Base_y>=-180 & GUN_Base_y<=-45) | GUN_Base_y>=165) { Mov_GUN1_SEB=1000000 MG1SE_Switch=1 goto G_Attack6_END } label G_Attack6_END //固定砲-------------------- //前部 if FG_NWE_Switch=1 & _RY(BASE,NOSE)<-0.02{ //干渉防止判定 FG_NWE_Switch=0 goto G_Attack7_END } if _KEY(8)=1 & _E(FGNE)>=15000 & FG_NWE_Switch=1 & GUN_Base_y<=15 & GUN_Base_y>=-15 { Fix_GUN_NW=30000 FG_NWE_Switch=0 goto G_Attack7_END } if FG_NWE_Switch=0 & _RY(BASE,NOSE)>0.02{ //干渉防止判定 FG_NWE_Switch=1 goto G_Attack7_END } if _KEY(8)=1 & _E(FGNW)>=15000 & FG_NWE_Switch=0 & GUN_Base_y<=15 & GUN_Base_y>=-15 { Fix_GUN_NE=30000 FG_NWE_Switch=1 goto G_Attack7_END } label G_Attack7_END //後部 if _KEY(8)=1 & _E(FGSW)>=15000 & FG_SWE_Switch=1 & (GUN_Base_y>=165 | GUN_Base_y<=-165) { Fix_GUN_SE=30000 FG_SWE_Switch=0 goto G_Attack8_END } if _KEY(8)=1 & _E(FGSE)>=15000 & FG_SWE_Switch=0 & (GUN_Base_y>=165 | GUN_Base_y<=-165) { Fix_GUN_SW=30000 FG_SWE_Switch=1 goto G_Attack8_END } label G_Attack8_END goto Attack_END //機銃発射END------------------- //ミサイル発射------------------- label M_Attack if mis_COUNT=0{ goto Attack_END } if _KEY(8)=1{ mis_Switch=mis_Switch+1 } if _KEY(8)=1 & mis_Switch=1 & mis_Base_y<=110 & mis_Base_y>=-110 & mis_COUNT=1 { //L M1_jet=300000 dummy1=_BYE(M1) mis_COUNT=mis_COUNT-1 } if _KEY(8)=1 & mis_Switch=1 & mis_Base_y<=110 & mis_Base_y>=-110 & mis_COUNT=2 { //L M2_jet=300000 dummy2=_BYE(M2) mis_COUNT=mis_COUNT-1 } goto Attack_END //ミサイル発射END------------------- label Attack_END //火器管制システムEND---------------------- //オートバランサー------------- //前後 if _Ax(BASE)>0.03 { ABS=ABS+80 print 2,"Auto balancer : operating" //x Auto_balancer=1 } if _Ax(BASE)<-0.03 { ABN=ABN+80 print 2,"Auto balancer : operating" Auto_balancer=1 } //左右 if _Az(BASE)>0.03 { ABW=ABW+80 print 2,"Auto balancer : operating" //z Auto_balancer=1 } if _Az(BASE)<-0.03 { ABE=ABE+80 print 2,"Auto balancer : operating" Auto_balancer=1 } if Auto_balancer=0{ // ON/OFF表示判定 print 2,"Auto balancer : Stop" } //---------------------- //情報表示-------------- //共通情報---------------------- print 4,"Direction : ",GUN_Base_y //方位 if ARM_MOOD=0{ //主砲 GOTO K_info } if ARM_MOOD=1{ //機銃 GOTO G_info } if ARM_MOOD=2{ //ミサイル GOTO M_info } GOTO info_END //主砲---------------------- label K_info print 5,"[BASE ANGLE]" print 6,K_angle_F-90 print 7,"[DIRECTION LINK]" if ((_RY(BASE,0)+0.05)>(_RZ(K1yb,K1y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20) | ((_RY(BASE,0)-0.05)<(_RZ(K1yb,K1y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20) { LINK_INFO=1 } if LINK_INFO=0 { print 8,"Front :" } if LINK_INFO=1 { print 8,"Front : LINK" } if (_RY(BASE,ZERO)+0.05)>(_RZ(K4yb,K4y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 | (_RY(BASE,ZERO)-0.05)<(_RZ(K4yb,K4y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 { LINK_INFO=2 } if LINK_INFO<2 { print 9,"Back :" } if LINK_INFO=2 { print 9,"Back : LINK" } print 10,"[ARM CHARGE]" print 11,"C1.",_E(KARM1)/200000*100,"%" print 12,"C2.",_E(KARM2)/200000*100,"%" print 13,"C3.",_E(KARM3)/200000*100,"%" if Safety=0 { print 14,"C4.",_E(KARM4)/200000*100,"%" //Safety lock } if Safety=1 { print 14,"C4.Safety lock" } print 15,"C5.",_E(KARM5)/200000*100,"%" GOTO info_END //機銃---------------------- label G_info print 5,"[BASE ANGLE]" print 6,GUN_Base_x print 7,"[DIRECTION LINK]" //機銃北----------------------North Safety=1 if GUN_Base_y<=15 & GUN_Base_y>=-15 { LINK_INFO=1 } if _RY(BASE,NOSE)>0.02 | _RY(BASE,NOSE)<-0.02 { //干渉防止判定 Safety=1 } if Safety=1 & LINK_INFO=1 { print 8,"North : LINK(Safety mood)" } if LINK_INFO=0 { print 8,"North : " } if LINK_INFO=1 & Safety=0 { print 8,"North : LINK" } //東西分岐---------------------- if GUN_Base_y>=0 {GOTO West_group} GOTO East_group //西側----------------------West label West_group //機銃北西 if GUN_Base_y<=145 & GUN_Base_y>=0{ LINK_INFO=2 } if LINK_INFO<2 { print 9,"North west : " } if LINK_INFO=2 { print 9,"North west : LINK" } //左舷対空機関砲 西 if GUN_Base_y<=145 & GUN_Base_y>=35 { LINK_INFO=3 } if LINK_INFO<3 { print 10,"West : " } if LINK_INFO=3 & Safety2=1 { print 10,"West : Safety lock" } if LINK_INFO=3 & Safety2=0 { print 10,"West : LINK" } //機銃南西 if GUN_Base_y<=180 & GUN_Base_y>=45{ LINK_INFO=4 } if LINK_INFO<4 { print 11,"South west : " } if LINK_INFO=4 { print 11,"South west : LINK" } GOTO South_GUN //東側----------------------East label East_group //機銃北東 if GUN_Base_y>=-145 & GUN_Base_y<=-0{ LINK_INFO=2 } if LINK_INFO<2 { print 9,"North east : " } if LINK_INFO=2 { print 9,"North east : LINK" } //左舷対空機関砲 東 if GUN_Base_y>=-145 & GUN_Base_y<=-35 { LINK_INFO=3 } if LINK_INFO<3 { print 10,"East : " } if LINK_INFO=3 & Safety2=1 { print 10,"East : Safety lock" } if LINK_INFO=3 & Safety2=0 { print 10,"East : LINK" } //機銃南東 if GUN_Base_y>=-180 & GUN_Base_y<=-45{ LINK_INFO=4 } if LINK_INFO<4 { print 11,"South east : " } if LINK_INFO=4 { print 11,"South east : LINK" } GOTO South_GUN //機銃南----------------------South label South_GUN if GUN_Base_y>=165 | GUN_Base_y<=-165 { LINK_INFO=5 } if LINK_INFO<5 { print 12,"South : " } if LINK_INFO=5 { print 12,"South : LINK" } GOTO info_END //ミサイル------------------ label M_info print 5,"[BASE ANGLE]" print 6,mis_Base_x print 7,"[DIRECTION LINK]" if mis_Base_y>110 | mis_Base_y<-110 { LINK_INFO=1 } if LINK_INFO=0 { print 8,"Back : LINK" } if LINK_INFO=1 { print 8,"Back : " } print 9,"[MISSILE INFO]" if mis_COUNT<2 { print 10,"Missile L : None" } if mis_COUNT=2 { print 10,"Missile L : Standby" } if mis_COUNT<1 { print 11,"Missile R : None" } if mis_COUNT>=1 { print 11,"Missile R : Standby" } GOTO info_END label info_END //情報表示END----------------- }