nwnx2 - проблемы - Город Мастеров

WRG! Team

Правила

nwnx2 - проблемы

baskan

Dec 11 2005, 12:28

Сообщение #1

Level 7

Класс: Бард
Характер: Lawful Good
Раса: Фея

Требуется сделать проверку в OnClientEnter на существование аккаунта в БД.

Скрипт :

Neverwinter Script Source

#include "nw_o0_itemmaker"
#include "hss_giv_it_class"
#include "gsc_include"
#include "aps_include"
#include "_cb_core"

void main()
{
object oPC = GetEnteringObject();
object oStore = GetModule();
string sStoreName = GetName(oPC)+GetPCPlayerName(oPC); // =[PC name] + [login name]
SetLocalString(oPC,"HP_MyIdString",sStoreName);

//Remove Polymorph and Spell_Failure
effect eNeg = GetFirstEffect(oPC);
while(GetIsEffectValid(eNeg))
{
if (GetEffectType(eNeg)==EFFECT_TYPE_POLYMORPH) RemoveEffect(oPC, eNeg);
if (GetEffectType(eNeg)==EFFECT_TYPE_SPELL_FAILURE) RemoveEffect(oPC, eNeg);
eNeg = GetNextEffect(oPC);
}


int iSavedHP = GetLocalInt(oStore,sStoreName);
if (iSavedHP != 0)
{
effect efDamage = EffectDamage(GetMaxHitPoints(oPC)-iSavedHP,DAMAGE_TYPE_MAGICAL,DAMAGE_POWER_ENERGY);
ApplyEffectToObject(DURATION_TYPE_INSTANT,efDamage,oPC);
}

int k,j,nSpells;
for (k=1; k < 805; k++)
{
nSpells = GetLocalArrayInt(oStore,sStoreName+"_spells",k);
if (nSpells)
for (j=0; j <= GetHasSpell(k,oPC)-nSpells; j++)
DecrementRemainingSpellUses(oPC, k);
}

if (!GetIsDM(oPC))
{
if(GetItemPossessedBy(oPC, "dmfi_pc_emote") == OBJECT_INVALID)
CreateItemOnObject("dmfi_pc_emote", oPC);
if (!GetXP(oPC))
{
ClearInventory(oPC);
GiveClassItems(oPC);
GiveGoldToCreature(oPC, 900);
CreateItemOnObject("bedroll", oPC);
CreateItemOnObject("food", oPC);
GiveXPToCreature(oPC,1);
}
if ((GetCampaignInt("INVA_MISK", "EXISTS", oPC)==TRUE)&&(!GetLocalInt(GetModule(),"SecurityDisable")))
{
BootPC(oPC);
}
    if(GetLocalInt(oPC, "Subrace_Done") != 1)
    {
        core(oPC);
        SetLocalInt(oPC, "Subrace_Done", 1);
    }
// ____________________________CHECKING_ACCOUNT____________________________


object oPC=GetEnteringObject();
string sAccount=SQLEncodeSpecialChars(GetPCPlayerName(oPC));
string sKey=GetPCPublicCDKey(oPC);

string sCheck = "SELECT * FROM `IPB` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
string sCheckKey = "SELECT nwn_key FROM `ipb` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
string sPutDownKey = "UPDATE `IPB` SET nwn_key='"+GetPCPublicCDKey(oPC)+"' WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";


SQLExecDirect(sCheck);
if (SQLFirstRow() == SQL_SUCCESS)
{
SQLExecDirect(sCheckKey);
string sFinalKey;
while (SQLFetch() == SQL_SUCCESS)
{
sFinalKey = SQLGetData(1);
}
if(sFinalKey == "")
{
SQLExecDirect(sPutDownKey);
}
else if((sFinalKey != "") && (sFinalKey != GetPCPublicCDKey(oPC)))
{
BootPC(oPC);
}
else if(sFinalKey == GetPCPublicCDKey(oPC))
{
SendMessageToPC(oPC,"checking success...");
}
}
else
{
BootPC(oPC);
}
//ExecuteScript("_security",OBJECT_SELF);
// _____________________END_OF_CHECKING_ACCOUNT____________________________
ExecuteScript("hit_autodis",oPC);
ExecuteScript("hit_chkname",oPC);
}
SendMessageToPC(oPC, "The Chronicles of Nightfall 0.9b");
SendMessageToAllDMs("Account: " + GetPCPlayerName(oPC)+ ", Character: "+ GetName(oPC)+ ", IP: "+ GetPCIPAddress(oPC));
WriteTimestampedLogEntry("Account: " + GetPCPlayerName(oPC)+ ", Character: "+ GetName(oPC)+ ", IP: "+ GetPCIPAddress(oPC));
GSC_OnClientEnter(oPC);
}

Нас интересует промежуток от CHECKING_ACCOUNT до END_OF_CHECKING_ACCOUNT. "ipb" имя БД. Ошибка кроеться в этом промежутке. Ибо когда я его закоментил скрипт нормально работал, а так при старте выдает ошибку о "Слишком много инструкций" и не показывает на какой строке :vava: . логи nwnx2 ничего не показывают, помогите.:swoon:

Ответить с цитированием данного сообщения

Ответов (1 - 7)

-fenix-

Dec 11 2005, 12:52

Сообщение #2

Level 19

Класс: Воин
Характер: Lawful Good
Раса: Человек
NWN: Скриптинг [Sn]

baskan, я в nwnx2 не шарю, но бегло пробежав, вот что заметил.

Neverwinter Script Source

while (SQLFetch() == SQL_SUCCESS)
{
sFinalKey = SQLGetData(1);
}

Где выход из цикла?
При выполнении условия, он утебя бесконечный.

2_advanced Просмотр Профиля Найти сообщения пользователя	Dec 11 2005, 15:34 Сообщение #3
Level 9 Класс: Вор Характер: True Neutral Раса: Эльф NWN: Скриптинг [PW]	фетч перемещает на следующую строку.. если пусто, то выход из цикла. зы. я 3 раза уже выкладывал тут сабж для хранения всей инфы о чарах в sql ни у кого не осталось?

virusman

Dec 11 2005, 21:31

Сообщение #4

Level 17

Класс: Волшебник
Характер: Neutral Good
Раса: Человек
NWN: Скриптинг [PW]
Axistown SR 1.9
NWNX

Извратно написано, но должно работать.
Первое, что приходит в голову - заменить в

Neverwinter Script Source

while (SQLFetch() == SQL_SUCCESS)
{
    sFinalKey = SQLGetData(1);
}

while на if.
Меньше циклов - меньше геморроя. :)
Добавлено в [mergetime]1134326572[/mergetime]
Хм..
Инициализация NWNX делается при загрузке модуля?

[MoF]Darth_Nick Просмотр Профиля Найти сообщения пользователя	Dec 13 2005, 10:31 Сообщение #5
Level 6 Класс: Некромант Характер: Chaotic Evil Раса: Нежить NWN: Скриптинг [PW]	дело не в скрипте... "Эти слишком много инструкций " будут если нету связи с БД...для тецта, ставим скрипт на ОнЕнтер: http://nwnres.nm.ru/_cl_enter.html создаем там бд nwn, табло player, вписываем nwn_acc,nwn_access,nwn_key. Пробуем через nwnx - работает Пробуем через сингл(или сервом без nwnx) к примеру и получаем "Эти слишком много инструкций " => если nwnx криво настроен(или вообще не настроен 8(), то будет ета хрень 2_advanced куда интересней самому написать :) Сообщение отредактировал [MoF]Darth_Nick - Dec 13 2005, 11:06

Vanes Просмотр Профиля Найти сообщения пользователя	Dec 13 2005, 16:49 Сообщение #6
Level 11 Класс: Вор Характер: Neutral Evil Раса: Эльф NWN: Скриптинг [PW] Validor2	кстати через сингл запускать модуль, то у меня нвн просто напросто виснет, как раз из-за nwnx... ну я его правда и не настраивал... уже привык скрипты с запросами к БД вообще не тестить, а для остального отключать скрипты на ModuleLoad и ClientEnter...

Richard

Dec 16 2005, 16:03

Сообщение #7

Level 9

Класс: Клерик
Характер: Chaotic Evil
Раса: Человек

Вобщем немного мы продвинулись, но опять попали в тупик.
1. Инициализация онлоад

CODE

#include "aps_include"

void main()
{
// Init placeholders for ODBC gateway
SQLInit();
}

2. Он клиент ентер проверка

CODE

// ____________________________CHECKING_ACCOUNT____________________________

// Main vars
object oPC=GetEnteringObject();
string sAccount=SQLEncodeSpecialChars(GetPCPlayerName(oPC));
//string sKey=GetPCPublicCDKey(oPC);
// SQL's queries
string sCheck = "SELECT * FROM `ipb` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sCheckKey = "SELECT nwn_key FROM `ipb` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sPutDownKey = "UPDATE `ipb` SET nwn_key='"+GetPCPublicCDKey(oPC)+"' WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
// Let's move to actions
SQLExecDirect(sCheck);
if (SQLFirstRow() == SQL_SUCCESS)
{
//SQLExecDirect(sCheckKey);
//string sFinalKey;
//while (SQLFetch() == SQL_SUCCESS)
//{
//sFinalKey = SQLGetData(1);
//}
//if(sFinalKey == "")
//{
//SQLExecDirect(sPutDownKey);
//}
//else if((sFinalKey != "") && (sFinalKey != GetPCPublicCDKey(oPC)))
//{
//BootPC(oPC);
//}
//else if(sFinalKey == GetPCPublicCDKey(oPC))
//{
//SendMessageToPC(oPC,"ooe ciaao eae...ii y caoie =?");
//}
}
else
{
BootPC(oPC);
}
ExecuteScript("_security",OBJECT_SELF);
// _____________________END_OF_CHECKING_ACCOUNT____________________________

Вроде бы все хорошо.

При инициализации nwnx в лог ODBC пишется Database connection up
То есть все ок.

В чем может быть трудность?
Добавлено в [mergetime]1134738338[/mergetime]
Пускает на сервер всех игроков, то есть проверку не производит.
Регистрация через форум по аналогу [MoF]Darth_Nick

[MoF]Darth_Nick

Dec 16 2005, 17:33

Сообщение #8

Level 6

Класс: Некромант
Характер: Chaotic Evil
Раса: Нежить
NWN: Скриптинг [PW]

CODE

string sCheck = "SELECT * FROM `ipb` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sCheckKey = "SELECT nwn_key FROM `ipb` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sPutDownKey = "UPDATE `ipb` SET nwn_key='"+GetPCPublicCDKey(oPC)+"' WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";

заменить на

CODE

string sCheck = "SELECT * FROM `ibf_members` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sCheckKey = "SELECT nwn_key FROM `ibf_members` WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";
//string sPutDownKey = "UPDATE `ibf_members` SET nwn_key='"+GetPCPublicCDKey(oPC)+"' WHERE nwn_acc='"+sAccount+"' AND nwn_access='accessed'";

ibf_ - стандартный префикс

Сообщение отредактировал [MoF]Darth_Nick - Dec 16 2005, 17:34

« Предыдущая тема · Шарды рунета · Следующая тема »

5 чел. читают эту тему (гостей: 5, скрытых пользователей: 0)

Пользователей: 0