// [RCD] "Battleship Leadsardine L"
//
// 	�`‘€�ì�à–¾�`
// 	�ª�«=�o—Í‘�Œ¸
// 	�©�¨=‘€‘Ç
// 	‚p=•º‘••Ï�X	‚v=Šp“x�ã‚°‚é	‚d=•º‘••Ï�X
// 	‚`=•ûˆÊ�¶	‚r=–CŒ‚		‚c=•ûˆÊ‰E
// 			‚w=Šp“x‰º‚°‚é
//
Val
{
	ABE(default=1500, min=1500, max=3000, step=30, 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)
	AM_SWITCH(default=0, max=2, step=2, 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)
	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)
	ARM_MOOD(default=0, min=-1, max=3, disp=0)
	ASPECT(default=0, min=-10000000, max=10000000, disp=0)
	FG_NWE_SWITCH(default=0, max=1, disp=0)
	FG_SWE_SWITCH(default=0, max=1, disp=0)
	FIRE_ORDER(default=0, max=3, disp=0)
	FIX_GUN_NE(default=0, max=1000000, step=1000000, disp=0)
	FIX_GUN_NW(default=0, max=1000000, step=1000000, disp=0)
	FIX_GUN_SE(default=0, max=1000000, step=1000000, disp=0)
	FIX_GUN_SW(default=0, max=1000000, step=1000000, disp=0)
	GL_TEST(default=0, min=-100000, max=100000, disp=0)
	GUN_BASE_X(default=0, min=-12, max=36, disp=0)
	GUN_BASE_Y(default=0, min=-180, max=180, disp=0)
	JET(default=0, min=-50000, max=300000, disp=0)
	KANON1(default=0, max=1000000, step=1000000, disp=0)
	KANON1X(default=90, min=90, max=110, 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, 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, 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, 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, disp=0)
	KANON5Y(default=0, min=-115, max=115, step=5, disp=0)
	K_ANGLE_B(default=90, min=70, max=90, disp=0)
	K_ANGLE_F(default=90, min=90, max=110, disp=0)
	LR(default=0, min=-12, max=12, step=2, disp=0)
	M1_JET(default=0, min=-300000, max=300000, disp=0)
	M2_JET(default=0, min=-300000, max=5000000, disp=0)
	MG1NEX(default=0, min=-36, max=10, disp=0)
	MG1NEY(default=90, min=90, max=225, disp=0)
	MG1NE_ANG(default=0, min=-10, max=36, disp=0)
	MG1NE_DIR(default=0, min=-135, max=0, disp=0)
	MG1NE_SWITCH(default=0, max=1, disp=0)
	MG1NWX(default=0, min=-36, max=10, disp=0)
	MG1NWY(default=-90, min=-225, max=-90, disp=0)
	MG1NW_ANG(default=0, min=-10, max=36, disp=0)
	MG1NW_DIR(default=0, max=135, disp=0)
	MG1NW_SWITCH(default=0, max=1, disp=0)
	MG1SEX(default=0, min=-36, max=10, disp=0)
	MG1SEY(default=-90, min=-225, max=-90, disp=0)
	MG1SE_ANG(default=0, min=-10, max=36, disp=0)
	MG1SE_DIR(default=-180, min=-180, max=-45, disp=0)
	MG1SE_SWITCH(default=0, max=1, disp=0)
	MG1SWX(default=0, min=-36, max=10, disp=0)
	MG1SWY(default=90, min=90, max=225, disp=0)
	MG1SW_ANG(default=0, min=-10, max=36, disp=0)
	MG1SW_DIR(default=180, min=45, max=180, disp=0)
	MG1SW_SWITCH(default=0, max=1, disp=0)
	MG2ABX(default=-90, min=-126, max=-78, disp=0)
	MG2ABY(default=180, min=135, max=225, disp=0)
	MG2AB_ANG(default=0, min=-12, max=36, disp=0)
	MG2AB_DIR(default=90, min=45, max=135, disp=0)
	MG2AB_SWITCH(default=0, max=1, disp=0)
	MG2CDX(default=-90, min=-126, max=-78, disp=0)
	MG2CDY(default=180, min=135, max=225, disp=0)
	MG2CD_ANG(default=0, min=-12, max=36, disp=0)
	MG2CD_DIR(default=-90, min=-135, max=-45, disp=0)
	MG2CD_SWITCH(default=0, max=1, disp=0)
	MIS_ANG(default=0, min=-16, max=16, disp=0)
	MIS_BASE_X(default=0, min=-16, max=16, disp=0)
	MIS_BASE_Y(default=180, min=-180, max=180, disp=0)
	MIS_COUNT(default=2, max=2, disp=0)
	MIS_DIR(default=0, min=-90, max=90, disp=0)
	MIS_SWITCH(default=0, max=2, step=2, disp=0)
	MIS_X1(default=25, min=9, max=41, disp=0)
	MIS_X2(default=-25, min=-41, max=-9, disp=0)
	MIS_Y(default=0, min=-90, max=90, disp=0)
	MOV_GUN1_NEA(default=0, max=1000000, step=1000000, disp=0)
	MOV_GUN1_NEB(default=0, max=1000000, step=1000000, disp=0)
	MOV_GUN1_NWA(default=0, max=1000000, step=1000000, disp=0)
	MOV_GUN1_NWB(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)
	MOV_GUN1_SWA(default=0, max=1000000, step=1000000, disp=0)
	MOV_GUN1_SWB(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)
	MOV_GUN2C(default=0, max=1000000, step=1000000, disp=0)
	MOV_GUN2D(default=0, max=1000000, step=1000000, 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
{
	// ƒ{ƒfƒB�§�ìŠJŽn
	Core() {
		// ƒRƒA
		// ŠÍ‹´--------------------
		// ƒJƒEƒ‹--------------------
		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) {
							// ƒoƒ‰ƒXƒg---------
							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) {
								// ƒ~ƒTƒCƒ‹”­ŽË‹@--------------------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) {
														// ƒ~ƒTƒCƒ‹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) {
														// ƒ~ƒTƒCƒ‹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) { }
															}
														}
													}
												}
											}
										}
									}
								}
								// ------------------------
								// ‘O•”--------------------WEIGHT CHIP COWL
								N:Frame(angle=50) {
									// ‘D’êƒtƒ��[ƒg----------------WEIGHT CHIP COWL
									N:Frame(angle=80, option=1) {
										//
										N:Jet(angle=50, power=2600, option=1) { }
									}
									// ----------------------------
									N:Frame(angle=0) {
										// ŽO”Ô–C“ƒ--------------------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) {
												// “ñ”Ô–C“ƒ--------------------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) {
														// ˆê”Ô–C“ƒ--------------------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) { }
															// ‘O•”ƒtƒ��[ƒg
															N:Jet(power=ABN, angle=0, option=1) { }
															// ŠÍŽñƒoƒ‰ƒ“ƒT�[
															N:Jet(power=ABN, angle=0, option=1) { }
														}
													}
												}
											}
										}
									}
								}
								// ------------------------
								// Œã•”--------------------WEIGHT CHIP COWL
								S:Frame(angle=50) {
									// ‘D’êƒtƒ��[ƒg----------------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) {
													// Žl”Ô–C“ƒ--------------------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) {
															// ŒÜ”Ô–C“ƒ--------------------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) { }
															// Œã•”ƒtƒ��[ƒg
															S:Jet(power=ABS, angle=0, option=1) { }
															// ŠÍ”öƒoƒ‰ƒ“ƒT�[
															S:Jet(power=ABS, angle=0, option=1) { }
														}
													}
												}
											}
										}
									}
								}
								// ------------------------
								// �¶Œ½--------------------WEIGHT CHIP COWL
								W:Frame(angle=0) {
									// ‘΋ó‹@ŠÖ–C------------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Šp“x
													N:Arm(name=MG2A, angle=90, power=Mov_GUN2A, option=20000) { }
													S:Arm(name=MG2B, angle=90, power=Mov_GUN2B, option=20000) { }
												}
											}
										}
									}
									// ----------------------
									// ‹@�e–k�¼NW--------------------WEIGHT CHIP COWL
									N:Frame(angle=20) {
										W:TrimF(angle=-20) {
											// ‹@�e
											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) {
													// ‹@�e
													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) { }
											}
										}
									}
									// ------------------------
									// ‹@�e“ì�¼SW--------------------WEIGHT CHIP COWL
									S:Frame(angle=20) {
										W:TrimF(angle=20) {
											// ‹@�e
											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) {
													// ‹@�e
													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) { }
											// �¶Œ½ƒtƒ��[ƒg
											W:Jet(power=ABW, angle=-50, option=1) { }
											// �¶Œ½ƒoƒ‰ƒ“ƒT�[
											W:Jet(power=ABW, angle=-50, option=1) { }
										}
									}
								}
								// ------------------------
								// ‰EŒ½--------------------
								E:Frame(angle=0) {
									// ‘΋ó‹@ŠÖ–C--------------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Šp“x
													N:Arm(name=MG2C, angle=90, power=Mov_GUN2C, option=20000) { }
													S:Arm(name=MG2D, angle=90, power=Mov_GUN2D, option=20000) { }
												}
											}
										}
									}
									// ------------------------
									// ‹@�e–k“ŒNE--------------------WEIGHT CHIP COWL
									N:Frame(angle=20) {
										E:TrimF(angle=20) {
											// ‹@�e
											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
													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) { }
											}
										}
									}
									// ------------------------
									// ‹@�e“ì“ŒSE--------------------WEIGHT CHIP COWL
									S:Frame(angle=20) {
										E:TrimF(angle=-20) {
											// ‹@�e
											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
													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Œ½ƒtƒ��[ƒg
											E:Jet(power=ABE, angle=-50, option=1) { }
											// ‰EŒ½ƒoƒ‰ƒ“ƒT�[
											E:Jet(power=ABE, angle=-50, option=1) { }
										}
									}
								}
							}
						}
					}
				}
			}
		}
	}
}
Script
{
	//ŠÍ–¼----------------------
	print 0,"Lead sardine"

		//‹@�eŠî�€•ûˆÊ--------------
		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
		}

		//ƒ~ƒTƒCƒ‹Šî�€•ûˆÊ--------------
		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
		}

	//“®—Í�§Œä------------------
		//ˆÀ‘S‘•’u
		if _Y(W_JET)>0{
		JET=0
		print 1,"Power output  : Safety lock"
		GOTO arms_control
		}

		//�o—Í•\Ž¦
		power=Jet/300000*100
		print 1,"Power output  : ",JET,"(",power,"%)"


	//‰ÎŠíŠÇ�§ƒVƒXƒeƒ€--------------
	label arms_control

		//•º‘•ƒZƒŒƒNƒg-------------------

		if _KEY(14)=1 | _KEY(16)=1{	//˜A‘±�Ø‚è‘Ö‚¦–hŽ~ƒXƒCƒbƒ`
		mis_Switch=mis_Switch+1
		}

		if _KEY(14)=1 & mis_Switch=1 {
		ARM_MOOD=ARM_MOOD-1
		}
		if _KEY(14)=1 & ARM_MOOD=-1 {	//ƒ‹�[ƒv”»’è
		ARM_MOOD=2
		}

		if _KEY(16)=1 & mis_Switch=1 {		
		ARM_MOOD=ARM_MOOD+1
		}
		if _KEY(16)=1 & ARM_MOOD=3 {	//ƒ‹�[ƒv”»’è
		ARM_MOOD=0
		}

		//‘I‘𕺑••\Ž¦
		if ARM_MOOD=0{		//Žå–C
		print 3,"Arms                 : Cannon"
		}
		if ARM_MOOD=1{		//‹@�e
		print 3,"Arms                 : GUN"
		}
		if ARM_MOOD=2{		//ƒ~ƒTƒCƒ‹
		print 3,"Arms                 : Missile"
		}

		//•ûˆÊ˜A“®----------------------
		if ARM_MOOD=0{		//Žå–C
		goto K_Direction
		}
		if ARM_MOOD=1{		//‹@�e
		goto G_Direction
		}
		if ARM_MOOD=2{		//ƒ~ƒTƒCƒ‹
		goto M_Direction
		}

		goto Direction_Ini

			//Žå–C•ûˆÊ----------------------
			label K_Direction

				//‘O•”----------------------

					//ˆê”Ô–C“ƒ----------------------
					if (_RY(BASE,0)+0.05)>(_RZ(K1yb,K1y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {	// + –C“ƒ_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
					}

					//“ñ”Ô–C“ƒ----------------------
					if (_RY(BASE,0)+0.05)>(_RZ(K2yb,K2y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {	// + –C“ƒ_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
					}

					//ŽO”Ô–C“ƒ----------------------
					if (_RY(BASE,0)+0.05)>(_RZ(K3yb,K3y)*-1) & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {	// + –C“ƒ_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
					}

				//Œã•”----------------------

					//Žl”Ô–C“ƒ----------------------
					if (_RY(BASE,ZERO)+0.05)>(_RZ(K4yb,K4y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {	// + –C“ƒ_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
					}

					//ŒÜ”Ô–C“ƒ----------------------
					if (_RY(BASE,ZERO)+0.05)>(_RZ(K5yb,K5y)*-1) & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {	// + –C“ƒ_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
			//Žå–C•ûˆÊEND----------------------

			//‹@�e•ûˆÊ----------------------
			label G_Direction

				//‘΋ó‹@ŠÖ–C----------------------
					//�¶Œ½‘΋ó‹@ŠÖ–C
					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<MG2AB_Dir & GUN_Base_y<=145 & GUN_Base_y>=35 {
					MG2ABy=MG2ABy+5
					MG2AB_Dir=MG2AB_Dir-5
					}

					//‰EŒ½‘΋ó‹@ŠÖ–C
					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<MG2CD_Dir & GUN_Base_y>=-145 & GUN_Base_y<=-35 {
					MG2CDy=MG2CDy+5
					MG2CD_Dir=MG2CD_Dir-5
					}

				//‘΋ó‹@ŠÖ–CEND----------------------

				//‹@�e•ûˆÊ----------------------
					//‹@�e–k�¼
					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<MG1NW_Dir & GUN_Base_y<=145 & GUN_Base_y>=0 {
					MG1NWy=MG1NWy+5
					MG1NW_Dir=MG1NW_Dir-5
					}

					//‹@�e“ì�¼
					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<MG1SW_Dir & GUN_Base_y<=180 & GUN_Base_y>=45 {
					MG1SWy=MG1SWy+5
					MG1SW_Dir=MG1SW_Dir-5
					}

					//‹@�e–k“Œ
					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<MG1NE_Dir & GUN_Base_y>=-145 & GUN_Base_y<=-0 {
					MG1NEy=MG1NEy+5
					MG1NE_Dir=MG1NE_Dir-5
					}

					//‹@�e“ì“Œ
					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<MG1SE_Dir & GUN_Base_y>=-180 & GUN_Base_y<=-45 {
					MG1SEy=MG1SEy+5
					MG1SE_Dir=MG1SE_Dir-5
					}

				//‹@�eEND----------------------

			goto Direction_Ini
			//‹@�e•ûˆÊEND----------------------

			//ƒ~ƒTƒCƒ‹•ûˆÊ----------------------
			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<mis_Dir & mis_Base_y<=110 & mis_Base_y>=-110 {
				mis_y=mis_y+5
				mis_Dir=mis_Dir-5
				}

			goto Direction_Ini
			//ƒ~ƒTƒCƒ‹•ûˆÊEND----------------------



			//•ûˆÊ�‰Šú‰»----------------------
			label Direction_Ini

				//‘΋ó‹@ŠÖ–C----------------------
					//�¶Œ½‘΋ó‹@ŠÖ–C
					if 90>MG2AB_Dir & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) { 
					MG2ABy=MG2ABy-5
					MG2AB_Dir=MG2AB_Dir+5
					}
					if 90<MG2AB_Dir & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) {
					MG2ABy=MG2ABy+5
					MG2AB_Dir=MG2AB_Dir-5
					}

					//‰EŒ½‘΋ó‹@ŠÖ–C
					if -90>MG2CD_Dir & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-35) {
					MG2CDy=MG2CDy-5
					MG2CD_Dir=MG2CD_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
					}

				//‹@�e----------------------
					//‹@�e–k�¼
					if ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<0 {
					MG1NWy=MG1NWy+5
					MG1NW_Dir=MG1NW_Dir-5
					}

					//‹@�e“ì�¼
					if ARM_MOOD<>1 | GUN_Base_y>180 | GUN_Base_y<45 {
					MG1SWy=MG1SWy-5
					MG1SW_Dir=MG1SW_Dir+5
					}

					//‹@�e–k“Œ
					if ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-0 {
					MG1NEy=MG1NEy-5
					MG1NE_Dir=MG1NE_Dir+5
					}

					//‹@�e“ì“Œ
					if ARM_MOOD<>1 | GUN_Base_y<-180 | GUN_Base_y>-45 {
					MG1SEy=MG1SEy+5
					MG1SE_Dir=MG1SE_Dir-5
					}

				//ƒ~ƒTƒCƒ‹----------------------
					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 0<mis_Dir & (ARM_MOOD<>2 | mis_Base_y>110 | mis_Base_y<-110) {
					mis_y=mis_y+5
					mis_Dir=mis_Dir-5
					}

			//•ûˆÊ�‰Šú‰»END----------------------

		//•ûˆÊ˜A“®END----------------------


		//Šp“x----------------------
		if ARM_MOOD=0{		//Žå–C
		goto K_angle
		}
		if ARM_MOOD=1{		//‹@�e
		goto G_angle
		}
		if ARM_MOOD=2{		//ƒ~ƒTƒCƒ‹
		goto M_angle
		}

		goto angle_Ini

			//Žå–CŠp“x----------------------
			label K_angle

				//Šî�€Šp“x----------------------
				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
				}

				//‘O•”----------------------
					//ˆê”Ô–C“ƒ----------------------
					if K_angle_F>kanon1x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon1x=kanon1x+1
					}
					if K_angle_F<kanon1x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon1x=kanon1x-1
					}

					//“ñ”Ô–C“ƒ----------------------
					if K_angle_F>kanon2x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon2x=kanon2x+1
					}
					if K_angle_F<kanon2x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon2x=kanon2x-1
					}

					//ŽO”Ô–C“ƒ----------------------
					if K_angle_F>kanon3x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon3x=kanon3x+1
					}
					if K_angle_F<kanon3x & _RY(BASE,0)<2.20 & _RY(BASE,0)>-2.20 {
						kanon3x=kanon3x-1
					}

				//Œã•”----------------------
					//Žl”Ô–C“ƒ----------------------
					if K_angle_B>kanon4x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {
						kanon4x=kanon4x+1
					}
					if K_angle_B<kanon4x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {
						kanon4x=kanon4x-1
					}
					//ŒÜ”Ô–C“ƒ----------------------
					if K_angle_B>kanon5x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {
						kanon5x=kanon5x+1
					}
					if K_angle_B<kanon5x & _RY(BASE,ZERO)<2.20 & _RY(BASE,ZERO)>-2.20 {
						kanon5x=kanon5x-1
					}

			goto angle_Ini
			//Žå–CŠp“xEND----------------------

			//‹@�eŠp“x----------------------
			label G_angle

				//Šî�€Šp“x----------------------
				if _KEY(15)=1{
					GUN_Base_x=GUN_Base_x+2
				}
				if _KEY(5)=1{
					GUN_Base_x=GUN_Base_x-2
				}

				//‘΋ó‹@ŠÖ–C----------------------
					//�¶Œ½‘΋ó‹@ŠÖ–C
					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<MG2AB_Ang & GUN_Base_y<=145 & GUN_Base_y>=35 {
					MG2ABx=MG2ABx+2
					MG2AB_Ang=MG2AB_Ang-2
					}
					//‰EŒ½‘΋ó‹@ŠÖ–C
					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<MG2CD_Ang & GUN_Base_y>=-145 & GUN_Base_y<=-35 {
					MG2CDx=MG2CDx+2
					MG2CD_Ang=MG2CD_Ang-2
					}

				//‹@�e
					//‹@�e–k�¼
					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<MG1NW_Ang & GUN_Base_y<=145 & GUN_Base_y>=25 {
					MG1NWx=MG1NWx+2
					MG1NW_Ang=MG1NW_Ang-2
					}
					//‹@�e“ì�¼
					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<MG1SW_Ang & GUN_Base_y<=155 & GUN_Base_y>=45 {
					MG1SWx=MG1SWx+2
					MG1SW_Ang=MG1SW_Ang-2
					}
					//‹@�e–k“Œ
					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<MG1NE_Ang & GUN_Base_y>=-145 & GUN_Base_y<=-25 {
					MG1NEx=MG1NEx+2
					MG1NE_Ang=MG1NE_Ang-2
					}
					//‹@�e“ì“Œ
					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<MG1SE_Ang & GUN_Base_y>=-155 & GUN_Base_y<=-45 {
					MG1SEx=MG1SEx+2
					MG1SE_Ang=MG1SE_Ang-2
					}

			goto angle_Ini
			//‹@�eŠp“xEND-------------------

			//ƒ~ƒTƒCƒ‹Šp“x----------------------
			label M_angle
				//Šî�€Šp“x----------------------
				if _KEY(15)=1{
					mis_Base_x=mis_Base_x+2
				}
				if _KEY(5)=1{
					mis_Base_x=mis_Base_x-2
				}

				//ƒ~ƒTƒCƒ‹Šp“x----------------------
				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<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
				}

			goto angle_Ini
			//ƒ~ƒTƒCƒ‹Šp“xEND-------------------

			//Šp“x�‰Šú‰»----------------------
			label angle_Ini
				//Žå–C
					//‘O•”Šp“x�‰Šú‰»”»’è----------------------
					if _RY(BASE,0)>2.20 | _RY(BASE,0)<-2.20 | ARM_MOOD<>0{
						kanon1x=kanon1x-1
						kanon2x=kanon2x-1
						kanon3x=kanon3x-1
					}

					//Œã•”Šp“x�‰Šú‰»”»’è----------------------
					if _RY(BASE,ZERO)>2.20 | _RY(BASE,ZERO)<-2.20 | ARM_MOOD<>0{
						kanon4x=kanon4x+1
						kanon5x=kanon5x+1
					}

				//‘΋ó‹@ŠÖ–C
					//�¶Œ½‘΋ó‹@ŠÖ–C
					if 0>MG2AB_Ang & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) {
					MG2ABx=MG2ABx-2
					MG2AB_Ang=MG2AB_Ang+2
					}
					if 0<MG2AB_Ang & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<35) {
					MG2ABx=MG2ABx+2
					MG2AB_Ang=MG2AB_Ang-2
					}

					//‰EŒ½‘΋ó‹@ŠÖ–C
					if 0>MG2CD_Ang & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-35) {
					MG2CDx=MG2CDx-2
					MG2CD_Ang=MG2CD_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
					}
				//‹@�e
					//‹@�e–k�¼
					if 0>MG1NW_Ang & (ARM_MOOD<>1 | GUN_Base_y>145 | GUN_Base_y<25) {
					MG1NWx=MG1NWx-2
					MG1NW_Ang=MG1NW_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
					}

					//‹@�e“ì�¼
					if 0>MG1SW_Ang & (ARM_MOOD<>1 | GUN_Base_y>155 | GUN_Base_y<45){
					MG1SWx=MG1SWx-2
					MG1SW_Ang=MG1SW_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
					}

					//‹@�e–k“Œ
					if 0>MG1NE_Ang & (ARM_MOOD<>1 | GUN_Base_y<-145 | GUN_Base_y>-25){
					MG1NEx=MG1NEx-2
					MG1NE_Ang=MG1NE_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
					}

					//‹@�e“ì“Œ
					if 0>MG1SE_Ang & (ARM_MOOD<>1 | GUN_Base_y<-155 | GUN_Base_y>-45){
					MG1SEx=MG1SEx-2
					MG1SE_Ang=MG1SE_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
					}

				//ƒ~ƒTƒCƒ‹
					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 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
					}

			//Šp“x�‰Šú‰»END----------------------

		label angle_END

		//Šp“xEND----------------------


		//ŽËŒ‚----------------------
		if ARM_MOOD=0{		//Žå–C
		goto K_Attack
		}
		if ARM_MOOD=1{		//‹@�e
		goto G_Attack
		}
		if ARM_MOOD=2{		//ƒ~ƒTƒCƒ‹
		goto M_Attack
		}

		goto Attack_END

			//Žå–C”­ŽË----------------------
			label K_Attack

				//”­–C’x‰„----------------------
				If Fire_Order>0{
				Fire_Order=Fire_Order-1
				}

				If _KEY(8)=1 & Fire_Order=0{
				Fire_Order=3
				}

				//‘O•”Žå–C----------------------
					//ˆê”Ô–C“ƒ----------------------
					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
					}

					//“ñ”Ô–C“ƒ----------------------
					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
					}

					//ŽO”Ô–C“ƒ----------------------
					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
					}

				//Œã•”Žå–C----------------------
					//Žl”Ô–C“ƒ----------------------
					if (kanon4y<=-110 | kanon4y>=110) & kanon4x<80  & mis_COUNT>0 {		//Š±�–hŽ~”»’è
					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
					}

					//ŒÜ”Ô–C“ƒ----------------------
					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
			//Žå–C”­ŽËEND----------------------


			//‹@�e”­ŽË----------------------MG2AB_Switch MG2CD_Switch
			label G_Attack

				//‘΋ó‹@ŠÖ–C----------------------
					//�¶Œ½----------------------
					if GUN_Base_y>=140 & GUN_Base_x>20 & mis_COUNT>0 {	//Š±�–hŽ~”»’è
					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

					//‰EŒ½----------------------
					if GUN_Base_y<=-140 & GUN_Base_x>20  & mis_COUNT>0 {	//Š±�–hŽ~”»’è
					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

				//‹@�e----------------------
					//‹@�e–k�¼
					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

					//‹@�e“ì�¼
					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

					//‹@�e–k“Œ
					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

					//‹@�e“ì“Œ
					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

				//ŒÅ’è–C--------------------
					//‘O•”
					if FG_NWE_Switch=1 & _RY(BASE,NOSE)<-0.02{	//Š±�–hŽ~”»’è
					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{	//Š±�–hŽ~”»’è
					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
			//‹@�e”­ŽËEND-------------------

			//ƒ~ƒTƒCƒ‹”­ŽË-------------------
			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
			//ƒ~ƒTƒCƒ‹”­ŽËEND-------------------


		label Attack_END

	//‰ÎŠíŠÇ�§ƒVƒXƒeƒ€END----------------------


	//ƒI�[ƒgƒoƒ‰ƒ“ƒT�[-------------
		//‘OŒã
		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
		}

		//�¶‰E
		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{		//Žå–C
	GOTO K_info
	}
	if ARM_MOOD=1{		//‹@�e
	GOTO G_info
	}
	if ARM_MOOD=2{		//ƒ~ƒTƒCƒ‹
	GOTO M_info
	}
	GOTO info_END
		//Žå–C----------------------
		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
		//‹@�e----------------------
		label G_info
			print 5,"[BASE ANGLE]"
			print 6,GUN_Base_x
			print 7,"[DIRECTION LINK]"

				//‹@�e–k----------------------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 {	//Š±�–hŽ~”»’è
				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

					//‹@�e–k�¼
					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"
					}

					//�¶Œ½‘΋ó‹@ŠÖ–C �¼
					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"
					}

					//‹@�e“ì�¼
					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

					//‹@�e–k“Œ
					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"
					}

					//�¶Œ½‘΋ó‹@ŠÖ–C “Œ
					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"
					}

					//‹@�e“ì“Œ
					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

				//‹@�e“ì----------------------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

		//ƒ~ƒTƒCƒ‹------------------
		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-----------------

}