mirror of
https://github.com/edo9300/ygopro-core
synced 2026-08-25 16:23:07 -04:00
a891c23ecb
# Conflicts: # effect.cpp # field.cpp # libduel.cpp # libeffect.cpp # operations.cpp # premake4.lua # processor.cpp # scriptlib.h
81 lines
No EOL
1.9 KiB
C++
81 lines
No EOL
1.9 KiB
C++
/*
|
|
* scriptlib.cpp
|
|
*
|
|
* Created on: 2010-7-29
|
|
* Author: Argon
|
|
*/
|
|
#include "scriptlib.h"
|
|
#include "duel.h"
|
|
|
|
static int32 check_data_type(lua_State* L, int32 index, const char* tname) {
|
|
int32 result = FALSE;
|
|
if(lua_getmetatable(L, index)) {
|
|
lua_getglobal(L, tname);
|
|
if(lua_rawequal(L, -1, -2))
|
|
result = TRUE;
|
|
lua_pop(L, 2);
|
|
}
|
|
return result;
|
|
}
|
|
int32 scriptlib::check_param(lua_State* L, int32 param_type, int32 index, int32 retfalse) {
|
|
switch (param_type) {
|
|
case PARAM_TYPE_CARD: {
|
|
int32 result = FALSE;
|
|
if(lua_isuserdata(L, index) && lua_getmetatable(L, index)) {
|
|
result = check_data_type(L, -1, "Card");
|
|
lua_pop(L, 1);
|
|
}
|
|
if(result)
|
|
return TRUE;
|
|
if(retfalse)
|
|
return FALSE;
|
|
luaL_error(L, "Parameter %d should be \"Card\".", index);
|
|
break;
|
|
}
|
|
case PARAM_TYPE_GROUP: {
|
|
if(lua_isuserdata(L, index) && check_data_type(L, index, "Group"))
|
|
return TRUE;
|
|
if(retfalse)
|
|
return FALSE;
|
|
luaL_error(L, "Parameter %d should be \"Group\".", index);
|
|
break;
|
|
}
|
|
case PARAM_TYPE_EFFECT: {
|
|
if(lua_isuserdata(L, index) && check_data_type(L, index, "Effect"))
|
|
return TRUE;
|
|
if(retfalse)
|
|
return FALSE;
|
|
luaL_error(L, "Parameter %d should be \"Effect\".", index);
|
|
break;
|
|
}
|
|
case PARAM_TYPE_FUNCTION: {
|
|
if(lua_isfunction(L, index))
|
|
return TRUE;
|
|
if(retfalse)
|
|
return FALSE;
|
|
luaL_error(L, "Parameter %d should be \"Function\".", index);
|
|
break;
|
|
}
|
|
case PARAM_TYPE_STRING: {
|
|
if(lua_isstring(L, index))
|
|
return TRUE;
|
|
if(retfalse)
|
|
return FALSE;
|
|
luaL_error(L, "Parameter %d should be \"String\".", index);
|
|
break;
|
|
}
|
|
}
|
|
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) {
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
if(pduel->lua->no_action)
|
|
luaL_error(L, "Action is not allowed here.");
|
|
return TRUE;
|
|
} |