mirror of
https://github.com/ZDoom/gzdoom.git
synced 2024-12-03 17:32:54 +00:00
1729 lines
46 KiB
C++
1729 lines
46 KiB
C++
/*
|
|
** menudef.cpp
|
|
** MENUDEF parser amd menu generation code
|
|
**
|
|
**---------------------------------------------------------------------------
|
|
** Copyright 2010 Christoph Oelckers
|
|
** All rights reserved.
|
|
**
|
|
** Redistribution and use in source and binary forms, with or without
|
|
** modification, are permitted provided that the following conditions
|
|
** are met:
|
|
**
|
|
** 1. Redistributions of source code must retain the above copyright
|
|
** notice, this list of conditions and the following disclaimer.
|
|
** 2. Redistributions in binary form must reproduce the above copyright
|
|
** notice, this list of conditions and the following disclaimer in the
|
|
** documentation and/or other materials provided with the distribution.
|
|
** 3. The name of the author may not be used to endorse or promote products
|
|
** derived from this software without specific prior written permission.
|
|
**
|
|
** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
**---------------------------------------------------------------------------
|
|
**
|
|
*/
|
|
#include <float.h>
|
|
|
|
#include "menu/menu.h"
|
|
#include "c_dispatch.h"
|
|
#include "w_wad.h"
|
|
#include "sc_man.h"
|
|
#include "v_font.h"
|
|
#include "g_level.h"
|
|
#include "d_player.h"
|
|
#include "v_video.h"
|
|
#include "i_system.h"
|
|
#include "c_bind.h"
|
|
#include "v_palette.h"
|
|
#include "d_event.h"
|
|
#include "d_gui.h"
|
|
#include "i_music.h"
|
|
#include "m_joy.h"
|
|
#include "gi.h"
|
|
#include "i_sound.h"
|
|
#include "cmdlib.h"
|
|
#include "vm.h"
|
|
#include "types.h"
|
|
#include "gameconfigfile.h"
|
|
#include "m_argv.h"
|
|
|
|
|
|
|
|
void ClearSaveGames();
|
|
|
|
MenuDescriptorList MenuDescriptors;
|
|
static DListMenuDescriptor *DefaultListMenuSettings; // contains common settings for all list menus
|
|
static DOptionMenuDescriptor *DefaultOptionMenuSettings; // contains common settings for all Option menus
|
|
FOptionMenuSettings OptionSettings;
|
|
FOptionMap OptionValues;
|
|
bool mustPrintErrors;
|
|
PClass *DefaultListMenuClass;
|
|
PClass *DefaultOptionMenuClass;
|
|
|
|
void I_BuildALDeviceList(FOptionValues *opt);
|
|
void I_BuildALResamplersList(FOptionValues *opt);
|
|
|
|
DEFINE_GLOBAL_NAMED(OptionSettings, OptionMenuSettings)
|
|
|
|
DEFINE_ACTION_FUNCTION(FOptionValues, GetCount)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(grp);
|
|
int cnt = 0;
|
|
FOptionValues **pGrp = OptionValues.CheckKey(grp);
|
|
if (pGrp != nullptr)
|
|
{
|
|
cnt = (*pGrp)->mValues.Size();
|
|
}
|
|
ACTION_RETURN_INT(cnt);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(FOptionValues, GetValue)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(grp);
|
|
PARAM_UINT(index);
|
|
double val = 0;
|
|
FOptionValues **pGrp = OptionValues.CheckKey(grp);
|
|
if (pGrp != nullptr)
|
|
{
|
|
if (index < (*pGrp)->mValues.Size())
|
|
{
|
|
val = (*pGrp)->mValues[index].Value;
|
|
}
|
|
}
|
|
ACTION_RETURN_FLOAT(val);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(FOptionValues, GetTextValue)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(grp);
|
|
PARAM_UINT(index);
|
|
FString val;
|
|
FOptionValues **pGrp = OptionValues.CheckKey(grp);
|
|
if (pGrp != nullptr)
|
|
{
|
|
if (index < (*pGrp)->mValues.Size())
|
|
{
|
|
val = (*pGrp)->mValues[index].TextValue;
|
|
}
|
|
}
|
|
ACTION_RETURN_STRING(val);
|
|
}
|
|
|
|
DEFINE_ACTION_FUNCTION(FOptionValues, GetText)
|
|
{
|
|
PARAM_PROLOGUE;
|
|
PARAM_NAME(grp);
|
|
PARAM_UINT(index);
|
|
FString val;
|
|
FOptionValues **pGrp = OptionValues.CheckKey(grp);
|
|
if (pGrp != nullptr)
|
|
{
|
|
if (index < (*pGrp)->mValues.Size())
|
|
{
|
|
val = (*pGrp)->mValues[index].Text;
|
|
}
|
|
}
|
|
ACTION_RETURN_STRING(val);
|
|
}
|
|
|
|
|
|
void DeinitMenus()
|
|
{
|
|
{
|
|
FOptionMap::Iterator it(OptionValues);
|
|
|
|
FOptionMap::Pair *pair;
|
|
|
|
while (it.NextPair(pair))
|
|
{
|
|
delete pair->Value;
|
|
pair->Value = nullptr;
|
|
}
|
|
}
|
|
MenuDescriptors.Clear();
|
|
OptionValues.Clear();
|
|
CurrentMenu = nullptr;
|
|
savegameManager.ClearSaveGames();
|
|
}
|
|
|
|
static FTextureID GetMenuTexture(const char* const name)
|
|
{
|
|
const FTextureID texture = TexMan.CheckForTexture(name, FTexture::TEX_MiscPatch);
|
|
|
|
if (!texture.Exists() && mustPrintErrors)
|
|
{
|
|
Printf("Missing menu texture: \"%s\"\n", name);
|
|
}
|
|
|
|
return texture;
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void SkipSubBlock(FScanner &sc)
|
|
{
|
|
sc.MustGetStringName("{");
|
|
int depth = 1;
|
|
while (depth > 0)
|
|
{
|
|
sc.MustGetString();
|
|
if (sc.Compare("{")) depth++;
|
|
if (sc.Compare("}")) depth--;
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static bool CheckSkipGameBlock(FScanner &sc)
|
|
{
|
|
bool filter = false;
|
|
sc.MustGetStringName("(");
|
|
do
|
|
{
|
|
sc.MustGetString();
|
|
filter |= CheckGame(sc.String, false);
|
|
}
|
|
while (sc.CheckString(","));
|
|
sc.MustGetStringName(")");
|
|
if (!filter)
|
|
{
|
|
SkipSubBlock(sc);
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static bool CheckSkipOptionBlock(FScanner &sc)
|
|
{
|
|
bool filter = false;
|
|
sc.MustGetStringName("(");
|
|
do
|
|
{
|
|
sc.MustGetString();
|
|
if (sc.Compare("ReadThis")) filter |= gameinfo.drawreadthis;
|
|
else if (sc.Compare("Swapmenu")) filter |= gameinfo.swapmenu;
|
|
else if (sc.Compare("Windows"))
|
|
{
|
|
#ifdef _WIN32
|
|
filter = true;
|
|
#endif
|
|
}
|
|
else if (sc.Compare("unix"))
|
|
{
|
|
#ifdef __unix__
|
|
filter = true;
|
|
#endif
|
|
}
|
|
else if (sc.Compare("Mac"))
|
|
{
|
|
#ifdef __APPLE__
|
|
filter = true;
|
|
#endif
|
|
}
|
|
else if (sc.Compare("OpenAL"))
|
|
{
|
|
filter |= IsOpenALPresent();
|
|
}
|
|
}
|
|
while (sc.CheckString(","));
|
|
sc.MustGetStringName(")");
|
|
if (!filter)
|
|
{
|
|
SkipSubBlock(sc);
|
|
return !sc.CheckString("else");
|
|
}
|
|
return false;
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseListMenuBody(FScanner &sc, DListMenuDescriptor *desc)
|
|
{
|
|
sc.MustGetStringName("{");
|
|
while (!sc.CheckString("}"))
|
|
{
|
|
sc.MustGetString();
|
|
if (sc.Compare("else"))
|
|
{
|
|
SkipSubBlock(sc);
|
|
}
|
|
else if (sc.Compare("ifgame"))
|
|
{
|
|
if (!CheckSkipGameBlock(sc))
|
|
{
|
|
// recursively parse sub-block
|
|
ParseListMenuBody(sc, desc);
|
|
}
|
|
}
|
|
else if (sc.Compare("ifoption"))
|
|
{
|
|
if (!CheckSkipOptionBlock(sc))
|
|
{
|
|
// recursively parse sub-block
|
|
ParseListMenuBody(sc, desc);
|
|
}
|
|
}
|
|
else if (sc.Compare("Class"))
|
|
{
|
|
sc.MustGetString();
|
|
PClass *cls = PClass::FindClass(sc.String);
|
|
if (cls == nullptr || !cls->IsDescendantOf("ListMenu"))
|
|
{
|
|
sc.ScriptError("Unknown menu class '%s'", sc.String);
|
|
}
|
|
desc->mClass = cls;
|
|
}
|
|
else if (sc.Compare("Selector"))
|
|
{
|
|
sc.MustGetString();
|
|
desc->mSelector = GetMenuTexture(sc.String);
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetFloat();
|
|
desc->mSelectOfsX = sc.Float;
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetFloat();
|
|
desc->mSelectOfsY = sc.Float;
|
|
}
|
|
else if (sc.Compare("Linespacing"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mLinespacing = sc.Number;
|
|
}
|
|
else if (sc.Compare("Position"))
|
|
{
|
|
sc.MustGetFloat();
|
|
desc->mXpos = sc.Float;
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetFloat();
|
|
desc->mYpos = sc.Float;
|
|
}
|
|
else if (sc.Compare("Centermenu"))
|
|
{
|
|
desc->mCenter = true;
|
|
}
|
|
else if (sc.Compare("MouseWindow"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mWLeft = sc.Number;
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetNumber();
|
|
desc->mWRight = sc.Number;
|
|
}
|
|
else if (sc.Compare("Font"))
|
|
{
|
|
sc.MustGetString();
|
|
FFont *newfont = V_GetFont(sc.String);
|
|
if (newfont != nullptr) desc->mFont = newfont;
|
|
if (sc.CheckString(","))
|
|
{
|
|
sc.MustGetString();
|
|
desc->mFontColor2 = desc->mFontColor = V_FindFontColor((FName)sc.String);
|
|
if (sc.CheckString(","))
|
|
{
|
|
sc.MustGetString();
|
|
desc->mFontColor2 = V_FindFontColor((FName)sc.String);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
desc->mFontColor = OptionSettings.mFontColor;
|
|
desc->mFontColor2 = OptionSettings.mFontColorValue;
|
|
}
|
|
}
|
|
else if (sc.Compare("NetgameMessage"))
|
|
{
|
|
sc.MustGetString();
|
|
desc->mNetgameMessage = sc.String;
|
|
}
|
|
else
|
|
{
|
|
bool success = false;
|
|
FStringf buildname("ListMenuItem%s", sc.String);
|
|
PClass *cls = PClass::FindClass(buildname);
|
|
if (cls != nullptr && cls->IsDescendantOf("ListMenuItem"))
|
|
{
|
|
auto func = dyn_cast<PFunction>(cls->FindSymbol("Init", true));
|
|
if (func != nullptr && !(func->Variants[0].Flags & (VARF_Protected | VARF_Private))) // skip internal classes which have a protexted init method.
|
|
{
|
|
auto &args = func->Variants[0].Proto->ArgumentTypes;
|
|
TArray<VMValue> params;
|
|
int start = 1;
|
|
|
|
params.Push(0);
|
|
if (args.Size() > 1 && args[1] == NewPointer(PClass::FindClass("ListMenuDescriptor")))
|
|
{
|
|
params.Push(desc);
|
|
start = 2;
|
|
}
|
|
auto TypeCVar = NewPointer(NewStruct("CVar", nullptr, true));
|
|
|
|
// Note that this array may not be reallocated so its initial size must be the maximum possible elements.
|
|
TArray<FString> strings(args.Size());
|
|
for (unsigned i = start; i < args.Size(); i++)
|
|
{
|
|
sc.MustGetString();
|
|
if (args[i] == TypeString)
|
|
{
|
|
strings.Push(sc.String);
|
|
params.Push(&strings.Last());
|
|
}
|
|
else if (args[i] == TypeName)
|
|
{
|
|
params.Push(FName(sc.String).GetIndex());
|
|
}
|
|
else if (args[i] == TypeColor)
|
|
{
|
|
params.Push(V_GetColor(nullptr, sc));
|
|
}
|
|
else if (args[i] == TypeFont)
|
|
{
|
|
auto f = FFont::FindFont(sc.String);
|
|
if (f == nullptr)
|
|
{
|
|
sc.ScriptError("Unknown font %s", sc.String);
|
|
}
|
|
params.Push(f);
|
|
}
|
|
else if (args[i] == TypeTextureID)
|
|
{
|
|
auto f = TexMan.CheckForTexture(sc.String, FTexture::TEX_MiscPatch);
|
|
if (!f.Exists())
|
|
{
|
|
sc.ScriptMessage("Unknown texture %s", sc.String);
|
|
}
|
|
params.Push(f.GetIndex());
|
|
}
|
|
else if (args[i]->isIntCompatible())
|
|
{
|
|
char *endp;
|
|
int v = (int)strtoll(sc.String, &endp, 0);
|
|
if (*endp != 0)
|
|
{
|
|
// special check for font color ranges.
|
|
v = V_FindFontColor(sc.String);
|
|
if (v == CR_UNTRANSLATED && !sc.Compare("untranslated"))
|
|
{
|
|
// todo: check other data types that may get used.
|
|
sc.ScriptError("Integer expected, got %s", sc.String);
|
|
}
|
|
}
|
|
if (args[i] == TypeBool) v = !!v;
|
|
params.Push(v);
|
|
}
|
|
else if (args[i]->isFloat())
|
|
{
|
|
char *endp;
|
|
double v = strtod(sc.String, &endp);
|
|
if (*endp != 0)
|
|
{
|
|
sc.ScriptError("Float expected, got %s", sc.String);
|
|
}
|
|
params.Push(v);
|
|
}
|
|
else if (args[i] == TypeCVar)
|
|
{
|
|
auto cv = FindCVar(sc.String, nullptr);
|
|
if (cv == nullptr && *sc.String)
|
|
{
|
|
sc.ScriptError("Unknown CVar %s", sc.String);
|
|
}
|
|
params.Push(cv);
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Invalid parameter type %s for menu item", args[i]->DescriptiveName());
|
|
}
|
|
if (sc.CheckString(","))
|
|
{
|
|
if (i == args.Size() - 1)
|
|
{
|
|
sc.ScriptError("Too many parameters for %s", cls->TypeName.GetChars());
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (i < args.Size() - 1 && !(func->Variants[0].ArgFlags[i + 1] & VARF_Optional))
|
|
{
|
|
sc.ScriptError("Insufficient parameters for %s", cls->TypeName.GetChars());
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
DMenuItemBase *item = (DMenuItemBase*)cls->CreateNew();
|
|
params[0] = item;
|
|
VMCall(func->Variants[0].Implementation, ¶ms[0], params.Size(), nullptr, 0);
|
|
desc->mItems.Push((DMenuItemBase*)item);
|
|
|
|
if (cls->IsDescendantOf("ListMenuItemSelectable"))
|
|
{
|
|
desc->mYpos += desc->mLinespacing;
|
|
if (desc->mSelectedItem == -1) desc->mSelectedItem = desc->mItems.Size() - 1;
|
|
}
|
|
success = true;
|
|
}
|
|
}
|
|
if (!success)
|
|
{
|
|
sc.ScriptError("Unknown keyword '%s'", sc.String);
|
|
}
|
|
}
|
|
}
|
|
for (auto &p : desc->mItems)
|
|
{
|
|
GC::WriteBarrier(p);
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static bool CheckCompatible(DMenuDescriptor *newd, DMenuDescriptor *oldd)
|
|
{
|
|
if (oldd->mClass == nullptr) return true;
|
|
return newd->mClass->IsDescendantOf(oldd->mClass);
|
|
}
|
|
|
|
static int GetGroup(DMenuItemBase *desc)
|
|
{
|
|
if (desc->IsKindOf(NAME_OptionMenuItemCommand)) return 2;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemSubmenu)) return 1;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemControlBase)) return 3;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemOptionBase)) return 4;
|
|
if (desc->IsKindOf(NAME_OptionMenuSliderBase)) return 4;
|
|
if (desc->IsKindOf(NAME_OptionMenuFieldBase)) return 4;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemColorPicker)) return 4;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemStaticText)) return 5;
|
|
if (desc->IsKindOf(NAME_OptionMenuItemStaticTextSwitchable)) return 5;
|
|
return 0;
|
|
}
|
|
|
|
static bool FindMatchingItem(DMenuItemBase *desc)
|
|
{
|
|
int grp = GetGroup(desc);
|
|
if (grp == 0) return false; // no idea what this is.
|
|
if (grp == 5) return true; // static texts always match
|
|
|
|
FName name = desc->mAction;
|
|
|
|
if (grp == 1)
|
|
{
|
|
// Check for presence of menu
|
|
auto menu = MenuDescriptors.CheckKey(name);
|
|
if (menu == nullptr) return true;
|
|
}
|
|
else if (grp == 4)
|
|
{
|
|
static const FName CVarBlacklist[] = {
|
|
NAME_snd_waterlp, NAME_snd_output, NAME_snd_output_format, NAME_snd_speakermode, NAME_snd_resampler, NAME_AlwaysRun };
|
|
|
|
// Check for presence of CVAR and blacklist
|
|
auto cv = FindCVar(name.GetChars(), nullptr);
|
|
if (cv == nullptr) return true;
|
|
|
|
for (auto bname : CVarBlacklist)
|
|
{
|
|
if (name == bname) return true;
|
|
}
|
|
}
|
|
|
|
MenuDescriptorList::Iterator it(MenuDescriptors);
|
|
MenuDescriptorList::Pair *pair;
|
|
while (it.NextPair(pair))
|
|
{
|
|
for (auto it : pair->Value->mItems)
|
|
{
|
|
if (it->mAction == name && GetGroup(it) == grp) return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
static bool ReplaceMenu(FScanner &sc, DMenuDescriptor *desc)
|
|
{
|
|
DMenuDescriptor **pOld = MenuDescriptors.CheckKey(desc->mMenuName);
|
|
if (pOld != nullptr && *pOld != nullptr)
|
|
{
|
|
if ((*pOld)->mProtected)
|
|
{
|
|
// If this tries to replace an option menu with an option menu, let's append all new entries to the old menu.
|
|
// Otherwise bail out because for list menus it's not that simple.
|
|
if (desc->IsKindOf(RUNTIME_CLASS(DListMenuDescriptor)) || (*pOld)->IsKindOf(RUNTIME_CLASS(DListMenuDescriptor)))
|
|
{
|
|
sc.ScriptMessage("Cannot replace protected menu %s.", desc->mMenuName.GetChars());
|
|
return true;
|
|
}
|
|
for (int i = desc->mItems.Size()-1; i >= 0; i--)
|
|
{
|
|
if (FindMatchingItem(desc->mItems[i]))
|
|
{
|
|
desc->mItems.Delete(i);
|
|
}
|
|
}
|
|
if (desc->mItems.Size() > 0)
|
|
{
|
|
auto sep = CreateOptionMenuItemStaticText(" ");
|
|
(*pOld)->mItems.Push(sep);
|
|
sep = CreateOptionMenuItemStaticText("---------------", 1);
|
|
(*pOld)->mItems.Push(sep);
|
|
for (auto it : desc->mItems)
|
|
{
|
|
(*pOld)->mItems.Push(it);
|
|
}
|
|
desc->mItems.Clear();
|
|
//sc.ScriptMessage("Merged %d items into %s", desc->mItems.Size(), desc->mMenuName.GetChars());
|
|
}
|
|
return true;
|
|
}
|
|
|
|
if (!CheckCompatible(desc, *pOld))
|
|
{
|
|
sc.ScriptMessage("Tried to replace menu '%s' with a menu of different type", desc->mMenuName.GetChars());
|
|
return true;
|
|
}
|
|
}
|
|
MenuDescriptors[desc->mMenuName] = desc;
|
|
GC::WriteBarrier(desc);
|
|
return false;
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseListMenu(FScanner &sc)
|
|
{
|
|
sc.MustGetString();
|
|
|
|
DListMenuDescriptor *desc = Create<DListMenuDescriptor>();
|
|
desc->mMenuName = sc.String;
|
|
desc->mSelectedItem = -1;
|
|
desc->mAutoselect = -1;
|
|
desc->mSelectOfsX = DefaultListMenuSettings->mSelectOfsX;
|
|
desc->mSelectOfsY = DefaultListMenuSettings->mSelectOfsY;
|
|
desc->mSelector = DefaultListMenuSettings->mSelector;
|
|
desc->mDisplayTop = DefaultListMenuSettings->mDisplayTop;
|
|
desc->mXpos = DefaultListMenuSettings->mXpos;
|
|
desc->mYpos = DefaultListMenuSettings->mYpos;
|
|
desc->mLinespacing = DefaultListMenuSettings->mLinespacing;
|
|
desc->mNetgameMessage = DefaultListMenuSettings->mNetgameMessage;
|
|
desc->mFont = DefaultListMenuSettings->mFont;
|
|
desc->mFontColor = DefaultListMenuSettings->mFontColor;
|
|
desc->mFontColor2 = DefaultListMenuSettings->mFontColor2;
|
|
desc->mClass = nullptr;
|
|
desc->mWLeft = 0;
|
|
desc->mWRight = 0;
|
|
desc->mCenter = false;
|
|
|
|
ParseListMenuBody(sc, desc);
|
|
ReplaceMenu(sc, desc);
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseOptionValue(FScanner &sc)
|
|
{
|
|
FName optname;
|
|
|
|
FOptionValues *val = new FOptionValues;
|
|
sc.MustGetString();
|
|
optname = sc.String;
|
|
sc.MustGetStringName("{");
|
|
while (!sc.CheckString("}"))
|
|
{
|
|
FOptionValues::Pair &pair = val->mValues[val->mValues.Reserve(1)];
|
|
sc.MustGetFloat();
|
|
pair.Value = sc.Float;
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetString();
|
|
pair.Text = strbin1(sc.String);
|
|
}
|
|
FOptionValues **pOld = OptionValues.CheckKey(optname);
|
|
if (pOld != nullptr && *pOld != nullptr)
|
|
{
|
|
delete *pOld;
|
|
}
|
|
OptionValues[optname] = val;
|
|
}
|
|
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseOptionString(FScanner &sc)
|
|
{
|
|
FName optname;
|
|
|
|
FOptionValues *val = new FOptionValues;
|
|
sc.MustGetString();
|
|
optname = sc.String;
|
|
sc.MustGetStringName("{");
|
|
while (!sc.CheckString("}"))
|
|
{
|
|
FOptionValues::Pair &pair = val->mValues[val->mValues.Reserve(1)];
|
|
sc.MustGetString();
|
|
pair.Value = DBL_MAX;
|
|
pair.TextValue = sc.String;
|
|
sc.MustGetStringName(",");
|
|
sc.MustGetString();
|
|
pair.Text = strbin1(sc.String);
|
|
}
|
|
FOptionValues **pOld = OptionValues.CheckKey(optname);
|
|
if (pOld != nullptr && *pOld != nullptr)
|
|
{
|
|
delete *pOld;
|
|
}
|
|
OptionValues[optname] = val;
|
|
}
|
|
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseOptionSettings(FScanner &sc)
|
|
{
|
|
sc.MustGetStringName("{");
|
|
while (!sc.CheckString("}"))
|
|
{
|
|
sc.MustGetString();
|
|
if (sc.Compare("else"))
|
|
{
|
|
SkipSubBlock(sc);
|
|
}
|
|
else if (sc.Compare("ifgame"))
|
|
{
|
|
if (!CheckSkipGameBlock(sc))
|
|
{
|
|
// recursively parse sub-block
|
|
ParseOptionSettings(sc);
|
|
}
|
|
}
|
|
else if (sc.Compare("Linespacing"))
|
|
{
|
|
sc.MustGetNumber();
|
|
OptionSettings.mLinespacing = sc.Number;
|
|
}
|
|
else if (sc.Compare("LabelOffset"))
|
|
{
|
|
sc.MustGetNumber();
|
|
// ignored
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Unknown keyword '%s'", sc.String);
|
|
}
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseOptionMenuBody(FScanner &sc, DOptionMenuDescriptor *desc)
|
|
{
|
|
sc.MustGetStringName("{");
|
|
while (!sc.CheckString("}"))
|
|
{
|
|
sc.MustGetString();
|
|
if (sc.Compare("else"))
|
|
{
|
|
SkipSubBlock(sc);
|
|
}
|
|
else if (sc.Compare("ifgame"))
|
|
{
|
|
if (!CheckSkipGameBlock(sc))
|
|
{
|
|
// recursively parse sub-block
|
|
ParseOptionMenuBody(sc, desc);
|
|
}
|
|
}
|
|
else if (sc.Compare("ifoption"))
|
|
{
|
|
if (!CheckSkipOptionBlock(sc))
|
|
{
|
|
// recursively parse sub-block
|
|
ParseOptionMenuBody(sc, desc);
|
|
}
|
|
}
|
|
else if (sc.Compare("Class"))
|
|
{
|
|
sc.MustGetString();
|
|
PClass *cls = PClass::FindClass(sc.String);
|
|
if (cls == nullptr || !cls->IsDescendantOf("OptionMenu"))
|
|
{
|
|
sc.ScriptError("Unknown menu class '%s'", sc.String);
|
|
}
|
|
desc->mClass = cls;
|
|
}
|
|
else if (sc.Compare("Title"))
|
|
{
|
|
sc.MustGetString();
|
|
desc->mTitle = sc.String;
|
|
}
|
|
else if (sc.Compare("Position"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mPosition = sc.Number;
|
|
}
|
|
else if (sc.Compare("DefaultSelection"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mSelectedItem = sc.Number;
|
|
}
|
|
else if (sc.Compare("ScrollTop"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mScrollTop = sc.Number;
|
|
}
|
|
else if (sc.Compare("Indent"))
|
|
{
|
|
sc.MustGetNumber();
|
|
desc->mIndent = sc.Number;
|
|
}
|
|
else
|
|
{
|
|
bool success = false;
|
|
FStringf buildname("OptionMenuItem%s", sc.String);
|
|
// Handle one special case: MapControl maps to Control with one parameter different
|
|
PClass *cls = PClass::FindClass(buildname);
|
|
if (cls != nullptr && cls->IsDescendantOf("OptionMenuItem"))
|
|
{
|
|
auto func = dyn_cast<PFunction>(cls->FindSymbol("Init", true));
|
|
if (func != nullptr && !(func->Variants[0].Flags & (VARF_Protected | VARF_Private))) // skip internal classes which have a protexted init method.
|
|
{
|
|
auto &args = func->Variants[0].Proto->ArgumentTypes;
|
|
TArray<VMValue> params;
|
|
|
|
params.Push(0);
|
|
auto TypeCVar = NewPointer(NewStruct("CVar", nullptr, true));
|
|
|
|
// Note that this array may not be reallocated so its initial size must be the maximum possible elements.
|
|
TArray<FString> strings(args.Size());
|
|
for (unsigned i = 1; i < args.Size(); i++)
|
|
{
|
|
sc.MustGetString();
|
|
if (args[i] == TypeString)
|
|
{
|
|
strings.Push(sc.String);
|
|
params.Push(&strings.Last());
|
|
}
|
|
else if (args[i] == TypeName)
|
|
{
|
|
params.Push(FName(sc.String).GetIndex());
|
|
}
|
|
else if (args[i] == TypeColor)
|
|
{
|
|
params.Push(V_GetColor(nullptr, sc));
|
|
}
|
|
else if (args[i]->isIntCompatible())
|
|
{
|
|
char *endp;
|
|
int v = (int)strtoll(sc.String, &endp, 0);
|
|
if (*endp != 0)
|
|
{
|
|
// special check for font color ranges.
|
|
v = V_FindFontColor(sc.String);
|
|
if (v == CR_UNTRANSLATED && !sc.Compare("untranslated"))
|
|
{
|
|
// todo: check other data types that may get used.
|
|
sc.ScriptError("Integer expected, got %s", sc.String);
|
|
}
|
|
// Color ranges need to be marked for option menu items to support an older feature where a boolean number could be passed instead.
|
|
v |= 0x12340000;
|
|
}
|
|
if (args[i] == TypeBool) v = !!v;
|
|
params.Push(v);
|
|
}
|
|
else if (args[i]->isFloat())
|
|
{
|
|
char *endp;
|
|
double v = strtod(sc.String, &endp);
|
|
if (*endp != 0)
|
|
{
|
|
sc.ScriptError("Float expected, got %s", sc.String);
|
|
}
|
|
params.Push(v);
|
|
}
|
|
else if (args[i] == TypeCVar)
|
|
{
|
|
auto cv = FindCVar(sc.String, nullptr);
|
|
if (cv == nullptr && *sc.String)
|
|
{
|
|
if (func->Variants[0].ArgFlags[i] & VARF_Optional)
|
|
sc.ScriptMessage("Unknown CVar %s", sc.String);
|
|
else
|
|
sc.ScriptError("Unknown CVar %s", sc.String);
|
|
}
|
|
params.Push(cv);
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Invalid parameter type %s for menu item", args[i]->DescriptiveName());
|
|
}
|
|
if (sc.CheckString(","))
|
|
{
|
|
if (i == args.Size() - 1)
|
|
{
|
|
sc.ScriptError("Too many parameters for %s", cls->TypeName.GetChars());
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (i < args.Size() - 1 && !(func->Variants[0].ArgFlags[i + 1] & VARF_Optional))
|
|
{
|
|
sc.ScriptError("Insufficient parameters for %s", cls->TypeName.GetChars());
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
DMenuItemBase *item = (DMenuItemBase*)cls->CreateNew();
|
|
params[0] = item;
|
|
VMCall(func->Variants[0].Implementation, ¶ms[0], params.Size(), nullptr, 0);
|
|
desc->mItems.Push((DMenuItemBase*)item);
|
|
|
|
success = true;
|
|
}
|
|
}
|
|
if (!success)
|
|
{
|
|
sc.ScriptError("Unknown keyword '%s'", sc.String);
|
|
}
|
|
}
|
|
}
|
|
for (auto &p : desc->mItems)
|
|
{
|
|
GC::WriteBarrier(p);
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseOptionMenu(FScanner &sc)
|
|
{
|
|
sc.MustGetString();
|
|
|
|
DOptionMenuDescriptor *desc = Create<DOptionMenuDescriptor>();
|
|
desc->mMenuName = sc.String;
|
|
desc->mSelectedItem = -1;
|
|
desc->mScrollPos = 0;
|
|
desc->mClass = nullptr;
|
|
desc->mPosition = DefaultOptionMenuSettings->mPosition;
|
|
desc->mScrollTop = DefaultOptionMenuSettings->mScrollTop;
|
|
desc->mIndent = DefaultOptionMenuSettings->mIndent;
|
|
desc->mDontDim = DefaultOptionMenuSettings->mDontDim;
|
|
desc->mProtected = sc.CheckString("protected");
|
|
|
|
ParseOptionMenuBody(sc, desc);
|
|
ReplaceMenu(sc, desc);
|
|
}
|
|
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void ParseAddOptionMenu(FScanner &sc)
|
|
{
|
|
sc.MustGetString();
|
|
|
|
DMenuDescriptor **pOld = MenuDescriptors.CheckKey(sc.String);
|
|
if (pOld == nullptr || *pOld == nullptr || !(*pOld)->IsKindOf(RUNTIME_CLASS(DOptionMenuDescriptor)))
|
|
{
|
|
sc.ScriptError("%s is not an option menu that can be extended", sc.String);
|
|
}
|
|
ParseOptionMenuBody(sc, (DOptionMenuDescriptor*)(*pOld));
|
|
}
|
|
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
void M_ParseMenuDefs()
|
|
{
|
|
int lump, lastlump = 0;
|
|
|
|
OptionSettings.mTitleColor = V_FindFontColor(gameinfo.mTitleColor);
|
|
OptionSettings.mFontColor = V_FindFontColor(gameinfo.mFontColor);
|
|
OptionSettings.mFontColorValue = V_FindFontColor(gameinfo.mFontColorValue);
|
|
OptionSettings.mFontColorMore = V_FindFontColor(gameinfo.mFontColorMore);
|
|
OptionSettings.mFontColorHeader = V_FindFontColor(gameinfo.mFontColorHeader);
|
|
OptionSettings.mFontColorHighlight = V_FindFontColor(gameinfo.mFontColorHighlight);
|
|
OptionSettings.mFontColorSelection = V_FindFontColor(gameinfo.mFontColorSelection);
|
|
// these are supposed to get GC'd after parsing is complete.
|
|
DefaultListMenuSettings = Create<DListMenuDescriptor>();
|
|
DefaultOptionMenuSettings = Create<DOptionMenuDescriptor>();
|
|
DefaultListMenuSettings->Reset();
|
|
DefaultOptionMenuSettings->Reset();
|
|
|
|
atterm( DeinitMenus);
|
|
DeinitMenus();
|
|
|
|
int IWADMenu = Wads.CheckNumForName("MENUDEF", ns_global, FWadCollection::IWAD_FILENUM);
|
|
|
|
while ((lump = Wads.FindLump ("MENUDEF", &lastlump)) != -1)
|
|
{
|
|
FScanner sc(lump);
|
|
|
|
mustPrintErrors = lump >= IWADMenu;
|
|
sc.SetCMode(true);
|
|
while (sc.GetString())
|
|
{
|
|
if (sc.Compare("LISTMENU"))
|
|
{
|
|
ParseListMenu(sc);
|
|
}
|
|
else if (sc.Compare("DEFAULTLISTMENU"))
|
|
{
|
|
ParseListMenuBody(sc, DefaultListMenuSettings);
|
|
if (DefaultListMenuSettings->mItems.Size() > 0)
|
|
{
|
|
I_FatalError("You cannot add menu items to the menu default settings.");
|
|
}
|
|
}
|
|
else if (sc.Compare("OPTIONVALUE"))
|
|
{
|
|
ParseOptionValue(sc);
|
|
}
|
|
else if (sc.Compare("OPTIONSTRING"))
|
|
{
|
|
ParseOptionString(sc);
|
|
}
|
|
else if (sc.Compare("OPTIONMENUSETTINGS"))
|
|
{
|
|
ParseOptionSettings(sc);
|
|
}
|
|
else if (sc.Compare("OPTIONMENU"))
|
|
{
|
|
ParseOptionMenu(sc);
|
|
}
|
|
else if (sc.Compare("ADDOPTIONMENU"))
|
|
{
|
|
ParseAddOptionMenu(sc);
|
|
}
|
|
else if (sc.Compare("DEFAULTOPTIONMENU"))
|
|
{
|
|
ParseOptionMenuBody(sc, DefaultOptionMenuSettings);
|
|
if (DefaultOptionMenuSettings->mItems.Size() > 0)
|
|
{
|
|
I_FatalError("You cannot add menu items to the menu default settings.");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
sc.ScriptError("Unknown keyword '%s'", sc.String);
|
|
}
|
|
}
|
|
if (Args->CheckParm("-nocustommenu")) break;
|
|
}
|
|
DefaultListMenuClass = DefaultListMenuSettings->mClass;
|
|
DefaultListMenuSettings = nullptr;
|
|
DefaultOptionMenuClass = DefaultOptionMenuSettings->mClass;
|
|
DefaultOptionMenuSettings = nullptr;
|
|
}
|
|
|
|
|
|
//=============================================================================
|
|
//
|
|
// Creates the episode menu
|
|
// Falls back on an option menu if there's not enough screen space to show all episodes
|
|
//
|
|
//=============================================================================
|
|
|
|
static void BuildEpisodeMenu()
|
|
{
|
|
// Build episode menu
|
|
bool success = false;
|
|
DMenuDescriptor **desc = MenuDescriptors.CheckKey(NAME_Episodemenu);
|
|
if (desc != nullptr)
|
|
{
|
|
if ((*desc)->IsKindOf(RUNTIME_CLASS(DListMenuDescriptor)))
|
|
{
|
|
DListMenuDescriptor *ld = static_cast<DListMenuDescriptor*>(*desc);
|
|
int posy = (int)ld->mYpos;
|
|
int topy = posy;
|
|
|
|
// Get lowest y coordinate of any static item in the menu
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
int y = (int)ld->mItems[i]->GetY();
|
|
if (y < topy) topy = y;
|
|
}
|
|
|
|
// center the menu on the screen if the top space is larger than the bottom space
|
|
int totalheight = posy + AllEpisodes.Size() * ld->mLinespacing - topy;
|
|
|
|
if (totalheight < 190 || AllEpisodes.Size() == 1)
|
|
{
|
|
int newtop = (200 - totalheight + topy) / 2;
|
|
int topdelta = newtop - topy;
|
|
if (topdelta < 0)
|
|
{
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
ld->mItems[i]->OffsetPositionY(topdelta);
|
|
}
|
|
posy -= topdelta;
|
|
}
|
|
|
|
ld->mSelectedItem = ld->mItems.Size();
|
|
for(unsigned i = 0; i < AllEpisodes.Size(); i++)
|
|
{
|
|
DMenuItemBase *it;
|
|
if (AllEpisodes[i].mPicName.IsNotEmpty())
|
|
{
|
|
FTextureID tex = GetMenuTexture(AllEpisodes[i].mPicName);
|
|
it = CreateListMenuItemPatch(ld->mXpos, posy, ld->mLinespacing, AllEpisodes[i].mShortcut, tex, NAME_Skillmenu, i);
|
|
}
|
|
else
|
|
{
|
|
it = CreateListMenuItemText(ld->mXpos, posy, ld->mLinespacing, AllEpisodes[i].mShortcut,
|
|
AllEpisodes[i].mEpisodeName, ld->mFont, ld->mFontColor, ld->mFontColor2, NAME_Skillmenu, i);
|
|
}
|
|
ld->mItems.Push(it);
|
|
posy += ld->mLinespacing;
|
|
}
|
|
if (AllEpisodes.Size() == 1)
|
|
{
|
|
ld->mAutoselect = ld->mSelectedItem;
|
|
}
|
|
success = true;
|
|
for (auto &p : ld->mItems)
|
|
{
|
|
GC::WriteBarrier(*desc, p);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (!success)
|
|
{
|
|
// Couldn't create the episode menu, either because there's too many episodes or some error occured
|
|
// Create an option menu for episode selection instead.
|
|
DOptionMenuDescriptor *od = Create<DOptionMenuDescriptor>();
|
|
MenuDescriptors[NAME_Episodemenu] = od;
|
|
od->mMenuName = NAME_Episodemenu;
|
|
od->mTitle = "$MNU_EPISODE";
|
|
od->mSelectedItem = 0;
|
|
od->mScrollPos = 0;
|
|
od->mClass = nullptr;
|
|
od->mPosition = -15;
|
|
od->mScrollTop = 0;
|
|
od->mIndent = 160;
|
|
od->mDontDim = false;
|
|
GC::WriteBarrier(od);
|
|
for(unsigned i = 0; i < AllEpisodes.Size(); i++)
|
|
{
|
|
auto it = CreateOptionMenuItemSubmenu(AllEpisodes[i].mEpisodeName, "Skillmenu", i);
|
|
od->mItems.Push(it);
|
|
GC::WriteBarrier(od, it);
|
|
}
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
//
|
|
//
|
|
//=============================================================================
|
|
|
|
static void BuildPlayerclassMenu()
|
|
{
|
|
bool success = false;
|
|
|
|
// Build player class menu
|
|
DMenuDescriptor **desc = MenuDescriptors.CheckKey(NAME_Playerclassmenu);
|
|
if (desc != nullptr)
|
|
{
|
|
if ((*desc)->IsKindOf(RUNTIME_CLASS(DListMenuDescriptor)))
|
|
{
|
|
DListMenuDescriptor *ld = static_cast<DListMenuDescriptor*>(*desc);
|
|
// add player display
|
|
ld->mSelectedItem = ld->mItems.Size();
|
|
|
|
int posy = (int)ld->mYpos;
|
|
int topy = posy;
|
|
|
|
// Get lowest y coordinate of any static item in the menu
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
int y = (int)ld->mItems[i]->GetY();
|
|
if (y < topy) topy = y;
|
|
}
|
|
|
|
// Count the number of items this menu will show
|
|
int numclassitems = 0;
|
|
for (unsigned i = 0; i < PlayerClasses.Size (); i++)
|
|
{
|
|
if (!(PlayerClasses[i].Flags & PCF_NOMENU))
|
|
{
|
|
const char *pname = GetPrintableDisplayName(PlayerClasses[i].Type);
|
|
if (pname != nullptr)
|
|
{
|
|
numclassitems++;
|
|
}
|
|
}
|
|
}
|
|
|
|
// center the menu on the screen if the top space is larger than the bottom space
|
|
int totalheight = posy + (numclassitems+1) * ld->mLinespacing - topy;
|
|
|
|
if (numclassitems <= 1)
|
|
{
|
|
// create a dummy item that auto-chooses the default class.
|
|
auto it = CreateListMenuItemText(0, 0, 0, 'p', "player",
|
|
ld->mFont,ld->mFontColor, ld->mFontColor2, NAME_Episodemenu, -1000);
|
|
ld->mAutoselect = ld->mItems.Push(it);
|
|
success = true;
|
|
}
|
|
else if (totalheight <= 190)
|
|
{
|
|
int newtop = (200 - totalheight + topy) / 2;
|
|
int topdelta = newtop - topy;
|
|
if (topdelta < 0)
|
|
{
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
ld->mItems[i]->OffsetPositionY(topdelta);
|
|
}
|
|
posy -= topdelta;
|
|
}
|
|
|
|
int n = 0;
|
|
for (unsigned i = 0; i < PlayerClasses.Size (); i++)
|
|
{
|
|
if (!(PlayerClasses[i].Flags & PCF_NOMENU))
|
|
{
|
|
const char *pname = GetPrintableDisplayName(PlayerClasses[i].Type);
|
|
if (pname != nullptr)
|
|
{
|
|
auto it = CreateListMenuItemText(ld->mXpos, ld->mYpos, ld->mLinespacing, *pname,
|
|
pname, ld->mFont,ld->mFontColor,ld->mFontColor2, NAME_Episodemenu, i);
|
|
ld->mItems.Push(it);
|
|
ld->mYpos += ld->mLinespacing;
|
|
n++;
|
|
}
|
|
}
|
|
}
|
|
if (n > 1 && !gameinfo.norandomplayerclass)
|
|
{
|
|
auto it = CreateListMenuItemText(ld->mXpos, ld->mYpos, ld->mLinespacing, 'r',
|
|
"$MNU_RANDOM", ld->mFont,ld->mFontColor,ld->mFontColor2, NAME_Episodemenu, -1);
|
|
ld->mItems.Push(it);
|
|
}
|
|
if (n == 0)
|
|
{
|
|
const char *pname = GetPrintableDisplayName(PlayerClasses[0].Type);
|
|
if (pname != nullptr)
|
|
{
|
|
auto it = CreateListMenuItemText(ld->mXpos, ld->mYpos, ld->mLinespacing, *pname,
|
|
pname, ld->mFont,ld->mFontColor,ld->mFontColor2, NAME_Episodemenu, 0);
|
|
ld->mItems.Push(it);
|
|
}
|
|
}
|
|
success = true;
|
|
for (auto &p : ld->mItems)
|
|
{
|
|
GC::WriteBarrier(ld, p);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (!success)
|
|
{
|
|
// Couldn't create the playerclass menu, either because there's too many episodes or some error occured
|
|
// Create an option menu for class selection instead.
|
|
DOptionMenuDescriptor *od = Create<DOptionMenuDescriptor>();
|
|
MenuDescriptors[NAME_Playerclassmenu] = od;
|
|
od->mMenuName = NAME_Playerclassmenu;
|
|
od->mTitle = "$MNU_CHOOSECLASS";
|
|
od->mSelectedItem = 0;
|
|
od->mScrollPos = 0;
|
|
od->mClass = nullptr;
|
|
od->mPosition = -15;
|
|
od->mScrollTop = 0;
|
|
od->mIndent = 160;
|
|
od->mDontDim = false;
|
|
od->mNetgameMessage = "$NEWGAME";
|
|
GC::WriteBarrier(od);
|
|
for (unsigned i = 0; i < PlayerClasses.Size (); i++)
|
|
{
|
|
if (!(PlayerClasses[i].Flags & PCF_NOMENU))
|
|
{
|
|
const char *pname = GetPrintableDisplayName(PlayerClasses[i].Type);
|
|
if (pname != nullptr)
|
|
{
|
|
auto it = CreateOptionMenuItemSubmenu(pname, "Episodemenu", i);
|
|
od->mItems.Push(it);
|
|
GC::WriteBarrier(od, it);
|
|
}
|
|
}
|
|
}
|
|
auto it = CreateOptionMenuItemSubmenu("Random", "Episodemenu", -1);
|
|
od->mItems.Push(it);
|
|
GC::WriteBarrier(od, it);
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
// Reads any XHAIRS lumps for the names of crosshairs and
|
|
// adds them to the display options menu.
|
|
//
|
|
//=============================================================================
|
|
|
|
static void InitCrosshairsList()
|
|
{
|
|
int lastlump, lump;
|
|
|
|
lastlump = 0;
|
|
|
|
FOptionValues **opt = OptionValues.CheckKey(NAME_Crosshairs);
|
|
if (opt == nullptr)
|
|
{
|
|
return; // no crosshair value list present. No need to go on.
|
|
}
|
|
|
|
FOptionValues::Pair *pair = &(*opt)->mValues[(*opt)->mValues.Reserve(1)];
|
|
pair->Value = 0;
|
|
pair->Text = "None";
|
|
|
|
while ((lump = Wads.FindLump("XHAIRS", &lastlump)) != -1)
|
|
{
|
|
FScanner sc(lump);
|
|
while (sc.GetNumber())
|
|
{
|
|
FOptionValues::Pair value;
|
|
value.Value = sc.Number;
|
|
sc.MustGetString();
|
|
value.Text = sc.String;
|
|
if (value.Value != 0)
|
|
{ // Check if it already exists. If not, add it.
|
|
unsigned int i;
|
|
|
|
for (i = 1; i < (*opt)->mValues.Size(); ++i)
|
|
{
|
|
if ((*opt)->mValues[i].Value == value.Value)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
if (i < (*opt)->mValues.Size())
|
|
{
|
|
(*opt)->mValues[i].Text = value.Text;
|
|
}
|
|
else
|
|
{
|
|
(*opt)->mValues.Push(value);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
// Initialize the music configuration submenus
|
|
//
|
|
//=============================================================================
|
|
static void InitMusicMenus()
|
|
{
|
|
DMenuDescriptor **advmenu = MenuDescriptors.CheckKey("AdvSoundOptions");
|
|
DMenuDescriptor **gusmenu = MenuDescriptors.CheckKey("GusConfigMenu");
|
|
DMenuDescriptor **timiditymenu = MenuDescriptors.CheckKey("TimidityExeMenu");
|
|
DMenuDescriptor **wildmidimenu = MenuDescriptors.CheckKey("WildMidiConfigMenu");
|
|
DMenuDescriptor **fluidmenu = MenuDescriptors.CheckKey("FluidPatchsetMenu");
|
|
|
|
const char *key, *value;
|
|
if (GameConfig->SetSection("SoundFonts"))
|
|
{
|
|
while (GameConfig->NextInSection(key, value))
|
|
{
|
|
if (FileExists(value))
|
|
{
|
|
if (fluidmenu != nullptr)
|
|
{
|
|
auto it = CreateOptionMenuItemCommand(key, FStringf("fluid_patchset %s", NicePath(value).GetChars()), true);
|
|
static_cast<DOptionMenuDescriptor*>(*fluidmenu)->mItems.Push(it);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else if (advmenu != nullptr)
|
|
{
|
|
// Remove the item for this submenu
|
|
auto d = static_cast<DOptionMenuDescriptor*>(*advmenu);
|
|
auto it = d->GetItem("FluidPatchsetMenu");
|
|
if (it != nullptr) d->mItems.Delete(d->mItems.Find(it));
|
|
}
|
|
if (GameConfig->SetSection("PatchSets"))
|
|
{
|
|
while (GameConfig->NextInSection(key, value))
|
|
{
|
|
if (FileExists(value))
|
|
{
|
|
if (gusmenu != nullptr)
|
|
{
|
|
auto it = CreateOptionMenuItemCommand(key, FStringf("midi_config %s", NicePath(value).GetChars()), true);
|
|
static_cast<DOptionMenuDescriptor*>(*gusmenu)->mItems.Push(it);
|
|
}
|
|
if (wildmidimenu != nullptr)
|
|
{
|
|
auto it = CreateOptionMenuItemCommand(key, FStringf("wildmidi_config %s", NicePath(value).GetChars()), true);
|
|
static_cast<DOptionMenuDescriptor*>(*wildmidimenu)->mItems.Push(it);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else if (advmenu != nullptr)
|
|
{
|
|
// Remove the item for this submenu
|
|
auto d = static_cast<DOptionMenuDescriptor*>(*advmenu);
|
|
auto it = d->GetItem("GusConfigMenu");
|
|
if (it != nullptr) d->mItems.Delete(d->mItems.Find(it));
|
|
it = d->GetItem("WildMidiConfigMenu");
|
|
if (it != nullptr) d->mItems.Delete(d->mItems.Find(it));
|
|
}
|
|
#ifdef _WIN32 // Different Timidity paths only make sense if they can be stored in arbitrary paths with local configs (i.e. not if things are done the Linux way)
|
|
if (GameConfig->SetSection("TimidityExes"))
|
|
{
|
|
while (GameConfig->NextInSection(key, value))
|
|
{
|
|
if (FileExists(value))
|
|
{
|
|
if (timiditymenu != nullptr)
|
|
{
|
|
auto it = CreateOptionMenuItemCommand(key, FStringf("timidity_exe %s", NicePath(value).GetChars()), true);
|
|
static_cast<DOptionMenuDescriptor*>(*timiditymenu)->mItems.Push(it);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
auto d = static_cast<DOptionMenuDescriptor*>(*advmenu);
|
|
auto it = d->GetItem("TimidityExeMenu");
|
|
if (it != nullptr) d->mItems.Delete(d->mItems.Find(it));
|
|
}
|
|
#endif
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
// With the current workings of the menu system this cannot be done any longer
|
|
// from within the respective CCMDs.
|
|
//
|
|
//=============================================================================
|
|
|
|
static void InitKeySections()
|
|
{
|
|
DMenuDescriptor **desc = MenuDescriptors.CheckKey(NAME_CustomizeControls);
|
|
if (desc != nullptr)
|
|
{
|
|
if ((*desc)->IsKindOf(RUNTIME_CLASS(DOptionMenuDescriptor)))
|
|
{
|
|
DOptionMenuDescriptor *menu = static_cast<DOptionMenuDescriptor*>(*desc);
|
|
|
|
for (unsigned i = 0; i < KeySections.Size(); i++)
|
|
{
|
|
FKeySection *sect = &KeySections[i];
|
|
DMenuItemBase *item = CreateOptionMenuItemStaticText(" ");
|
|
menu->mItems.Push(item);
|
|
item = CreateOptionMenuItemStaticText(sect->mTitle, 1);
|
|
menu->mItems.Push(item);
|
|
for (unsigned j = 0; j < sect->mActions.Size(); j++)
|
|
{
|
|
FKeyAction *act = §->mActions[j];
|
|
item = CreateOptionMenuItemControl(act->mTitle, act->mAction, &Bindings);
|
|
menu->mItems.Push(item);
|
|
}
|
|
}
|
|
for (auto &p : menu->mItems)
|
|
{
|
|
GC::WriteBarrier(*desc, p);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
// Special menus will be created once all engine data is loaded
|
|
//
|
|
//=============================================================================
|
|
|
|
void M_CreateMenus()
|
|
{
|
|
BuildEpisodeMenu();
|
|
BuildPlayerclassMenu();
|
|
InitCrosshairsList();
|
|
InitMusicMenus();
|
|
InitKeySections();
|
|
|
|
FOptionValues **opt = OptionValues.CheckKey(NAME_Mididevices);
|
|
if (opt != nullptr)
|
|
{
|
|
I_BuildMIDIMenuList(*opt);
|
|
}
|
|
opt = OptionValues.CheckKey(NAME_Aldevices);
|
|
if (opt != nullptr)
|
|
{
|
|
I_BuildALDeviceList(*opt);
|
|
}
|
|
opt = OptionValues.CheckKey(NAME_Alresamplers);
|
|
if (opt != nullptr)
|
|
{
|
|
I_BuildALResamplersList(*opt);
|
|
}
|
|
}
|
|
|
|
//=============================================================================
|
|
//
|
|
// The skill menu must be refeshed each time it starts up
|
|
//
|
|
//=============================================================================
|
|
extern int restart;
|
|
|
|
void M_StartupSkillMenu(FGameStartup *gs)
|
|
{
|
|
static int done = -1;
|
|
bool success = false;
|
|
TArray<FSkillInfo*> MenuSkills;
|
|
TArray<int> SkillIndices;
|
|
if (MenuSkills.Size() == 0)
|
|
{
|
|
for (unsigned ind = 0; ind < AllSkills.Size(); ind++)
|
|
{
|
|
if (!AllSkills[ind].NoMenu)
|
|
{
|
|
MenuSkills.Push(&AllSkills[ind]);
|
|
SkillIndices.Push(ind);
|
|
}
|
|
}
|
|
}
|
|
if (MenuSkills.Size() == 0) I_Error("No valid skills for menu found. At least one must be defined.");
|
|
|
|
int defskill = DefaultSkill;
|
|
if ((unsigned int)defskill >= MenuSkills.Size())
|
|
{
|
|
defskill = SkillIndices[(MenuSkills.Size() - 1) / 2];
|
|
}
|
|
if (AllSkills[defskill].NoMenu)
|
|
{
|
|
for (defskill = 0; defskill < (int)AllSkills.Size(); defskill++)
|
|
{
|
|
if (!AllSkills[defskill].NoMenu) break;
|
|
}
|
|
}
|
|
int defindex = 0;
|
|
for (unsigned i = 0; i < MenuSkills.Size(); i++)
|
|
{
|
|
if (MenuSkills[i] == &AllSkills[defskill])
|
|
{
|
|
defindex = i;
|
|
break;
|
|
}
|
|
}
|
|
|
|
DMenuDescriptor **desc = MenuDescriptors.CheckKey(NAME_Skillmenu);
|
|
if (desc != nullptr)
|
|
{
|
|
if ((*desc)->IsKindOf(RUNTIME_CLASS(DListMenuDescriptor)))
|
|
{
|
|
DListMenuDescriptor *ld = static_cast<DListMenuDescriptor*>(*desc);
|
|
int x = (int)ld->mXpos;
|
|
int y = (int)ld->mYpos;
|
|
|
|
// Delete previous contents
|
|
for(unsigned i=0; i<ld->mItems.Size(); i++)
|
|
{
|
|
FName n = ld->mItems[i]->mAction;
|
|
if (n == NAME_Startgame || n == NAME_StartgameConfirm)
|
|
{
|
|
ld->mItems.Resize(i);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (done != restart)
|
|
{
|
|
done = restart;
|
|
ld->mSelectedItem = ld->mItems.Size() + defindex;
|
|
|
|
int posy = y;
|
|
int topy = posy;
|
|
|
|
// Get lowest y coordinate of any static item in the menu
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
int y = (int)ld->mItems[i]->GetY();
|
|
if (y < topy) topy = y;
|
|
}
|
|
|
|
// center the menu on the screen if the top space is larger than the bottom space
|
|
int totalheight = posy + MenuSkills.Size() * ld->mLinespacing - topy;
|
|
|
|
if (totalheight < 190 || MenuSkills.Size() == 1)
|
|
{
|
|
int newtop = (200 - totalheight + topy) / 2;
|
|
int topdelta = newtop - topy;
|
|
if (topdelta < 0)
|
|
{
|
|
for(unsigned i = 0; i < ld->mItems.Size(); i++)
|
|
{
|
|
ld->mItems[i]->OffsetPositionY(topdelta);
|
|
}
|
|
ld->mYpos = y = posy - topdelta;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// too large
|
|
desc = nullptr;
|
|
done = false;
|
|
goto fail;
|
|
}
|
|
}
|
|
|
|
unsigned firstitem = ld->mItems.Size();
|
|
for(unsigned int i = 0; i < MenuSkills.Size(); i++)
|
|
{
|
|
FSkillInfo &skill = *MenuSkills[i];
|
|
DMenuItemBase *li;
|
|
// Using a different name for skills that must be confirmed makes handling this easier.
|
|
FName action = (skill.MustConfirm && !AllEpisodes[gs->Episode].mNoSkill) ?
|
|
NAME_StartgameConfirm : NAME_Startgame;
|
|
FString *pItemText = nullptr;
|
|
if (gs->PlayerClass != nullptr)
|
|
{
|
|
pItemText = skill.MenuNamesForPlayerClass.CheckKey(gs->PlayerClass);
|
|
}
|
|
|
|
if (skill.PicName.Len() != 0 && pItemText == nullptr)
|
|
{
|
|
FTextureID tex = GetMenuTexture(skill.PicName);
|
|
li = CreateListMenuItemPatch(ld->mXpos, y, ld->mLinespacing, skill.Shortcut, tex, action, SkillIndices[i]);
|
|
}
|
|
else
|
|
{
|
|
EColorRange color = (EColorRange)skill.GetTextColor();
|
|
if (color == CR_UNTRANSLATED) color = ld->mFontColor;
|
|
li = CreateListMenuItemText(x, y, ld->mLinespacing, skill.Shortcut,
|
|
pItemText? *pItemText : skill.MenuName, ld->mFont, color,ld->mFontColor2, action, SkillIndices[i]);
|
|
}
|
|
ld->mItems.Push(li);
|
|
GC::WriteBarrier(*desc, li);
|
|
y += ld->mLinespacing;
|
|
}
|
|
if (AllEpisodes[gs->Episode].mNoSkill || MenuSkills.Size() == 1)
|
|
{
|
|
ld->mAutoselect = firstitem + defindex;
|
|
}
|
|
else
|
|
{
|
|
ld->mAutoselect = -1;
|
|
}
|
|
success = true;
|
|
}
|
|
}
|
|
if (success) return;
|
|
fail:
|
|
// Option menu fallback for overlong skill lists
|
|
DOptionMenuDescriptor *od;
|
|
if (desc == nullptr)
|
|
{
|
|
od = Create<DOptionMenuDescriptor>();
|
|
MenuDescriptors[NAME_Skillmenu] = od;
|
|
od->mMenuName = NAME_Skillmenu;
|
|
od->mTitle = "$MNU_CHOOSESKILL";
|
|
od->mSelectedItem = defindex;
|
|
od->mScrollPos = 0;
|
|
od->mClass = nullptr;
|
|
od->mPosition = -15;
|
|
od->mScrollTop = 0;
|
|
od->mIndent = 160;
|
|
od->mDontDim = false;
|
|
GC::WriteBarrier(od);
|
|
}
|
|
else
|
|
{
|
|
od = static_cast<DOptionMenuDescriptor*>(*desc);
|
|
od->mItems.Clear();
|
|
}
|
|
for(unsigned int i = 0; i < MenuSkills.Size(); i++)
|
|
{
|
|
FSkillInfo &skill = *MenuSkills[i];
|
|
DMenuItemBase *li;
|
|
// Using a different name for skills that must be confirmed makes handling this easier.
|
|
const char *action = (skill.MustConfirm && !AllEpisodes[gs->Episode].mNoSkill) ?
|
|
"StartgameConfirm" : "Startgame";
|
|
|
|
FString *pItemText = nullptr;
|
|
if (gs->PlayerClass != nullptr)
|
|
{
|
|
pItemText = skill.MenuNamesForPlayerClass.CheckKey(gs->PlayerClass);
|
|
}
|
|
li = CreateOptionMenuItemSubmenu(pItemText? *pItemText : skill.MenuName, action, SkillIndices[i]);
|
|
od->mItems.Push(li);
|
|
GC::WriteBarrier(od, li);
|
|
if (!done)
|
|
{
|
|
done = true;
|
|
od->mSelectedItem = defindex;
|
|
}
|
|
}
|
|
}
|