Incomplete Rigidchips Tank

// [RCD]
Val
{
	BRK(default=10, max=99999, disp=0)
	DMP(default=0.5, max=1, disp=0)
	G1_A1(default=0, min=-3600, max=3600, disp=0)
	G1_A2(default=0, min=-3600, max=3600, disp=0)
	G1_A3(default=0, min=-3600, max=3600, disp=0)
	G1_P(default=0, max=12800000, step=12800000, disp=0)
	G2_A1(default=0, min=-3600, max=3600, disp=0)
	G2_A2(default=0, min=-3600, max=3600, disp=0)
	G2_A3(default=0, min=-3600, max=3600, disp=0)
	G2_P(default=0, max=12800000, step=12800000, disp=0)
	G3_A1(default=0, min=-3600, max=3600, disp=0)
	G3_A2(default=0, min=-3600, max=3600, disp=0)
	G3_A3(default=0, min=-3600, max=3600, disp=0)
	G3_P(default=0, max=12800000, step=12800000, disp=0)
	G4_A1(default=0, min=-3600, max=3600, disp=0)
	G4_A2(default=0, min=-3600, max=3600, disp=0)
	G4_A3(default=0, min=-3600, max=3600, disp=0)
	G4_P(default=0, max=12800000, step=12800000, disp=0)
	G5_A1(default=0, min=-3600, max=3600, disp=0)
	G5_A2(default=0, min=-3600, max=3600, disp=0)
	G5_A3(default=0, min=-3600, max=3600, disp=0)
	G5_P(default=0, max=12800000, step=12800000, disp=0)
	GFO(default=1, max=1, disp=0)
	GUN(default=0, max=12800000, step=12800000)
	LTRACK(default=0, min=-2000, max=2000, step=100)
	PITCH(default=30, max=33)
	RTRACK(default=0, min=-2000, max=2000, step=100)
	SPR(default=0.05, max=1, disp=0)
	WHEELANG(default=-20, min=-45, max=0)
	YAW(default=0, min=-300000, max=300000)
}
Key
{
	0:PITCH(step=-1)
	1:PITCH(step=1)
	2:YAW(step=1)
	3:YAW(step=-1)
	8:LTRACK(step=-100), RTRACK(step=-100)
	15:LTRACK(step=100), RTRACK(step=100)
	16:GUN(step=9999999999)
}
Body
{
	Core() {
		S:Frame(angle=150) {
			S:Weight(angle=170) {
				S:Weight(angle=-140) {
					S:Frame(angle=-35) {
						W:Cowl(angle=180, color=#0080C0, effect=#CF00) { }
					}
				}
				N:Weight(angle=-40) {
					N:Frame(angle=G1_A1, option=GFO) {
						N:Frame(angle=G1_A2, option=GFO) {
							N:Arm(angle=G1_A3, power=G1_P, option=200000, name=G1N) { }
						}
					}
					N:Frame(angle=G2_A1, option=GFO) {
						N:Frame(angle=G2_A2, option=GFO) {
							N:Arm(angle=G2_A3, power=G2_P, option=200000, name=G2N) { }
						}
					}
					N:Frame(angle=G3_A1, option=GFO) {
						N:Frame(angle=G3_A2, option=GFO) {
							N:Arm(angle=G3_A3, power=G3_P, option=200000, name=G3N) { }
						}
					}
					N:Frame(angle=G4_A1, option=GFO) {
						N:Frame(angle=G4_A2, option=GFO) {
							N:Arm(angle=G4_A3, power=G4_P, option=200000, name=G4N) { }
						}
					}
					N:Frame(angle=G5_A1, option=GFO) {
						N:Frame(angle=G5_A2, option=GFO) {
							N:Arm(angle=G5_A3, power=G5_P, option=200000, name=G5N) { }
						}
					}
				}
			}
			S:Weight(angle=PITCH) {
				S:Rudder(angle=-YAW) {
					E:Weight() {
						E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
					}
					W:Weight() {
						W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
					}
					S:Weight(color=#FF0000) {
						W:Weight() {
							W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						}
						E:Weight() {
							E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						}
						E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
					}
					N:Weight() {
						W:Weight() {
							W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						}
						E:Weight() {
							E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						}
						N:Weight(color=#0000FF) {
							W:Weight() {
								W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
							}
							E:Weight() {
								E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
							}
							E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
							W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						}
						E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
						W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
					}
					W:Wheel(angle=WHEELANG, power=LTRACK, brake=BRK, spring=SPR, damper=DMP) { }
					E:Wheel(angle=WHEELANG, power=-RTRACK, brake=BRK, spring=SPR, damper=DMP) { }
				}
			}
		}
	}
}
Lua
{loadedgun=1

function fcs(trig)

 for n=1,5 do
  if loadedgun==n then
  local gt=ikcontrol(1.984313482984,-0.125,-1)
   for k=1,3 do
   _G["G"..n.."_A"..k] = gt[k]
   end
  else
    local gt=ikcontrol(1,-0.125,-1)
   for k=1,3 do
   _G["G"..n.."_A"..k] = gt[k]
   end
  end
 end
  if trig==1 and _E(_G["G"..loadedgun.."_N"==200000]) then
  _G["G"..loadedgun.."_P"]=12800000
  loadedgun=loadedgun+1
   if loadedgun>5 then
    loadedgun=1
   end
 end
end

function zoom(toggle)
if count==nil then count=1 end
if toggle==1 then count=count+1 end
if count>5 then count=1 end
_ZOOM(100/count)
end

function correctdeg(a)
while a>180 do
a=a-360 end
while a<-180 do
a=a+360 end
return a
end


function ikcontrol(x,y,s)
local ang=math.deg(math.atan2(y,x))
local dist=(x^2+y^2)^0.5
if dist>2 then dist=2 end
local a0=ang+(math.deg(math.acos(dist/2))*s)
local a1=-2*(math.deg(math.acos(dist/2))*s)
local a2= -a0-a1
return {a0,a1,a2}
end



function main()
zoom(_KEYDOWN(16))
YAW=correctdeg(YAW)
_SETCOLOR(65535)
_MOVE2D(0.01,0)
_LINE2D(-0.01,0)
_MOVE2D(0,0.01)
_LINE2D(0,-0.01)
fcs(_KEYDOWN(14))
out(0,math.cos(math.asin(0.125))*2)
end}