mirror of
https://github.com/edo9300/ygopro-core
synced 2026-08-25 16:23:07 -04:00
225 lines
7.2 KiB
C++
225 lines
7.2 KiB
C++
/*
|
|
* libdebug.cpp
|
|
*
|
|
* Created on: 2012-2-8
|
|
* Author: Argon
|
|
*/
|
|
|
|
#include <string.h>
|
|
#include "scriptlib.h"
|
|
#include "duel.h"
|
|
#include "field.h"
|
|
#include "card.h"
|
|
#include "effect.h"
|
|
#include "ocgapi.h"
|
|
|
|
int32 scriptlib::debug_message(lua_State *L) {
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
lua_getglobal(L, "tostring");
|
|
lua_pushvalue(L, -2);
|
|
lua_pcall(L, 1, 1, 0);
|
|
interpreter::strcpy(pduel->strbuffer, lua_tostring(L, -1));
|
|
handle_message(pduel, 2);
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_add_card(lua_State *L) {
|
|
check_param_count(L, 6);
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
int32 code = lua_tonumberint(L, 1);
|
|
int32 owner = lua_tonumberint(L, 2);
|
|
int32 playerid = lua_tonumberint(L, 3);
|
|
int32 location = lua_tonumberint(L, 4);
|
|
int32 sequence = lua_tonumberint(L, 5);
|
|
int32 position = lua_tonumberint(L, 6);
|
|
int32 proc = lua_toboolean(L, 7);
|
|
if(owner != 0 && owner != 1)
|
|
return 0;
|
|
if(playerid != 0 && playerid != 1)
|
|
return 0;
|
|
if(pduel->game_field->is_location_useable(playerid, location, sequence)) {
|
|
card* pcard = pduel->new_card(code);
|
|
pcard->owner = owner;
|
|
pcard->sendto_param.position = position;
|
|
if(location == LOCATION_PZONE) {
|
|
int32 seq = !(pduel->game_field->core.duel_options & DUEL_NO_EMZONE) ? (pduel->game_field->core.duel_options & SPEED_DUEL) ? (sequence == 0) ? 1 : 3 : sequence * 4 : (6 + sequence);
|
|
pduel->game_field->add_card(playerid, pcard, LOCATION_SZONE, seq, TRUE);
|
|
} else
|
|
pduel->game_field->add_card(playerid, pcard, location, sequence);
|
|
pcard->current.position = position;
|
|
if(!(location & (LOCATION_ONFIELD + LOCATION_PZONE)) || (position & POS_FACEUP)) {
|
|
pcard->enable_field_effect(true);
|
|
pduel->game_field->adjust_instant();
|
|
}
|
|
if(proc)
|
|
pcard->set_status(STATUS_PROC_COMPLETE, TRUE);
|
|
interpreter::card2value(L, pcard);
|
|
return 1;
|
|
} else if(location == LOCATION_MZONE) {
|
|
card* pcard = pduel->new_card(code);
|
|
pcard->owner = owner;
|
|
card* fcard = pduel->game_field->get_field_card(playerid, location, sequence);
|
|
fcard->xyz_materials.push_back(pcard);
|
|
pcard->overlay_target = fcard;
|
|
pcard->current.controler = PLAYER_NONE;
|
|
pcard->current.location = LOCATION_OVERLAY;
|
|
pcard->current.sequence = fcard->xyz_materials.size() - 1;
|
|
for(auto eit = pcard->xmaterial_effect.begin(); eit != pcard->xmaterial_effect.end(); ++eit) {
|
|
effect* peffect = eit->second;
|
|
if(peffect->type & EFFECT_TYPE_FIELD)
|
|
pduel->game_field->add_effect(peffect);
|
|
}
|
|
interpreter::card2value(L, pcard);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_set_player_info(lua_State *L) {
|
|
check_param_count(L, 4);
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
uint32 playerid = lua_tonumberint(L, 1);
|
|
uint32 lp = lua_tonumberint(L, 2);
|
|
uint32 startcount = lua_tonumberint(L, 3);
|
|
uint32 drawcount = lua_tonumberint(L, 4);
|
|
if(playerid != 0 && playerid != 1)
|
|
return 0;
|
|
pduel->game_field->player[playerid].lp = lp;
|
|
pduel->game_field->player[playerid].start_count = startcount;
|
|
pduel->game_field->player[playerid].draw_count = drawcount;
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_pre_summon(lua_State *L) {
|
|
check_param_count(L, 2);
|
|
check_param(L, PARAM_TYPE_CARD, 1);
|
|
card* pcard = *(card**) lua_touserdata(L, 1);
|
|
uint32 summon_type = lua_tonumberint(L, 2);
|
|
uint8 summon_location = 0;
|
|
if(lua_gettop(L) > 2)
|
|
summon_location = lua_tonumberint(L, 3);
|
|
pcard->summon_info = summon_type | (summon_location << 16);
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_pre_equip(lua_State *L) {
|
|
check_param_count(L, 2);
|
|
check_param(L, PARAM_TYPE_CARD, 1);
|
|
check_param(L, PARAM_TYPE_CARD, 2);
|
|
card* equip_card = *(card**) lua_touserdata(L, 1);
|
|
card* target = *(card**) lua_touserdata(L, 2);
|
|
if((equip_card->current.location != LOCATION_SZONE)
|
|
|| (target->current.location != LOCATION_MZONE)
|
|
|| (target->current.position & POS_FACEDOWN))
|
|
lua_pushboolean(L, 0);
|
|
else {
|
|
equip_card->equip(target, FALSE);
|
|
equip_card->effect_target_cards.insert(target);
|
|
target->effect_target_owner.insert(equip_card);
|
|
lua_pushboolean(L, 1);
|
|
}
|
|
return 1;
|
|
}
|
|
int32 scriptlib::debug_pre_set_target(lua_State *L) {
|
|
check_param_count(L, 2);
|
|
check_param(L, PARAM_TYPE_CARD, 1);
|
|
check_param(L, PARAM_TYPE_CARD, 2);
|
|
card* t_card = *(card**) lua_touserdata(L, 1);
|
|
card* target = *(card**) lua_touserdata(L, 2);
|
|
t_card->add_card_target(target);
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_pre_add_counter(lua_State *L) {
|
|
check_param_count(L, 2);
|
|
check_param(L, PARAM_TYPE_CARD, 1);
|
|
card* pcard = *(card**) lua_touserdata(L, 1);
|
|
uint32 countertype = lua_tonumberint(L, 2);
|
|
uint32 count = lua_tonumberint(L, 3);
|
|
uint16 cttype = countertype & ~COUNTER_NEED_ENABLE;
|
|
auto pr = pcard->counters.insert(std::make_pair(cttype, card::counter_map::mapped_type()));
|
|
auto cmit = pr.first;
|
|
if(pr.second) {
|
|
cmit->second[0] = 0;
|
|
cmit->second[1] = 0;
|
|
}
|
|
if((countertype & COUNTER_WITHOUT_PERMIT) && !(countertype & COUNTER_NEED_ENABLE))
|
|
cmit->second[0] += count;
|
|
else
|
|
cmit->second[1] += count;
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_reload_field_begin(lua_State *L) {
|
|
check_param_count(L, 1);
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
uint32 flag = lua_tonumberint(L, 1);
|
|
int32 rule = lua_tonumberint(L, 2);
|
|
bool build = lua_toboolean(L, 3);
|
|
if (!rule)
|
|
rule = 3;
|
|
pduel->clear();
|
|
if(rule && !build) {
|
|
switch (rule) {
|
|
case 1: {
|
|
flag |= DUEL_1_FIELD | DUEL_NO_PZONE | DUEL_NO_EMZONE | DUEL_1ST_TURN_DRAW | DUEL_OBSOLETE_IGNITION;
|
|
break;
|
|
}
|
|
case 2: {
|
|
flag |= DUEL_1_FIELD | DUEL_NO_PZONE | DUEL_NO_EMZONE | DUEL_1ST_TURN_DRAW;
|
|
break;
|
|
}
|
|
case 3: {
|
|
flag |= DUEL_NO_EMZONE;
|
|
break;
|
|
}
|
|
}
|
|
} else if (flag & DUEL_OBSOLETE_RULING) {
|
|
flag &= DUEL_1_FIELD | DUEL_NO_PZONE | DUEL_NO_EMZONE | DUEL_1ST_TURN_DRAW | DUEL_OBSOLETE_IGNITION;
|
|
pduel->game_field->core.duel_rule = 2;
|
|
pduel->game_field->core.duel_options = flag;
|
|
return 0;
|
|
}
|
|
pduel->game_field->core.duel_rule = 4;
|
|
if((flag & DUEL_NO_PZONE) && (flag & DUEL_NO_EMZONE))
|
|
pduel->game_field->core.duel_rule = 2;
|
|
else if(flag & DUEL_NO_EMZONE)
|
|
pduel->game_field->core.duel_rule = 3;
|
|
pduel->game_field->core.duel_options = flag;
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_reload_field_end(lua_State *L) {
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
pduel->game_field->core.shuffle_hand_check[0] = FALSE;
|
|
pduel->game_field->core.shuffle_hand_check[1] = FALSE;
|
|
pduel->game_field->core.shuffle_deck_check[0] = FALSE;
|
|
pduel->game_field->core.shuffle_deck_check[1] = FALSE;
|
|
pduel->game_field->reload_field_info();
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_set_ai_name(lua_State *L) {
|
|
check_param_count(L, 1);
|
|
check_param(L, PARAM_TYPE_STRING, 1);
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
pduel->write_buffer8(MSG_AI_NAME);
|
|
const char* pstr = lua_tostring(L, 1);
|
|
int len = strlen(pstr);
|
|
if(len > 100)
|
|
len = 100;
|
|
pduel->write_buffer16(len);
|
|
memcpy(pduel->bufferp, pstr, len);
|
|
pduel->bufferp += len;
|
|
pduel->bufferlen += len;
|
|
pduel->write_buffer8(0);
|
|
return 0;
|
|
}
|
|
int32 scriptlib::debug_show_hint(lua_State *L) {
|
|
check_param_count(L, 1);
|
|
check_param(L, PARAM_TYPE_STRING, 1);
|
|
duel* pduel = interpreter::get_duel_info(L);
|
|
pduel->write_buffer8(MSG_SHOW_HINT);
|
|
const char* pstr = lua_tostring(L, 1);
|
|
int len = strlen(pstr);
|
|
if(len > 1024)
|
|
len = 1024;
|
|
pduel->write_buffer16(len);
|
|
memcpy(pduel->bufferp, pstr, len);
|
|
pduel->bufferp += len;
|
|
pduel->bufferlen += len;
|
|
pduel->write_buffer8(0);
|
|
return 0;
|
|
}
|