mirror of
https://github.com/edo9300/ygopro-core
synced 2026-08-25 16:23:07 -04:00
76 lines
2 KiB
C++
76 lines
2 KiB
C++
/*
|
|
* scriptlib.cpp
|
|
*
|
|
* Created on: 2010-7-29
|
|
* Author: Argon
|
|
*/
|
|
#include "scriptlib.h"
|
|
#include "duel.h"
|
|
#include "lua_obj.h"
|
|
|
|
int32 scriptlib::check_param(lua_State* L, int32 param_type, int32 index, int32 retfalse, void* retobj) {
|
|
const char* type = nullptr;
|
|
lua_obj* obj = nullptr;
|
|
switch (param_type) {
|
|
case PARAM_TYPE_CARD:
|
|
case PARAM_TYPE_GROUP:
|
|
case PARAM_TYPE_EFFECT:
|
|
if((obj = lua_get<lua_obj*>(L, index)) != nullptr && obj->lua_type == param_type) {
|
|
if(retobj)
|
|
*(lua_obj**)retobj = obj;
|
|
return TRUE;
|
|
} else if(obj && obj->lua_type == PARAM_TYPE_DELETED) {
|
|
luaL_error(L, "Attempting to access deleted object.");
|
|
}
|
|
type = param_type == PARAM_TYPE_CARD ? "Card" : param_type == PARAM_TYPE_GROUP ? "Group" : "Effect";
|
|
break;
|
|
case PARAM_TYPE_FUNCTION:
|
|
if(lua_isfunction(L, index))
|
|
return TRUE;
|
|
type = "Function";
|
|
break;
|
|
case PARAM_TYPE_STRING:
|
|
if(lua_isstring(L, index))
|
|
return TRUE;
|
|
type = "String";
|
|
break;
|
|
case PARAM_TYPE_INT:
|
|
if(lua_isinteger(L, index) || lua_isnumber(L, index))
|
|
return TRUE;
|
|
type = "Int";
|
|
break;
|
|
case PARAM_TYPE_BOOLEAN:
|
|
if(lua_gettop(L) >= index)
|
|
return TRUE;
|
|
type = "boolean";
|
|
break;
|
|
}
|
|
if(retfalse)
|
|
return FALSE;
|
|
if(param_type == PARAM_TYPE_INT) {
|
|
interpreter::print_stacktrace(L);
|
|
const auto pduel = lua_get<duel*>(L);
|
|
pduel->handle_message(pduel->lua->format(R"(Parameter %d should be "%s".)", index, type), OCG_LOG_TYPE_ERROR);
|
|
} else {
|
|
luaL_error(L, R"(Parameter %d should be "%s".)", index, type);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
int32 scriptlib::check_param_count(lua_State* L, int32 count) {
|
|
if (lua_gettop(L) < count)
|
|
luaL_error(L, "%d Parameters are needed.", count);
|
|
return TRUE;
|
|
}
|
|
int32 scriptlib::check_action_permission(lua_State* L) {
|
|
const auto pduel = lua_get<duel*>(L);
|
|
if(pduel->lua->no_action)
|
|
luaL_error(L, "Action is not allowed here.");
|
|
return TRUE;
|
|
}
|
|
|
|
Function get_lua_function(lua_State * L, int index) {
|
|
lua_pushvalue(L, index);
|
|
int32 ref = luaL_ref(L, LUA_REGISTRYINDEX);
|
|
return std::make_shared<Lua_Function_s>(lua_get<duel*>(L), ref);
|
|
}
|