513 lines
11 KiB
C++
513 lines
11 KiB
C++
#include "lua/wherigo.h"
|
|
#include "lua/zobject.h"
|
|
#include "lua/ztimer.h"
|
|
#include "ui/wherigo_dialog.h"
|
|
|
|
extern "C" {
|
|
#include <lua.h>
|
|
#include <lauxlib.h>
|
|
}
|
|
|
|
#include <wx/log.h>
|
|
|
|
#include <algorithm>
|
|
#include <cmath>
|
|
#include <string>
|
|
#include <vector>
|
|
|
|
namespace wherigo {
|
|
|
|
|
|
// Wherigo.ZonePoint(lat, lng, alt)
|
|
static int wherigo_ZonePoint(lua_State *L) {
|
|
lua_Number lat = luaL_checknumber(L, 1);
|
|
lua_Number lng = luaL_checknumber(L, 2);
|
|
lua_Number alt = luaL_optnumber(L, 3, 0.0);
|
|
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, lat);
|
|
lua_setfield(L, -2, "latitude");
|
|
lua_pushnumber(L, lng);
|
|
lua_setfield(L, -2, "longitude");
|
|
lua_pushnumber(L, alt);
|
|
lua_setfield(L, -2, "altitude");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.Distance(value, unit)
|
|
static int wherigo_Distance(lua_State *L) {
|
|
lua_Number value = luaL_checknumber(L, 1);
|
|
const char *unit = luaL_optstring(L, 2, "meters");
|
|
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, value);
|
|
lua_setfield(L, -2, "value");
|
|
lua_pushstring(L, unit);
|
|
lua_setfield(L, -2, "unit");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.Zone(cartridge)
|
|
static int wherigo_Zone(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "Zone");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Active");
|
|
|
|
lua_pushboolean(L, 1);
|
|
lua_setfield(L, -2, "Visible");
|
|
|
|
lua_newtable(L);
|
|
lua_setfield(L, -2, "Points");
|
|
|
|
lua_pushcfunction(L, zobject_Contains);
|
|
lua_setfield(L, -2, "Contains");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZCharacter(cartridge)
|
|
static int wherigo_ZCharacter(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZCharacter");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Active");
|
|
|
|
lua_pushboolean(L, 1);
|
|
lua_setfield(L, -2, "Visible");
|
|
|
|
lua_pushcfunction(L, zobject_MoveTo);
|
|
lua_setfield(L, -2, "MoveTo");
|
|
|
|
lua_pushcfunction(L, zobject_Contains);
|
|
lua_setfield(L, -2, "Contains");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZItem(cartridge)
|
|
static int wherigo_ZItem(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZItem");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Active");
|
|
|
|
lua_pushboolean(L, 1);
|
|
lua_setfield(L, -2, "Visible");
|
|
|
|
lua_pushcfunction(L, zobject_MoveTo);
|
|
lua_setfield(L, -2, "MoveTo");
|
|
|
|
lua_pushcfunction(L, zobject_Contains);
|
|
lua_setfield(L, -2, "Contains");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZTask(cartridge)
|
|
static int wherigo_ZTask(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZTask");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Active");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Complete");
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
// Wherigo.ZTimer(cartridge)
|
|
static int wherigo_ZTimer(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZTimer");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushstring(L, "Countdown");
|
|
lua_setfield(L, -2, "Type");
|
|
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "Duration");
|
|
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "Running");
|
|
|
|
lua_pushcfunction(L, ztimer_Start);
|
|
lua_setfield(L, -2, "Start");
|
|
|
|
lua_pushcfunction(L, ztimer_Stop);
|
|
lua_setfield(L, -2, "Stop");
|
|
|
|
lua_pushcfunction(L, ztimer_Reset);
|
|
lua_setfield(L, -2, "Reset");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZInput(cartridge)
|
|
static int wherigo_ZInput(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZInput");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushstring(L, "Text");
|
|
lua_setfield(L, -2, "InputType");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZMedia(cartridge)
|
|
static int s_mediaCounter = 0;
|
|
|
|
static int wherigo_ZMedia(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZMedia");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
// Store the media index (1-based, 0 is luac)
|
|
s_mediaCounter++;
|
|
lua_pushinteger(L, s_mediaCounter);
|
|
lua_setfield(L, -2, "MediaIndex");
|
|
|
|
return 1;
|
|
}
|
|
|
|
void resetMediaCounter() {
|
|
s_mediaCounter = 0;
|
|
}
|
|
|
|
// Wherigo.ZCartridge()
|
|
static int wherigo_ZCartridge(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZCartridge");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_newtable(L);
|
|
lua_setfield(L, -2, "AllZObjects");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.ZCommand(cartridge)
|
|
static int wherigo_ZCommand(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "ZCommand");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushboolean(L, 1);
|
|
lua_setfield(L, -2, "Enabled");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.Player
|
|
static int wherigo_Player(lua_State *L) {
|
|
lua_newtable(L);
|
|
|
|
lua_pushstring(L, "Player");
|
|
lua_setfield(L, -2, "ClassName");
|
|
|
|
lua_pushstring(L, "Player");
|
|
lua_setfield(L, -2, "Name");
|
|
|
|
lua_newtable(L);
|
|
lua_setfield(L, -2, "Inventory");
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.MessageBox(table)
|
|
static int wherigo_MessageBox(lua_State *L) {
|
|
if (!lua_istable(L, 1)) return 0;
|
|
|
|
// Get Text
|
|
lua_getfield(L, 1, "Text");
|
|
const char *text = lua_isstring(L, -1) ? lua_tostring(L, -1) : "";
|
|
lua_pop(L, 1);
|
|
|
|
// Get Buttons
|
|
std::vector<wxString> buttons;
|
|
lua_getfield(L, 1, "Buttons");
|
|
if (lua_istable(L, -1)) {
|
|
int n = lua_objlen(L, -1);
|
|
for (int i = 1; i <= n; i++) {
|
|
lua_rawgeti(L, -1, i);
|
|
if (lua_isstring(L, -1)) {
|
|
buttons.push_back(wxString::FromUTF8(lua_tostring(L, -1)));
|
|
}
|
|
lua_pop(L, 1);
|
|
}
|
|
}
|
|
lua_pop(L, 1);
|
|
|
|
// Get Callback
|
|
lua_getfield(L, 1, "Callback");
|
|
bool hasCallback = lua_isfunction(L, -1);
|
|
int callbackRef = LUA_NOREF;
|
|
if (hasCallback) {
|
|
callbackRef = luaL_ref(L, LUA_REGISTRYINDEX);
|
|
} else {
|
|
lua_pop(L, 1);
|
|
}
|
|
|
|
wxLogDebug("MessageBox: %s", text);
|
|
|
|
// Show dialog
|
|
WherigoMessageDialog dlg(nullptr, wxString::FromUTF8(text), "Wherigo", buttons);
|
|
dlg.ShowModal();
|
|
int selected = dlg.getSelectedButton();
|
|
|
|
// Call callback if exists
|
|
if (callbackRef != LUA_NOREF) {
|
|
lua_rawgeti(L, LUA_REGISTRYINDEX, callbackRef);
|
|
if (buttons.empty()) {
|
|
lua_pushnil(L);
|
|
} else if (selected >= 0 && selected < (int)buttons.size()) {
|
|
lua_pushstring(L, buttons[selected].ToUTF8().data());
|
|
} else {
|
|
lua_pushnil(L);
|
|
}
|
|
if (lua_pcall(L, 1, 0, 0) != 0) {
|
|
wxLogError("MessageBox callback error: %s", lua_tostring(L, -1));
|
|
lua_pop(L, 1);
|
|
}
|
|
luaL_unref(L, LUA_REGISTRYINDEX, callbackRef);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.Dialog(table)
|
|
static int wherigo_Dialog(lua_State *L) {
|
|
if (!lua_istable(L, 1)) return 0;
|
|
|
|
std::vector<DialogEntry> entries;
|
|
int n = lua_objlen(L, 1);
|
|
|
|
for (int i = 1; i <= n; i++) {
|
|
lua_rawgeti(L, 1, i);
|
|
if (lua_istable(L, -1)) {
|
|
DialogEntry entry;
|
|
|
|
lua_getfield(L, -1, "Text");
|
|
entry.text = lua_isstring(L, -1) ? lua_tostring(L, -1) : "";
|
|
lua_pop(L, 1);
|
|
|
|
// Get Media object name
|
|
lua_getfield(L, -1, "Media");
|
|
if (lua_istable(L, -1)) {
|
|
lua_getfield(L, -1, "Name");
|
|
entry.mediaName = lua_isstring(L, -1) ? lua_tostring(L, -1) : "";
|
|
lua_pop(L, 1);
|
|
}
|
|
lua_pop(L, 1);
|
|
|
|
lua_getfield(L, -1, "Buttons");
|
|
if (lua_istable(L, -1)) {
|
|
int bn = lua_objlen(L, -1);
|
|
for (int j = 1; j <= bn; j++) {
|
|
lua_rawgeti(L, -1, j);
|
|
if (lua_isstring(L, -1)) {
|
|
entry.buttons.push_back(lua_tostring(L, -1));
|
|
}
|
|
lua_pop(L, 1);
|
|
}
|
|
}
|
|
lua_pop(L, 1);
|
|
|
|
entries.push_back(entry);
|
|
}
|
|
lua_pop(L, 1);
|
|
}
|
|
|
|
wxLogDebug("Dialog with %zu entries", entries.size());
|
|
for (const auto& entry : entries) {
|
|
wxLogDebug(" Text: %s, Media: %s", entry.text.c_str(),
|
|
entry.mediaName.empty() ? "(none)" : entry.mediaName.c_str());
|
|
}
|
|
|
|
// Show dialogs sequentially
|
|
WherigoDialogRunner::getInstance().showDialog(entries);
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.GetInput(zinput)
|
|
static int wherigo_GetInput(lua_State *L) {
|
|
if (lua_istable(L, 1)) {
|
|
lua_getfield(L, 1, "Name");
|
|
const char *name = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unnamed)";
|
|
wxLogDebug("GetInput: %s", name);
|
|
lua_pop(L, 1);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.PlayAudio(zmedia)
|
|
static int wherigo_PlayAudio(lua_State *L) {
|
|
if (lua_istable(L, 1)) {
|
|
lua_getfield(L, 1, "Name");
|
|
const char *name = lua_isstring(L, -1) ? lua_tostring(L, -1) : "(unnamed)";
|
|
wxLogDebug("PlayAudio: %s", name);
|
|
lua_pop(L, 1);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.ShowScreen(screen, obj)
|
|
static int wherigo_ShowScreen(lua_State *L) {
|
|
int screen = luaL_optinteger(L, 1, 0);
|
|
wxLogDebug("ShowScreen: %d", screen);
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.LogMessage(message, level)
|
|
static int wherigo_LogMessage(lua_State *L) {
|
|
const char *message = luaL_checkstring(L, 1);
|
|
wxLogDebug("Wherigo.LogMessage: %s", message);
|
|
return 0;
|
|
}
|
|
|
|
// Wherigo.NoCaseEquals(str1, str2)
|
|
static int wherigo_NoCaseEquals(lua_State *L) {
|
|
const char *str1 = luaL_checkstring(L, 1);
|
|
const char *str2 = luaL_checkstring(L, 2);
|
|
|
|
std::string s1(str1);
|
|
std::string s2(str2);
|
|
|
|
std::transform(s1.begin(), s1.end(), s1.begin(), ::tolower);
|
|
std::transform(s2.begin(), s2.end(), s2.begin(), ::tolower);
|
|
|
|
lua_pushboolean(L, s1 == s2);
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.TranslatePoint(point, distance, bearing)
|
|
static int wherigo_TranslatePoint(lua_State *L) {
|
|
// TODO: implement point translation
|
|
lua_newtable(L);
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.VectorToZone(point, zone)
|
|
static int wherigo_VectorToZone(lua_State *L) {
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "distance");
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "bearing");
|
|
lua_pushboolean(L, 0);
|
|
lua_setfield(L, -2, "inside");
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.VectorToPoint(point1, point2)
|
|
static int wherigo_VectorToPoint(lua_State *L) {
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "distance");
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "bearing");
|
|
return 1;
|
|
}
|
|
|
|
// Wherigo.VectorToSegment(point, point1, point2)
|
|
static int wherigo_VectorToSegment(lua_State *L) {
|
|
lua_newtable(L);
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "distance");
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "bearing");
|
|
return 1;
|
|
}
|
|
|
|
static const luaL_Reg wherigo_funcs[] = {
|
|
{"ZonePoint", wherigo_ZonePoint},
|
|
{"Distance", wherigo_Distance},
|
|
{"Zone", wherigo_Zone},
|
|
{"ZCharacter", wherigo_ZCharacter},
|
|
{"ZItem", wherigo_ZItem},
|
|
{"ZTask", wherigo_ZTask},
|
|
{"ZTimer", wherigo_ZTimer},
|
|
{"ZInput", wherigo_ZInput},
|
|
{"ZMedia", wherigo_ZMedia},
|
|
{"ZCartridge", wherigo_ZCartridge},
|
|
{"ZCommand", wherigo_ZCommand},
|
|
{"MessageBox", wherigo_MessageBox},
|
|
{"Dialog", wherigo_Dialog},
|
|
{"GetInput", wherigo_GetInput},
|
|
{"PlayAudio", wherigo_PlayAudio},
|
|
{"ShowScreen", wherigo_ShowScreen},
|
|
{"LogMessage", wherigo_LogMessage},
|
|
{"NoCaseEquals", wherigo_NoCaseEquals},
|
|
{"TranslatePoint", wherigo_TranslatePoint},
|
|
{"VectorToZone", wherigo_VectorToZone},
|
|
{"VectorToPoint", wherigo_VectorToPoint},
|
|
{"VectorToSegment", wherigo_VectorToSegment},
|
|
{nullptr, nullptr}
|
|
};
|
|
|
|
int luaopen_Wherigo(lua_State *L) {
|
|
luaL_register(L, "Wherigo", wherigo_funcs);
|
|
|
|
// Create Player object
|
|
wherigo_Player(L);
|
|
lua_setfield(L, -2, "Player");
|
|
|
|
// Screen constants
|
|
lua_pushnumber(L, 0);
|
|
lua_setfield(L, -2, "MAINSCREEN");
|
|
|
|
lua_pushnumber(L, 1);
|
|
lua_setfield(L, -2, "LOCATIONSCREEN");
|
|
|
|
lua_pushnumber(L, 2);
|
|
lua_setfield(L, -2, "ITEMSCREEN");
|
|
|
|
lua_pushnumber(L, 3);
|
|
lua_setfield(L, -2, "INVENTORYSCREEN");
|
|
|
|
lua_pushnumber(L, 4);
|
|
lua_setfield(L, -2, "TASKSCREEN");
|
|
|
|
lua_pushnumber(L, 5);
|
|
lua_setfield(L, -2, "DETAILSCREEN");
|
|
|
|
// Register common functions as globals (as expected by Wherigo Builder)
|
|
lua_pushcfunction(L, wherigo_ZonePoint);
|
|
lua_setglobal(L, "ZonePoint");
|
|
|
|
lua_pushcfunction(L, wherigo_Distance);
|
|
lua_setglobal(L, "Distance");
|
|
|
|
// Register Player as global
|
|
wherigo_Player(L);
|
|
lua_setglobal(L, "Player");
|
|
|
|
return 1;
|
|
}
|
|
|
|
} // namespace wherigo
|
|
|