mirror of
https://github.com/VCMP-SqMod/SqMod.git
synced 2024-11-09 01:07:16 +01:00
1059 lines
37 KiB
C++
1059 lines
37 KiB
C++
// ------------------------------------------------------------------------------------------------
|
|
#include "Base/Shared.hpp"
|
|
#include "Base/Buffer.hpp"
|
|
#include "Base/Color3.hpp"
|
|
#include "Library/Numeric/Random.hpp"
|
|
#include "Library/String.hpp"
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
#include <cerrno>
|
|
#include <cstring>
|
|
#include <cstdarg>
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
#ifdef SQMOD_OS_WINDOWS
|
|
#include <windows.h>
|
|
#endif // SQMOD_OS_WINDOWS
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
namespace SqMod {
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static const Color3 SQ_Color_List[] =
|
|
{
|
|
Color3(240, 248, 255),
|
|
Color3(250, 235, 215),
|
|
Color3(0, 255, 255),
|
|
Color3(127, 255, 212),
|
|
Color3(240, 255, 255),
|
|
Color3(245, 245, 220),
|
|
Color3(255, 228, 196),
|
|
Color3(0, 0, 0),
|
|
Color3(255, 235, 205),
|
|
Color3(0, 0, 255),
|
|
Color3(138, 43, 226),
|
|
Color3(165, 42, 42),
|
|
Color3(222, 184, 135),
|
|
Color3(95, 158, 160),
|
|
Color3(127, 255, 0),
|
|
Color3(210, 105, 30),
|
|
Color3(255, 127, 80),
|
|
Color3(100, 149, 237),
|
|
Color3(255, 248, 220),
|
|
Color3(220, 20, 60),
|
|
Color3(0, 255, 255),
|
|
Color3(0, 0, 139),
|
|
Color3(0, 139, 139),
|
|
Color3(184, 134, 11),
|
|
Color3(169, 169, 169),
|
|
Color3(0, 100, 0),
|
|
Color3(189, 183, 107),
|
|
Color3(139, 0, 139),
|
|
Color3(85, 107, 47),
|
|
Color3(255, 140, 0),
|
|
Color3(153, 50, 204),
|
|
Color3(139, 0, 0),
|
|
Color3(233, 150, 122),
|
|
Color3(143, 188, 143),
|
|
Color3(72, 61, 139),
|
|
Color3(47, 79, 79),
|
|
Color3(0, 206, 209),
|
|
Color3(148, 0, 211),
|
|
Color3(255, 20, 147),
|
|
Color3(0, 191, 255),
|
|
Color3(105, 105, 105),
|
|
Color3(30, 144, 255),
|
|
Color3(178, 34, 34),
|
|
Color3(255, 250, 240),
|
|
Color3(34, 139, 34),
|
|
Color3(255, 0, 255),
|
|
Color3(220, 220, 220),
|
|
Color3(248, 248, 255),
|
|
Color3(255, 215, 0),
|
|
Color3(218, 165, 32),
|
|
Color3(128, 128, 128),
|
|
Color3(0, 128, 0),
|
|
Color3(173, 255, 47),
|
|
Color3(240, 255, 240),
|
|
Color3(255, 105, 180),
|
|
Color3(205, 92, 92),
|
|
Color3(75, 0, 130),
|
|
Color3(255, 255, 240),
|
|
Color3(240, 230, 140),
|
|
Color3(230, 230, 250),
|
|
Color3(255, 240, 245),
|
|
Color3(124, 252, 0),
|
|
Color3(255, 250, 205),
|
|
Color3(173, 216, 230),
|
|
Color3(240, 128, 128),
|
|
Color3(224, 255, 255),
|
|
Color3(250, 250, 210),
|
|
Color3(211, 211, 211),
|
|
Color3(144, 238, 144),
|
|
Color3(255, 182, 193),
|
|
Color3(255, 160, 122),
|
|
Color3(32, 178, 170),
|
|
Color3(135, 206, 250),
|
|
Color3(119, 136, 153),
|
|
Color3(176, 196, 222),
|
|
Color3(255, 255, 224),
|
|
Color3(0, 255, 0),
|
|
Color3(50, 205, 50),
|
|
Color3(250, 240, 230),
|
|
Color3(255, 0, 255),
|
|
Color3(128, 0, 0),
|
|
Color3(102, 205, 170),
|
|
Color3(0, 0, 205),
|
|
Color3(186, 85, 211),
|
|
Color3(147, 112, 219),
|
|
Color3(60, 179, 113),
|
|
Color3(123, 104, 238),
|
|
Color3(0, 250, 154),
|
|
Color3(72, 209, 204),
|
|
Color3(199, 21, 133),
|
|
Color3(25, 25, 112),
|
|
Color3(245, 255, 250),
|
|
Color3(255, 228, 225),
|
|
Color3(255, 228, 181),
|
|
Color3(255, 222, 173),
|
|
Color3(0, 0, 128),
|
|
Color3(253, 245, 230),
|
|
Color3(128, 128, 0),
|
|
Color3(107, 142, 35),
|
|
Color3(255, 165, 0),
|
|
Color3(255, 69, 0),
|
|
Color3(218, 112, 214),
|
|
Color3(238, 232, 170),
|
|
Color3(152, 251, 152),
|
|
Color3(175, 238, 238),
|
|
Color3(219, 112, 147),
|
|
Color3(255, 239, 213),
|
|
Color3(255, 218, 185),
|
|
Color3(205, 133, 63),
|
|
Color3(255, 192, 203),
|
|
Color3(221, 160, 221),
|
|
Color3(176, 224, 230),
|
|
Color3(128, 0, 128),
|
|
Color3(255, 0, 0),
|
|
Color3(188, 143, 143),
|
|
Color3(65, 105, 225),
|
|
Color3(139, 69, 19),
|
|
Color3(250, 128, 114),
|
|
Color3(244, 164, 96),
|
|
Color3(46, 139, 87),
|
|
Color3(255, 245, 238),
|
|
Color3(160, 82, 45),
|
|
Color3(192, 192, 192),
|
|
Color3(135, 206, 235),
|
|
Color3(106, 90, 205),
|
|
Color3(112, 128, 144),
|
|
Color3(255, 250, 250),
|
|
Color3(0, 255, 127),
|
|
Color3(70, 130, 180),
|
|
Color3(210, 180, 140),
|
|
Color3(0, 128, 128),
|
|
Color3(216, 191, 216),
|
|
Color3(255, 99, 71),
|
|
Color3(64, 224, 208),
|
|
Color3(238, 130, 238),
|
|
Color3(245, 222, 179),
|
|
Color3(255, 255, 255),
|
|
Color3(245, 245, 245),
|
|
Color3(255, 255, 0),
|
|
Color3(154, 205, 50)
|
|
};
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
bool NameFilterCheck(CSStr filter, CSStr name)
|
|
{
|
|
// If only one of them is null then they don't match
|
|
if ((!filter && name) || (filter && !name))
|
|
{
|
|
return false;
|
|
}
|
|
// If they're both null or the filter is empty then there's nothing to check for
|
|
else if ((!filter && !name) || (*filter == '\0'))
|
|
{
|
|
return true;
|
|
}
|
|
|
|
SQChar ch = 0;
|
|
// Start comparing the strings
|
|
while (true)
|
|
{
|
|
// Grab the current character from filter
|
|
ch = *(filter++);
|
|
// See if the filter or name was completed
|
|
if (ch == '\0' || *name == '\0')
|
|
{
|
|
break; // They matched so far
|
|
}
|
|
// Are we supposed to perform a wild-card search?
|
|
else if (ch == '*')
|
|
{
|
|
// Grab the next character from filter
|
|
ch = *(filter++);
|
|
// Start comparing characters until the first match
|
|
while (*name != '\0')
|
|
{
|
|
if (*(name++) == ch)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
// See if the character matches doesn't have to match
|
|
else if (ch != '?' && *name != ch)
|
|
{
|
|
return false; // The character had to match and failed
|
|
}
|
|
else
|
|
{
|
|
++name;
|
|
}
|
|
}
|
|
|
|
// At this point the name satisfied the filter
|
|
return true;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
bool NameFilterCheckInsensitive(CSStr filter, CSStr name)
|
|
{
|
|
// If only one of them is null then they don't match
|
|
if ((!filter && name) || (filter && !name))
|
|
{
|
|
return false;
|
|
}
|
|
// If they're both null or the filter is empty then there's nothing to check for
|
|
else if ((!filter && !name) || (*filter == '\0'))
|
|
{
|
|
return true;
|
|
}
|
|
|
|
SQChar ch = 0;
|
|
// Start comparing the strings
|
|
while (true)
|
|
{
|
|
// Grab the current character from filter
|
|
ch = static_cast< SQChar >(std::tolower(*(filter++)));
|
|
// See if the filter or name was completed
|
|
if (ch == '\0' || *name == '\0')
|
|
{
|
|
break; // They matched so far
|
|
}
|
|
// Are we supposed to perform a wild-card search?
|
|
else if (ch == '*')
|
|
{
|
|
// Grab the next character from filter
|
|
ch = static_cast< SQChar >(std::tolower(*(filter++)));
|
|
// Start comparing characters until the first match
|
|
while (*name != '\0')
|
|
{
|
|
if (static_cast< SQChar >(std::tolower(*(name++))) == ch)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
// See if the character matches doesn't have to match
|
|
else if (ch != '?' && static_cast< SQChar >(std::tolower(*name)) != ch)
|
|
{
|
|
return false; // The character had to match and failed
|
|
}
|
|
else
|
|
{
|
|
++name;
|
|
}
|
|
}
|
|
|
|
// At this point the name satisfied the filter
|
|
return true;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
const Color3 & GetRandomColor()
|
|
{
|
|
return SQ_Color_List[GetRandomUint8(0, (sizeof(SQ_Color_List) / sizeof(Color3)) - 1)];
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Color3 GetColor(StackStrF & name)
|
|
{
|
|
return name.mLen <= 0 ? Color3() : GetColorStr(name.mPtr);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Color3 GetColorStr(CSStr name)
|
|
{
|
|
// See if we actually have something to search for
|
|
if(!name || *name == '\0')
|
|
{
|
|
return Color3::NIL; // Use default color
|
|
}
|
|
// Clone the string into an editable version
|
|
CSStr str = StrJustAlphaNum(name);
|
|
str = StrToLowercase(str);
|
|
// See if we still have a valid name after the cleanup
|
|
if(!str || *str == '\0')
|
|
{
|
|
return Color3::NIL; // Use default color
|
|
}
|
|
// Calculate the name length
|
|
const Uint32 len = std::strlen(str);
|
|
// Get the most significant characters used to identify a weapon
|
|
SQChar a = str[0], b = 0, c = 0, d = str[len-1];
|
|
// Look for deeper specifiers
|
|
if(len >= 3)
|
|
{
|
|
c = str[2];
|
|
b = str[1];
|
|
}
|
|
else if(len >= 2)
|
|
{
|
|
b = str[1];
|
|
}
|
|
// Search for a pattern in the name
|
|
switch(a)
|
|
{
|
|
// [A]liceBlue
|
|
// [A]ntiqueWhite
|
|
// [A]qua
|
|
// [A]quamarine
|
|
// [A]zure
|
|
case 'a':
|
|
switch (b)
|
|
{
|
|
// [Al]iceBlue
|
|
case 'l': return {240, 248, 255};
|
|
// [Aq]ua[m]arine
|
|
case 'm': return {127, 255, 212};
|
|
// [An]tiqueWhite
|
|
case 'n': return {250, 235, 215};
|
|
// [Aq]ua
|
|
// [Aq]uamarine
|
|
case 'q':
|
|
// [Aq]u[a]
|
|
if (d == 'a') return {0, 255, 255};
|
|
// [Aq]ua[m]arin[e]
|
|
else if (d == 'e' || (len > 4 && str[4] == 'm')) return {127, 255, 212};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [Az]ure
|
|
case 'z': return {240, 255, 255};
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
// [B]eige
|
|
// [B]isque
|
|
// [B]lack
|
|
// [B]lanchedAlmond
|
|
// [B]lue
|
|
// [B]lueViolet
|
|
// [B]rown
|
|
// [B]urlyWood
|
|
case 'b':
|
|
switch (b)
|
|
{
|
|
// [B]lanched[A]lmond
|
|
case 'a': return {255, 235, 205};
|
|
// [Be]ige
|
|
case 'e': return {245, 245, 220};
|
|
// [Bi]sque
|
|
case 'i': return {255, 228, 196};
|
|
// [Bl]ack
|
|
// [Bl]anchedAlmond
|
|
// [Bl]ue
|
|
// [Bl]ueViolet
|
|
case 'l':
|
|
// [Bl]a[ck]
|
|
if (d == 'k' || d == 'c') return {0, 0, 0};
|
|
// [Bl]anched[A]lmon[d]
|
|
else if (d == 'd' || (len > 8 && str[8] == 'a')) return {255, 235, 205};
|
|
// [Bl]u[e]
|
|
else if (d == 'e') return {0, 0, 255};
|
|
// [Bl]ue[V]iole[t]
|
|
else if (d == 't' || (len > 4 && str[4] == 'v')) return {138, 43, 226};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [Br]own
|
|
case 'r': return {165, 42, 42};
|
|
// [Bu]rlyWood
|
|
case 'u': return {222, 184, 135};
|
|
// [B]lue[V]iolet
|
|
case 'v': return {138, 43, 226};
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
// [C]adetBlue
|
|
// [C]hartreuse
|
|
// [C]hocolate
|
|
// [C]oral
|
|
// [C]ornflowerBlue
|
|
// [C]ornsilk
|
|
// [C]rimson
|
|
// [C]yan
|
|
case 'c':
|
|
switch (b)
|
|
{
|
|
// [Ca]detBlue
|
|
case 'a': return {95, 158, 160};
|
|
// [Ch]artreuse
|
|
// [Ch]ocolate
|
|
case 'h':
|
|
// [Ch]artreuse
|
|
if (c == 'a') return {127, 255, 0};
|
|
// [Ch]ocolate
|
|
else if (c == 'o') return {210, 105, 30};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [Co]ral
|
|
// [Co]rnflowerBlue
|
|
// [Co]rnsilk
|
|
case 'o':
|
|
// [Co]ra[l]
|
|
if (d == 'l') return {255, 127, 80};
|
|
// [Co]rnflower[B]lu[e]
|
|
else if (d == 'e' || (len > 10 && str[10] == 'b')) return {100, 149, 237};
|
|
// [Co]rnsil[k]
|
|
else if (d == 'k') return {255, 248, 220};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [Cr]imson
|
|
case 'r': return {220, 20, 60};
|
|
// [Cy]an
|
|
case 'y': return {0, 255, 255};
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
// [D]arkBlue
|
|
// [D]arkCyan
|
|
// [D]arkGoldenRod
|
|
// [D]arkGray
|
|
// [D]arkGreen
|
|
// [D]arkKhaki
|
|
// [D]arkMagenta
|
|
// [D]arkOliveGreen
|
|
// [D]arkOrange
|
|
// [D]arkOrchid
|
|
// [D]arkRed
|
|
// [D]arkSalmon
|
|
// [D]arkSeaGreen
|
|
// [D]arkSlateBlue
|
|
// [D]arkSlateGray
|
|
// [D]arkTurquoise
|
|
// [D]arkViolet
|
|
// [D]eepPink
|
|
// [D]eepSkyBlue
|
|
// [D]imGray
|
|
// [D]odgerBlue
|
|
case 'd':
|
|
// [Di]mGray
|
|
if (b == 'i' || b == 'g') return {105, 105, 105};
|
|
// [Do]dgerBlue
|
|
else if (b == 'o' || b == 'b') return {30, 144, 255};
|
|
// [De]ep[P]in[k]
|
|
else if (b == 'e' && (d == 'k' || (len > 4 && str[4] == 'p'))) return {255, 20, 147};
|
|
// [De]ep[S]kyBlu[e]
|
|
else if (b == 'e' && (d == 'e' || (len > 4 && str[4] == 's'))) return {0, 191, 255};
|
|
// [Da]rkBlue
|
|
// [Da]rkCyan
|
|
// [Da]rkGoldenRod
|
|
// [Da]rkGray
|
|
// [Da]rkGreen
|
|
// [Da]rkKhaki
|
|
// [Da]rkMagenta
|
|
// [Da]rkOliveGreen
|
|
// [Da]rkOrange
|
|
// [Da]rkOrchid
|
|
// [Da]rkRed
|
|
// [Da]rkSalmon
|
|
// [Da]rkSeaGreen
|
|
// [Da]rkSlateBlue
|
|
// [Da]rkSlateGray
|
|
// [Da]rkTurquoise
|
|
// [Da]rkViolet
|
|
else if (b == 'a') {
|
|
// [Da]rk[B]lue
|
|
if (c == 'b' || (len > 4 && str[4] == 'b')) return {0, 0, 139};
|
|
// [Da]rk[C]yan
|
|
else if (c == 'c' || (len > 4 && str[4] == 'c')) return {0, 139, 139};
|
|
// [Da]rk[Go]ldenRo[d]
|
|
else if ((len > 4 && str[4] == 'g') && (d == 'd' || d == 'o')) return {184, 134, 11};
|
|
// [Da]rk[G]r[ay]
|
|
else if ((len > 4 && str[4] == 'g') && (d == 'y' || d == 'a')) return {169, 169, 169};
|
|
// [Da]rk[G]r[een]
|
|
else if ((len > 4 && str[4] == 'g') && (d == 'n' || d == 'e')) return {0, 100, 0};
|
|
// [Da]rk[K]hak[i]
|
|
else if (d == 'i' || c == 'k' || (len > 4 && str[4] == 'k')) return {189, 183, 107};
|
|
// [Da]rk[M]agent[a]
|
|
else if (d == 'a' || c == 'm' || (len > 4 && str[4] == 'm')) return {139, 0, 139};
|
|
// [Da]rk[O]liveGr[een]
|
|
else if ((len > 4 && str[4] == 'o') && (d == 'n' || d == 'e')) return {85, 107, 47};
|
|
// [Da]rk[O]r[a]ng[e]
|
|
else if ((len > 4 && str[4] == 'o') && (d == 'e' || d == 'a')) return {255, 140, 0};
|
|
// [Da]rk[O]r[c]hi[d]
|
|
else if ((len > 4 && str[4] == 'o') && (d == 'd' || d == 'c')) return {153, 50, 204};
|
|
// [Da]rk[R]ed
|
|
else if (len > 4 && str[4] == 'r') return {139, 0, 0};
|
|
// [Da]rk[Sa]lmon
|
|
else if (len > 5 && str[4] == 's' && str[5] == 'a') return {233, 150, 122};
|
|
// [Da]rk[Se]aGreen
|
|
else if (len > 5 && str[4] == 's' && str[5] == 'e') return {143, 188, 143};
|
|
// [Da]rk[S]lateBlu[e]
|
|
else if ((len > 4 && str[4] == 's') && (d == 'e' || d == 'b')) return {72, 61, 139};
|
|
// [Da]rk[S]lateGra[y]
|
|
else if ((len > 4 && str[4] == 's') && (d == 'y' || d == 'g')) return {47, 79, 79};
|
|
// [Da]rk[T]urquoise
|
|
else if (c == 't' || (len > 4 && str[4] == 't')) return {0, 206, 209};
|
|
// [Da]rk[V]iolet
|
|
else if (c == 'v' || (len > 4 && str[4] == 'v')) return {148, 0, 211};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// Default to blank
|
|
} else return Color3::NIL;
|
|
// [F]ireBrick
|
|
// [F]loralWhite
|
|
// [F]orestGreen
|
|
// [F]uchsia
|
|
case 'f':
|
|
switch (b)
|
|
{
|
|
// [Fi]re[B]rick
|
|
case 'i':
|
|
case 'b': return {178, 34, 34};
|
|
// [Fl]oral[W]hite
|
|
case 'l':
|
|
case 'w': return {255, 250, 240};
|
|
// [Fo]rest[G]reen
|
|
case 'o':
|
|
case 'g': return {34, 139, 34};
|
|
// [Fu]chsia
|
|
case 'u': return {255, 0, 255};
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
// [G]ainsboro
|
|
// [G]hostWhite
|
|
// [G]old
|
|
// [G]oldenRod
|
|
// [G]ray
|
|
// [G]reen
|
|
// [G]reenYellow
|
|
case 'g':
|
|
// [Ga]insboro
|
|
if (b == 'a') return {220, 220, 220};
|
|
// [Gh]ost[W]hite
|
|
else if (b == 'h' || b == 'w') return {248, 248, 255};
|
|
// [Go]ld[e]n[R]od
|
|
else if (len > 4 && (str[4] == 'e' || str[4] == 'r')) return {218, 165, 32};
|
|
// [Go]l[d]
|
|
else if (b == 'o' && d == 'd') return {255, 215, 0};
|
|
// [Gray]
|
|
else if (b == 'r' && (d == 'y' || d == 'a')) return {128, 128, 128};
|
|
// [Gr]een
|
|
else if (b == 'r' && d == 'n') return {0, 128, 0};
|
|
// [Gr]eenYellow
|
|
else if (b == 'r' && (d == 'w' || (len > 5 && str[5] == 'y'))) return {173, 255, 47};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [H]oneyDew
|
|
// [H]otPink
|
|
case 'h':
|
|
// [H]o[n]ey[D]e[w]
|
|
if (d == 'w' || c == 'n' || (len > 5 && str[5] == 'd')) return {240, 255, 240};
|
|
// [H]o[tP]in[k]
|
|
else if (d == 'k' || c == 't' || (len > 3 && str[3] == 'p')) return {255, 105, 180};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [I]ndianRed
|
|
// [I]ndigo
|
|
// [I]vory
|
|
case 'i':
|
|
// [In]dian[R]e[d]
|
|
if (b == 'n' && (d == 'd' || d == 'r')) return {205, 92, 92};
|
|
// [In]di[go]
|
|
else if (b == 'n' && (d == 'o' || d == 'g')) return {75, 0, 130};
|
|
// [I]vory
|
|
else if (b == 'v') return {255, 255, 240};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [K]haki
|
|
case 'k': return {240, 230, 140};
|
|
// [L]avender
|
|
// [L]avenderBlush
|
|
// [L]awnGreen
|
|
// [L]emonChiffon
|
|
// [L]ightBlue
|
|
// [L]ightCoral
|
|
// [L]ightCyan
|
|
// [L]ightGoldenRodYellow
|
|
// [L]ightGray
|
|
// [L]ightGreen
|
|
// [L]ightPink
|
|
// [L]ightSalmon
|
|
// [L]ightSeaGreen
|
|
// [L]ightSkyBlue
|
|
// [L]ightSlateGray
|
|
// [L]ightSteelBlue
|
|
// [L]ightYellow
|
|
// [L]ime
|
|
// [L]imeGreen
|
|
// [L]inen
|
|
case 'l':
|
|
// [La]vende[r]
|
|
if (b == 'a' && d == 'r') return {230, 230, 250};
|
|
// [La]vender[B]lus[h]
|
|
else if (b == 'a' && (d == 'h' || d == 'b')) return {255, 240, 245};
|
|
// [Law]n[G]ree[n]
|
|
else if (b == 'g' || (b == 'a' && (c == 'w' || d == 'n'))) return {124, 252, 0};
|
|
// [Le]mon[C]hiffon
|
|
else if (b == 'e' || b == 'c') return {255, 250, 205};
|
|
// [Li]me[G]reen
|
|
else if (b == 'g' || (b == 'i' && (len > 4 && str[4] == 'g'))) return {50, 205, 50};
|
|
// [Lime]
|
|
else if (b == 'i' && c == 'm' && d == 'e') return {0, 255, 0};
|
|
// [Lin]e[n]
|
|
else if (b == 'i' && (c == 'n' || d == 'n')) return {250, 240, 230};
|
|
// [Li]ghtBlue
|
|
// [Li]ghtCoral
|
|
// [Li]ghtCyan
|
|
// [Li]ghtGoldenRodYellow
|
|
// [Li]ghtGray
|
|
// [Li]ghtGreen
|
|
// [Li]ghtPink
|
|
// [Li]ghtSalmon
|
|
// [Li]ghtSeaGreen
|
|
// [Li]ghtSkyBlue
|
|
// [Li]ghtSlateGray
|
|
// [Li]ghtSteelBlue
|
|
// [Li]ghtYellow
|
|
else if (b == 'i') {
|
|
// [Li]ght[B]lue
|
|
if (len > 5 && str[5] == 'b') return {173, 216, 230};
|
|
// [Li]ght[Co]ra[l]
|
|
else if ((len > 5 && str[5] == 'c') && (d == 'l' || d == 'o')) return {240, 128, 128};
|
|
// [Li]ght[Cy]a[n]
|
|
else if ((len > 5 && str[5] == 'c') && (d == 'n' || d == 'y')) return {224, 255, 255};
|
|
// [Li]ght[Go]ldenRodYello[w]
|
|
else if ((len > 5 && str[5] == 'g') && (d == 'w' || d == 'o')) return {250, 250, 210};
|
|
// [Li]ght[G]r[ay]
|
|
else if ((len > 5 && str[5] == 'g') && (d == 'y' || d == 'a')) return {211, 211, 211};
|
|
// [Li]ght[G]r[een]
|
|
else if ((len > 5 && str[5] == 'g') && (d == 'n' || d == 'e')) return {144, 238, 144};
|
|
// [Li]ght[P]ink
|
|
else if (len > 5 && str[5] == 'p') return {255, 182, 193};
|
|
// [Li]ght[Sa]lmon
|
|
else if (len > 6 && str[5] == 's' && str[5] == 'a') return {255, 160, 122};
|
|
// [Li]ght[Se]aGreen
|
|
else if (len > 6 && str[5] == 's' && str[5] == 'e') return {32, 178, 170};
|
|
// [Li]ght[Sk]yBlue
|
|
else if (len > 6 && str[5] == 's' && str[5] == 'k') return {135, 206, 250};
|
|
// [Li]ght[Sl]ateGray
|
|
else if (len > 6 && str[5] == 's' && str[5] == 'l') return {119, 136, 153};
|
|
// [Li]ght[St]eelBlue
|
|
else if (len > 6 && str[5] == 's' && str[5] == 't') return {176, 196, 222};
|
|
// [Li]ght[Y]ellow
|
|
else if (len > 5 && str[5] == 'y') return {255, 255, 224};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// Default to blank
|
|
} else return Color3::NIL;
|
|
// [M]agenta
|
|
// [M]aroon
|
|
// [M]ediumAquaMarine
|
|
// [M]ediumBlue
|
|
// [M]ediumOrchid
|
|
// [M]ediumPurple
|
|
// [M]ediumSeaGreen
|
|
// [M]ediumSlateBlue
|
|
// [M]ediumSpringGreen
|
|
// [M]ediumTurquoise
|
|
// [M]ediumVioletRed
|
|
// [M]idnightBlue
|
|
// [M]intCream
|
|
// [M]istyRose
|
|
// [M]occasin
|
|
case 'm':
|
|
// [Ma]genta
|
|
if (b == 'a' && (c == 'a' || d == 'a')) return {255, 0, 255};
|
|
// [Ma]roon
|
|
else if (b == 'a' && (c == 'r' || d == 'n' || d == 'o')) return {128, 0, 0};
|
|
// [Me]diumAquaMarine
|
|
// [Me]diumBlue
|
|
// [Me]diumOrchid
|
|
// [Me]diumPurple
|
|
// [Me]diumSeaGreen
|
|
// [Me]diumSlateBlue
|
|
// [Me]diumSpringGreen
|
|
// [Me]diumTurquoise
|
|
// [Me]diumVioletRed
|
|
else if (b == 'e') {
|
|
// [Me]dium[A]quaMarine
|
|
if (c == 'a' || (len > 6 && str[6] == 'a')) return {102, 205, 170};
|
|
// [Me]dium[B]lue
|
|
else if (c == 'b' || (len > 6 && str[6] == 'b')) return {0, 0, 205};
|
|
// [Me]dium[O]rchid
|
|
else if (c == 'o' || (len > 6 && str[6] == 'o')) return {186, 85, 211};
|
|
// [Me]dium[P]urple
|
|
else if (c == 'p' || (len > 6 && str[6] == 'p')) return {147, 112, 219};
|
|
// [Me]dium[T]urquoise
|
|
else if (c == 't' || (len > 6 && str[6] == 't')) return {72, 209, 204};
|
|
// [Me]dium[V]ioletRed
|
|
else if (c == 'v' || (len > 6 && str[6] == 'v')) return {199, 21, 133};
|
|
// [Me]dium[Se]aGreen
|
|
else if (len > 7 && str[6] == 's' && str[7] == 'e') return {60, 179, 113};
|
|
// [Me]dium[Sl]ateBlue
|
|
else if (len > 7 && str[6] == 's' && str[7] == 'l') return {123, 104, 238};
|
|
// [Me]dium[Sp]ringGreen
|
|
else if (len > 7 && str[6] == 's' && str[7] == 'p') return {0, 250, 154};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
}
|
|
// [Mi]dnightBlue
|
|
else if (b == 'i' && c == 'd') return {25, 25, 112};
|
|
// [Mi]ntCream
|
|
else if (b == 'i' && c == 'n') return {245, 255, 250};
|
|
// [Mi]styRose
|
|
else if (b == 'i' && c == 's') return {255, 228, 225};
|
|
// [Mo]ccasin
|
|
else if (b == 'o') return {255, 228, 181};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [N]avajoWhite
|
|
// [N]avy
|
|
case 'n':
|
|
// [Na]vajo[W]hite
|
|
if (c == 'v' || c == 'w') return {255, 222, 173};
|
|
// [Na]v[y]
|
|
else if (c == 'a' || d == 'y') return {0, 0, 128};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [O]ldLace
|
|
// [O]live
|
|
// [O]liveDrab
|
|
// [O]range
|
|
// [O]rangeRed
|
|
// [O]rchid
|
|
case 'o':
|
|
// [Old]Lace
|
|
if (b == 'l' && c == 'd') return {253, 245, 230};
|
|
// [Ol]ive[D]ra[b]
|
|
else if (b == 'l' && (d == 'b' || d == 'd')) return {107, 142, 35};
|
|
// [Ol]iv[e]
|
|
else if (b == 'l' && d == 'e') return {128, 128, 0};
|
|
// [Or]ange[R]e[d]
|
|
else if (b == 'r' && (d == 'd' || d == 'r')) return {255, 69, 0};
|
|
// [Or]ang[e]
|
|
else if (b == 'r' && d == 'e') return {255, 165, 0};
|
|
// [Orc]hid
|
|
else if (d == 'c') return {218, 112, 214};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [P]aleGoldenRod
|
|
// [P]aleGreen
|
|
// [P]aleTurquoise
|
|
// [P]aleVioletRed
|
|
// [P]apayaWhip
|
|
// [P]eachPuff
|
|
// [P]eru
|
|
// [P]ink
|
|
// [P]lum
|
|
// [P]owderBlue
|
|
// [P]urple
|
|
case 'p':
|
|
// [Pu]rple
|
|
if (b == 'u') return {128, 0, 128};
|
|
// [Po]wderBlue
|
|
else if (b == 'o') return {176, 224, 230};
|
|
// [Pi]nk
|
|
else if (b == 'i') return {255, 192, 203};
|
|
// [Pl]um
|
|
else if (b == 'l') return {221, 160, 221};
|
|
// [Pea]chPuff
|
|
else if (b == 'e' && c == 'a') return {255, 218, 185};
|
|
// [Per]u
|
|
else if (b == 'e' && c == 'r') return {205, 133, 63};
|
|
// [Pa]payaWhip
|
|
else if (b == 'a' && c == 'p') return {255, 239, 213};
|
|
// [Pa]le[Go]ldenRod
|
|
else if (b == 'a' && (len > 5 && str[4] == 'g' && str[5] == 'o')) return {238, 232, 170};
|
|
// [Pa]le[Gr]een
|
|
else if (b == 'a' && (len > 5 && str[4] == 'g' && str[5] == 'r')) return {152, 251, 152};
|
|
// [Pa]le[T]urquoise
|
|
else if (b == 'a' && (len > 4 && str[4] == 't')) return {175, 238, 238};
|
|
// [Pa]le[V]ioletRed
|
|
else if (b == 'a' && (len > 4 && str[4] == 'v')) return {219, 112, 147};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [R]ed
|
|
// [R]osyBrown
|
|
// [R]oyalBlue
|
|
case 'r':
|
|
// [Re]d
|
|
if (b == 'e') return {255, 0, 0};
|
|
// [Ros]yBrown
|
|
else if (b == 'o' && c == 's') return {188, 143, 143};
|
|
// [Roy]alBlue
|
|
else if (b == 'o' && c == 'y') return {65, 105, 225};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [S]addleBrown
|
|
// [S]almon
|
|
// [S]andyBrown
|
|
// [S]eaGreen
|
|
// [S]eaShell
|
|
// [S]ienna
|
|
// [S]ilver
|
|
// [S]kyBlue
|
|
// [S]lateBlue
|
|
// [S]lateGray
|
|
// [S]now
|
|
// [S]pringGreen
|
|
// [S]teelBlue
|
|
case 's':
|
|
// [Sad]dleBrown
|
|
if (b == 'a' && c == 'd') return {139, 69, 19};
|
|
// [Sal]mon
|
|
else if (b == 'a' && c == 'l') return {250, 128, 114};
|
|
// [San]dyBrown
|
|
else if (b == 'a' && c == 'n') return {244, 164, 96};
|
|
// [Se]a[G]reen
|
|
else if (b == 'e' && d == 'g') return {46, 139, 87};
|
|
// [Se]a[S]hell
|
|
else if (b == 'e' && d == 's') return {255, 245, 238};
|
|
// [Sie]nna
|
|
else if (b == 'i' && c == 'e') return {160, 82, 45};
|
|
// [Sil]ver
|
|
else if (b == 'i' && c == 'l') return {192, 192, 192};
|
|
// [Sk]yBlue
|
|
else if (b == 'k') return {135, 206, 235};
|
|
// [Sl]ateBlue
|
|
else if (b == 'l' && (d == 'e' || (len > 5 && str[5] == 'b'))) return {106, 90, 205};
|
|
// [Sl]ateGray
|
|
else if (b == 'l' && (d == 'y' || (len > 5 && str[5] == 'g'))) return {112, 128, 144};
|
|
// [Sn]ow
|
|
else if (b == 'n') return {255, 250, 250};
|
|
// [Sp]ringGreen
|
|
else if (b == 'p') return {0, 255, 127};
|
|
// [St]eelBlue
|
|
else if (b == 't') return {70, 130, 180};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [T]an
|
|
// [T]eal
|
|
// [T]histle
|
|
// [T]omato
|
|
// [T]urquoise
|
|
case 't':
|
|
switch(b)
|
|
{
|
|
// [Ta]n
|
|
case 'a': return {210, 180, 140};
|
|
// [Te]al
|
|
case 'e': return {0, 128, 128};
|
|
// [Th]istle
|
|
case 'h': return {216, 191, 216};
|
|
// [To]mato
|
|
case 'o': return {255, 99, 71};
|
|
// [Tu]rquoise
|
|
case 'u': return {64, 224, 208};
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
// [V]iolet
|
|
case 'v': return {238, 130, 238};
|
|
// [W]heat
|
|
// [W]hite
|
|
// [W]hiteSmoke
|
|
case 'w':
|
|
// [Wh]eat
|
|
if (b == 'h' && c == 'e') return {245, 222, 179};
|
|
// [Wh]ite[S]moke
|
|
else if (b == 'h' && (len > 5 && str[5] == 's')) return {245, 245, 245};
|
|
// [Whi]te
|
|
else if (b == 'h' && c == 'i') return {255, 255, 255};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// [Y]ellow
|
|
// [Y]ellowGreen
|
|
case 'y':
|
|
// [Ye]llow[G]reen
|
|
if (b == 'e' && (len > 6 && str[6] == 'g')) return {154, 205, 50};
|
|
// [Yel]low
|
|
else if (b == 'e' && c == 'l') return {255, 255, 0};
|
|
// Default to blank
|
|
else return Color3::NIL;
|
|
// Default to blank
|
|
default: return Color3::NIL;
|
|
}
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
void SqThrowLastF(CSStr msg, ...)
|
|
{
|
|
// Acquire a moderately sized buffer
|
|
Buffer b(128);
|
|
// Prepare the arguments list
|
|
va_list args;
|
|
va_start (args, msg);
|
|
// Attempt to run the specified format
|
|
if (b.WriteF(0, msg, args) == 0)
|
|
{
|
|
b.At(0) = '\0'; // Make sure the string is null terminated
|
|
}
|
|
// Finalize the argument list
|
|
va_end(args);
|
|
#ifdef SQMOD_OS_WINDOWS
|
|
// Get the error message, if any.
|
|
const DWORD error_num = ::GetLastError();
|
|
// Was there an error recorded?
|
|
if(error_num == 0)
|
|
{
|
|
// Invoker is responsible for making sure this doesn't happen!
|
|
SqThrowF("%s [Unknown error]", b.Data());
|
|
}
|
|
// The resulted message buffer
|
|
LPSTR msg_buff = nullptr;
|
|
// Attempt to obtain the error message
|
|
const std::size_t size = FormatMessageA(
|
|
FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, // NOLINT(hicpp-signed-bitwise)
|
|
nullptr, error_num, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // NOLINT(hicpp-signed-bitwise)
|
|
reinterpret_cast< LPSTR >(&msg_buff), 0, nullptr);
|
|
// Copy the message buffer before freeing it
|
|
std::string message(msg_buff, size);
|
|
//Free the message buffer
|
|
LocalFree(msg_buff);
|
|
// Now it's safe to throw the error
|
|
SqThrowF("%s [%s]", b.Data(), message.c_str());
|
|
#else
|
|
SqThrowF("%s [%s]", b.Data(), std::strerror(errno));
|
|
#endif // SQMOD_OS_WINDOWS
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static SQInteger SqPackRGB(SQInteger r, SQInteger g, SQInteger b)
|
|
{
|
|
return static_cast< Int32 >(SQMOD_PACK_RGB(
|
|
ConvTo< Uint8 >::From(r), // NOLINT(hicpp-signed-bitwise)
|
|
ConvTo< Uint8 >::From(g),
|
|
ConvTo< Uint8 >::From(b)
|
|
));
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static SQInteger SqPackRGBA(SQInteger r, SQInteger g, SQInteger b, SQInteger a)
|
|
{
|
|
return static_cast< Int32 >(SQMOD_PACK_RGBA(
|
|
ConvTo< Uint8 >::From(r), // NOLINT(hicpp-signed-bitwise)
|
|
ConvTo< Uint8 >::From(g),
|
|
ConvTo< Uint8 >::From(b),
|
|
ConvTo< Uint8 >::From(a)
|
|
));
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static SQInteger SqPackARGB(SQInteger r, SQInteger g, SQInteger b, SQInteger a)
|
|
{
|
|
return static_cast< Int32 >(SQMOD_PACK_ARGB(
|
|
ConvTo< Uint8 >::From(a), // NOLINT(hicpp-signed-bitwise)
|
|
ConvTo< Uint8 >::From(r),
|
|
ConvTo< Uint8 >::From(g),
|
|
ConvTo< Uint8 >::From(b)
|
|
));
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static SQInteger SqNameFilterCheck(HSQUIRRELVM vm)
|
|
{
|
|
const Int32 top = sq_gettop(vm);
|
|
// Was the filter string specified?
|
|
if (top <= 1)
|
|
{
|
|
return sq_throwerror(vm, "Missing filter string");
|
|
}
|
|
// Was the name string specified?
|
|
else if (top <= 2)
|
|
{
|
|
return sq_throwerror(vm, "Missing name string");
|
|
}
|
|
// Attempt to generate the string value
|
|
StackStrF filter(vm, 2);
|
|
// Have we failed to retrieve the string?
|
|
if (SQ_FAILED(filter.Proc(false)))
|
|
{
|
|
return filter.mRes; // Propagate the error!
|
|
}
|
|
// Attempt to generate the string value
|
|
StackStrF name(vm, 3);
|
|
// Have we failed to retrieve the string?
|
|
if (SQ_FAILED(name.Proc(true)))
|
|
{
|
|
return name.mRes; // Propagate the error!
|
|
}
|
|
// Make the comparison and push the result on the stack
|
|
sq_pushbool(vm, static_cast< SQBool >(NameFilterCheck(filter.mPtr, name.mPtr)));
|
|
// Specify that we have a return value on the stack
|
|
return 1;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static SQInteger SqNameFilterCheckInsensitive(HSQUIRRELVM vm)
|
|
{
|
|
const Int32 top = sq_gettop(vm);
|
|
// Was the filter string specified?
|
|
if (top <= 1)
|
|
{
|
|
return sq_throwerror(vm, "Missing filter string");
|
|
}
|
|
// Was the name string specified?
|
|
else if (top <= 2)
|
|
{
|
|
return sq_throwerror(vm, "Missing name string");
|
|
}
|
|
// Attempt to generate the string value
|
|
StackStrF filter(vm, 2);
|
|
// Have we failed to retrieve the string?
|
|
if (SQ_FAILED(filter.Proc(false)))
|
|
{
|
|
return filter.mRes; // Propagate the error!
|
|
}
|
|
// Attempt to generate the string value
|
|
StackStrF name(vm, 3);
|
|
// Have we failed to retrieve the string?
|
|
if (SQ_FAILED(name.Proc(true)))
|
|
{
|
|
return name.mRes; // Propagate the error!
|
|
}
|
|
// Make the comparison and push the result on the stack
|
|
sq_pushbool(vm, static_cast< SQBool >(NameFilterCheckInsensitive(filter.mPtr, name.mPtr)));
|
|
// Specify that we have a return value on the stack
|
|
return 1;
|
|
}
|
|
|
|
// ================================================================================================
|
|
void Register_Base(HSQUIRRELVM vm)
|
|
{
|
|
RootTable(vm)
|
|
.Func(_SC("EpsEq"), &EpsEq< SQFloat, SQFloat >)
|
|
.Func(_SC("EpsLt"), &EpsLt< SQFloat, SQFloat >)
|
|
.Func(_SC("EpsGt"), &EpsGt< SQFloat, SQFloat >)
|
|
.Func(_SC("EpsLtEq"), &EpsLtEq< SQFloat, SQFloat >)
|
|
.Func(_SC("EpsGtEq"), &EpsGtEq< SQFloat, SQFloat >)
|
|
.Func(_SC("ClampI"), &Clamp< SQInteger, SQInteger, SQInteger >)
|
|
.Func(_SC("ClampF"), &Clamp< SQFloat, SQFloat, SQFloat >)
|
|
.Func(_SC("ClampMinI"), &ClampMin< SQInteger, SQInteger >)
|
|
.Func(_SC("ClampMinF"), &ClampMin< SQFloat, SQFloat >)
|
|
.Func(_SC("ClampMaxI"), &ClampMax< SQInteger, SQInteger >)
|
|
.Func(_SC("ClampMaxF"), &ClampMax< SQFloat, SQFloat >)
|
|
.Func(_SC("NextPow2"), &NextPow2)
|
|
.Func(_SC("SToB"), &SToB)
|
|
.Func(_SC("PackRGB"), &SqPackRGB)
|
|
.Func(_SC("PackRGBA"), &SqPackRGBA)
|
|
.Func(_SC("PackARGB"), &SqPackARGB)
|
|
.SquirrelFunc(_SC("NameFilterCheck"), &SqNameFilterCheck)
|
|
.SquirrelFunc(_SC("NameFilterCheckInsensitive"), &SqNameFilterCheckInsensitive);
|
|
}
|
|
|
|
} // Namespace:: SqMod
|