Moved Stars45 to StarsEx

1 files changed, 460 insertions, 0 deletions

diff --git a/StarsEx/CtlDlg.cpp b/StarsEx/CtlDlg.cpp
new file mode 100644
index 0000000..fc74e17
--- /dev/null
+++ b/StarsEx/CtlDlg.cpp
@@ -0,0 +1,460 @@
+/*  Starshatter: The Open Source Project
+    Copyright (c) 2021-2022, Starshatter: The Open Source Project Contributors
+    Copyright (c) 2011-2012, Starshatter OpenSource Distribution Contributors
+    Copyright (c) 1997-2006, Destroyer Studios LLC.
+
+    AUTHOR:       John DiCamillo
+
+
+    OVERVIEW
+    ========
+    Control Options (keyboard/joystick) Dialog Active Window class
+*/
+
+#include "CtlDlg.h"
+#include "KeyDlg.h"
+#include "MenuScreen.h"
+#include "Starshatter.h"
+#include "Ship.h"
+
+#include "DataLoader.h"
+#include "Button.h"
+#include "ComboBox.h"
+#include "ListBox.h"
+#include "Slider.h"
+#include "Video.h"
+#include "Keyboard.h"
+#include "Joystick.h"
+#include "MachineInfo.h"
+#include "Clock.h"
+
+// +--------------------------------------------------------------------+
+// DECLARE MAPPING FUNCTIONS:
+
+DEF_MAP_CLIENT(CtlDlg, OnCommand);
+DEF_MAP_CLIENT(CtlDlg, OnCategory);
+DEF_MAP_CLIENT(CtlDlg, OnControlModel);
+DEF_MAP_CLIENT(CtlDlg, OnJoySelect);
+DEF_MAP_CLIENT(CtlDlg, OnJoyThrottle);
+DEF_MAP_CLIENT(CtlDlg, OnJoyRudder);
+DEF_MAP_CLIENT(CtlDlg, OnJoySensitivity);
+DEF_MAP_CLIENT(CtlDlg, OnJoyAxis);
+DEF_MAP_CLIENT(CtlDlg, OnMouseSelect);
+DEF_MAP_CLIENT(CtlDlg, OnMouseSensitivity);
+DEF_MAP_CLIENT(CtlDlg, OnMouseInvert);
+DEF_MAP_CLIENT(CtlDlg, OnApply);
+DEF_MAP_CLIENT(CtlDlg, OnCancel);
+DEF_MAP_CLIENT(CtlDlg, OnAudio);
+DEF_MAP_CLIENT(CtlDlg, OnVideo);
+DEF_MAP_CLIENT(CtlDlg, OnOptions);
+DEF_MAP_CLIENT(CtlDlg, OnControls);
+DEF_MAP_CLIENT(CtlDlg, OnMod);
+
+// +--------------------------------------------------------------------+
+
+CtlDlg::CtlDlg(Screen* s, FormDef& def, BaseScreen* mgr)
+: FormWindow(s,  0,  0, s->Width(), s->Height()), manager(mgr),
+selected_category(0), command_index(0), control_model(0),
+joy_select(0), joy_throttle(0), joy_rudder(0), joy_sensitivity(0),
+mouse_select(0), mouse_sensitivity(0), mouse_invert(0),
+apply(0), cancel(0), vid_btn(0), aud_btn(0), ctl_btn(0), opt_btn(0), mod_btn(0),
+closed(true)
+{
+    Init(def);
+}
+
+CtlDlg::~CtlDlg()
+{
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::RegisterControls()
+{
+    if (apply)
+    return;
+
+    for (int i = 0; i < 4; i++) {
+        category[i] = (Button*) FindControl(101 + i);
+        REGISTER_CLIENT(EID_CLICK, category[i], CtlDlg, OnCategory);
+    }
+
+    commands = (ListBox*) FindControl(200);
+    REGISTER_CLIENT(EID_SELECT, commands, CtlDlg, OnCommand);
+
+    control_model_combo = (ComboBox*) FindControl(210);
+    REGISTER_CLIENT(EID_SELECT, control_model_combo, CtlDlg, OnControlModel);
+
+    joy_select_combo   = (ComboBox*) FindControl(211);
+    REGISTER_CLIENT(EID_SELECT, joy_select_combo, CtlDlg, OnJoySelect);
+
+    joy_throttle_combo = (ComboBox*) FindControl(212);
+    REGISTER_CLIENT(EID_SELECT, joy_throttle_combo, CtlDlg, OnJoyThrottle);
+
+    joy_rudder_combo   = (ComboBox*) FindControl(213);
+    REGISTER_CLIENT(EID_SELECT, joy_rudder_combo, CtlDlg, OnJoyRudder);
+
+    joy_sensitivity_slider = (Slider*) FindControl(214);
+
+    if (joy_sensitivity_slider) {
+        joy_sensitivity_slider->SetRangeMin(0);
+        joy_sensitivity_slider->SetRangeMax(10);
+        joy_sensitivity_slider->SetStepSize(1);
+        REGISTER_CLIENT(EID_CLICK, joy_sensitivity_slider, CtlDlg, OnJoySensitivity);
+    }
+
+    joy_axis_button = (Button*) FindControl(215);
+    REGISTER_CLIENT(EID_CLICK, joy_axis_button, CtlDlg, OnJoyAxis);
+
+    mouse_select_combo   = (ComboBox*) FindControl(511);
+    REGISTER_CLIENT(EID_SELECT, mouse_select_combo, CtlDlg, OnMouseSelect);
+
+    mouse_sensitivity_slider = (Slider*) FindControl(514);
+    if (mouse_sensitivity_slider) {
+        mouse_sensitivity_slider->SetRangeMin(0);
+        mouse_sensitivity_slider->SetRangeMax(50);
+        mouse_sensitivity_slider->SetStepSize(1);
+        REGISTER_CLIENT(EID_CLICK, mouse_sensitivity_slider, CtlDlg, OnMouseSensitivity);
+    }
+
+    mouse_invert_checkbox = (Button*) FindControl(515);
+    REGISTER_CLIENT(EID_CLICK, mouse_invert_checkbox, CtlDlg, OnMouseInvert);
+
+    apply    = (Button*) FindControl(1);
+    REGISTER_CLIENT(EID_CLICK, apply, CtlDlg, OnApply);
+
+    cancel   = (Button*) FindControl(2);
+    REGISTER_CLIENT(EID_CLICK, cancel, CtlDlg, OnCancel);
+
+    vid_btn = (Button*) FindControl(901);
+    REGISTER_CLIENT(EID_CLICK, vid_btn, CtlDlg, OnVideo);
+
+    aud_btn = (Button*) FindControl(902);
+    REGISTER_CLIENT(EID_CLICK, aud_btn, CtlDlg, OnAudio);
+
+    ctl_btn = (Button*) FindControl(903);
+    REGISTER_CLIENT(EID_CLICK, ctl_btn, CtlDlg, OnControls);
+
+    opt_btn = (Button*) FindControl(904);
+    REGISTER_CLIENT(EID_CLICK, opt_btn, CtlDlg, OnOptions);
+
+    mod_btn = (Button*) FindControl(905);
+    if (mod_btn) {
+        REGISTER_CLIENT(EID_CLICK, mod_btn, CtlDlg, OnMod);
+    }
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::Show()
+{
+    if (!IsShown())
+    FormWindow::Show();
+
+    if (closed)
+    ShowCategory();
+    else
+    UpdateCategory();
+
+    if (vid_btn)   vid_btn->SetButtonState(0);
+    if (aud_btn)   aud_btn->SetButtonState(0);
+    if (ctl_btn)   ctl_btn->SetButtonState(1);
+    if (opt_btn)   opt_btn->SetButtonState(0);
+    if (mod_btn)   mod_btn->SetButtonState(0);
+
+    closed = false;
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::ExecFrame()
+{
+    if (Keyboard::KeyDown(VK_RETURN)) {
+        OnApply(0);
+    }
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::ShowCategory()
+{
+    if (!commands || !category[0])
+    return;
+
+    for (int i = 0; i < 4; i++) {
+        if (i == selected_category)
+        category[i]->SetButtonState(1);
+        else
+        category[i]->SetButtonState(0);
+    }
+
+    commands->ClearItems();
+    commands->SetSelectedStyle(ListBox::LIST_ITEM_STYLE_FILLED_BOX);
+    commands->SetLeading(2);
+
+    Starshatter* stars = Starshatter::GetInstance();
+
+    if (stars) {
+        KeyMap&  keymap    = stars->GetKeyMap();
+        int      n         = 0;
+
+        for (int i = 0; i < 256; i++) {
+            KeyMapEntry* k = keymap.GetKeyMap(i);
+
+            switch (k->act) {
+            case 0:
+                break;
+
+            case KEY_CONTROL_MODEL:
+                control_model = k->key;
+                control_model_combo->SetSelection(control_model);
+                break;
+
+            case KEY_JOY_SELECT:
+                joy_select = k->key;
+                joy_select_combo->SetSelection(joy_select);
+                break;
+
+            case KEY_JOY_RUDDER:
+                joy_rudder = k->key;
+                joy_rudder_combo->SetSelection(joy_rudder);
+                break;
+
+            case KEY_JOY_THROTTLE:
+                joy_throttle = k->key;
+                joy_throttle_combo->SetSelection(joy_throttle);
+                break;
+
+            case KEY_JOY_SENSE:
+                joy_sensitivity = k->key;
+                joy_sensitivity_slider->SetValue(joy_sensitivity);
+                break;
+
+            case KEY_JOY_SWAP:
+                break;
+
+            case KEY_JOY_DEAD_ZONE:
+                break;
+
+            case KEY_MOUSE_SELECT:
+                mouse_select = k->key;
+                mouse_select_combo->SetSelection(mouse_select);
+                break;
+
+            case KEY_MOUSE_SENSE:
+                mouse_sensitivity = k->key;
+                mouse_sensitivity_slider->SetValue(mouse_sensitivity);
+                break;
+
+            case KEY_MOUSE_INVERT:
+                mouse_invert = k->key;
+                mouse_invert_checkbox->SetButtonState(mouse_invert > 0);
+                break;
+
+            case KEY_AXIS_YAW:
+            case KEY_AXIS_PITCH:
+            case KEY_AXIS_ROLL:
+            case KEY_AXIS_THROTTLE:
+
+            case KEY_AXIS_YAW_INVERT:
+            case KEY_AXIS_PITCH_INVERT:
+            case KEY_AXIS_ROLL_INVERT:
+            case KEY_AXIS_THROTTLE_INVERT:
+                break;
+
+            default:
+                if (keymap.GetCategory(i) == selected_category) {
+                    commands->AddItemWithData(keymap.DescribeAction(i), (DWORD) i);
+                    commands->SetItemText(n++, 1, keymap.DescribeKey(i));
+                }
+                break;
+            }
+        }
+    }
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::UpdateCategory()
+{
+    if (!commands)
+    return;
+
+    Starshatter*   stars    = Starshatter::GetInstance();
+    KeyMap&        keymap   = stars->GetKeyMap();
+
+    for (int i = 0; i < commands->NumItems(); i++) {
+        int key = commands->GetItemData(i);
+        commands->SetItemText(i, 1, keymap.DescribeKey(key));
+    }
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::OnCategory(AWEvent* event)
+{
+    selected_category = 0;
+
+    for (int i = 0; i < 4; i++)
+    if (event->window == category[i])
+    selected_category = i;
+
+    ShowCategory();
+}
+
+// +--------------------------------------------------------------------+
+
+static DWORD command_click_time = 0;
+
+void
+CtlDlg::OnCommand(AWEvent* event)
+{
+    int list_index = commands->GetListIndex();
+
+    // double-click:
+    if (list_index == command_index && Clock::GetInstance()->RealTime() - command_click_time < 350) {
+        KeyDlg*  key_dlg = 0;
+
+        if (manager)
+        key_dlg = manager->GetKeyDlg();
+
+        if (key_dlg) {
+            key_dlg->SetKeyMapIndex(commands->GetItemData(list_index));
+        }
+
+        if (manager)
+        manager->ShowKeyDlg();
+    }
+
+    command_click_time   = Clock::GetInstance()->RealTime();
+    command_index        = list_index;
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::OnControlModel(AWEvent* event)
+{
+    control_model = control_model_combo->GetSelectedIndex();
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::OnJoySelect(AWEvent* event)
+{
+    joy_select = joy_select_combo->GetSelectedIndex();
+}
+
+void
+CtlDlg::OnJoyThrottle(AWEvent* event)
+{
+    joy_throttle = joy_throttle_combo->GetSelectedIndex();
+}
+
+void
+CtlDlg::OnJoyRudder(AWEvent* event)
+{
+    joy_rudder = joy_rudder_combo->GetSelectedIndex();
+}
+
+void
+CtlDlg::OnJoySensitivity(AWEvent* event)
+{
+    joy_sensitivity = joy_sensitivity_slider->GetValue();
+}
+
+void
+CtlDlg::OnJoyAxis(AWEvent* event)
+{
+    if (manager)
+    manager->ShowJoyDlg();
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::OnMouseSelect(AWEvent* event)
+{
+    mouse_select = mouse_select_combo->GetSelectedIndex();
+}
+
+void
+CtlDlg::OnMouseSensitivity(AWEvent* event)
+{
+    mouse_sensitivity = mouse_sensitivity_slider->GetValue();
+}
+
+void
+CtlDlg::OnMouseInvert(AWEvent* event)
+{
+    mouse_invert = mouse_invert_checkbox->GetButtonState() > 0;
+}
+
+// +--------------------------------------------------------------------+
+
+void CtlDlg::OnAudio(AWEvent* event)      { manager->ShowAudDlg();  }
+void CtlDlg::OnVideo(AWEvent* event)      { manager->ShowVidDlg();  }
+void CtlDlg::OnOptions(AWEvent* event)    { manager->ShowOptDlg();  }
+void CtlDlg::OnControls(AWEvent* event)   { manager->ShowCtlDlg();  }
+void CtlDlg::OnMod(AWEvent* event)        { manager->ShowModDlg();  }
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::OnApply(AWEvent* event)
+{
+    if (manager)
+    manager->ApplyOptions();
+}
+
+void
+CtlDlg::OnCancel(AWEvent* event)
+{
+    if (manager)
+    manager->CancelOptions();
+}
+
+// +--------------------------------------------------------------------+
+
+void
+CtlDlg::Apply()
+{
+    if (closed) return;
+
+    Starshatter* stars = Starshatter::GetInstance();
+
+    if (stars) {
+        KeyMap&  keymap    = stars->GetKeyMap();
+
+        keymap.Bind(KEY_CONTROL_MODEL,   control_model,      0);
+
+        keymap.Bind(KEY_JOY_SELECT,      joy_select,         0);
+        keymap.Bind(KEY_JOY_RUDDER,      joy_rudder,         0);
+        keymap.Bind(KEY_JOY_THROTTLE,    joy_throttle,       0);
+        keymap.Bind(KEY_JOY_SENSE,       joy_sensitivity,    0);
+
+        keymap.Bind(KEY_MOUSE_SELECT,    mouse_select,       0);
+        keymap.Bind(KEY_MOUSE_SENSE,     mouse_sensitivity,  0);
+        keymap.Bind(KEY_MOUSE_INVERT,    mouse_invert,       0);
+
+        keymap.SaveKeyMap("key.cfg", 256);
+
+        stars->MapKeys();
+        Ship::SetControlModel(control_model);
+    }
+
+    closed = true;
+}
+
+void
+CtlDlg::Cancel()
+{
+    closed = true;
+}