// [RCD] 
Val
{
	COL1(default=#0000FF, disp=0)
	FW(default=0, min=-15, max=15, disp=0)
	JL(default=0, min=-50000000, max=50000000)
	JR(default=0, min=-50000000, max=50000000)
	RO2L(default=0, min=-15, max=15, disp=0)
	RO2R(default=0, min=-15, max=15, disp=0)
	RO3L(default=0, min=-15, max=15, disp=0)
	RO3R(default=0, min=-15, max=15, disp=0)
	ROFL(default=0, min=-30, max=20, disp=0)
	ROFR(default=0, min=-30, max=20, disp=0)
	RORL(default=0, min=-20, max=20, disp=0)
	RORR(default=0, min=-20, max=20, disp=0)
	YOL(default=0, min=-50, max=50, disp=0)
	YOR(default=0, min=-50, max=50, disp=0)
}
Key
{
}
Body
{
	Core() {
		S:Frame(angle=120) {
			S:Frame() {
				S:Frame(angle=0) {
					S:Chip(angle=-120, color=COL1) {
						S:Trim(color=COL1) {
							S:Trim(color=COL1) {
								S:Trim(color=COL1) {
									S:Trim(color=COL1) {
										S:Trim(color=COL1) {
											E:Chip(angle=0, color=COL1) {
												E:Chip(angle=90, color=COL1) {
													N:Jet(angle=90, power=jr, color=COL1) {
														N:Cowl(angle=90, color=COL1) { }
														E:Cowl(angle=90, color=COL1) { }
													}
													E:Weight(color=COL1) {
														E:Chip(angle=90, color=COL1) {
															W:Trim(angle=ro3r, color=COL1) { }
															S:Cowl(color=COL1) { }
														}
														S:Cowl(angle=yor, color=COL1) { }
													}
												}
												E:Trim(angle=RORR, color=COL1, name=wrr) { }
											}
											W:Chip(angle=0, color=COL1) {
												W:Chip(angle=90, color=COL1) {
													N:Jet(angle=90, power=jl, color=COL1) {
														N:Cowl(angle=90, color=COL1) { }
														W:Cowl(angle=90, color=COL1) { }
													}
													W:Weight(color=COL1) {
														W:Chip(angle=90, color=COL1) {
															E:Trim(angle=-ro3l, color=COL1) { }
															S:Cowl(color=COL1) { }
														}
														S:Cowl(angle=yol, color=COL1) { }
													}
												}
												W:Trim(angle=-RORL, color=COL1, name=wrl) { }
											}
											S:Cowl(angle=-87) {
												W:Cowl() { }
												E:Cowl() { }
											}
										}
									}
								}
							}
							E:Cowl(color=COL1) {
								S:Cowl(color=COL1) { }
							}
							W:Cowl(color=COL1) {
								S:Cowl(color=COL1) { }
							}
						}
						N:Trim(color=COL1) {
							W:Chip(color=COL1) {
								W:Trim(angle=-ROFL, color=COL1, name=wfl) { }
								W:Cowl(angle=-70) {
									N:Cowl(angle=-20) {
										N:Cowl() {
											N:Cowl(angle=-20) {
												N:Cowl(angle=-40, option=5) { }
												W:Cowl(angle=-113) { }
											}
											W:Cowl(angle=-110) { }
										}
										W:Cowl(angle=-110) { }
									}
									W:Cowl(angle=-110) {
										S:Cowl() {
											S:Cowl() {
												S:Cowl() {
													S:Cowl() {
														S:Cowl() {
															S:Cowl() {
																S:Cowl(angle=-92, option=3) { }
																W:Cowl(angle=-1) { }
															}
														}
													}
												}
											}
										}
									}
									S:Cowl() {
										S:Cowl() {
											S:Cowl() {
												S:Cowl() {
													S:Cowl() {
														S:Cowl() {
															S:Cowl(angle=-92, option=4) { }
														}
													}
												}
											}
										}
									}
								}
								W:Cowl(angle=90, color=COL1) {
									W:Cowl(color=COL1) {
										W:Cowl(angle=-90, option=1) {
											N:Cowl(angle=-ro2l, color=COL1) { }
										}
									}
								}
							}
							E:Chip(color=COL1) {
								E:Trim(angle=ROFR, color=COL1, name=wfr) { }
								E:Cowl(angle=-70) {
									S:Cowl() {
										S:Cowl() {
											S:Cowl() {
												S:Cowl() {
													S:Cowl() {
														S:Cowl() {
															S:Cowl(angle=-92, option=3) { }
														}
													}
												}
											}
										}
									}
									N:Cowl(angle=-20) {
										N:Cowl() {
											N:Cowl(angle=-20) {
												N:Cowl(angle=-40, option=5) { }
												E:Cowl(angle=-113) { }
											}
											E:Cowl(angle=-110) { }
										}
										E:Cowl(angle=-110) { }
									}
									E:Cowl(angle=-110) {
										S:Cowl() {
											S:Cowl() {
												S:Cowl() {
													S:Cowl() {
														S:Cowl() {
															S:Cowl() {
																S:Cowl(angle=-92, option=4) { }
																E:Cowl(angle=-1) { }
															}
														}
													}
												}
											}
										}
									}
								}
								E:Cowl(angle=90, color=COL1) {
									E:Cowl(color=COL1) {
										E:Cowl(angle=-90, option=1) {
											N:Cowl(angle=-ro2r, color=COL1) { }
										}
									}
								}
							}
							N:Cowl(angle=fw, color=COL1) {
								N:Cowl(color=COL1) { }
							}
						}
					}
				}
			}
		}
		N:Cowl(angle=5) {
			N:Cowl(angle=25) {
				N:Cowl(angle=0) {
					E:Cowl(angle=30) { }
					W:Cowl(angle=30) { }
					N:Cowl(angle=0) {
						W:Cowl(angle=30, option=4) { }
						E:Cowl(angle=30, option=3) { }
						N:Cowl(angle=-60, option=5) { }
					}
				}
				W:Cowl(angle=30) {
					S:Cowl(angle=-2, option=3) { }
					W:Cowl(angle=60) {
						N:Cowl() { }
						S:Cowl() { }
					}
				}
				E:Cowl(angle=30) {
					S:Cowl(angle=-2, option=4) { }
					E:Cowl(angle=60) {
						N:Cowl() { }
						S:Cowl() { }
					}
				}
			}
			W:Cowl(angle=-1, option=4) { }
			E:Cowl(angle=1, option=3) { }
		}
		W:Cowl() {
			S:Cowl() {
				S:Cowl() {
					S:Cowl() { }
				}
			}
			W:Cowl(angle=90) {
				W:Cowl() {
					S:Cowl() {
						S:Cowl(angle=1) { }
					}
					N:Cowl(angle=10) { }
				}
				S:Cowl() {
					S:Cowl(angle=1) { }
				}
				N:Cowl(angle=20, option=4) { }
			}
		}
		E:Cowl() {
			S:Cowl() {
				S:Cowl() {
					S:Cowl() { }
				}
			}
			E:Cowl(angle=90) {
				S:Cowl() {
					S:Cowl(angle=1) { }
				}
				E:Cowl() {
					S:Cowl() {
						S:Cowl(angle=1) { }
					}
					N:Cowl(angle=10) { }
				}
				N:Cowl(angle=20, option=3) { }
			}
		}
		S:Cowl() {
			S:Cowl() {
				S:Cowl() {
					S:Cowl(angle=110) {
						S:Cowl(angle=-110) {
							S:Cowl(angle=70) {
								W:Cowl() {
									W:Cowl(angle=91) { }
								}
								E:Cowl() {
									E:Cowl(angle=91) { }
								}
							}
							W:Cowl() {
								W:Cowl(angle=90) {
									N:Cowl(angle=1) { }
								}
							}
							E:Cowl() {
								E:Cowl(angle=90) {
									N:Cowl(angle=1) { }
								}
							}
						}
						W:Cowl() {
							W:Cowl(angle=90, color=COL1) {
								N:Cowl(option=3, color=COL1) { }
								S:Cowl(color=COL1) { }
							}
						}
						E:Cowl() {
							E:Cowl(angle=90, color=COL1) {
								N:Cowl(option=4, color=COL1) { }
								S:Cowl(color=COL1) { }
							}
						}
					}
				}
			}
		}
	}
}
Lua
{
function ang(m,n,v)
	if m-n<v and m-n>-v then m=n
	elseif m<n then m=m+v
	elseif m>n then m=m-v
	end
	return m
end

pow=0
yo=0
mode=0


brk=0
function main()
	if _KEYDOWN(4)==1 then mode=math.mod(mode+1,2) end
	
	if mode==0 then -----------------------------------------------------------
		out(2,"[Z:切り替え] (低速モード)")
		
		FW=ang(FW,-8,3)
		
		RO2L=ang(RO2L,0,3)
		RO2R=ang(RO2R,0,3)
		
		RO3L=ang(RO3L,0,3)
		RO3R=ang(RO3R,0,3)
		
		ROFL=ang(RORL,5,3)
		ROFR=ang(RORL,5,3)
		
		RORL=ang(RORL,5,3)
		RORR=ang(RORL,5,3)
		
		if _KEY(0)==1 then pow=math.min(pow+5000,70000)
		elseif _KEY(1)==1 then pow=math.max(pow-3000,-15000)
		else pow=ang(pow,0,15000) end
		
		
		if _KEY(2)+_KEY(3)==1 then
			yo=math.min(math.max(yo+_KEY(2)*3-_KEY(3)*3,-20),20)
		else
			yo=ang(yo,0,3)
		end
		
		if _KEY(2)+_KEY(3)==2 then
			brk=math.min(brk+5,30)
		else
			brk=math.max(brk-5,0)
		end
		
		if yo>0 then
			YOL=-yo*1.5 -brk
			YOR=yo -brk
		else
			YOL=-yo -brk
			YOR=yo*1.5 -brk
		end
		
		
		JL=pow-yo*2000
		JR=pow+yo*2000
	elseif mode==1 then ------------------------------------------------------------
		out(2,"[Z:切り替え] (高速モード)")
		
		RO2L=ang(RO2L,10,3)
		RO2R=ang(RO2R,10,3)
		
		RO3L=ang(RO3L,3,3)
		RO3R=ang(RO3R,3,3)
		
		
		if _KEY(2)+_KEY(3)==1 then
			yo=math.min(math.max(yo+_KEY(2)*1.5-_KEY(3)*1.5,-16),16)
		else
			yo=ang(yo,0,2)
		end
		
		if _KEY(2)+_KEY(3)==2 then
			brk=math.min(brk+5,30)
		else
			brk=math.max(brk-5,0)
		end
		
		if yo>0 then
			YOL=-yo*1.5 -brk
			YOR=yo -brk
		else
			YOL=-yo -brk
			YOR=yo*1.5 -brk
		end
		
		
		if _KEY(0)==1 then pow=pow+5000
		elseif _KEY(1)==1 then pow=math.max(pow-3000,-15000)
		else pow=ang(pow,0,15000) end
		
		if _Y(WFL)+_Y(WFR)>0 and _Y(WFL)+_Y(WFR)<1.5 then
			pow=math.min(pow,200000)
			JL=pow-yo*1000
			JR=pow+yo*1000
		else
			pow=math.min(pow,40000)
			JL=pow-yo*3000
			JR=pow+yo*3000
		end
		
		--out(7,_Y(WFL))
		if _Y(WFL)+_Y(WFR)>1 then
			FW=ang(FW,2,3)
		else
			FW=ang(FW,0,3)
		end
		
		ROFL=ang(ROFL,-(_Y(WFL)-0.7)*20-18,3)
		ROFR=ang(ROFR,-(_Y(WFR)-0.7)*20-18,3)
		
		RORL=ang(RORL,-(_Y(WRL)-0.7)*18-16,3)
		RORR=ang(RORR,-(_Y(WRR)-0.7)*18-16,3)
		
		
	end
	
	local zoom=_ZOOM(90)
	out(0,string.format("  FPS : %2.1f  Chips : %d  Weight : %.1f    %3.1f km/h  ( %3.1f knot )",_FPS(),_CHIPS(),_WEIGHT(),-(_VZ(0)*3.6),-(_VZ(0)*1.9438))) 
end
}