// cube x4
val{
	jpowu_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowd_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowf_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowb_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowl_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowr_1(default=0,min=-10000000,max=10000000,step=0,disp=0)
	tgtx_1(default=0,min=-100000,max=100000,step=0,disp=0)
	tgty_1(default=0,min=-100000,max=100000,step=0,disp=0)
	tgtz_1(default=0,min=-100000,max=100000,step=0,disp=0)

	jpowu_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowd_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowf_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowb_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowl_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowr_2(default=0,min=-10000000,max=10000000,step=0,disp=0)
	smoke_2(default=0,min=0,max=1,step=1,disp=0)
	tgtx_2(default=0,min=-100000,max=100000,step=0,disp=0)
	tgty_2(default=0,min=-100000,max=100000,step=0,disp=0)
	tgtz_2(default=0,min=-100000,max=100000,step=0,disp=0)

	jpowu_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowd_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowf_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowb_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowl_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowr_3(default=0,min=-10000000,max=10000000,step=0,disp=0)
	smoke_3(default=0,min=0,max=2,step=2,disp=0)
	tgtx_3(default=0,min=-100000,max=100000,step=0,disp=0)
	tgty_3(default=0,min=-100000,max=100000,step=0,disp=0)
	tgtz_3(default=0,min=-100000,max=100000,step=0,disp=0)

	jpowu_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowd_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowf_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowb_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowl_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	jpowr_4(default=0,min=-10000000,max=10000000,step=0,disp=0)
	smoke_4(default=0,min=0,max=3,step=3,disp=0)
	tgtx_4(default=0,min=-100000,max=100000,step=0,disp=0)
	tgty_4(default=0,min=-100000,max=100000,step=0,disp=0)
	tgtz_4(default=0,min=-100000,max=100000,step=0,disp=0)
}

key{
	4:smoke_2(step=1),smoke_3(step=2),smoke_4(step=3)
}

body{
	core(name=C_1,color=#FFFFFF){
		n:chip(angle=90,color=#FFFFFF){
			s:jet(angle=90,power=jpowu_1,color=#FFFFFF){
			}
		}
		n:jet(angle=90,power=jpowf_1,color=#FFFFFF){
		}
		w:chip(angle=90,color=#FFFFFF){
		}
		w:jet(angle=90,power=jpowl_1,color=#FFFFFF){
		}
		e:chip(angle=90,color=#FFFFFF){
		}
		e:jet(angle=90,power=jpowr_1,color=#FFFFFF){
		}
		s:chip(angle=90,color=#FFFFFF){
			s:chip(angle=90,name=foot_1,color=#FFFFFF){
			}
		}
		s:jet(angle=90,power=jpowb_1,color=#FFFFFF){
			s:jet(angle=90,power=jpowd_1,color=#FFFFFF){
			}
		}

	n:chip(name=C_2,color=#0000FF){
		n:chip(angle=90,color=#0000FF){
			s:jet(angle=90,power=jpowu_2,color=#0000FF,effect=smoke_2){
			}
		}
		n:jet(angle=90,power=jpowf_2,color=#0000FF){
		}
		w:chip(angle=90,color=#0000FF){
		}
		w:jet(angle=90,power=jpowl_2,color=#0000FF){
		}
		e:chip(angle=90,color=#0000FF){
		}
		e:jet(angle=90,power=jpowr_2,color=#0000FF){
		}
		s:chip(angle=90,color=#0000FF){
			s:chip(angle=90,name=foot_2,color=#0000FF){
			}
		}
		s:jet(angle=90,power=jpowb_2,color=#0000FF){
			s:jet(angle=90,power=jpowd_2,color=#0000FF){
			}
		}
	}

	n:chip(name=C_3,color=#FFFF00){
		n:chip(angle=90,color=#FFFF00){
			s:jet(angle=90,power=jpowu_3,color=#FFFF00,effect=smoke_3){
			}
		}
		n:jet(angle=90,power=jpowf_3,color=#FFFF00){
		}
		w:chip(angle=90,color=#FFFF00){
		}
		w:jet(angle=90,power=jpowl_3,color=#FFFF00){
		}
		e:chip(angle=90,color=#FFFF00){
		}
		e:jet(angle=90,power=jpowr_3,color=#FFFF00){
		}
		s:chip(angle=90,color=#FFFF00){
			s:chip(angle=90,name=foot_3,color=#FFFF00){
			}
		}
		s:jet(angle=90,power=jpowb_3,color=#FFFF00){
			s:jet(angle=90,power=jpowd_3,color=#FFFF00){
			}
		}
	}

	n:chip(name=C_4,color=#FF0000){
		n:chip(angle=90,color=#FF0000){
			s:jet(angle=90,power=jpowu_4,color=#FF0000,effect=smoke_4){
			}
		}
		n:jet(angle=90,power=jpowf_4,color=#FF0000){
		}
		w:chip(angle=90,color=#FF0000){
		}
		w:jet(angle=90,power=jpowl_4,color=#FF0000){
		}
		e:chip(angle=90,color=#FF0000){
		}
		e:jet(angle=90,power=jpowr_4,color=#FF0000){
		}
		s:chip(angle=90,color=#FF0000){
			s:chip(angle=90,name=foot_4,color=#FF0000){
			}
		}
		s:jet(angle=90,power=jpowb_4,color=#FF0000){
			s:jet(angle=90,power=jpowd_4,color=#FF0000){
			}
		}
	}

	}
}

script{
	t=_split(C_2)
	t=_split(C_3)
	t=_split(C_4)

	// 時間表示 //
	sec=_mod(_ticks()/30,60)
	hmin=_int(_ticks()/86400)+_mod(_int(_ticks()/1800),60)/100

	// _az()の補正 //
	azs=_y(C_1)-_y(foot_1)
	az=_az(C_1)
	if(azs<0){az=_sgn(az)*_pi()-az}

	lx=tgtx_1-_x(C_1)
	ly=tgty_1-_y(C_1)
	lz=tgtz_1-_z(C_1)
	dst=_len3(lx,ly,lz)
	t1=_mod(_ticks(),15)
	t2=_mod(_ticks(),200)
	if(t1==0)&(t2<100){
		tgtx_1=_int(_rnd()*1001)-500
		tgty_1=_int(_rnd()*951)+50
		tgtz_1=_int(_rnd()*1001)-500
		lx=tgtx_1-_x(C_1)
		ly=tgty_1-_y(C_1)
		lz=tgtz_1-_z(C_1)
		dst=_len3(lx,ly,lz)
	}
	if(t1==0)&(t2>=100){
		tgtx_1=_x(C_1)
		tgty_1=_y(C_1)
		tgtz_1=_z(C_1)
		lx=tgtx_1-_x(C_1)
		ly=tgty_1-_y(C_1)
		lz=tgtz_1-_z(C_1)
		dst=_len3(lx,ly,lz)
	}

	// コアを基準としたローカル平面上のターゲットローカル座標を求める
	// コアのY軸回転を差し引く（-AYだけ回転させる）
	z=lz*_cos(_ay(C_1))+lx*_sin(_ay(C_1))
	x=lx*_cos(_ay(C_1))-lz*_sin(_ay(C_1))
	lz=z
	lx=x

	// コアのX軸回転を差し引く（-AXだけ回転させる）
	z=lz*_cos(_ax(C_1))-ly*_sin(_ax(C_1))
	y=ly*_cos(_ax(C_1))+lz*_sin(_ax(C_1))
	lz=z
	ly=y

	// コアのZ軸回転を差し引く（-AZだけ回転させる）
	y=ly*_cos(az)+lx*_sin(az)
	x=lx*_cos(az)-ly*_sin(az)
	ly=y
	lx=x

	t=1000000
	if(t2>=100){t=dst*100000}

	r=_len2(lx,lz)
	c=_atan2(r,ly)
	jpowu_1= t*_cos(c)
	jpowd_1=-t*_cos(c)

	r=_len2(lx,ly)
	c=_atan2(r,lz)
	jpowf_1=-t*_cos(c)
	jpowb_1= t*_cos(c)

	r=_len2(ly,lz)
	c=_atan2(r,lx)
	jpowl_1= t*_cos(c)
	jpowr_1=-t*_cos(c)

///////////////////////////////////////////////////////////////////////////////
	// _az()の補正 //
	azs=_y(C_2)-_y(foot_2)
	az=_az(C_2)
	if(azs<0){az=_sgn(az)*_pi()-az}

	tgtx_2=_x(C_1)
	tgty_2=_y(C_1)
	tgtz_2=_z(C_1)
	lx=tgtx_2-_x(C_2)
	ly=tgty_2-_y(C_2)
	lz=tgtz_2-_z(C_2)
	dst=_len3(lx,ly,lz)

	// コアを基準としたローカル平面上のターゲットローカル座標を求める
	// コアのY軸回転を差し引く（-AYだけ回転させる）
	z=lz*_cos(_ay(C_2))+lx*_sin(_ay(C_2))
	x=lx*_cos(_ay(C_2))-lz*_sin(_ay(C_2))
	lz=z
	lx=x

	// コアのX軸回転を差し引く（-AXだけ回転させる）
	z=lz*_cos(_ax(C_2))-ly*_sin(_ax(C_2))
	y=ly*_cos(_ax(C_2))+lz*_sin(_ax(C_2))
	lz=z
	ly=y

	// コアのZ軸回転を差し引く（-AZだけ回転させる）
	y=ly*_cos(az)+lx*_sin(az)
	x=lx*_cos(az)-ly*_sin(az)
	ly=y
	lx=x

	t=1000000

	r=_len2(lx,lz)
	c=_atan2(r,ly)
	jpowu_2= t*_cos(c)
	jpowd_2=-t*_cos(c)

	r=_len2(lx,ly)
	c=_atan2(r,lz)
	jpowf_2=-t*_cos(c)
	jpowb_2= t*_cos(c)

	r=_len2(ly,lz)
	c=_atan2(r,lx)
	jpowl_2= t*_cos(c)
	jpowr_2=-t*_cos(c)

///////////////////////////////////////////////////////////////////////////////
	// _az()の補正 //
	azs=_y(C_3)-_y(foot_3)
	az=_az(C_3)
	if(azs<0){az=_sgn(az)*_pi()-az}

	tgtx_3=_x(C_2)
	tgty_3=_y(C_2)
	tgtz_3=_z(C_2)
	lx=tgtx_3-_x(C_3)
	ly=tgty_3-_y(C_3)
	lz=tgtz_3-_z(C_3)
	dst=_len3(lx,ly,lz)

	// コアを基準としたローカル平面上のターゲットローカル座標を求める
	// コアのY軸回転を差し引く（-AYだけ回転させる）
	z=lz*_cos(_ay(C_3))+lx*_sin(_ay(C_3))
	x=lx*_cos(_ay(C_3))-lz*_sin(_ay(C_3))
	lz=z
	lx=x

	// コアのX軸回転を差し引く（-AXだけ回転させる）
	z=lz*_cos(_ax(C_3))-ly*_sin(_ax(C_3))
	y=ly*_cos(_ax(C_3))+lz*_sin(_ax(C_3))
	lz=z
	ly=y

	// コアのZ軸回転を差し引く（-AZだけ回転させる）
	y=ly*_cos(az)+lx*_sin(az)
	x=lx*_cos(az)-ly*_sin(az)
	ly=y
	lx=x

	t=1000000

	r=_len2(lx,lz)
	c=_atan2(r,ly)
	jpowu_3= t*_cos(c)
	jpowd_3=-t*_cos(c)

	r=_len2(lx,ly)
	c=_atan2(r,lz)
	jpowf_3=-t*_cos(c)
	jpowb_3= t*_cos(c)

	r=_len2(ly,lz)
	c=_atan2(r,lx)
	jpowl_3= t*_cos(c)
	jpowr_3=-t*_cos(c)

///////////////////////////////////////////////////////////////////////////////
	// _az()の補正 //
	azs=_y(C_4)-_y(foot_4)
	az=_az(C_4)
	if(azs<0){az=_sgn(az)*_pi()-az}

	tgtx_4=_x(C_3)
	tgty_4=_y(C_3)
	tgtz_4=_z(C_3)
	lx=tgtx_4-_x(C_4)
	ly=tgty_4-_y(C_4)
	lz=tgtz_4-_z(C_4)
	dst=_len3(lx,ly,lz)

	// コアを基準としたローカル平面上のターゲットローカル座標を求める
	// コアのY軸回転を差し引く（-AYだけ回転させる）
	z=lz*_cos(_ay(C_4))+lx*_sin(_ay(C_4))
	x=lx*_cos(_ay(C_4))-lz*_sin(_ay(C_4))
	lz=z
	lx=x

	// コアのX軸回転を差し引く（-AXだけ回転させる）
	z=lz*_cos(_ax(C_4))-ly*_sin(_ax(C_4))
	y=ly*_cos(_ax(C_4))+lz*_sin(_ax(C_4))
	lz=z
	ly=y

	// コアのZ軸回転を差し引く（-AZだけ回転させる）
	y=ly*_cos(az)+lx*_sin(az)
	x=lx*_cos(az)-ly*_sin(az)
	ly=y
	lx=x

	t=1000000

	r=_len2(lx,lz)
	c=_atan2(r,ly)
	jpowu_4= t*_cos(c)
	jpowd_4=-t*_cos(c)

	r=_len2(lx,ly)
	c=_atan2(r,lz)
	jpowf_4=-t*_cos(c)
	jpowb_4= t*_cos(c)

	r=_len2(ly,lz)
	c=_atan2(r,lx)
	jpowl_4= t*_cos(c)
	jpowr_4=-t*_cos(c)

///////////////////////////////////////////////////////////////////////////////

	print 0,"Vel=",_vel(C_1),", Speed=",_vel(C_1)*3.6,"
	print 1,"x=",_x(C_1),", y=",_y(C_1),", z=",_z(C_1)
	print 2,"ax=",_todeg(_ax(C_1)),", ay=",_todeg(_ay(C_1)),", az=",_todeg(azv_1)
	print 3,"vx=",_vx(C_1),", vy=",_vy(C_1),", vz=",_vz(C_1)
	print 4,"wx=",_wx(C_1),", wy=",_wy(C_1),", wz=",_wz(C_1)
	print 5,"lx=",lx,", ly=",ly,", lz=",lz,", d=",dst
	if(sec<10){print 6,"Time=",hmin,".0",sec,", FPS=",_fps()}
	if(sec>=10){print 6,"Time=",hmin,".",sec,", FPS=",_fps()}
}