// "武雷哮" // // ※モデルを呼び出したらF8キーを1回押してください。 // // 〜マウス操作〜 // カーソル移動=砲身操作 // 左クリック=エナジーハウル&機関砲 同時発射 // 右クリック=押しっぱなしで高速連射モードON // 右ダブルクリック=機関砲単体発射 // // 〜キーボード操作〜 // W=前進 // W二度押し=ジェットブースト // S=ブレーキ // S二度押し=後退 // AD=左右旋回 // C=ロックブレーキ // E=砲塔方位固定モード ON/OFF // Q=砲塔角度固定モード AUTO/OFF/ON // X=ステアリングアシスト ON/OFF // Z=前後移動時の旋回方法切り替え // FV=機体カラーの変更 // G=ガイドラインの色を反転させる // B=ガイドライン表示/非表示 // Val { //ハイブリッドキャノン //可動部 C_DIR(default=-90,min=-1000000,disp=0) C_ANG(default=0,min=-90,max=10,disp=0) //ガイドライン GL_A(default=11,min=-360,max=360,step=0,disp=0) //第一関節(高速) CANOA101(default=180,min=-360,max=360,step=0,disp=0) CANOA102(default=180,min=-360,max=360,step=0,disp=0) CANOA103(default=180,min=-360,max=360,step=0,disp=0) CANOA104(default=180,min=-360,max=360,step=0,disp=0) CANOA105(default=180,min=-360,max=360,step=0,disp=0) CANOA106(default=180,min=-360,max=360,step=0,disp=0) CANOA107(default=180,min=-360,max=360,step=0,disp=0) CANOA108(default=180,min=-360,max=360,step=0,disp=0) CANOA109(default=180,min=-360,max=360,step=0,disp=0) CANOA110(default=180,min=-360,max=360,step=0,disp=0) //第二関節(低速) CANOA2011(default=180,min=-360,max=360,step=0,disp=0) CANOA2012(default=180,min=-360,max=360,step=0,disp=0) CANOA2013(default=180,min=-360,max=360,step=0,disp=0) CANOA2014(default=180,min=-360,max=360,step=0,disp=0) CANOA2015(default=180,min=-360,max=360,step=0,disp=0) CANOA2021(default=180,min=-360,max=360,step=0,disp=0) CANOA2022(default=180,min=-360,max=360,step=0,disp=0) CANOA2023(default=180,min=-360,max=360,step=0,disp=0) CANOA2024(default=180,min=-360,max=360,step=0,disp=0) CANOA2025(default=180,min=-360,max=360,step=0,disp=0) CANOA2031(default=180,min=-360,max=360,step=0,disp=0) CANOA2032(default=180,min=-360,max=360,step=0,disp=0) CANOA2033(default=180,min=-360,max=360,step=0,disp=0) CANOA2034(default=180,min=-360,max=360,step=0,disp=0) CANOA2035(default=180,min=-360,max=360,step=0,disp=0) CANOA2041(default=180,min=-360,max=360,step=0,disp=0) CANOA2042(default=180,min=-360,max=360,step=0,disp=0) CANOA2043(default=180,min=-360,max=360,step=0,disp=0) CANOA2044(default=180,min=-360,max=360,step=0,disp=0) CANOA2045(default=180,min=-360,max=360,step=0,disp=0) CANOA2051(default=180,min=-360,max=360,step=0,disp=0) CANOA2052(default=180,min=-360,max=360,step=0,disp=0) CANOA2053(default=180,min=-360,max=360,step=0,disp=0) CANOA2054(default=180,min=-360,max=360,step=0,disp=0) CANOA2055(default=180,min=-360,max=360,step=0,disp=0) CANOA2061(default=180,min=-360,max=360,step=0,disp=0) CANOA2062(default=180,min=-360,max=360,step=0,disp=0) CANOA2063(default=180,min=-360,max=360,step=0,disp=0) CANOA2064(default=180,min=-360,max=360,step=0,disp=0) CANOA2065(default=180,min=-360,max=360,step=0,disp=0) CANOA2071(default=180,min=-360,max=360,step=0,disp=0) CANOA2072(default=180,min=-360,max=360,step=0,disp=0) CANOA2073(default=180,min=-360,max=360,step=0,disp=0) CANOA2074(default=180,min=-360,max=360,step=0,disp=0) CANOA2075(default=180,min=-360,max=360,step=0,disp=0) CANOA2081(default=180,min=-360,max=360,step=0,disp=0) CANOA2082(default=180,min=-360,max=360,step=0,disp=0) CANOA2083(default=180,min=-360,max=360,step=0,disp=0) CANOA2084(default=180,min=-360,max=360,step=0,disp=0) CANOA2085(default=180,min=-360,max=360,step=0,disp=0) CANOA2091(default=180,min=-360,max=360,step=0,disp=0) CANOA2092(default=180,min=-360,max=360,step=0,disp=0) CANOA2093(default=180,min=-360,max=360,step=0,disp=0) CANOA2094(default=180,min=-360,max=360,step=0,disp=0) CANOA2095(default=180,min=-360,max=360,step=0,disp=0) CANOA2101(default=180,min=-360,max=360,step=0,disp=0) CANOA2102(default=180,min=-360,max=360,step=0,disp=0) CANOA2103(default=180,min=-360,max=360,step=0,disp=0) CANOA2104(default=180,min=-360,max=360,step=0,disp=0) CANOA2105(default=180,min=-360,max=360,step=0,disp=0) //トリガー CANOP2011(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2012(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2013(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2014(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2015(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2021(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2022(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2023(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2024(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2025(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2031(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2032(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2033(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2034(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2035(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2041(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2042(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2043(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2044(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2045(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2051(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2052(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2053(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2054(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2055(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2061(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2062(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2063(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2064(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2065(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2071(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2072(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2073(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2074(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2075(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2081(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2082(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2083(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2084(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2085(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2091(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2092(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2093(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2094(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2095(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2101(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2102(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2103(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2104(default=0,min=-2000000,max=2000000,step=2000000,disp=0) CANOP2105(default=0,min=-2000000,max=2000000,step=2000000,disp=0) //対反動 ARJ(default=0,min=-2000000,max=2000000,disp=0) //機関砲 ARM_ANG(default=85,min=-360,max=360,disp=0) //W CG_RLW_W(default=0000,min=-10000,max=10000,disp=0) CG_BRE_W(default=-0,min=-1000,max=1000,disp=0) C_GUN1_W(default=0,max=100000,step=100000,disp=0) C_GUN2_W(default=0,max=100000,step=100000,disp=0) C_GUN3_W(default=0,max=100000,step=100000,disp=0) C_GUN4_W(default=0,max=100000,step=100000,disp=0) //E CG_RLW_E(default=0000,min=-10000,max=10000,disp=0) CG_BRE_E(default=-0,min=-1000,max=1000,disp=0) C_GUN1_E(default=0,max=100000,step=100000,disp=0) C_GUN2_E(default=0,max=100000,step=100000,disp=0) C_GUN3_E(default=0,max=100000,step=100000,disp=0) C_GUN4_E(default=0,max=100000,step=100000,disp=0) //車輪 RLW_W(default=-0000,min=-300000,max=300000,disp=0) RLW_E(default=-0000,min=-300000,max=300000,disp=0) BRE(default=0000,min=00000,max=5000,disp=0) //中央ジェット R_JET(default=0000,min=-500000,max=500000,disp=0) //ジェット //サスペンション SPR_F(default=0.050,disp=0) DAM_F(default=0.120,disp=0) //機体カラー COLOR1(default=#797470,disp=0) //カウル以外 COLOR2(default=#797470,disp=0) //カウル COLOR3(default=#46413d,disp=0) //カウル2 COLOR4(default=#885533,disp=0) //アクセント COLOR5(default=#323238,disp=0) //ハイブリッドキャノン1 COLOR6(default=#222228,disp=0) //ハイブリッドキャノン2 //ブレードカラー BLADE_COL1(default=#000000,step=#ffffff,disp=0) BLADE_COL2(default=#000000,step=#ffffff,disp=0) BLADE_COL3(default=#000000,step=#ffffff,disp=0) BLADE_COL4(default=#000000,step=#ffffff,disp=0) } Key {} Body { //ボディ制作開始 Core(){ //コア----------------WEIGHT CHIP FRAME COWL TRIM RUDDER JET ARM RLW S:WEIGHT(name=CORE2,angle=0,option=3,color=#333333){ //ガイドライン S:COWL(angle=169,Option=0,color=COLOR2,Effect=#ffff){ S:COWL(name=GL_S,angle=GL_A,Option=0,color=COLOR2,Effect=#ffff){ }} //カウル S:COWL(angle=-150,Option=1,color=COLOR2,Effect=#ffff){ S:COWL(angle=-120,Option=0,color=#111111,Effect=#0000){ //砲身 N:COWL(angle=-105,Option=0,Effect=#ffff){ N:COWL(angle=-164,Option=0,Effect=#0f00,color=BLADE_COL4){ N:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL3){ N:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL2){ //補強カバー N:COWL(angle=-11,Option=0,Effect=#ffff,color=#222222){ N:COWL(angle=-169,Option=0,Effect=#0000,color=COLOR5){ N:COWL(angle=-0,Option=0,Effect=#0000,color=COLOR5){ N:COWL(angle=-0,Option=0,Effect=#0000,color=COLOR5){ }}} N:COWL(angle=146,Option=0,Effect=#ffff,color=COLOR2){ N:COWL(angle=41,Option=0,Effect=#ffff,color=COLOR2){ N:COWL(angle=-175.5,Option=0,Effect=#ffff,color=COLOR2){ N:COWL(angle=-136.5,Option=0,Effect=#ffff,color=COLOR2){ W:COWL(angle=-90,Option=3,Effect=#0000,color=COLOR5){} E:COWL(angle=-90,Option=4,Effect=#0000,color=COLOR5){} S:COWL(angle=-136,Option=0,Effect=#0000,color=COLOR5){ S:COWL(angle=-0,Option=0,Effect=#0000,color=COLOR5){ S:COWL(angle=-0,Option=0,Effect=#0000,color=COLOR5){ }}} }}} W:COWL(angle=90,Option=3,Effect=#0000,color=COLOR5){} E:COWL(angle=90,Option=4,Effect=#0000,color=COLOR5){} N:COWL(angle=90,Option=0,Effect=#ffff,color=COLOR2){ N:COWL(angle=-90,Option=0,Effect=#ffff,color=COLOR2){ W:COWL(angle=90,Option=3,Effect=#0000,color=COLOR5){} E:COWL(angle=90,Option=4,Effect=#0000,color=COLOR5){} }}}} N:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL1){ //内部 N:COWL(angle=-178.5,Option=1,color=COLOR2,Effect=#ffff){ N:COWL(angle=178.5,Option=0,color=COLOR6,Effect=#0000){ S:COWL(angle=0,Option=0,color=COLOR6,Effect=#0000){ S:COWL(angle=0,Option=0,color=COLOR6,Effect=#0000){ }}}} }}}}} S:COWL(angle=-105,Option=0,Effect=#ffff){ S:COWL(angle=-164,Option=0,Effect=#0f00,color=BLADE_COL4){ S:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL3){ S:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL2){ S:COWL(angle=0,Option=0,Effect=#0f00,color=BLADE_COL1){ //内部 S:COWL(angle=-178.5,Option=1,color=COLOR2,Effect=#ffff){ S:COWL(angle=178.5,Option=0,color=COLOR6,Effect=#0000){ N:COWL(angle=0,Option=0,color=COLOR6,Effect=#0000){ N:COWL(angle=0,Option=0,color=COLOR6,Effect=#0000){ }}}} }}}}} //砲塔 W:COWL(angle=90,Option=4,color=COLOR2,Effect=#0000){} E:COWL(angle=90,Option=3,color=COLOR2,Effect=#0000){} N:COWL(angle=-90,Option=0,color=COLOR2,Effect=#0000){ W:COWL(angle=-89,Option=0,color=COLOR2,Effect=#0000){} E:COWL(angle=-89,Option=0,color=COLOR2,Effect=#0000){} N:COWL(angle=-94,Option=0,color=#111111,Effect=#0000){} N:COWL(angle=-30,Option=0,color=COLOR2,Effect=#0000){ W:COWL(angle=-90,Option=4,color=COLOR2,Effect=#0000){} E:COWL(angle=-90,Option=3,color=COLOR2,Effect=#0000){} }} }} S:WEIGHT(angle=90,option=3,color=#111111){ //側面装甲&機関砲 W:WEIGHT(angle=85,option=3,color=COLOR1){ W:RLW(name=F_GUN_E,angle=-ARM_ANG,effect=6,power=CG_RLW_E,brake=CG_BRE_E,color=#444444){ N:COWL(angle=180,Option=0,Effect=#0000,color=#111111){} N:ARM(NAME=CG1_E,angle=90,Option=25000,POWER=C_GUN1_E,color=COLOR1){} W:ARM(NAME=CG2_E,angle=90,Option=25000,POWER=C_GUN2_E,color=COLOR1){} S:ARM(NAME=CG3_E,angle=90,Option=25000,POWER=C_GUN3_E,color=COLOR1){} E:ARM(NAME=CG4_E,angle=90,Option=25000,POWER=C_GUN4_E,color=COLOR1){} } W:FRAME(angle=-85,Option=1,Effect=#ffff,color=COLOR2){ W:COWL(angle=-90,Option=0,Effect=#0000,color=COLOR2){ N:COWL(angle=-90,Option=3,Effect=#0000,color=COLOR2){} S:COWL(angle=-90,Option=4,Effect=#0000,color=COLOR2){} W:COWL(angle=-135,Option=5,Effect=#0000,color=COLOR2){ }}} W:WEIGHT(angle=05,option=3,color=COLOR4){}} E:WEIGHT(angle=85,option=3,color=COLOR1){ E:RLW(name=F_GUN_W,angle=-ARM_ANG,effect=6,power=CG_RLW_W,brake=CG_BRE_W,color=#444444){ N:COWL(angle=180,Option=0,Effect=#0000,color=#111111){} N:ARM(NAME=CG1_W,angle=90,Option=25000,POWER=C_GUN1_W,color=COLOR1){} W:ARM(NAME=CG2_W,angle=90,Option=25000,POWER=C_GUN2_W,color=COLOR1){} S:ARM(NAME=CG3_W,angle=90,Option=25000,POWER=C_GUN3_W,color=COLOR1){} E:ARM(NAME=CG4_W,angle=90,Option=25000,POWER=C_GUN4_W,color=COLOR1){} } E:FRAME(angle=-85,Option=1,Effect=#ffff,color=COLOR2){ E:COWL(angle=-90,Option=0,Effect=#0000,color=COLOR2){ N:COWL(angle=-90,Option=4,Effect=#0000,color=COLOR2){} S:COWL(angle=-90,Option=3,Effect=#0000,color=COLOR2){} E:COWL(angle=-135,Option=5,Effect=#0000,color=COLOR2){ }}} E:WEIGHT(angle=05,option=3,color=COLOR4){}} //砲塔正面 S:WEIGHT(angle=90,option=3,color=#333333){ S:WEIGHT(angle=135,option=3,color=#333333){}} //対反動ジェット S:JET(angle=-180, power=ARJ, option=0, effect=0, color=COLOR_03){} //カウル W:COWL(angle=-120,Option=3,Effect=#0000,color=COLOR3){} E:COWL(angle=-120,Option=4,Effect=#0000,color=COLOR3){} //中央支柱 S:WEIGHT(angle=C_ANG,option=3,color=#333333){ //ジョイント //ダミーウエイト W:COWL(angle= 120,option=0,Effect=#0000,color=#111111){} E:COWL(angle= 120,option=0,Effect=#0000,color=#111111){ E:COWL(angle= 150,option=0,Effect=#0000,color=#111111){}} //センサー S:COWL(name=CORE4,angle=90,Option=0,Effect=#ffff,color=COLOR2){} //CORE4 S:COWL(name=CORE5,angle=-90,Option=0,Effect=#ffff,color=COLOR2){} //CORE5 W:WEIGHT(angle=-120,option=3,color=#333333){ //上部側面装甲 N:WEIGHT(angle=90,option=3,color=#333333){ N:WEIGHT(angle=-90,option=3,color=COLOR1){ //アンテナ W:COWL(angle=-150,Option=0,color=COLOR6,Effect=#0000){ N:COWL(angle=-7,Option=3,color=COLOR2,Effect=#0000){} W:COWL(angle=45,Option=0,color=COLOR6,Effect=#0000){ }} E:WEIGHT(angle=-65,option=3,color=COLOR1){ //E:WEIGHT(angle=30,option=3,color=COLOR1){} }} } } E:WEIGHT(angle=-120,option=3,color=#333333){ //上部側面装甲 N:WEIGHT(angle=90,option=3,color=#333333){ N:WEIGHT(angle=-90,option=3,color=COLOR1){ //アンテナ E:COWL(angle=-150,Option=0,color=COLOR6,Effect=#0000){ N:COWL(angle=-7,Option=4,color=COLOR2,Effect=#0000){} E:COWL(angle=45,Option=0,color=COLOR6,Effect=#0000){ }} W:WEIGHT(angle=-65,option=3,color=COLOR1){ //W:WEIGHT(angle=30,option=3,color=COLOR1){} }} } //車体----------------WEIGHT CHIP FRAME COWL TRIM RUDDER JET ARM RLW E:WEIGHT(angle=-150,option=6,color=#333333){ //上下結合部 N:WEIGHT(angle=-000,option=5,color=#333333){} //排熱口防護坂 E:WEIGHT(name=CORE6,angle=C_DIR,option=6,color=#333333){ //CORE6 N:COWL(name=CORE3,angle=-90,Option=0,Effect=#ffff,color=COLOR2){} //CORE3 S:JET(angle=-180,POWER=R_JET,color=#333333){} //ジェット //前部装甲 W:WEIGHT(angle= 090,option=6,color=#333333){ W:WEIGHT(angle=-120,option=5,color=COLOR1){} W:WEIGHT(angle= 120,option=5,color=COLOR1){}} //後部装甲 E:WEIGHT(angle=-108,option=5,color=COLOR1){} E:WEIGHT(angle=0,option=6,color=#333333){ N:WEIGHT(angle=140,option=3,color=#333333){ //前 N:WEIGHT(angle=130,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=0,option=4,color=#333333){ S:WEIGHT(angle=0,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } }} //後 N:WEIGHT(angle=0,option=4,color=#333333){ N:WEIGHT(angle=0,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_E,brake=BRE,option=1,effect=2.7,color=#333333){} } } }}} } //側面装甲 E:WEIGHT(angle= 90,option=4,color=COLOR4){ E:WEIGHT(angle= 00,option=4,color=COLOR1){}} E:WEIGHT(angle=-90,option=4,color=COLOR1){ E:WEIGHT(angle= 00,option=4,color=COLOR1){}} } W:WEIGHT(angle=0,option=6,color=#333333){ S:JET(angle=-180,POWER=R_JET,color=#333333){} //ジェット W:WEIGHT(angle=0,option=6,color=#333333){ N:WEIGHT(angle=140,option=3,color=#333333){ //前 N:WEIGHT(angle=130,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=0,option=4,color=#333333){ S:WEIGHT(angle=0,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } }} //後 N:WEIGHT(angle=0,option=4,color=#333333){ N:WEIGHT(angle=0,option=4,color=#333333){ //ホイールボックス S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ W:WEIGHT(angle=105,option=3,color=COLOR1){ W:RLW(angle=165,power=RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } S:WEIGHT(angle=130,spring=SPR_F,damper=DAM_F,option=3,color=COLOR1){ E:WEIGHT(angle=105,option=3,color=COLOR1){ E:RLW(angle=165,power=-RLW_W,brake=BRE,option=1,effect=2.7,color=#333333){} } } }}} } //側面装甲 W:WEIGHT(angle= 90,option=4,color=COLOR4){ W:WEIGHT(angle= 00,option=4,color=COLOR1){}} W:WEIGHT(angle=-90,option=4,color=COLOR1){ W:WEIGHT(angle= 00,option=4,color=COLOR1){}} } //後部装甲 W:WEIGHT(angle=-108,option=5,color=COLOR1){} }} } } } //ハイブリッドキャノン----------------WEIGHT CHIP FRAME COWL TRIM RUDDER JET ARM RLW S:WEIGHT(angle=180,color=#111111){ N:ARM(angle=-CANOA101,color=#111111){ N:ARM(NAME=CANON2011,angle=CANOA2011,Option=800000,POWER=CANOP2011,color=#111111){} N:ARM(NAME=CANON2012,angle=CANOA2012,Option=800000,POWER=CANOP2012,color=#111111){} N:ARM(NAME=CANON2013,angle=CANOA2013,Option=800000,POWER=CANOP2013,color=#111111){} N:ARM(NAME=CANON2014,angle=CANOA2014,Option=800000,POWER=CANOP2014,color=#111111){} N:ARM(NAME=CANON2015,angle=CANOA2015,Option=800000,POWER=CANOP2015,color=#111111){} } N:ARM(angle=-CANOA102,color=#111111){ N:ARM(NAME=CANON2021,angle=CANOA2021,Option=800000,POWER=CANOP2021,color=#111111){} N:ARM(NAME=CANON2022,angle=CANOA2022,Option=800000,POWER=CANOP2022,color=#111111){} N:ARM(NAME=CANON2023,angle=CANOA2023,Option=800000,POWER=CANOP2023,color=#111111){} N:ARM(NAME=CANON2024,angle=CANOA2024,Option=800000,POWER=CANOP2024,color=#111111){} N:ARM(NAME=CANON2025,angle=CANOA2025,Option=800000,POWER=CANOP2025,color=#111111){} } N:ARM(angle=-CANOA103,color=#111111){ N:ARM(NAME=CANON2031,angle=CANOA2031,Option=800000,POWER=CANOP2031,color=#111111){} N:ARM(NAME=CANON2032,angle=CANOA2032,Option=800000,POWER=CANOP2032,color=#111111){} N:ARM(NAME=CANON2033,angle=CANOA2033,Option=800000,POWER=CANOP2033,color=#111111){} N:ARM(NAME=CANON2034,angle=CANOA2034,Option=800000,POWER=CANOP2034,color=#111111){} N:ARM(NAME=CANON2035,angle=CANOA2035,Option=800000,POWER=CANOP2035,color=#111111){} } N:ARM(angle=-CANOA104,color=#111111){ N:ARM(NAME=CANON2041,angle=CANOA2041,Option=800000,POWER=CANOP2041,color=#111111){} N:ARM(NAME=CANON2042,angle=CANOA2042,Option=800000,POWER=CANOP2042,color=#111111){} N:ARM(NAME=CANON2043,angle=CANOA2043,Option=800000,POWER=CANOP2043,color=#111111){} N:ARM(NAME=CANON2044,angle=CANOA2044,Option=800000,POWER=CANOP2044,color=#111111){} N:ARM(NAME=CANON2045,angle=CANOA2045,Option=800000,POWER=CANOP2045,color=#111111){} } N:ARM(angle=-CANOA105,color=#111111){ N:ARM(NAME=CANON2051,angle=CANOA2051,Option=800000,POWER=CANOP2051,color=#111111){} N:ARM(NAME=CANON2052,angle=CANOA2052,Option=800000,POWER=CANOP2052,color=#111111){} N:ARM(NAME=CANON2053,angle=CANOA2053,Option=800000,POWER=CANOP2053,color=#111111){} N:ARM(NAME=CANON2054,angle=CANOA2054,Option=800000,POWER=CANOP2054,color=#111111){} N:ARM(NAME=CANON2055,angle=CANOA2055,Option=800000,POWER=CANOP2055,color=#111111){} } } S:WEIGHT(angle=180,color=#111111){ N:ARM(angle=-CANOA106,color=#111111){ N:ARM(NAME=CANON2061,angle=CANOA2061,Option=800000,POWER=CANOP2061,color=#111111){} N:ARM(NAME=CANON2062,angle=CANOA2062,Option=800000,POWER=CANOP2062,color=#111111){} N:ARM(NAME=CANON2063,angle=CANOA2063,Option=800000,POWER=CANOP2063,color=#111111){} N:ARM(NAME=CANON2064,angle=CANOA2064,Option=800000,POWER=CANOP2064,color=#111111){} N:ARM(NAME=CANON2065,angle=CANOA2065,Option=800000,POWER=CANOP2065,color=#111111){} } N:ARM(angle=-CANOA107,color=#111111){ N:ARM(NAME=CANON2071,angle=CANOA2071,Option=800000,POWER=CANOP2071,color=#111111){} N:ARM(NAME=CANON2072,angle=CANOA2072,Option=800000,POWER=CANOP2072,color=#111111){} N:ARM(NAME=CANON2073,angle=CANOA2073,Option=800000,POWER=CANOP2073,color=#111111){} N:ARM(NAME=CANON2074,angle=CANOA2074,Option=800000,POWER=CANOP2074,color=#111111){} N:ARM(NAME=CANON2075,angle=CANOA2075,Option=800000,POWER=CANOP2075,color=#111111){} } N:ARM(angle=-CANOA108,color=#111111){ N:ARM(NAME=CANON2081,angle=CANOA2081,Option=800000,POWER=CANOP2081,color=#111111){} N:ARM(NAME=CANON2082,angle=CANOA2082,Option=800000,POWER=CANOP2082,color=#111111){} N:ARM(NAME=CANON2083,angle=CANOA2083,Option=800000,POWER=CANOP2083,color=#111111){} N:ARM(NAME=CANON2084,angle=CANOA2084,Option=800000,POWER=CANOP2084,color=#111111){} N:ARM(NAME=CANON2085,angle=CANOA2085,Option=800000,POWER=CANOP2085,color=#111111){} } N:ARM(angle=-CANOA109,color=#111111){ N:ARM(NAME=CANON2091,angle=CANOA2091,Option=800000,POWER=CANOP2091,color=#111111){} N:ARM(NAME=CANON2092,angle=CANOA2092,Option=800000,POWER=CANOP2092,color=#111111){} N:ARM(NAME=CANON2093,angle=CANOA2093,Option=800000,POWER=CANOP2093,color=#111111){} N:ARM(NAME=CANON2094,angle=CANOA2094,Option=800000,POWER=CANOP2094,color=#111111){} N:ARM(NAME=CANON2095,angle=CANOA2095,Option=800000,POWER=CANOP2095,color=#111111){} } N:ARM(angle=-CANOA110,color=#111111){ N:ARM(NAME=CANON2101,angle=CANOA2101,Option=800000,POWER=CANOP2101,color=#111111){} N:ARM(NAME=CANON2102,angle=CANOA2102,Option=800000,POWER=CANOP2102,color=#111111){} N:ARM(NAME=CANON2103,angle=CANOA2103,Option=800000,POWER=CANOP2103,color=#111111){} N:ARM(NAME=CANON2104,angle=CANOA2104,Option=800000,POWER=CANOP2104,color=#111111){} N:ARM(NAME=CANON2105,angle=CANOA2105,Option=800000,POWER=CANOP2105,color=#111111){} } } }} } //コアここまで----------------WEIGHT CHIP FRAME COWL TRIM RUDDER JET ARM RLW } //ボディ制作終了 LUA { --初期設定---------------- --前後移動時の旋回方法(直接=0 追従=1) MT_S=0 --機体の初期カラー(1-7) BODY_COLOR=1 --ガイドラインの色 --カラー1 --明 COL_R1L=255 --赤 COL_G1L=30 --緑 COL_B1L=30 --青 --暗 COL_R1D=140 --赤 COL_G1D=15 --緑 COL_B1D=15 --青 --カラー2 --明 COL_R2L=0 --赤 COL_G2L=255 --緑 COL_B2L=196 --青 --暗 COL_R2D=0 --赤 COL_G2D=170 --緑 COL_B2D=128 --青 --モーション変数設定---------------- --{現在値,指定値,モードスイッチ,指定値との距離,指定移動量} --砲台 C_dir={C_DIR,C_DIR,0,0,15} C_dir2={0,0,0,0,8} C_ang={C_ANG,C_ANG,0,0,10} --アーム for LOOP1=01,10 do --第一関節(高速) _G["Canoa"..100+LOOP1]={_G["CANOA"..100+LOOP1],_G["CANOA"..100+LOOP1],0,0,360} --第二関節(低速) for LOOP2=01,5 do _G["Canoa"..2000+LOOP1*10+LOOP2]={_G["CANOA"..2000+LOOP1*10+LOOP2],_G["CANOA"..2000+LOOP1*10+LOOP2],0,0,15} end end --変数設定------------------------ POW_LV={35} POW_LV[0]=0 level=0 ENG_RATE=0 AXEL=0 T_AXEL=0 B_AXEL=0 BRE_a=0 BRE_b=0 BRE_c=0 count=0 WY_AVE={0,0,0,0} AX_AVE={0,0,0,0,0,0} COMMAND_MEMORY={0,0,0,0,0,0} COMMAND_MEMORY[0],boost=0,0 COMMAND_MEMORY2={0,0,0,0,0,0} COMMAND_MEMORY2[0],back=0,0 pX,pY,pZ={0,0},{0,0},{0,0} --グラデーションデータ --1 COL_RG1=math.max(COL_R1L,COL_R1D)-math.min(COL_R1L,COL_R1D) COL_GG1=math.max(COL_G1L,COL_G1D)-math.min(COL_G1L,COL_G1D) COL_BG1=math.max(COL_B1L,COL_B1D)-math.min(COL_B1L,COL_B1D) --2 COL_RG2=math.max(COL_R2L,COL_R2D)-math.min(COL_R2L,COL_R2D) COL_GG2=math.max(COL_G2L,COL_G2D)-math.min(COL_G2L,COL_G2D) COL_BG2=math.max(COL_B2L,COL_B2D)-math.min(COL_B2L,COL_B2D) --メイン--------------------------- function main() --コア分離 dummy=_SPLIT(CORE2) --各種制御 Direction_ABS() Direction_keep() Angle_keep() MOUSE_CONTROL() FIRE_CONTROL1() FIRE_CONTROL2() MOTION_CONTROL() CHANGE_COLOR() BLADE_GRADATION() --駆動制御 RLW_W,RLW_E=0,0 count=count+1 --方位基準変更 if (MT_S==1 and _KEY(15)==0 and back==0 and (_KEYUP(7)==1 or _KEYUP(9)==1)) or (MT_S==0 and (_KEYUP(7)==1 or _KEYUP(9)==1)) or _KEYDOWN(15)==1 then Direction_Y=_AY(CORE3) end --ステアリングアシスト if _KEYDOWN(5)==1 then if SA==1 then SA=0 Direction_Y=_AY(CORE3) else SA=1 charge_pow=0 end end if SA==0 then STEERING_ASSIST() end --前進判定 AXEL=0 if _KEY(15)==1 then AXEL=1 end --後退判定 ALL_MEMORYS=0 COMMAND_MEMORY2[0]=_KEYDOWN(8) for LOOP=1,5 do ALL_MEMORYS=ALL_MEMORYS+COMMAND_MEMORY2[LOOP] end if ALL_MEMORYS>=2 or (_KEY(8)==1 and back==1) then COMMAND_MEMORY2={0,0,0,0,0} back=1 AXEL=-1 else COMMAND_MEMORY2={COMMAND_MEMORY2[0],COMMAND_MEMORY2[1],COMMAND_MEMORY2[2],COMMAND_MEMORY2[3],COMMAND_MEMORY2[4]} back=0 end --前後移動 --進行時の旋回方式切り替え if _KEYDOWN(4)==1 then if MT_S==1 then MT_S=0 else MT_S=1 end end --方位修正による出力制限 Dir_ABS_Y3=math.abs(Dir_ABS_Y)*8 if Dir_ABS_Y3>1 then Dir_ABS_Y3=1 end Dir_ABS_Y3=1-Dir_ABS_Y3 if SA==1 then Dir_ABS_Y3=1 end base_pow=100000 speed_x=math.abs(_VY(CORE6)/POW_LV[1]) if speed_x>1 then speed_x=1 end Power=base_pow*math.cos(_VY(CORE6)/POW_LV[1])*math.cos(speed_x*1.57) if Power<000 then Power=000 end Power=Power*Dir_ABS_Y3*AXEL if math.abs(_VY(CORE6))>=POW_LV[1] then Power=0 end --出力加算 RLW_W=RLW_W+Power RLW_E=RLW_E+Power --旋回 turn_pow=60000 --速度制限 if Spi_WY>5 and _KEY(9)==0 then turn_pow=-40000*(Spi_WY-4) end if Spi_WY<-5 and _KEY(7)==0 then turn_pow=40000*(Spi_WY+4) end if _KEY(7)+_KEY(9)==1 then T_AXEL=T_AXEL+0.1 else T_AXEL=0 end if T_AXEL>1 then T_AXEL=1 elseif T_AXEL<0 then T_AXEL=0 end if _KEY(15)==1 or back==1 then --前後移動時 if MT_S==0 then --直接式 if _KEY(7)==1 then RLW_E=RLW_E+turn_pow*T_AXEL end if _KEY(9)==1 then RLW_W=RLW_W+turn_pow*T_AXEL end else --追従式 if _KEY(7)==1 then Direction_Y=Direction_Y-0.0628 end if _KEY(9)==1 then Direction_Y=Direction_Y+0.0628 end --ループ処理 if Direction_Y>3.14 then Direction_Y=Direction_Y-6.28 end if Direction_Y<-3.14 then Direction_Y=Direction_Y+6.28 end end else --停止時 if _KEY(7)==1 then RLW_W=RLW_W-turn_pow*T_AXEL RLW_E=RLW_E+turn_pow*T_AXEL end if _KEY(9)==1 then RLW_W=RLW_W+turn_pow*T_AXEL RLW_E=RLW_E-turn_pow*T_AXEL end end --ブレーキ --ブレーキ if _KEY(8)==1 and back==0 then BRE=BRE+50 end if _KEYUP(8)==1 or back==1 then BRE=0 end --ロックブレーキ if _KEYDOWN(6)==1 then if R_BRE==1 then --OFF R_BRE=0 BRE=0 else --ON R_BRE=1 Direction_Y=_AY(CORE3) end end if R_BRE==1 and back+_KEY(7)+_KEY(9)+_KEY(15)>=1 then R_BRE=0 BRE=0 end if R_BRE==1 then BRE=5000 end --ジェットブースト R_JET=0 ALL_MEMORYS=0 COMMAND_MEMORY[0]=_KEYDOWN(15) for LOOP=1,5 do ALL_MEMORYS=ALL_MEMORYS+COMMAND_MEMORY[LOOP] end if ALL_MEMORYS>=2 or (_KEY(15)==1 and boost==1) then R_JET=300000 COMMAND_MEMORY={0,0,0,0,0} boost,B_fix=1,0 else COMMAND_MEMORY={COMMAND_MEMORY[0],COMMAND_MEMORY[1],COMMAND_MEMORY[2],COMMAND_MEMORY[3],COMMAND_MEMORY[4]} boost=0 end --情報 out(0,"武雷哮") if _TICKS()<160 then out(1,"Energy howl : Wait...",160-_TICKS()) else out(1,"Energy howl : Ready") end out(2," | Shell : ",Ammo_number_L) out(3," | Top charge : ",top_charge*100) if kds==0 then out(4," | Keep direction : ON") else out(4," | Keep direction : OFF") end if kas==0 then if Ak_sw==0 then out(5," | keep angle : AUTO-ON") else out(5," | keep angle : AUTO-OFF") end elseif kas==1 then out(5," | keep angle : OFF") else out(5," | keep angle : ON") end out(6,"Color : "..BODY_COLOR,".",COL_name) if MT_S==0 then out(7,"Moving turn : Direct") else out(7,"Moving turn : Trace") end --速度算出 pX,pY,pZ={pX[2],_X(CORE3)},{pY[2],_Y(CORE3)},{pZ[2],_Z(CORE3)} pX[0],pY[0],pZ[0]=pX[1]-pX[2],pY[1]-pY[2],pZ[1]-pZ[2] new_Speed=math.sqrt(pX[0]*pX[0]+pY[0]*pY[0]+pZ[0]*pZ[0])*100 out(8,"Speed : ",new_Speed) if _MR()==1 then if MG_shooting==1 then out(10,"<>") else out(10,"<>") end end if boost==1 then out(11,"<>") end if _KEY(8)==1 then out(11,"<>") end if back==1 then out(11,"<>") end if R_BRE==1 then out(11,"<>") end if SA==1 then out(12,"<>") end if _TICKS()<150 then out(13,"<>") end --ガイドライン if _KEYDOWN(11)==1 then if GLW==1 then GLW=0 else GLW=1 end end if GLW==0 then G_line() end end --火器制御1-[ハイブリッドキャノン]---------------------------------------------- FIRE_ORDER_Hy={2011,2021,2031,2041,2051,2061,2071,2081,2091,2101} FIRE_ORDER_No={1,1,1,1,1,1,1,1,1,1} Safety_int ={0,0,0,0,0,0,0,0,0,0} FIRE_ORDER_H,FIRE_ORDER_L=1,1 Int_lim,F_speed=2,0 function FIRE_CONTROL1() --変数初期化 Ammo_number_L,ARJ,top_charge=0,0,0 --低速切り替え --アーム探査 for LOOP1=01,10 do --発射アーム探査 for LOOP2=FIRE_ORDER_No[LOOP1],05 do if _TOP(_G["CANON"..2000+LOOP1*10+LOOP2])>=0 and _TOP(_G["CANON"..2000+LOOP1*10+LOOP2])<=1 and _OPTION(_G["CANON"..2000+LOOP1*10+LOOP2])==_E(_G["CANON"..2000+LOOP1*10+LOOP2]) then FIRE_ORDER_Hy[LOOP1]=2000+LOOP1*10+LOOP2 FIRE_ORDER_No[LOOP1]=LOOP2 break end if LOOP2==5 then FIRE_ORDER_No[LOOP1]=1 FIRE_ORDER_Hy[LOOP1]=-1 end end --残存アームカウント for LOOP2=01,05 do --残弾数 if _TOP(_G["CANON"..2000+LOOP1*10+LOOP2])>=0 and _TOP(_G["CANON"..2000+LOOP1*10+LOOP2])<=1 and _OPTION(_G["CANON"..2000+LOOP1*10+LOOP2])==_E(_G["CANON"..2000+LOOP1*10+LOOP2]) then Ammo_number_L=Ammo_number_L+1 end --トップチャージ1 if _E(_G["CANON"..2000+LOOP1*10+LOOP2])~=_OPTION(_G["CANON"..2011]) then top_charge=math.max(top_charge,_E(_G["CANON"..2000+LOOP1*10+LOOP2])) end end end --トップチャージ2 top_charge=top_charge/_OPTION(_G["CANON"..2011]) if top_charge==0 then top_charge=1 end --角度初期化 for LOOP1=01,10 do for LOOP2=01,05 do _G["Canoa"..2000+LOOP1*10+LOOP2][2]=180 _G["Canoa"..2000+LOOP1*10+LOOP2][3]=2 _G["Canoa"..2000+LOOP1*10+LOOP2][5]=15 end end --発射アーム処理 for LOOP1=01,10 do if FIRE_ORDER_Hy[LOOP1]~=-1 then --角度移動 _G["Canoa"..FIRE_ORDER_Hy[LOOP1]][2]=90 _G["Canoa"..FIRE_ORDER_Hy[LOOP1]][3]=2 _G["Canoa"..FIRE_ORDER_Hy[LOOP1]][5]=15 --余剰間隔 if _G["Canoa"..FIRE_ORDER_Hy[LOOP1]][1]~=90 and Safety_int[LOOP1]0 then --低速 _G["Canoa"..FIRE_ORDER_Hy[FIRE_ORDER_H]][2]=55 _G["Canoa"..FIRE_ORDER_Hy[FIRE_ORDER_H]][3]=2 _G["Canoa"..FIRE_ORDER_Hy[FIRE_ORDER_H]][5]=360 --高速 _G["Canoa"..100+FIRE_ORDER_H][2]=145 _G["Canoa"..100+FIRE_ORDER_H][3]=2 _G["Canoa"..100+FIRE_ORDER_H][5]=360 end end --火器制御2-[機関砲]-------------------------------- MR_switch={0,0} COMMAND_MEMORY_MR={0,0,0,0,0,0} COMMAND_MEMORY_MR[0],MG_shooting=0,0 function FIRE_CONTROL2() --1フレームクリック・右 MR_switch={_MR(),MR_switch[1]} MR_switch[0]=MR_switch[1] if MR_switch[1]==1 and MR_switch[2]==1 then MR_switch[0]=0 end --機銃発射トリガー ALL_MEMORYS_MR=0 COMMAND_MEMORY_MR[0]=MR_switch[0] for LOOP=1,6 do ALL_MEMORYS_MR=ALL_MEMORYS_MR+COMMAND_MEMORY_MR[LOOP] end if ALL_MEMORYS_MR>=2 or (_MR()==1 and MG_shooting==1) then COMMAND_MEMORY_MR={0,0,0,0,0,0} MG_shooting=1 else COMMAND_MEMORY_MR={COMMAND_MEMORY_MR[0],COMMAND_MEMORY_MR[1],COMMAND_MEMORY_MR[2],COMMAND_MEMORY_MR[3],COMMAND_MEMORY_MR[4],COMMAND_MEMORY_MR[5]} MG_shooting=0 end --散弾設定 ARM_ANG=84.95 if _ML()+MG_shooting>0 then ARM_ANG=ARM_ANG-math.abs(math.sin(_TICKS()*0.1))*1 end --W --被弾対処 CG_con1_W,CG_con2_W,CG_con3_W,CG_con4_W,CG_con5_W,CG_BRE_W=0,0,0,0,0,0 for LOOP=1,4 do if _PARENT(_G["CG"..LOOP.."_W"])~=-1 then _G["CG_con"..LOOP.."_W"]=1 end end CG_con5_W=CG_con1_W+CG_con2_W+CG_con3_W+CG_con4_W CG_RLW_W=2000*CG_con5_W--*_MR() --射撃判定 if _ML()+MG_shooting>0 then if (_RZ(CORE2,CG1_W)>-1.57 and _RZ(CORE2,CG1_W)<0) and CG_con1_W==1 then C_GUN1_W=1000000 elseif (_RZ(CORE2,CG2_W)>-1.57 and _RZ(CORE2,CG2_W)<0) and CG_con2_W==1 then C_GUN2_W=1000000 elseif (_RZ(CORE2,CG3_W)>-1.57 and _RZ(CORE2,CG3_W)<0) and CG_con3_W==1 then C_GUN3_W=1000000 elseif (_RZ(CORE2,CG4_W)>-1.57 and _RZ(CORE2,CG4_W)<0) and CG_con4_W==1 then C_GUN4_W=1000000 end end --E --被弾対処 CG_con1_E,CG_con2_E,CG_con3_E,CG_con4_E,CG_con5_E,CG_BRE_E=0,0,0,0,0,0 for LOOP=1,4 do if _PARENT(_G["CG"..LOOP.."_E"])~=-1 then _G["CG_con"..LOOP.."_E"]=1 end end CG_con5_E=CG_con1_E+CG_con2_E+CG_con3_E+CG_con4_E CG_RLW_E=-2000*CG_con5_E--*_MR() if CG_con5_E==0 then CG_BRE_E=100 end --射撃判定 if _ML()+MG_shooting>0 then if (_RZ(CORE2,CG1_E)>0 and _RZ(CORE2,CG1_E)<1.57) and CG_con1_E==1 then C_GUN1_E=1000000 elseif (_RZ(CORE2,CG2_E)>0 and _RZ(CORE2,CG2_E)<1.57) and CG_con2_E==1 then C_GUN2_E=1000000 elseif (_RZ(CORE2,CG3_E)>0 and _RZ(CORE2,CG3_E)<1.57) and CG_con3_E==1 then C_GUN3_E=1000000 elseif (_RZ(CORE2,CG4_E)>0 and _RZ(CORE2,CG4_E)<1.57) and CG_con4_E==1 then C_GUN4_E=1000000 end end --out(20,_RZ(CORE2,CG1_E)) end --モーション制御 1.01-------------------------------- function MOTION_CONTROL() --砲台 --角度 if C_ang[3]>0 and C_ang[3]<=2 then broker=C_ang MCF() C_ang=broker C_ANG=C_ang[1] end --方位 if C_dir[3]>0 and C_dir[3]<=2 then broker=C_dir MCF() C_dir=broker C_DIR=C_dir[1] end if C_dir2[3]>0 and C_dir2[3]<=2 then broker=C_dir2 MCF() C_dir2=broker end --アーム for LOOP1=01,10 do --第一関節(高速) if _G["Canoa"..100+LOOP1][3]>0 and _G["Canoa"..100+LOOP1][3]<=2 then broker=_G["Canoa"..100+LOOP1] MCF() _G["Canoa"..100+LOOP1]=broker _G["CANOA"..100+LOOP1]=_G["Canoa"..100+LOOP1][1] end for LOOP2=01,5 do --第二関節(低速) if _G["Canoa"..2000+LOOP1*10+LOOP2][3]>0 and _G["Canoa"..2000+LOOP1*10+LOOP2][3]<=2 and FIRE_ORDER_Hy[LOOP1]~=0 then broker=_G["Canoa"..2000+LOOP1*10+LOOP2] MCF() _G["Canoa"..2000+LOOP1*10+LOOP2]=broker _G["CANOA"..2000+LOOP1*10+LOOP2]=_G["Canoa"..2000+LOOP1*10+LOOP2][1] end end end end function MCF() --総移動角 if broker[3]==2 and broker[1]~=0 and broker[2]==0 then broker[2]=-broker[1] --現在値から指定値(0) elseif broker[3]==2 then broker[2]=broker[2]-broker[1] end --現在値から指定値 --1フレームごとの移動角 if broker[3]==2 then broker[4]=broker[5] end --指定移動角入力 --符号切り替え判定 if broker[3]==2 and broker[2]<0 then broker[4]=-broker[4] end broker[3]=1 --最終移動 if (broker[2]<=broker[4] and broker[2]>=0) -- + or (broker[2]>=broker[4] and broker[2]<=0) then -- - pomp,broker[2],broker[3],broker[4]=broker[2],0,0,0 --移動 else pomp=broker[4] broker[2]=broker[2]-broker[4] end broker[1]=broker[1]+pomp end --ステアリングアシスト--------------------------------- Dir_memo={0,0} SA=0 Lim=0 charge_pow=0 CP_S=0 CP_S2=0 CP_AVE={0,0,0,0,0} function STEERING_ASSIST() if (_KEY(7)==0 and _KEY(9)==0) or (MT_S==1 and (_KEY(15)==1 or back==1) and (_KEY(7)==1 or _KEY(9)==1)) then --蓄積型出力 --Spi_WY平均化 CP_AVE={CP_AVE[2],CP_AVE[3],CP_AVE[4],CP_AVE[5],Spi_WY} CP_AVE[0]=(CP_AVE[1]+CP_AVE[2]+CP_AVE[3])/3 --ON判定 if Dir_ABS_Y>0.0025 and CP_AVE[0]>=0.15 and CP_S==0 then CP_S=1 charge_pow=-1000 end if Dir_ABS_Y<-0.0025 and CP_AVE[0]<=0.15 and CP_S==0 then CP_S=2 charge_pow=1000 end --OFF判定 if CP_S==1 and Dir_ABS_Y<=0 then CP_S=0 charge_pow=0 end if CP_S==2 and Dir_ABS_Y>=0 then CP_S=0 charge_pow=0 end --蓄積 CPX=10000 CPY=30000 if CP_S>0 and CPY>charge_pow and math.abs(CP_AVE[0])<=0.15 then charge_pow=charge_pow-Dir_ABS_Y*CPX end --基本出力 turn_pow=60000 CP_S2=0 Dir_ABS_Y2=-Dir_ABS_Y*turn_pow Lim=math.abs(Dir_ABS_Y)*15.25 --可変リミッター if (Dir_ABS_Y>0 and Spi_WY<0) or (Dir_ABS_Y<0 and Spi_WY>0) --カウンター then Dir_ABS_Y2=Dir_ABS_Y2*(1+math.abs(Spi_WY)*6) CP_S2=1 end if (Dir_ABS_Y>0 and Spi_WY>Lim) or (Dir_ABS_Y<0 and Spi_WY<-Lim) --速度制限 then Dir_ABS_Y2=-Dir_ABS_Y2 CP_S2=1 end if CP_S2==0 then Dir_ABS_Y2=Dir_ABS_Y2+charge_pow end --charge_pow加算判定 RLW_W=RLW_W+Dir_ABS_Y2 RLW_E=RLW_E-Dir_ABS_Y2 else charge_pow=0 end end --方位絶対値-------------------------------------- Direction_Y=_AY(CORE3) Dir_ABS_Y=0 function Direction_ABS() --Y Loop=3 if Direction_Y>0 and _AY(_G["CORE"..Loop])<0 then if Direction_Y+-_AY(_G["CORE"..Loop])>math.pi then Dir_ABS_Y=math.pi*2-Direction_Y+_AY(_G["CORE"..Loop]) else Dir_ABS_Y=_AY(_G["CORE"..Loop])-Direction_Y end elseif Direction_Y<0 and _AY(_G["CORE"..Loop])>0 then if Direction_Y+-_AY(_G["CORE"..Loop])<-math.pi then Dir_ABS_Y=math.pi*2+Direction_Y-_AY(_G["CORE"..Loop]) if Direction_Y+-Dir_ABS_Y<-math.pi then Dir_ABS_Y=-Dir_ABS_Y end else Dir_ABS_Y=_AY(_G["CORE"..Loop])-Direction_Y end else Dir_ABS_Y=_AY(_G["CORE"..Loop])-Direction_Y end -- 3.14->1 Dir_ABS_Y=Dir_ABS_Y/3.14 end --角度維持モード------------------------------------ Ang_keep=0 Ak_sw=0 kas=0 function Angle_keep() if _KEYDOWN(14)==1 then kas=kas+1 end if kas>2 then kas=0 end --オートモード if math.deg(_AX(CORE4))<-M_ang_MINI-5 or math.deg(_AX(CORE4))>90+5 or kas==1 then --OFF Ak_sw=1 elseif math.deg(_AX(CORE4))>-M_ang_MINI and math.deg(_AX(CORE4))<90 and Ak_sw==1 then --ON Ak_sw=0 end --Ang_keep入力判定 if Ak_sw==0 or kas==2 then Ang_keep=math.deg(_AX(CORE4)) else Ang_keep=0 end end --方位維持モード-------------------------- Def_Dir=math.deg(_AY(CORE2)) Spiral=0 DKsw={0,0} Sw_memo={0,0} Spiral2=math.deg(_AY(CORE2)) DKsw2={0,0} Sw_memo2={0,0} Spi_memo={0,0} Spi_AVE={0,0,0} kds,rev=0,0 function Direction_keep() --CORE3 --1.math.deg(_AY(CORE3)方位修正版作成 if math.deg(_AY(CORE3))>=0 then Spiral=math.deg(_AY(CORE3))-180 -- + elseif math.deg(_AY(CORE3))<0 then Spiral=math.deg(_AY(CORE3))+180 end -- - --2.足跡 if Spiral>=0 and math.abs(Spiral)>=90 then Sw_memo={Sw_memo[2],1} end if Spiral<0 and math.abs(Spiral)<90 then Sw_memo={Sw_memo[2],4} end if Spiral>=0 and math.abs(Spiral)<90 then Sw_memo={Sw_memo[2],2} end if Spiral<0 and math.abs(Spiral)>=90 then Sw_memo={Sw_memo[2],3} end --3.足跡経路判定 if Sw_memo[1]==1 and Sw_memo[2]==3 then DKsw[1]=DKsw[1]+1 end if Sw_memo[1]==3 and Sw_memo[2]==1 then DKsw[1]=DKsw[1]-1 end if DKsw[1]~=0 and Sw_memo[1]==2 and Sw_memo[2]==4 then DKsw[2]=DKsw[2]-1 end if DKsw[1]~=0 and Sw_memo[1]==4 and Sw_memo[2]==2 then DKsw[2]=DKsw[2]+1 end --4.0/1判定&螺旋距離計算 if math.abs(math.mod(DKsw[1]+DKsw[2],2))==0 then Spiral=(DKsw[1]+DKsw[2])*180+Spiral elseif math.abs(math.mod(DKsw[1]+DKsw[2],2))==1 then --不具合補正 if DKsw[1]+DKsw[2]<0 and math.deg(_AY(CORE3))>0 then rev=-math.deg(_AY(CORE3)) else rev=math.deg(_AY(CORE3)) end Spiral=(DKsw[1]+DKsw[2])*180+rev end --旋回移動量算出 Spi_memo={Spi_memo[2],Spiral} Spi_WY=Spi_memo[1]-Spi_memo[2] --CORE5 --1.math.deg(_AY(CORE5)方位修正版作成 if math.deg(_AY(CORE5))>=0 then Spiral2=math.deg(_AY(CORE5))-180 -- + elseif math.deg(_AY(CORE5))<0 then Spiral2=math.deg(_AY(CORE5))+180 end -- - --2.足跡 if Spiral2>=0 and math.abs(Spiral2)>=90 then Sw_memo2={Sw_memo2[2],1} end if Spiral2<0 and math.abs(Spiral2)<90 then Sw_memo2={Sw_memo2[2],4} end if Spiral2>=0 and math.abs(Spiral2)<90 then Sw_memo2={Sw_memo2[2],2} end if Spiral2<0 and math.abs(Spiral2)>=90 then Sw_memo2={Sw_memo2[2],3} end --3.足跡経路判定 if Sw_memo2[1]==2 and Sw_memo2[2]==4 then DKsw2[1]=DKsw2[1]-1 end if Sw_memo2[1]==4 and Sw_memo2[2]==2 then DKsw2[1]=DKsw2[1]+1 end if DKsw2[1]~=0 and Sw_memo2[1]==1 and Sw_memo2[2]==3 then DKsw2[2]=DKsw2[2]+1 end if DKsw2[1]~=0 and Sw_memo2[1]==3 and Sw_memo2[2]==1 then DKsw2[2]=DKsw2[2]-1 end --4.0/1判定&螺旋距離計算 if math.mod(DKsw2[1]+DKsw2[2],2)==0 then Spiral2=(DKsw2[1]+DKsw2[2])*180+math.deg(_AY(CORE5)) else Spiral2=(DKsw2[1]+DKsw2[2])*180+Spiral2 end end --マウス操作------------------------------------------ Border_X,Border_Y=0.8,0.5 M_dir_MAX,M_ang_MAX,M_ang_MINI=30,30,10 base_ang,base_ang_MINI=0,0 base_dir,base_dir_MINI=0,0 function MOUSE_CONTROL() --カーソル位置 Mx=-(_MX()-(_WIDTH()/2))/(_WIDTH()/2)*(_WIDTH()/_HEIGHT()) My=(_MY()-(_HEIGHT()/2))/(_HEIGHT()/2) --領域情報 --変数初期化 Rein_X,Rein_Y=0,0 Reout_X,Reout_Y=0,0 --Y --領域内 Rein_Y=-My/Border_Y if Rein_Y>1 then Rein_Y=1 elseif Rein_Y<-1 then Rein_Y=-1 end --領域外 if My<0 then Reout_Y=(My+Border_Y)/(-1+Border_Y) if Reout_Y<0 then Reout_Y=0 elseif Reout_Y> 1 then Reout_Y= 1 end elseif My>0 then Reout_Y=-(My-Border_Y)/(1-Border_Y) if Reout_Y>0 then Reout_Y=0 elseif Reout_Y<-1 then Reout_Y=-1 end end --X --領域内 Rein_X=Mx/Border_X if Rein_X>1 then Rein_X=1 elseif Rein_X<-1 then Rein_X=-1 end --領域外 if Mx<0 then Reout_X=-(Mx+Border_X)/(-1+Border_X) if Reout_X>0 then Reout_X=0 elseif Reout_X<-1 then Reout_X=-1 end elseif Mx>0 then Reout_X=(Mx-Border_X)/(1-Border_X) if Reout_X<0 then Reout_X=0 elseif Reout_X> 1 then Reout_X= 1 end end --基本方位修正 base_dir=base_dir+Reout_X*6 base_ang=base_ang+Reout_Y*6 --角度リミッター if base_ang>60 then base_ang=60 end if base_ang<00 then base_ang=00 end --総合結果 C_ang[2]=-Rein_Y*M_ang_MAX-base_ang-Ang_keep C_ang[3]=2 --方位維持モードスイッチ if _KEYDOWN(16)==1 then if kds==1 then --ON kds=0 Def_Dir=Spiral2+Rein_X*M_dir_MAX+base_dir else --OFF kds=1 end end if kds==0 then Spiral3=Spiral end C_dir[2]=-90-C_dir2[1]-Spiral3+Def_Dir-base_dir C_dir[3]=2 C_dir2[2]=Rein_X*M_dir_MAX C_dir2[3]=2 end --ガイドライン------------------------ GLW,G_col_Switch,G_col_MODE,G_speed=0,0,1,10 --フォントデータ font_0={1,1,1,0,1,1,1} font_1={0,0,0,0,0,1,1} font_2={0,1,1,1,1,1,0} font_3={0,0,1,1,1,1,1} font_4={1,0,0,1,0,1,1} font_5={1,0,1,1,1,0,1} font_6={1,1,1,1,1,0,1} font_7={1,0,1,0,0,1,1} font_8={1,1,1,1,1,1,1} font_9={1,0,1,1,1,1,1} font_F={font_0,font_1,font_2,font_3,font_4,font_5,font_6,font_7,font_8,font_9} function G_line() --ラインカラー if _KEYDOWN(13)==1 then if G_col_MODE==1 then G_col_MODE=0 elseif G_col_MODE==0 then G_col_MODE=1 end end LINE_COLOR() --3D --ライン角度修正 GL_A=10.9 if _MR()==1 then if MG_shooting==0 then GL_A=10.9 --9.4 else GL_A=10.5 end end --マシンキャノン Length=2000 L_adjust=3.14*31.4 --色 dummy=_SETCOLOR(Line_col_G) if _TICKS()<=150 or Ammo_number_L==0 then REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() end --合成(射線+機体速度) VEC_X=(_ZX(GL_S)*Length-pX[0]*L_adjust) VEC_Y=(_ZY(GL_S)*Length-pY[0]*L_adjust) VEC_Z=(_ZZ(GL_S)*Length-pZ[0]*L_adjust) dummy=_MOVE3D(_X(GL_S),_Y(GL_S),_Z(GL_S)) dummy=_LINE3D(_X(GL_S)+VEC_X,_Y(GL_S)+VEC_Y,_Z(GL_S)+VEC_Z) --2D --ブースト if boost==1 then REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(-0.080,0) dummy=_LINE2D(0,0.080) dummy=_LINE2D(0.080,0) dummy=_MOVE2D(-0.1125,0) dummy=_LINE2D(0,0.1125) dummy=_LINE2D(0.1125,0) end --後退 if back==1 then REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(-0.080,0) dummy=_LINE2D(0,-0.080) dummy=_LINE2D(0.080,0) dummy=_MOVE2D(-0.1125,0) dummy=_LINE2D(0,-0.1125) dummy=_LINE2D(0.1125,0) end --コンパス --基準位置 KBX,KBY=0.45,-0.24 --大きさ Scale=0.18 --中心点 dummy=_SETCOLOR(Line_col_G) --北 Dir_X=math.cos(_AY(CORE5)-(math.pi/4*90)) Dir_Y=math.sin(_AY(CORE5)-(math.pi/4*90)) dummy=_MOVE2D(KBX,KBY) dummy=_LINE2D(-Dir_X*Scale+KBX,-Dir_Y*Scale+KBY) --方位盤 for Dir_Loop=0,337.5,22.5 do Dir_X=math.cos(_AY(CORE5)-(math.pi/4*(90+Dir_Loop)))*Scale Dir_Y=math.sin(_AY(CORE5)-(math.pi/4*(90+Dir_Loop)))*Scale --色 dummy=_SETCOLOR(Line_col_G) --北 if Dir_Loop==180 then REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() end --凸凹 Dir_len=0.9 if math.mod(Dir_Loop/22.5,2)==0 then Dir_len=0.8 end --描画 dummy=_MOVE2D((Dir_X*Dir_len)+KBX,(Dir_Y*Dir_len)+KBY) dummy=_LINE2D(Dir_X+KBX,Dir_Y+KBY) end --砲身方位 Scale_B=Scale*3.9 REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(KBX+0*Scale_B ,KBY+0.195*Scale_B) dummy=_LINE2D(KBX-0.024*Scale_B,KBY+0.1*Scale_B) dummy=_LINE2D(KBX+0.024*Scale_B,KBY+0.1*Scale_B) dummy=_LINE2D(KBX+0*Scale_B ,KBY+0.195*Scale_B) --車体方位 Dir_X=math.sin(_RY(CORE3,CORE5)-(math.pi))*Scale Dir_Y=math.cos(_RY(CORE3,CORE5)-(math.pi))*Scale dummy=_MOVE2D(KBX,KBY) dummy=_LINE2D((Dir_X*0.8)+KBX,(Dir_Y*0.8)+KBY) --リング if MT_S==1 then Scale_B=Scale*1.05 dummy=_SETCOLOR(Line_col_G) for Loop=0,math.pi*2,math.pi/10 do Dir_X=math.cos(Loop) Dir_Y=math.sin(Loop) Dir_X2=math.cos(Loop+math.pi/10) Dir_Y2=math.sin(Loop+math.pi/10) dummy=_MOVE2D(-Dir_X*Scale_B+KBX,Dir_Y*Scale_B+KBY) dummy=_LINE2D(-Dir_X2*Scale_B+KBX,Dir_Y2*Scale_B+KBY) end end --方位維持アンカー if SA==0 then Scale_C=Scale*1.03 DKxy=Direction_Y-_AY(CORE5)-(math.pi) REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(math.sin(DKxy)*Scale_C+KBX,math.cos(DKxy)*Scale_C+KBY) dummy=_LINE2D(math.sin(DKxy+0.1)*Scale_C*1.26+KBX,math.cos(DKxy+0.1)*Scale_C*1.26+KBY) dummy=_LINE2D(math.sin(DKxy-0.1)*Scale_C*1.26+KBX,math.cos(DKxy-0.1)*Scale_C*1.26+KBY) dummy=_LINE2D(math.sin(DKxy)*Scale_C+KBX,math.cos(DKxy)*Scale_C+KBY) end --アームパラメーター GLOX,GLOY=-0.7,-0.185 --ウェイトマーク --基準位置 LOX,LOY=0.02+GLOX,0.015+GLOY --大きさ Scale=1 --描画 ticks=_TICKS() if ticks>150 then ticks=150 end REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() if _TICKS()<=150 then dummy=_MOVE2D(0+LOX,LOY) dummy=_LINE2D(0.34+LOX,LOY) end dummy=_SETCOLOR(Line_col_G) dummy=_MOVE2D(0+LOX,LOY) dummy=_LINE2D(0.34*ticks/150+LOX,LOY) --トップチャージ GLOX2,GLOY2=0.25,-0.065 --枠 --基準位置 LOX,LOY=GLOX+GLOX2,GLOY+GLOY2 --大きさ Scale=0.17 --描画 REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() if top_charge==1 then dummy=_SETCOLOR(Line_col_G) end for Loop=math.pi/2,math.pi*1.5,math.pi/10 do Dir_X=math.cos(Loop) Dir_Y=math.sin(Loop) Dir_X2=math.cos(Loop+math.pi/10) Dir_Y2=math.sin(Loop+math.pi/10) dummy=_MOVE2D(-Dir_X*Scale+LOX,Dir_Y*Scale+LOY) dummy=_LINE2D(-Dir_X2*Scale+LOX,Dir_Y2*Scale+LOY) end --目安 dummy=_SETCOLOR(Line_col_G) for Loop=math.pi/2,math.pi*1.5,math.pi/2 do Dir_X=math.cos(Loop) Dir_Y=math.sin(Loop) Dir_X2=math.cos(Loop+math.pi/10) Dir_Y2=math.sin(Loop+math.pi/10) dummy=_MOVE2D(-Dir_X*Scale+LOX,Dir_Y*Scale+LOY) dummy=_LINE2D(-Dir_X*Scale*0.8+LOX,Dir_Y*Scale*0.8+LOY) end --針 --基準位置 LOX,LOY=0+GLOX+GLOX2,0+GLOY+GLOY2 --大きさ Scale=0.18 --描画 DKxy=top_charge*(math.pi) REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(math.sin(DKxy)*Scale+LOX,-math.cos(DKxy)*Scale+LOY) dummy=_LINE2D(math.sin(DKxy+0.1)*Scale*1.26+LOX,-math.cos(DKxy+0.1)*Scale*1.26+LOY) dummy=_LINE2D(math.sin(DKxy-0.1)*Scale*1.26+LOX,-math.cos(DKxy-0.1)*Scale*1.26+LOY) dummy=_LINE2D(math.sin(DKxy)*Scale+LOX,-math.cos(DKxy)*Scale+LOY) --連射速度 --文字 --基準位置 LOX,LOY=0.0265+GLOX,-0.01+GLOY --大きさ Scale=0.85*0.7 --描画 if _MR()==1 then if MG_shooting==1 then --"M" REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(0.03+LOX,-0.01+LOY) dummy=_LINE2D(0.03+LOX,-0.11+LOY) dummy=_MOVE2D(0.10+LOX,-0.01+LOY) dummy=_LINE2D(0.10+LOX,-0.11+LOY) dummy=_MOVE2D(0.03+LOX,-0.01+LOY) dummy=_LINE2D(0.065+LOX,-0.065+LOY) dummy=_LINE2D(0.10+LOX,-0.01+LOY) else --"H" REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(0.03+LOX,-0.01+LOY) dummy=_LINE2D(0.03+LOX,-0.11+LOY) dummy=_MOVE2D(0.10+LOX,-0.01+LOY) dummy=_LINE2D(0.10+LOX,-0.11+LOY) dummy=_MOVE2D(0.03+LOX,-0.055+LOY) dummy=_LINE2D(0.10+LOX,-0.055+LOY) end else --"L" REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() dummy=_MOVE2D(0.03+LOX,-0.01+LOY) dummy=_LINE2D(0.03+LOX,-0.11+LOY) dummy=_LINE2D(0.10+LOX,-0.11+LOY) end --枠 --基準位置 LOX,LOY=0.02+GLOX,-0.0+GLOY --大きさ Scale=0.7 --描画 dummy=_SETCOLOR(Line_col_G) dummy=_MOVE2D(0*Scale+LOX,0*Scale+LOY) dummy=_LINE2D(0*Scale+LOX,-0.2*Scale+LOY) dummy=_LINE2D(0.2*Scale+LOX,-0.2*Scale+LOY) dummy=_LINE2D(0.2*Scale+LOX,0 *Scale+LOY) dummy=_LINE2D(0*Scale+LOX,0*Scale+LOY) --10の位 --X桁目の数値の取得 num=Ammo_number_L+100 fig=2 for LOOP=1,fig-1 do num=num/10 end num=math.floor(math.mod(num,10))+1 --基準位置 LOX,LOY=0.19+GLOX,-0.0+GLOY --大きさ Scale=0.7 --電卓フォント REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() D_font() --1の位 --X桁目の数値の取得 num=Ammo_number_L+100 fig=1 for LOOP=1,fig-1 do num=num/10 end num=math.floor(math.mod(num,10))+1 --基準位置 LOX,LOY=0.285+GLOX,-0.0+GLOY --大きさ Scale=0.7 --電卓フォント D_font() --□スクウェア --境界線 dummy=_SETCOLOR(Line_col_G) --左右 if Mx>0 then --左 dummy=_MOVE2D(-Border_X,-0.08-My) dummy=_LINE2D(-Border_X,0.08-My) elseif Mx<0 then --右 dummy=_MOVE2D(Border_X,-0.08-My) dummy=_LINE2D(Border_X,0.08-My) end --上下 if My>0 then --上 dummy=_MOVE2D(-0.08-Mx,-Border_Y) dummy=_LINE2D(0.08-Mx,-Border_Y) elseif My<0 then --下 dummy=_MOVE2D(-0.08-Mx,Border_Y) dummy=_LINE2D(0.08-Mx,Border_Y) end --移動マーク REV_COLOR() dummy=_SETCOLOR(Line_col_G) REV_COLOR() --上 if My<-Border_Y then dummy=_MOVE2D(-0.13,Border_Y+0.03) dummy=_LINE2D(0.13 ,Border_Y+0.03) dummy=_LINE2D(0 ,Border_Y+0.25) dummy=_LINE2D(-0.13,Border_Y+0.03) --下 elseif My>Border_Y then dummy=_MOVE2D(-0.13,-Border_Y-0.03) dummy=_LINE2D(0.13 ,-Border_Y-0.03) dummy=_LINE2D(0 ,-Border_Y-0.25) dummy=_LINE2D(-0.13,-Border_Y-0.03) end --左 if Mx>Border_X then dummy=_MOVE2D(-Border_X-0.03,-0.13) dummy=_LINE2D(-Border_X-0.03,0.13) dummy=_LINE2D(-Border_X-0.25,0) dummy=_LINE2D(-Border_X-0.03,-0.13) --右 elseif Mx<-Border_X then dummy=_MOVE2D(Border_X+0.03,-0.13) dummy=_LINE2D(Border_X+0.03,0.13) dummy=_LINE2D(Border_X+0.25,0) dummy=_LINE2D(Border_X+0.03,-0.13) end end function D_font() --電卓フォント --1 if font_F[num][1]>0 then dummy=_MOVE2D(0*Scale+LOX,0*Scale+LOY) dummy=_LINE2D(0*Scale+LOX,-0.1*Scale+LOY) end --2 if font_F[num][2]>0 then dummy=_MOVE2D(0*Scale+LOX,-0.1*Scale+LOY) dummy=_LINE2D(0*Scale+LOX,-0.2*Scale+LOY) end --3 if font_F[num][3]>0 then dummy=_MOVE2D(0*Scale+LOX ,0*Scale+LOY) dummy=_LINE2D(0.1*Scale+LOX,0*Scale+LOY) end --4 if font_F[num][4]>0 then dummy=_MOVE2D(0*Scale+LOX ,-0.1*Scale+LOY) dummy=_LINE2D(0.1*Scale+LOX,-0.1*Scale+LOY) end --5 if font_F[num][5]>0 then dummy=_MOVE2D(0*Scale+LOX ,-0.2*Scale+LOY) dummy=_LINE2D(0.1*Scale+LOX,-0.2*Scale+LOY) end --6 if font_F[num][6]>0 then dummy=_MOVE2D(0.1*Scale+LOX,0*Scale+LOY) dummy=_LINE2D(0.1*Scale+LOX,-0.1*Scale+LOY) end --7 if font_F[num][7]>0 then dummy=_MOVE2D(0.1*Scale+LOX,-0.1*Scale+LOY) dummy=_LINE2D(0.1*Scale+LOX,-0.2*Scale+LOY) end end function REV_COLOR() --カラー逆転 if G_col_MODE==1 then G_col_MODE=0 elseif G_col_MODE==0 then G_col_MODE=1 end LINE_COLOR() end function LINE_COLOR() --ラインカラー if G_col_MODE==0 then --カラー1 Line_col_G=math.floor(COL_RG1*math.abs(math.sin(_TICKS()/G_speed))+COL_R1D)*65536 +math.floor(COL_GG1*math.abs(math.sin(_TICKS()/G_speed))+COL_G1D)*256 +math.floor(COL_BG1*math.abs(math.sin(_TICKS()/G_speed))+COL_B1D) else --カラー2 Line_col_G=math.floor(COL_RG2*math.abs(math.cos(_TICKS()/G_speed))+COL_R2D)*65536 +math.floor(COL_GG2*math.abs(math.cos(_TICKS()/G_speed))+COL_G2D)*256 +math.floor(COL_BG2*math.abs(math.cos(_TICKS()/G_speed))+COL_B2D) end end --機体カラー--------------------------------- COL_name="" COLOR1,COLOR2=0,0 BODY_COLOR=1 function CHANGE_COLOR() --カラー変更 if _KEYDOWN(10)==1 then BODY_COLOR=BODY_COLOR+1 elseif _KEYDOWN(12)==1 then BODY_COLOR=BODY_COLOR-1 end if BODY_COLOR>7 then BODY_COLOR=1 elseif BODY_COLOR<1 then BODY_COLOR=7 end --初期カラー if BODY_COLOR==1 then COL_name="Default" COLOR1=tonumber("797470",16) --チップ、ウエイト COLOR2=tonumber("797470",16) --カウル COLOR3=tonumber("323238",16) --カウル2 COLOR4=tonumber("885533",16) --アクセント COLOR5=tonumber("323238",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --アスファルト if BODY_COLOR==2 then COL_name="Asphalt" COLOR1=tonumber("666666",16) --チップ、ウエイト COLOR2=tonumber("444444",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("666666",16) COLOR5=tonumber("444444",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --泥 if BODY_COLOR==3 then COL_name="Mud" COLOR1=tonumber("645847",16) --チップ、ウエイト COLOR2=tonumber("544837",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("645847",16) COLOR5=tonumber("544837",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --緑 if BODY_COLOR==4 then COL_name="Green" COLOR1=tonumber("447733",16) --チップ、ウエイト COLOR2=tonumber("447733",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("447733",16) COLOR5=tonumber("447733",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --砂漠 if BODY_COLOR==5 then COL_name="Desert" COLOR1=tonumber("BBAA88",16) --チップ、ウエイト COLOR2=tonumber("AA9966",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("BBAA88",16) COLOR5=tonumber("AA9966",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --コンクリート if BODY_COLOR==6 then COL_name="Concrete" COLOR1=tonumber("bbbbbb",16) --チップ、ウエイト COLOR2=tonumber("999999",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("999999",16) COLOR5=tonumber("999999",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end --雪 if BODY_COLOR==7 then COL_name="Snow" COLOR1=tonumber("FFFFFF",16) --チップ、ウエイト COLOR2=tonumber("F4F4F4",16) --カウル COLOR3=tonumber("323238",16) COLOR4=tonumber("FFFFFF",16) COLOR5=tonumber("F4F4F4",16) --ハイブリッドキャノン1 COLOR6=tonumber("222228",16) --ハイブリッドキャノン2 end end --刀身の煌めき---------------- BLA_GRA_R,BLA_GRA_G,BLA_GRA_B=255,149,85 G_wait=0.28 Lag1,Lag2,Lag3,Lag4,Lag5=4,3,2,1,0 function BLADE_GRADATION() BLADE_COL1=math.floor(BLA_GRA_R*math.abs(math.cos((_TICKS()+Lag1)*G_wait)))*65536 +math.floor(BLA_GRA_G*math.abs(math.cos((_TICKS()+Lag1)*G_wait)))*256 +math.floor(BLA_GRA_B*math.abs(math.cos((_TICKS()+Lag1)*G_wait))) BLADE_COL2=math.floor(BLA_GRA_R*math.abs(math.cos((_TICKS()+Lag2)*G_wait)))*65536 +math.floor(BLA_GRA_G*math.abs(math.cos((_TICKS()+Lag2)*G_wait)))*256 +math.floor(BLA_GRA_B*math.abs(math.cos((_TICKS()+Lag2)*G_wait))) BLADE_COL3=math.floor(BLA_GRA_R*math.abs(math.cos((_TICKS()+Lag3)*G_wait)))*65536 +math.floor(BLA_GRA_G*math.abs(math.cos((_TICKS()+Lag3)*G_wait)))*256 +math.floor(BLA_GRA_B*math.abs(math.cos((_TICKS()+Lag3)*G_wait))) BLADE_COL4=math.floor(BLA_GRA_R*math.abs(math.cos((_TICKS()+Lag4)*G_wait)))*65536 +math.floor(BLA_GRA_G*math.abs(math.cos((_TICKS()+Lag4)*G_wait)))*256 +math.floor(BLA_GRA_B*math.abs(math.cos((_TICKS()+Lag4)*G_wait))) BLADE_COL5=math.floor(BLA_GRA_R*math.abs(math.cos((_TICKS()+Lag5)*G_wait)))*65536 +math.floor(BLA_GRA_G*math.abs(math.cos((_TICKS()+Lag5)*G_wait)))*256 +math.floor(BLA_GRA_B*math.abs(math.cos((_TICKS()+Lag5)*G_wait))) end }