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

260 lines
9.2 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
GIT: Update 2019 to 2020
2020-04-18 05:36:46 +00:00
# Copyright (c) 2020 Josh Davidson (Octal450)
Rename :)
2020-04-30 19:26:36 +00:00
# Copyright (c) 2020 Matthew Maring (mattmaring)
A320-family fork
2019-10-14 16:48:35 +00:00
var initInputA = func(key, i) {
Improvements
2020-05-23 00:40:01 +00:00
var scratchpad = mcdu_scratchpad.scratchpads[i].scratchpad;
Implement alternate airport on INTA
2020-03-24 12:33:40 +00:00
if (key == "L2") {
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-airport", "");
setprop("/FMGC/internal/alt-set", 0);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Implement alternate airport on INTA
2020-03-24 12:33:40 +00:00
fmgc.updateARPT();
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
#} else if (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
#setprop("/FMGC/internal/alt-selected", 1);
Disable route selection
2020-04-13 18:24:22 +00:00
#setprop("MCDU[" ~ i ~ "]/page", "ROUTESELECTION");
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 (getprop("/FMGC/internal/tofrom-set") == 1) {
INITA: stop input to R1 / L2 if temporary exists
2020-05-23 11:21:03 +00:00
if (!fmgc.flightPlanController.temporaryFlag[i]) {
var tfs = size(scratchpad);
if (tfs == 4) {
setprop("/FMGC/internal/alt-airport", scratchpad);
setprop("/FMGC/internal/alt-set", 1);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
mcdu_scratchpad.scratchpads[i].empty();
fmgc.updateARPT();
#setprop("/FMGC/internal/alt-selected", 1);
#setprop("MCDU[" ~ i ~ "]/page", "ROUTESELECTION");
} else {
mcdu_message(i, "NOT ALLOWED");
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
}
Implement alternate airport on INTA
2020-03-24 12:33:40 +00:00
} else {
INITA: stop input to R1 / L2 if temporary exists
2020-05-23 11:21:03 +00:00
mcdu_message(i, "TMPY F-PLN EXISTS");
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
}
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
Clean-up entabing for MCDU files
2020-03-28 20:40:02 +00:00
}
Implement alternate airport on INTA
2020-03-24 12:33:40 +00:00
} else if (key == "L3") {
A320-family fork
2019-10-14 16:48:35 +00:00
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDUC/flight-num", "");
setprop("MCDUC/flight-num-set", 0);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var flts = size(scratchpad);
if (flts >= 1 and flts <= 8) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDUC/flight-num", scratchpad);
setprop("MCDUC/flight-num-set", 1);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
} else if (key == "L5") {
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/cost-index", 0);
setprop("/FMGC/internal/cost-index-set", 0);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var ci = int(scratchpad);
var cis = size(scratchpad);
if (cis >= 1 and cis <= 3) {
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
if (ci != nil and ci >= 0 and ci <= 999) {
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/cost-index", ci);
setprop("/FMGC/internal/cost-index-set", 1);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
} else if (key == "L6") {
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/cruise-ft", 10000);
setprop("/FMGC/internal/cruise-fl", 100);
setprop("/FMGC/internal/cruise-lvl-set", 0);
setprop("/FMGC/internal/cruise-temp", 15);
setprop("/FMGC/internal/cruise-temp-set", 0);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
} else if (find("/", scratchpad) != -1) {
var crztemp = split("/", scratchpad);
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
if (find("FL", crztemp[0]) != -1) {
var crz = int(substr(crztemp[0], 2));
var crzs = size(substr(crztemp[0], 2));
} else {
var crz = int(crztemp[0]);
var crzs = size(crztemp[0]);
}
var temp = int(crztemp[1]);
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
var temps = size(crztemp[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
if (crzs == 0 and temps >= 1 and temps <= 3 and temp != nil and getprop("/FMGC/internal/cruise-lvl-set")) {
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
if (temp >= -99 and temp <= 99) {
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/cruise-temp", temp);
Temp fix
2020-05-05 14:24:24 +00:00
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
}
} else if (crzs >= 1 and crzs <= 3 and crz != nil and temps >= 1 and temps <= 3 and temp != nil) {
if (crz > 0 and crz <= 390 and temp >= -99 and temp <= 99) {
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/cruise-ft", crz * 100);
setprop("/FMGC/internal/cruise-fl", crz);
setprop("/FMGC/internal/cruise-fl-prog", crz);
setprop("/FMGC/internal/cruise-lvl-set", 1);
Temp fix
2020-05-05 14:24:24 +00:00
setprop("/FMGC/internal/cruise-temp", temp);
setprop("/FMGC/internal/cruise-temp-set", 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
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
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
} else {
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
if (find("FL", scratchpad) != -1) {
var crz = int(substr(scratchpad, 2));
var crzs = size(substr(scratchpad, 2));
} else {
var crz = int(scratchpad);
var crzs = size(scratchpad);
}
if (crzs >= 1 and crzs <= 3 and crz != nil) {
if (crz > 0 and crz <= 390) {
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/cruise-ft", crz * 100);
setprop("/FMGC/internal/cruise-fl", crz);
setprop("/FMGC/internal/cruise-fl-prog", crz);
setprop("/FMGC/internal/cruise-lvl-set", 1);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
}
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
}
A320-family fork
2019-10-14 16:48:35 +00:00
}
} else if (key == "R1") {
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/dep-arpt", "");
setprop("/FMGC/internal/arr-arpt", "");
setprop("/FMGC/internal/tofrom-set", 0);
setprop("/FMGC/internal/align-ref-lat", 0);
setprop("/FMGC/internal/align-ref-long", 0);
setprop("/FMGC/internal/align-ref-lat-edit", 0);
setprop("/FMGC/internal/align-ref-long-edit", 0);
if (getprop("/FMGC/internal/block-confirmed")) {
setprop("/FMGC/internal/fuel-calculating", 0);
setprop("/FMGC/internal/fuel-calculating", 1);
}
Allow clearing of route in INITA
2020-05-21 21:36:14 +00:00
fmgc.flightPlanController.reset(2);
fmgc.flightPlanController.init();
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Clean-up INITA, fix formatting for entries
2020-04-14 20:31:32 +00:00
#} else if (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
#setprop("/FMGC/internal/alt-selected", 0);
Disable route selection
2020-04-13 18:24:22 +00:00
#setprop("MCDU[" ~ i ~ "]/page", "ROUTESELECTION");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
INITA: stop input to R1 / L2 if temporary exists
2020-05-23 11:21:03 +00:00
if (!fmgc.flightPlanController.temporaryFlag[i]) {
var tfs = size(scratchpad);
if (tfs == 9 and find("/", scratchpad) != -1) {
var fromto = split("/", scratchpad);
var froms = size(fromto[0]);
var tos = size(fromto[1]);
if (froms == 4 and tos == 4) {
#route
setprop("/FMGC/internal/dep-arpt", fromto[0]);
setprop("/FMGC/internal/arr-arpt", fromto[1]);
setprop("/FMGC/internal/tofrom-set", 1);
#scratchpad
mcdu_scratchpad.scratchpads[i].empty();
fmgc.flightPlanController.updateAirports(fromto[0], fromto[1], 2);
setprop("/FMGC/internal/alt-selected", 0);
#ref lat
dms = getprop("/FMGC/flightplan[2]/wp[0]/lat");
degrees = int(dms);
minutes = sprintf("%.1f",abs((dms - degrees) * 60));
sign = degrees >= 0 ? "N" : "S";
setprop("/FMGC/internal/align-ref-lat-degrees", degrees);
setprop("/FMGC/internal/align-ref-lat-minutes", minutes);
setprop("/FMGC/internal/align-ref-lat-sign", sign);
#ref long
dms = getprop("/FMGC/flightplan[2]/wp[0]/lon");
degrees = int(dms);
minutes = sprintf("%.1f",abs((dms - degrees) * 60));
sign = degrees >= 0 ? "E" : "W";
setprop("/FMGC/internal/align-ref-long-degrees", degrees);
setprop("/FMGC/internal/align-ref-long-minutes", minutes);
setprop("/FMGC/internal/align-ref-long-sign", sign);
#ref edit
setprop("/FMGC/internal/align-ref-lat-edit", 0);
setprop("/FMGC/internal/align-ref-long-edit", 0);
#setprop("MCDU[" ~ i ~ "]/page", "ROUTESELECTION");
} else {
mcdu_message(i, "NOT ALLOWED");
}
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
} else {
INITA: stop input to R1 / L2 if temporary exists
2020-05-23 11:21:03 +00:00
mcdu_message(i, "TMPY F-PLN EXISTS");
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
} else if (key == "R3") {
Implement fully functional IRS align page, add initial route selection page, add lat/long/irs handling to INITA
2020-03-25 14:54:39 +00:00
setprop("MCDU[" ~ i ~ "]/page", "IRSINIT");
Skeleton code for winds
2020-05-31 14:05:44 +00:00
} else if (key == "R4") {
if (canvas_mcdu.myCLBWIND[i] != nil) {
canvas_mcdu.myCLBWIND[i].del();
}
canvas_mcdu.myCLBWIND[i] = nil;
canvas_mcdu.myCLBWIND[i] = windCLBPage.new(i);
setprop("MCDU[" ~ i ~ "]/page", "WINDCLB");
Revert "Update INIT format, remove ground temp" This reverts commit e41c786247bbea2aa1a9d75f601485eeb6dc2ead.
2020-05-01 02:44:47 +00:00
} else if (key == "R5") {
A320-family fork
2019-10-14 16:48:35 +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/tropo", 36090);
setprop("/FMGC/internal/tropo-set", 0);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tropo = size(scratchpad);
Implement fully functional IRS align page, add initial route selection page, add lat/long/irs handling to INITA
2020-03-25 14:54:39 +00:00
if (tropo == 5 and scratchpad <= 99990) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/tropo-set", 1);
setprop("FMGC/internal/tropo", scratchpad);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
Revert "Update INIT format, remove ground temp" This reverts commit e41c786247bbea2aa1a9d75f601485eeb6dc2ead.
2020-05-01 02:44:47 +00:00
} else if (key == "R6") {
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/gndtemp-set", 0);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
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 (int(scratchpad) != nil and getprop("/FMGC/status/phase") == 0 and size(scratchpad) >= 1 and size(scratchpad) <= 3 and scratchpad >= -99 and scratchpad <= 99) {
setprop("/FMGC/internal/gndtemp", scratchpad);
setprop("/FMGC/internal/gndtemp-set", 1);
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_scratchpad.scratchpads[i].empty();
Revert "Update INIT format, remove ground temp" This reverts commit e41c786247bbea2aa1a9d75f601485eeb6dc2ead.
2020-05-01 02:44:47 +00:00
} else {
Port to new method
2020-05-23 11:16:20 +00:00
mcdu_message(i, "NOT ALLOWED");
Revert "Update INIT format, remove ground temp" This reverts commit e41c786247bbea2aa1a9d75f601485eeb6dc2ead.
2020-05-01 02:44:47 +00:00
}
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
Copy permalink