// [RCD] 
// 起動/停止 :  V/ A
// 出力大/小 :  V/ D
// 上昇/下降 :  S/ X
// 左右回頭  :  Z/ C
// 前進/後退 : ↑/↓
// 左右旋回  : ←/→
// 出力40000付近から定常運転が可能
Val
{
	C1(default=0, min=-4, max=4, step=4, disp=0)
	C2(default=0, min=-3, max=3, step=3, disp=0)
	CEX(default=0, min=-3.2, max=3.2, disp=0)
	CEZ(default=0, min=-3.2, max=3.2, disp=0)
	CR(default=0, min=-10, max=10, step=5, disp=0)
	ENGINE(default=0, max=80000)
	K1(default=0, max=1, disp=0)
	NS(default=30, max=30, disp=0)
	R11(default=15, min=-5, max=45, step=2, disp=0)
	R12(default=15, min=-5, max=45, step=2, disp=0)
	R21(default=15, min=-5, max=45, step=2, disp=0)
	R22(default=15, min=-5, max=45, step=2, disp=0)
	ROLL(default=0, min=-600, max=600, step=20)
	UD(default=0, min=-15, max=15, step=7, disp=0)
	WING(default=0, min=-30, max=30, step=5)
}
Key
{
	0:C1(step=-1)
	1:C1(step=1)
	2:C2(step=-1)
	3:C2(step=1)
	4:CR(step=-1)
	5:UD(step=-3)
	6:CR(step=1)
	7:K1(step=-1), ENGINE(step=-5000)
	8:UD(step=3)
	9:ENGINE(step=-1000)
	10:ENGINE(step=1000), K1(step=1)
}
Body
{
	Core(name=core) {
		S:Frame(angle=-30) {
			S:Frame(angle=-60) {
				S:Wheel(angle=-90, power=ROLL, option=1, color=#000000, effect=1, name=main) {
					S:Wheel(angle=180, power=-ENGINE) {
						N:TrimF(angle=R12, name=p1) {
							N:Chip() {
								N:Chip() { }
							}
						}
						S:TrimF(angle=R11, name=p3) {
							S:Chip() {
								S:Chip() { }
							}
						}
					}
					S:Wheel(angle=180, power=ENGINE, name=ROT1) {
						N:TrimF(angle=-R21, name=p2) {
							N:Chip() {
								N:Chip() { }
							}
						}
						S:TrimF(angle=-R22, name=p4) {
							S:Chip() {
								S:Chip() { }
							}
						}
					}
				}
			}
			S:Cowl(angle=-150) {
				S:Cowl(angle=-15, color=#008040, effect=#C000) {
					S:Cowl(angle=-30, color=#008040, effect=#C000) {
						E:Cowl(angle=-90, option=4) { }
						W:Cowl(angle=-90, option=3) { }
						S:Cowl(angle=-130) { }
					}
				}
				W:Cowl(angle=-90) {
					N:Cowl(angle=-30) { }
				}
				E:Cowl(angle=-90) {
					N:Cowl(angle=-30) {
						N:Cowl(angle=30, option=4) {
							W:Cowl(angle=90, option=5) { }
							W:Cowl(angle=-90, option=5) { }
						}
					}
				}
			}
		}
		S:Frame(angle=30) {
			S:Frame(angle=150) {
				W:Frame(angle=-NS, damper=0.1) { }
				E:Frame(angle=-NS, damper=0.1) { }
				S:Frame(angle=-NS, damper=0.1) { }
				N:Trim(angle=90, damper=0.1) { }
				E:Trim(angle=WING) { }
				W:Trim(angle=-WING) { }
			}
		}
	}
}
Script
{
	CEX=_ASIN(_XY(main-1))
	CEZ=_ASIN(_ZY(main-1))

	WING=-_TODEG(CEX)*K1

	if K1>0 & _VY()>=1{NS=NS-3}
	if K1=0 & _H()>=0 & _H()<5{NS=NS+3}

	ROLL=(38*(CR-_WY()*10)-0.3*_WY()*_DT)*K1

	R11=((C2-CEX*10)*_SIN(_RY(main-1,p3))-(-C1+CEZ*10)*_COS(_RY(main-1,p3))+_ABS(_VZ())/2-_VY()/3)*K1+UD+15
	R22=((C2-CEX*10)*_SIN(_RY(main-1,p4))-(-C1+CEZ*10)*_COS(_RY(main-1,p4))+_ABS(_VZ())/2-_VY()/3)*K1+UD+15
	R12=((-C1+CEZ*10)*_COS(_RY(main-1,p1))-(C2-CEX*10)*_SIN(_RY(main-1,p1))+_ABS(_VZ())/2-_VY()/3)*K1+UD+15
	R21=((-C1+CEZ*10)*_COS(_RY(main-1,p2))-(C2-CEX*10)*_SIN(_RY(main-1,p2))+_ABS(_VZ())/2-_VY()/3)*K1+UD+15

	PRINT 1,"Cruising_speed : ",_VZ()*-3.6," km/h"
	PRINT 2,"Climbing_speed : ",_VY()* 3.6," km/h"
}