startEvent(cid, event, buffer)

[caotic 393]

Eae galera xtibiana!

 

Creatureevents são eventos muitos ultilizados em otserv mais não existe uma forma de chamar um evento por ID em lua.

Então desenvolvi um codigo que chama um evento especifico.

 

Vá em luascript.cpp e procure:

#include "baseevents.h"

Coloque embaixo:

#include "creatureevent.h"

Procure:

extern Spells* g_spells;

Coloque embaixo:

extern CreatureEvents* g_creatureEvents;

Cotinuando em luascript.cpp e procure:

int32_t LuaScriptInterface::luaGetIpByName(lua_State* L)
{
//getIpByName(name)
std::string name = popString(L);


if(Player* player = g_game.getPlayerByName(name))
lua_pushnumber(L, player->getIP());
else
lua_pushnumber(L, IOLoginData::getInstance()->getLastIPByName(name));


return 1;
}

Coloque embaixo:

 

int32_t LuaScriptInterface::luaStartEvent(lua_State* L)
{
ScriptEnviroment* env = getEnv();
std::string buffer = popString(L);
int32_t event = popNumber(L);
if(Creature* creature = env->getCreatureByUID(popNumber(L))) {
lua_pushboolean(L, g_creatureEvents->startEvent(creature, event, buffer));                             
}
}

Continuando em luascript.cpp procure:

//loadmodlib(lib)
lua_register(m_luaState, "loadmodlib", LuaScriptInterface::luaL_loadmodlib);

Coloque embaixo:

//startEvent(cid, event, buffer)
lua_register(m_luaState, "startEvent", LuaScriptInterface::luaStartEvent);

Vá em luascript.h e procure:

static int32_t luaGetContainerSize(lua_State* L);

Procure embaixo:

static int32_t luaStartEvent(lua_State* L);

Vá em creatureevents.cpp e procure:

bool CreatureEvents::playerLogin(Player* player)
{
//fire global event if is registered
bool result = true;
for(CreatureEventList::iterator it = m_creatureEvents.begin(); it != m_creatureEvents.end(); ++it)
{
if(it->second->getEventType() == CREATURE_EVENT_LOGIN &&
!it->second->executeLogin(player) && result)
result = false;
}


return result;
}

Coloque embaixo:

bool CreatureEvents::startEvent(Creature* creature, int32_t event, std::string buffer)
{
bool result = true;
for(CreatureEventList::iterator it = m_creatureEvents.begin(); it != m_creatureEvents.end(); ++it)
{
if(it->second->getEventType() == CREATURE_EVENT_EVENT &&
!it->second->executeEvent(creature, event, buffer) && result)
result = false;
}


return result;
}

Procure:

else if(tmpStr == "preparedeath")
m_type = CREATURE_EVENT_PREPAREDEATH;

Coloque embaixo:

else if(tmpStr == "event")
m_type = CREATURE_EVENT_EVENT;

Continuando em creatureevents.cpp procure:

case CREATURE_EVENT_PREPAREDEATH:
return "onPrepareDeath";

Coloque embaixo:

case CREATURE_EVENT_EVENT:
return "onEvent";

Procure:

case CREATURE_EVENT_PREPAREDEATH:
return "cid, deathList";

Coloque embaixo:

case CREATURE_EVENT_EVENT:
return "cid, event, buffer";

Procure:

uint32_t CreatureEvent::executeDirection(Creature* creature, Direction old, Direction current)
{
//onDirection(cid, old, current)
if(m_interface->reserveEnv())
{
ScriptEnviroment* env = m_interface->getEnv();
if(m_scripted == EVENT_SCRIPT_BUFFER)
{
env->setRealPos(creature->getPosition());
std::stringstream scriptstream;
scriptstream << "local cid = " << env->addThing(creature) << std::endl;


scriptstream << "local old = " << old << std::endl;
scriptstream << "local current = " << current << std::endl;


scriptstream << m_scriptData;
bool result = true;
if(m_interface->loadBuffer(scriptstream.str()))
{
lua_State* L = m_interface->getState();
result = m_interface->getGlobalBool(L, "_result", true);
}


m_interface->releaseEnv();
return result;
}
else
{
#ifdef __DEBUG_LUASCRIPTS__
char desc[30];
sprintf(desc, "%s", creature->getName().c_str());
env->setEventDesc(desc);
#endif


env->setScriptId(m_scriptId, m_interface);
env->setRealPos(creature->getPosition());


lua_State* L = m_interface->getState();
m_interface->pushFunction(m_scriptId);


lua_pushnumber(L, env->addThing(creature));
lua_pushnumber(L, old);
lua_pushnumber(L, current);


bool result = m_interface->callFunction(3);
m_interface->releaseEnv();
return result;
}
}
else
{
std::cout << "[Error - CreatureEvent::executeDirection] Call stack overflow." << std::endl;
return 0;
}
}

Coloque embaixo:

uint32_t CreatureEvent::executeEvent(Creature* creature, int32_t event, std::string buffer)
{
//onOutfit(cid, old, current)
if(m_interface->reserveEnv())
{
ScriptEnviroment* env = m_interface->getEnv();
if(m_scripted == EVENT_SCRIPT_BUFFER)
{
env->setRealPos(creature->getPosition());
std::stringstream scriptstream;
scriptstream << "local cid = " << env->addThing(creature) << std::endl;
scriptstream << "local event = " << event << std::endl;
scriptstream << "local buffer = " << "'" << buffer << "'" << std::endl;


scriptstream << m_scriptData;
bool result = true;
if(m_interface->loadBuffer(scriptstream.str()))
{
lua_State* L = m_interface->getState();
result = m_interface->getGlobalBool(L, "_result", true);
}


m_interface->releaseEnv();
return result;
}
else
{
#ifdef __DEBUG_LUASCRIPTS__
char desc[30];
sprintf(desc, "%s", creature->getName().c_str());
env->setEventDesc(desc);
#endif


env->setScriptId(m_scriptId, m_interface);
env->setRealPos(creature->getPosition());


lua_State* L = m_interface->getState();
m_interface->pushFunction(m_scriptId);


lua_pushnumber(L, env->addThing(creature));
            lua_pushnumber(L, event);
            lua_pushstring(L, buffer.c_str());


bool result = m_interface->callFunction(3);
m_interface->releaseEnv();
return result;
}
}
else
{
std::cout << "[Error - CreatureEvent::executeOutfit] Call stack overflow." << std::endl;
return 0;
}
}

Em creatureeevents.h procure:

CREATURE_EVENT_PREPAREDEATH,

Coloque embaixo:

CREATURE_EVENT_EVENT

Procure:

bool playerLogout(Player* player, bool forceLogout);

Coloque embaixo:

bool startEvent(Creature* creature, int32_t event, std::string buffer);

Continuando em creatureevents.h procure:

uint32_t executeCombat(Creature* creature, Creature* target);

E coloque embaixo:

uint32_t executeEvent(Creature* creature, int32_t event, std::string buffer);

Exemplo:

function onSay(cid, words, param, channel)
if startEvent(cid, 1, "\n") then
return true
end
return false
end

function onEvent(cid, event, buffer)
CREATURE_EVENT_PLAYERS_ON = 1


if event == CREATURE_EVENT_PLAYERS_ON then
local players = getPlayersOnline()
str = ""
for i=1, #players do
local sep = i >= #players and "" or buffer
str = str..getCreatureName(players[i])..sep
end
doShowTextDialog(cid, 1397, str)
return true
end




print("INVALID EVENT\nNumber "..event.."\nBuffer _"..buffer.."_')
return true
end

 

 

Editado Março 16, 2014 por caotic

[xSONYx 31]

Não entendi muito bem a funcionalidade disso e nem o script de exemplo, tem como me explicar melhor doido? xd

[caotic 393]

É simples ele chama o evento onEvent basicamente.

Ai você pode gerenciar pelo id do evento.