// [RCD]
Val
{
AB(default=0, max=1, disp=0)
ABRAKE(default=0, min=-60, max=0, step=3, disp=0)
AILERON(default=0, min=-10, max=10, step=2, disp=0)
ARM1(default=0, max=50000, step=50000)
ARM2(default=0, max=50000, step=50000)
ARM3(default=0, max=50000, step=50000)
ARM4(default=0, max=50000, step=50000)
ARM5(default=0, max=50000, step=50000)
BRAKE(default=0, max=500, disp=0)
CANARD(default=0, min=-18, max=18, step=2, disp=0)
ELEVATOR(default=0, min=-25, max=25, step=4, disp=0)
ENGINE(default=0, min=-7500, max=7500, step=7500)
GEAR_B(default=180, min=120, max=180, step=4)
GEAR_R(default=0, max=30, step=2)
GEAR_W(default=180, min=60, max=180, step=8)
HANDLE(default=90, min=70, max=110, step=2)
JET(default=0, min=-50000, max=250000)
NOZZLE_H(default=180, min=170, max=190, step=2, disp=0)
NOZZLE_V(default=90, min=65, max=115, step=3, disp=0)
}
Key
{
0:CANARD(step=-2), ELEVATOR(step=-4), NOZZLE_V(step=-3)
1:ELEVATOR(step=4), CANARD(step=2), NOZZLE_V(step=3)
2:AILERON(step=2)
3:AILERON(step=-2)
4:JET(step=10000)
5:JET(step=-10000)
6:ARM1(step=100000)
8:NOZZLE_H(step=-2)
9:NOZZLE_H(step=2)
10:ABRAKE(step=-3)
}
Body
{
Core(color=#444444) {
S:Frame(angle=150, color=#444444) {
S:Chip(angle=-150, color=#444444) {
W:Rudder(angle=-45, color=#444444) {
W:Chip(color=#444444) {
W:Chip(color=#444444) {
W:Chip(color=#444444) { }
}
}
}
E:Rudder(angle=45, color=#444444) {
E:Chip(color=#444444) {
E:Chip(color=#444444) {
E:Chip(color=#444444) { }
}
}
}
S:Chip(color=#444444) {
S:Chip(color=#444444) {
S:Chip(color=#444444) {
E:Rudder(angle=90, color=#444444) {
N:Chip(angle=-60, color=#444444) {
E:Chip(color=#444444) { }
S:Rudder(angle=145, color=#444444) {
W:Chip(color=#444444) { }
}
}
E:Rudder(angle=-50, color=#444444) {
E:Chip(color=#444444) { }
}
S:TrimF(angle=NOZZLE_V, option=1, color=#444444) {
S:Jet(angle=NOZZLE_H, power=-JET, effect=AB, color=#222222) {
E:Cowl(angle=-115, color=#222222) { }
W:Cowl(angle=-115, color=#222222) { }
}
}
W:Cowl(color=#444444) {
W:Cowl(color=#222222) {
E:Cowl(angle=-15, color=#222222) {
E:Cowl(angle=15, color=#222222) { }
}
}
}
}
W:Rudder(angle=-90, color=#444444) {
N:Chip(angle=-60, color=#444444) {
W:Chip(color=#444444) { }
S:Rudder(angle=-145, color=#444444) {
E:Chip(color=#444444) { }
}
}
W:Rudder(angle=50, color=#444444) {
W:Chip(color=#444444) { }
}
S:TrimF(angle=-NOZZLE_V, option=1, color=#444444) {
N:Jet(angle=NOZZLE_H, power=-JET, effect=AB, color=#222222) {
W:Cowl(angle=-115, color=#222222) { }
E:Cowl(angle=-115, color=#222222) { }
}
}
E:Cowl(color=#444444) {
E:Cowl(color=#222222) {
W:Cowl(angle=-15, color=#222222) {
W:Cowl(angle=15, color=#222222) { }
}
}
}
}
S:Chip(color=#444444) {
S:Frame(option=1, color=#444444) {
W:Trim(angle=ELEVATOR, color=#444444) { }
E:Trim(angle=-ELEVATOR, color=#444444) { }
}
}
E:Chip(color=#444444) {
E:Trim(angle=AILERON, color=#444444) {
E:Chip(color=#444444) { }
}
}
W:Chip(color=#444444) {
W:Trim(angle=AILERON, color=#444444) {
W:Chip(color=#444444) { }
}
}
E:Frame(angle=GEAR_R, color=#444444) {
E:Wheel(angle=GEAR_W, power=ENGINE, brake=BRAKE, effect=2, color=#444444) { }
}
W:Frame(angle=GEAR_R, color=#444444) {
W:Wheel(angle=GEAR_W, power=-ENGINE, brake=BRAKE, effect=2, color=#444444) { }
}
}
N:Cowl(angle=-30, color=#222222) {
N:Cowl(angle=15, color=#222222) {
N:Cowl(angle=15, effect=#C0FB) {
N:Cowl(angle=20, effect=#C0FB) {
N:Cowl(angle=10, effect=#C0FB) { }
E:Cowl(angle=90, option=3, effect=#C0FB) { }
W:Cowl(angle=90, option=4, effect=#C0FB) { }
}
E:Cowl(angle=91, effect=#C0FB) { }
W:Cowl(angle=90, effect=#C0FB) { }
}
E:Cowl(angle=90, color=#222222) { }
W:Cowl(angle=90, color=#222222) { }
S:Cowl(angle=5, color=#222222) {
S:Cowl(angle=-10, color=#222222) { }
W:Cowl(angle=90, option=3, color=#222222) { }
E:Cowl(angle=90, option=4, color=#222222) { }
}
}
}
W:Cowl(color=#222222) {
W:Cowl(color=#222222) { }
W:Cowl(angle=160, color=#222222) { }
}
E:Cowl(color=#222222) {
E:Cowl(color=#222222) { }
E:Cowl(angle=160, color=#222222) { }
}
}
N:TrimF(angle=90, option=1, color=#444444) {
W:Frame(angle=-90, option=1, color=#444444) {
N:Arm(power=ARM3, option=50000, color=#444444) { }
}
W:Frame(angle=90, option=1, color=#444444) {
N:Arm(power=ARM2, option=50000, color=#444444) { }
}
}
N:Frame(angle=-GEAR_R, color=#444444) {
N:Frame(angle=GEAR_B, color=#444444) {
N:TrimF(angle=HANDLE, option=1, color=#444444) {
N:Wheel(angle=180, brake=BRAKE, effect=2, color=#444444) { }
}
}
}
E:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(angle=150, effect=#A0FB, color=#222222) {
W:Cowl(angle=20, option=3, color=#222222) { }
N:Cowl(angle=35, color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(angle=-5, color=#222222) {
N:Cowl(color=#222222) {
E:Cowl(angle=160, color=#222222) { }
W:Cowl(angle=20, color=#222222) { }
N:Cowl(angle=15, color=#222222) { }
}
E:Cowl(angle=160, color=#222222) { }
W:Cowl(angle=20, color=#222222) { }
}
E:Cowl(angle=160, color=#222222) { }
W:Cowl(angle=20, color=#222222) { }
}
E:Cowl(angle=160, color=#222222) { }
W:Cowl(angle=20, color=#222222) { }
}
E:Cowl(angle=160, option=4, color=#222222) { }
}
E:Cowl(angle=160, option=3, color=#222222) { }
}
E:Cowl(angle=160, color=#222222) { }
}
E:Cowl(angle=160, color=#222222) { }
}
W:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(angle=150, effect=#A0FB, color=#222222) {
E:Cowl(angle=20, option=4, color=#222222) { }
N:Cowl(angle=35, color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(angle=-5, color=#222222) {
N:Cowl(color=#222222) {
W:Cowl(angle=160, color=#222222) { }
E:Cowl(angle=20, color=#222222) { }
N:Cowl(angle=15, color=#222222) { }
}
W:Cowl(angle=160, color=#222222) { }
E:Cowl(angle=20, color=#222222) { }
}
W:Cowl(angle=160, color=#222222) { }
E:Cowl(angle=20, color=#222222) { }
}
W:Cowl(angle=160, color=#222222) { }
E:Cowl(angle=20, color=#222222) { }
}
W:Cowl(angle=160, option=3, color=#222222) { }
}
W:Cowl(angle=160, option=4, color=#222222) { }
}
W:Cowl(angle=160, color=#222222) { }
}
W:Cowl(angle=160, color=#222222) { }
}
}
S:Chip(angle=ABRAKE, color=#444444) {
S:Chip(color=#444444) { }
}
S:Chip(angle=-ABRAKE, color=#444444) {
S:Chip(color=#444444) { }
}
W:Trim(angle=-CANARD, color=#444444) { }
E:Trim(angle=CANARD, color=#444444) { }
N:Chip(color=#444444) {
N:Arm(power=ARM1, option=50000, name=GUN_M, color=#444444) { }
}
S:TrimF(angle=90, option=1, color=#444444) {
W:Frame(angle=90, option=1, color=#444444) {
N:Arm(power=ARM5, option=50000, color=#444444) { }
}
W:Frame(angle=-90, option=1, color=#444444) {
N:Arm(power=ARM4, option=50000, color=#444444) { }
}
}
N:Cowl(angle=-15, color=#444444) {
N:Cowl(angle=20, color=#444444) {
N:Cowl(angle=3, color=#222222) {
N:Cowl(angle=12, color=#222222) {
N:Cowl(angle=150, color=#222222) {
N:Cowl(angle=20, color=#222222) {
N:Cowl(angle=-5, color=#222222) {
N:Cowl(angle=-5, color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(color=#222222) {
N:Cowl(color=#222222) { }
}
}
}
W:Cowl(angle=150, color=#222222) { }
E:Cowl(angle=150, color=#222222) { }
}
W:Cowl(angle=150, color=#222222) { }
E:Cowl(angle=150, color=#222222) { }
}
W:Cowl(angle=150, color=#222222) { }
E:Cowl(angle=150, color=#222222) { }
}
E:Cowl(angle=150, option=4, color=#222222) { }
W:Cowl(angle=150, option=3, color=#222222) { }
}
E:Cowl(angle=150, option=3, color=#222222) { }
W:Cowl(angle=150, option=4, color=#222222) { }
}
}
}
}
}
}
}
}
Lua
{
aflag = -1 -- ?…•??§????—p
gflag = -1 -- ?M?A?§??—p
rflag = -1 -- ???[?_?[—p
uflag = 0 -- ‹@?e—p
blnc = 0 -- ?…•??§????—p
centerx = -0.9 -- ???[?_?[2D’†?S??•W(X)
centery = -0.6 -- ???[?_?[2D’†?S??•W(Y)
size = 0.35 -- ???[?_?[‰~?T?C?Y
psize = 0.012 -- ?v???b?g“_?T?C?Y
range = 1000 -- ???[?_?[???“?W

function jet(j)
if JET > 150000 then
atxt = "A / B on"
AB = 1
if _KEY(4) ~= 1 then
JET = JET - j
end
else
atxt = ""
AB = 0
end

-- ‹t•¬????‚??m?Y?‹?§“®‚?‹t
if JET < 0 then
if _KEY(0) == 1 then
NOZZLE_V = NOZZLE_V + 6
elseif _KEY(1) == 1 then
NOZZLE_V = NOZZLE_V - 6
end
end
end

function gear(g) -- ?M?A?§??
-- ?M?A?A?b?v?E?_?E?“??‘?
if _KEYDOWN(7) == 1 then
gflag = -gflag
end

-- ?M?A?_?E?“
if gflag == -1 then
gtxt = "DOWN"
GEAR_B = GEAR_B - g
GEAR_R = GEAR_R + g/2
GEAR_W = GEAR_W - g*2
end
-- ?M?A?A?b?v
if gflag == 1 then
gtxt = "UP"
GEAR_B = GEAR_B + g
GEAR_R = GEAR_R - g/2
GEAR_W = GEAR_W + g*2
end
end

function brake() -- ??—??u???[?L?§??
if gflag == 1 or _KEY(10) == 1 then
BRAKE = 500
else
BRAKE = 0
end
end

function engine(e) -- ??—??G?“?W?“?§??
if _KEY(0) == 1 then
ENGINE = ENGINE + e
elseif _KEY(1) == 1 then
ENGINE = ENGINE - e
end
end

function handle(h) -- ?M?A‚??n?“?h?‹?§??
if _KEY(2) == 1 then
HANDLE = HANDLE - h
elseif _KEY(3) == 1 then
HANDLE = HANDLE + h
end
end

function gun() -- ‹@?e?§??
-- ‹@?e??‘?
if _E(GUN_M) == 10000 or _E(GUN_M) == 20000 or _E(GUN_M) == 30000 or _E(GUN_M) == 40000 then
uflag = uflag + 1
elseif _E(GUN_M) == 50000 then
uflag = 0
end

-- ”­???^?C?~?“?O?§??
if uflag == 0 then
ARM1 = 50000
elseif uflag == 1 then
ARM2 = 50000
elseif uflag == 2 then
ARM3 = 50000
elseif uflag == 3 then
ARM4 = 50000
elseif uflag == 4 then
ARM5 = 50000
end
end

function auto() -- ?©“®?§??
-- ?…•??§????‘?
if _KEYDOWN(12) == 1 then
aflag = -aflag
end

if aflag == -1 then
ptxt = "MANUAL"
elseif aflag == 1 then
ptxt = "ASSISTANCE"
-- •?????‚??v?Z
blnc = blnc + _EX(BASE) + math.atan2(-_VY(BASE) , -_VZ(BASE))*0.5
blnc = math.min(2 , math.max(-2 , blnc)) -- •?????‚????~?b?^

-- ?…•?”??s?§??
if _KEY(0) ~= 1 and _KEY(1) ~= 1 then
ELEVATOR = 2 + _EX(BASE)*20 + _WX(BASE) - blnc
NOZZLE_V = 92 + _EX(BASE)*20 + _WX(BASE) + blnc
CANARD = ELEVATOR*3/5
end
if _KEY(2) ~= 1 and _KEY(3) ~= 1 then
AILERON = _EZ(BASE)*10 + _WZ(BASE)
end
end
end

function meter() -- ?o—????[?^?[
gauge = " "
tmp = (math.floor(JET)/1500) + 9
for i = 0,9 do
if tmp >= 10 then
gauge = gauge .. "| "
else
gauge = gauge .. " "
end

tmp = tmp - 10
end

tmp = math.floor(JET)/1500
for i = 0,3 do
if tmp < 0 then
gauge = " |" .. gauge
else
gauge = " " .. gauge
end

tmp = tmp + 10
end
end

function radar() -- ???[?_?[
if _KEYDOWN(15) == 1 then
range = range*2
end
if range > 10000 then
range = 500
end

_SETCOLOR(16777215) -- ”’?F

-- ?©‹@??•W
selfx = _X()
selfy = _Y()
selfz = _Z()

-- ?‹–??p•`‰?
_MOVE2D(centerx + size*0.5 , centery + size*0.85)
_LINE2D(centerx , centery)
_LINE2D(centerx - size*0.5 , centery + size*0.85)

_MOVE2D(centerx - size * 0.05 , centery)
_LINE2D(centerx + size * 0.05 , centery)
_MOVE2D(centerx , centery - size * 0.05)
_LINE2D(centerx , centery + size * 0.05)


-- ???[?‹?h??“_??•W
originx = (-selfx*math.cos(_EY()) + selfz*math.sin(_EY()))/-range
originz = (-selfx*math.sin(_EY()) - selfz*math.cos(_EY()))/-range

-- ???[?‹?h??“_‚??v???b?g
if originx^2 + originz^2 <= size^2 then
_MOVE2D(centerx + originx , centery + originz + psize*2)
_LINE2D(centerx + originx + psize*2 , centery + originz)
_LINE2D(centerx + originx , centery + originz - psize*2)
_LINE2D(centerx + originx - psize*2 , centery + originz)
_LINE2D(centerx + originx , centery + originz + psize*2)
end

_SETCOLOR(65280) -- —??F

_MOVE2D(centerx , centery + size)
-- ???[?_?[‰~
for i = 0 , 2*math.pi , math.pi/12 do
_LINE2D(centerx + math.sin(i)*size , centery + math.cos(i)*size)
end

for i = 0 , _PLAYERS()-1 do
if _PLAYERID(i) ~= _PLAYERMYID() then
playerx = _PLAYERX(i)
playery = _PLAYERY(i)
playerz = _PLAYERZ(i)

-- ‘???‚?‚?‹——?
relativex = playerx - selfx -- X??•W
relativez = playerz - selfz -- Z??•W

-- ‰?“]
rottedx = (relativex*math.cos(_EY()) - relativez*math.sin(_EY()))/-range
rottedz = (relativex*math.sin(_EY()) + relativez*math.cos(_EY()))/-range

-- ?‚“x‚?‚?‚??F•?‚?
if playery > selfy + 100 then
_SETCOLOR(5000447) -- ???F
elseif playery < selfy - 30 then
_SETCOLOR(16737894) -- ???F
else
_SETCOLOR(65280) -- —??F
end

-- •`‰?”?€?
if rottedx^2 + rottedz^2 <= size^2 then
-- “G‹@‚??v???b?g
for i = 0 , 2*math.pi , math.pi/12 do
_MOVE2D(centerx + rottedx , centery + rottedz)
_LINE2D(math.sin(i)*psize + centerx + rottedx , math.cos(i)*psize + centery + rottedz)
end
end
end
end
end

function main()
jet(10000)
gear(4)
brake()
auto()
meter()

if _KEY(6) == 1 then
gun()
end

if _KEYDOWN(14) == 1 then
rflag = -rflag
end

if rflag == 1 then
rtxt = range .. " m"
radar()
else
rtxt = "STANDBY"
end

-- ?t?‰?C?g??‚??^?L?V?“?O??‚???‘?
if JET ~= 0 or _H(0) >= 2 or 0 > _H(0) then
ENGINE = 0
HANDLE = 90
elseif _H(0) < 2 and 0 <= _H(0) then
engine(1000)
handle(2)
AILERON = 0
CANARD = math.max(CANARD - 2 , 0)
ELEVATOR = math.max(ELEVATOR - 4 , 0)
NOZZLE_V = math.max(NOZZLE_V - 3, 90)
ABRAKE = math.min(ABRAKE + 6 , 0)
end

out(0,":: SHC - 12 Crow :: ")
out(1,string.format("FPS : %2.1f Weight : %.1f Gsp : %3.1f km/h Fuel : %3.0f",_FPS(),_WEIGHT(),-_VZ()*3.6*_FPS()/_BASE(),_FUEL(0)/_FUELMAX(0)*100),"%")
out(2,"[A: GEAR] [S/D: NOZZLE +/-] [F: ASSISTANCE]")
out(3,"[Z/X: JET +/-] [C: GUN] [V: BRAKE] [Q: RADAR] [W: RANGE]")
out(5,string.format("JET : [ min %s max ] %d" , gauge , math.abs(JET/1500)) , "% ",atxt)
out(7,"GEAR : ",gtxt)
out(8,"PILOT : ",ptxt)
out(9,"RADER : ",rtxt)
end
}