fly/A320-family
1
0
Fork 0
Code Activity
A320-family/Nasal/MCDU/INITB.nas

274 lines
11 KiB
Text
Raw Normal View History

Rename :)
2020-04-30 19:26:36 +00:00
# A3XX mCDU by Joshua Davidson (Octal450), Jonathan Redpath, and Matthew Maring (mattmaring)
A320-family fork
2019-10-14 16:48:35 +00:00
Rename :)
2020-04-30 19:26:36 +00:00
# Copyright (c) 2020 Matthew Maring (mattmaring)
Add working INT-B/FUEL PREDICTION pages, trip-fuel calc incomplete
2020-03-23 03:02:25 +00:00
A320-family fork
2019-10-14 16:48:35 +00:00
var initInputB = func(key, i) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
var scratchpad = getprop("/MCDU[" ~ i ~ "]/scratchpad");
if (key == "L1" and !getprop("/FMGC/internal/fuel-calculating")) {
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
if (scratchpad == "CLR") {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/taxi-fuel", 0.4);
setprop("/FMGC/internal/taxi-fuel-set", 0);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
Minor bug fixes: don't overwrite zfw if already set, allow reset before block-confirm
2020-05-02 01:39:55 +00:00
} else if (getprop("/FMGC/internal/fuel-request-set")) {
setprop("/FMGC/internal/block-calculating", 1);
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
}
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
} else {
var tfs = size(scratchpad);
if (tfs >= 1 and tfs <= 4) {
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
if (num(scratchpad) != nil and scratchpad >= 0.0 and scratchpad <= 9.9) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/taxi-fuel", scratchpad);
setprop("/FMGC/internal/taxi-fuel-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Move fuel calculations to FMGC
2020-05-01 19:59:47 +00:00
fmgc.updateFuel();
Add working INT-B/FUEL PREDICTION pages, trip-fuel calc incomplete
2020-03-23 03:02:25 +00:00
} else {
notAllowed(i);
}
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
} else {
notAllowed(i);
}
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "L3" and getprop("/FMGC/internal/block-confirmed") and !getprop("/FMGC/internal/fuel-calculating")) {
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
if (scratchpad == "CLR") {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/rte-rsv", 0.05 * num(getprop("/FMGC/internal/trip-fuel")));
setprop("/FMGC/internal/rte-percent", 5.0);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
} else if (getprop("/FMGC/internal/trip-fuel") != 0) {
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
var tf = num(scratchpad);
Add working INT-B/FUEL PREDICTION pages, trip-fuel calc incomplete
2020-03-23 03:02:25 +00:00
var tfs = size(scratchpad);
if (tfs >= 2 and tfs <= 5 and find("/", scratchpad) == 0) {
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
var perc = num(split("/", scratchpad)[1]);
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
if (perc != nil and perc >= 0.0 and perc <= 15.0) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/rte-rsv", num(perc) / 100 * num(getprop("/FMGC/internal/trip-fuel")));
setprop("/FMGC/internal/rte-percent", perc);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Add working INT-B/FUEL PREDICTION pages, trip-fuel calc incomplete
2020-03-23 03:02:25 +00:00
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (tfs >= 1 and tfs <= 4 and tf != nil and tf >= 0 and tf <= 21.7 and tf / num(getprop("/FMGC/internal/trip-fuel")) <= 0.15) {
setprop("/FMGC/internal/rte-rsv", scratchpad);
setprop("/FMGC/internal/rte-percent", scratchpad / num(getprop("/FMGC/internal/trip-fuel")) * 100);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Add working INT-B/FUEL PREDICTION pages, trip-fuel calc incomplete
2020-03-23 03:02:25 +00:00
} else {
notAllowed(i);
}
} else {
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
notAllowed(i);
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "L4" and getprop("/FMGC/internal/block-confirmed") and !getprop("/FMGC/internal/fuel-calculating")) {
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
if (scratchpad == "CLR") {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/alt-fuel", 0.0);
setprop("/FMGC/internal/alt-time", "0000");
setprop("/FMGC/internal/alt-fuel-set", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else if (find(".", scratchpad) != -1) {
var tf = num(scratchpad);
var tfs = size(scratchpad);
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
if (tfs >= 3 and tfs <= 4 and tf != nil and tf >= 0 and tf <= 10.0) {
setprop("/FMGC/internal/alt-fuel", tf);
setprop("/FMGC/internal/alt-time", "0000");
setprop("/FMGC/internal/alt-fuel-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
notAllowed(i);
}
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
} else {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
notAllowed(i);
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "L5" and getprop("/FMGC/internal/block-confirmed") and !getprop("/FMGC/internal/fuel-calculating")) {
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
if (scratchpad == "CLR") {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/final-fuel", 0.0);
setprop("/FMGC/internal/final-time", "0030");
setprop("/FMGC/internal/final-fuel-set", 0);
setprop("/FMGC/internal/final-time-set", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else if (find(".", scratchpad) != -1) {
var tf = num(scratchpad);
var tfs = size(scratchpad);
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
if (tfs >= 3 and tfs <= 4 and tf != nil and tf >= 0 and tf <= 10.0) {
setprop("/FMGC/internal/final-fuel", tf);
setprop("/FMGC/internal/final-fuel-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
notAllowed(i);
}
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
} else {
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
var tf = num(scratchpad);
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
var tfs = size(scratchpad);
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
if (tfs == 4 and tf != nil and ((tf >= 0 and tf <= 59) or (tf >= 100 and tf <= 130))) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/final-time", scratchpad);
setprop("/FMGC/internal/final-time-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
} else {
notAllowed(i);
}
}
Make minimum dest fuel work, add MCDU warning, allow fuel pred without zfw (automatically calculated)
2020-05-02 00:55:22 +00:00
} else if (key == "L6" and getprop("/FMGC/internal/block-confirmed") and !getprop("/FMGC/internal/fuel-calculating")) {
if (scratchpad == "CLR") {
setprop("/FMGC/internal/min-dest-fob", 0);
setprop("/FMGC/internal/min-dest-fob-set", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
} else if (find(".", scratchpad) != -1) {
var tf = num(scratchpad);
var tfs = size(scratchpad);
if (tfs >= 3 and tfs <= 5 and tf != nil and tf >= 0 and tf <= 80.0) {
setprop("/FMGC/internal/min-dest-fob", tf);
setprop("/FMGC/internal/min-dest-fob-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
if (num(getprop("/FMGC/internal/min-dest-fob")) < num(getprop("/FMGC/internal/final-fuel") + getprop("/FMGC/internal/alt-fuel"))) {
genericMessage(i, "CHECK MIN DEST FOB", "wht");
}
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "R1" and !getprop("/FMGC/internal/fuel-calculating")) {
A320-family fork
2019-10-14 16:48:35 +00:00
if (scratchpad == "CLR") {
notAllowed(i);
} else {
var tfs = size(scratchpad);
if (tfs == 0) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
var zfw = getprop("/fdm/jsbsim/inertia/weight-lbs") - getprop("/consumables/fuel/total-fuel-lbs");
setprop("/MCDU[" ~ i ~ "]/scratchpad", "/" ~ sprintf("%3.1f", math.round(zfw / 1000, 0.1)));
A320-family fork
2019-10-14 16:48:35 +00:00
} else if (tfs >= 2 and tfs <= 11 and find("/", scratchpad) != -1) {
var zfwi = split("/", scratchpad);
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
var zfwcg = num(zfwi[0]);
var zfw = num(zfwi[1]);
var zfwcgs = size(zfwi[0]);
var zfws = size(zfwi[1]);
if (zfwcg != nil and zfwcgs >= 1 and zfwcgs <= 5 and zfwcg > 0 and zfwcg <= 99.9) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/zfwcg", zfwi[0]);
setprop("/FMGC/internal/zfwcg-set", 1);
A320-family fork
2019-10-14 16:48:35 +00:00
}
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
if (zfw != nil and zfws >= 1 and zfws <= 5 and zfw > 0 and zfw <= 999.9) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/zfw", zfwi[1]);
setprop("/FMGC/internal/zfw-set", 1);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
Minor bug fixes: don't overwrite zfw if already set, allow reset before block-confirm
2020-05-02 01:39:55 +00:00
} else if (getprop("/FMGC/internal/fuel-request-set")) {
setprop("/FMGC/internal/block-calculating", 1);
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
}
A320-family fork
2019-10-14 16:48:35 +00:00
}
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
if ((zfwcg != nil and zfwcgs >= 1 and zfwcgs <= 5 and zfwcg > 0 and zfwcg <= 99.9) or (zfw != nil and zfws >= 1 and zfws <= 5 and zfw > 0 and zfw <= 999.9)) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else if (tfs >= 1 and tfs <= 5) {
var zfwcg = size(scratchpad);
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
if (num(scratchpad) != nil and zfwcg >= 1 and zfwcg <= 5 and scratchpad > 0 and scratchpad <= 99.9) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/zfwcg", scratchpad);
setprop("/FMGC/internal/zfwcg-set", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "R2" and !getprop("/FMGC/internal/fuel-calculating")) {
A320-family fork
2019-10-14 16:48:35 +00:00
if (scratchpad == "CLR") {
Reenable clearing block fuel
2020-05-02 01:57:42 +00:00
setprop("/FMGC/internal/block", 0.0);
setprop("/FMGC/internal/block-set", 0);
setprop("/FMGC/internal/fuel-request-set", 0);
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/block-calculating", 0);
setprop("/FMGC/internal/block-confirmed", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
var maxblock = getprop("/options/maxblock");
A320-family fork
2019-10-14 16:48:35 +00:00
if (tfs == 0) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/MCDU[" ~ i ~ "]/scratchpad", sprintf("%3.1f", math.round(getprop("/consumables/fuel/total-fuel-lbs") / 1000, 0.1)));
A320-family fork
2019-10-14 16:48:35 +00:00
} else if (tfs >= 1 and tfs <= 5) {
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
if (num(scratchpad) != nil and scratchpad >= 1.0 and scratchpad <= maxblock) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/block", scratchpad);
setprop("/FMGC/internal/block-set", 1);
setprop("/FMGC/internal/fuel-request-set", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
setprop("/FMGC/internal/block-calculating", 0);
setprop("/FMGC/internal/block-confirmed", 1);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
Make fuel planning button work
2020-03-23 14:59:05 +00:00
} else if (key == "R3") {
Make minimum dest fuel work, add MCDU warning, allow fuel pred without zfw (automatically calculated)
2020-05-02 00:55:22 +00:00
if (scratchpad == "" and !getprop("/FMGC/internal/fuel-request-set")) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/fuel-request-set", 1);
setprop("/FMGC/internal/block-calculating", 1);
} else if (getprop("/FMGC/internal/fuel-request-set") and !getprop("/FMGC/internal/block-confirmed") and !getprop("/FMGC/internal/block-calculating")) {
setprop("/FMGC/internal/block-confirmed", 1);
setprop("/FMGC/internal/fuel-calculating", 1);
Fix minor fuel bug
2020-04-20 16:18:41 +00:00
} else {
notAllowed(i);
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
}
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
} else if (key == "R5" and !getprop("/FMGC/internal/fuel-calculating")) {
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
if (scratchpad == "CLR") {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/trip-wind", "HD000");
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
}
setprop("/MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
if (find("TL", scratchpad) != -1 or find("HD", scratchpad) != -1) {
var effwind = substr(scratchpad, 2);
if (int(effwind) != nil and effwind >= 0 and effwind <= 500) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/trip-wind", scratchpad);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
}
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
notAllowed(i);
}
} else if (find("-", scratchpad) != -1 or find("+", scratchpad) != -1 or find("T", scratchpad) != -1 or find("H", scratchpad) != -1) {
var effwind = substr(scratchpad, 1);
if (int(effwind) != nil and effwind >= 0 and effwind <= 500) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/trip-wind", scratchpad);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
}
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
notAllowed(i);
}
} else {
if (num(scratchpad) != nil and scratchpad >= 0 and scratchpad <= 500) {
Implement relistic fuel pred button action (no calcs yet), add delay timers to INITB, add leading slash for FMGC variables
2020-05-02 00:26:05 +00:00
setprop("/FMGC/internal/trip-wind", scratchpad);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 1);
}
setprop("/MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up INITB/FUELPRED, fix formatting for entries
2020-04-14 22:12:38 +00:00
} else {
notAllowed(i);
}
}
}
} else {
notAllowed(i);
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
Copy permalink