mirror of
https://github.com/edo9300/ygopro-core
synced 2026-08-25 16:23:07 -04:00
92 lines
No EOL
2.4 KiB
C++
92 lines
No EOL
2.4 KiB
C++
/*
|
|
* scriptlib.cpp
|
|
*
|
|
* Created on: 2010-7-29
|
|
* Author: Argon
|
|
*/
|
|
#include "scriptlib.h"
|
|
#include "duel.h"
|
|
#include "lua_obj.h"
|
|
#include "field.h"
|
|
|
|
int32_t scriptlib::check_param(lua_State* L, int32_t param_type, int32_t index, int32_t 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.");
|
|
unreachable();
|
|
}
|
|
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;
|
|
default:
|
|
unreachable();
|
|
break;
|
|
}
|
|
if(retfalse)
|
|
return FALSE;
|
|
if(param_type != PARAM_TYPE_INT) {
|
|
luaL_error(L, R"(Parameter %d should be "%s".)", index, type);
|
|
unreachable();
|
|
}
|
|
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);
|
|
return FALSE;
|
|
}
|
|
|
|
void scriptlib::check_param_count(lua_State* L, int32_t count) {
|
|
if(lua_gettop(L) < count) {
|
|
luaL_error(L, "%d Parameters are needed.", count);
|
|
unreachable();
|
|
}
|
|
}
|
|
void scriptlib::check_action_permission(lua_State* L) {
|
|
if(lua_get<duel*>(L)->lua->no_action) {
|
|
luaL_error(L, "Action is not allowed here.");
|
|
unreachable();
|
|
}
|
|
}
|
|
int32_t scriptlib::push_return_cards(lua_State* L, int32_t/* status*/, lua_KContext ctx) {
|
|
const auto pduel = lua_get<duel*>(L);
|
|
bool cancelable = (bool)ctx;
|
|
if(pduel->game_field->return_cards.canceled) {
|
|
if(cancelable) {
|
|
lua_pushnil(L);
|
|
} else {
|
|
group* pgroup = pduel->new_group();
|
|
interpreter::pushobject(L, pgroup);
|
|
}
|
|
} else {
|
|
group* pgroup = pduel->new_group(pduel->game_field->return_cards.list);
|
|
interpreter::pushobject(L, pgroup);
|
|
}
|
|
return 1;
|
|
} |