Народ помогите плиз - Город Мастеров

WRG! Team

Правила

Здравствуйте, гость ( Вход | Регистрация )

Город Мастеров > РЕДАКТОРЫ > Шарды рунета

Народ помогите плиз, Модуль не пускает

Опции

Tomb Просмотр Профиля Найти сообщения пользователя	Mar 9 2005, 19:08 Сообщение #1
Светлый лорд Корелии Класс: Тайный Лучник Характер: Lawful Good Раса: Полуэльф NWN: Тестер	Для локального шарда нашли классный модуль. Но есть одна проблема... Он не пускает ни ДМов, не Админов, не юзеров. Пишет Вы уволены и все... Подскажите где такое прописывается и отчего может так глючить?

Ответов

Tomb

Mar 13 2005, 11:47

Сообщение #2

Светлый лорд Корелии
Иконки Групп

Класс: Тайный Лучник
Характер: Lawful Good
Раса: Полуэльф
NWN: Тестер

Вот этот инклюд:

Neverwinter Script Source

const int MAX_PLAYERS = 32;


int SlotReserv(object oPC)
{
    int nPlayers = 0,
        nDMs = 0;

    object oPlayer = GetFirstPC();
    while(oPlayer != OBJECT_INVALID)
    {
        if(GetIsDM(oPlayer))
            nDMs++;
        else
            nPlayers++;

        oPlayer = GetNextPC();
    }

    if((nPlayers > MAX_PLAYERS + nDMs) && !GetIsDM(oPC))
    {
        SendMessageToPC(oPC, "Ñâîáîäíûõ ìåñò íåò.");
        BootPC(oPC);
        return 1;
    }
    return 0;
}
void AccCheck(object oPC, string sPC)
{
    int nAccessLvl;
    int nRow = 0;
    string sAccessLvl, szData, sComment;
    do
    {
        szData = Get2DAString("accounts", "account", nRow);
        nRow++;
    }
    while((szData!="")&&(szData!=sPC));
    nRow--;

    if(szData==sPC)
    {

     sAccessLvl = Get2DAString("accounts", "access", nRow);
     sComment   = Get2DAString("accounts", "comment", nRow);

     if(sAccessLvl == "")   nAccessLvl = 1;
     else   nAccessLvl = StringToInt(sAccessLvl);

     if (nAccessLvl==3)
     {
      if (!GetIsDM(oPC))
        SendMessageToAllDMs(szData+" -- Mega VIP Player Entering");
      else
        SendMessageToAllDMs(szData+" -- Mega VIP DM Entering");
     }

     else if (nAccessLvl==2)
     {
       SendMessageToAllDMs(szData+" -- VIP Player Entering");
       if (!GetIsDM(oPC))
       {
        SendMessageToAllDMs(szData+" -- Ups! Is it Player?! BOOT-BOOT-BOOT!");
        BootPC(oPC);
        DelayCommand(3.0, BootPC(oPC));
        DelayCommand(6.0, BootPC(oPC));
       }
     }

     else if (nAccessLvl==1)
     {
       SendMessageToAllDMs(szData+" -- Player Entering");
       if (GetIsDM(oPC))
       {
        SendMessageToAllDMs(szData+" -- Ups! Is it DM?! BOOT-BOOT-BOOT!");
        BootPC(oPC);
        DelayCommand(3.0, BootPC(oPC));
        DelayCommand(6.0, BootPC(oPC));
       }
     }
     else
     {
       SendMessageToAllDMs(sPC+" -- Îòïðàâëåí â áóòèê!");
       SendMessageToAllDMs("Ïðè÷èíà: "+sComment);
       BootPC(oPC);
       DelayCommand(3.0, BootPC(oPC));
       DelayCommand(6.0, BootPC(oPC));
     }
    }
    else
     {
       SendMessageToAllDMs(sPC+" -- Îòïðàâëåí â áóòèê!");
       SendMessageToAllDMs("Ïðè÷èíà: àêêàóíò íå íàéäåí â ñïèñêå.");
       BootPC(oPC);
       DelayCommand(3.0, BootPC(oPC));
       DelayCommand(6.0, BootPC(oPC));
     }
     if (sComment!="") SendMessageToAllDMs("Êîìåíòàðèé: "+sComment);

//DelayCommand(2.0f, BootPC(oPC)); // not found or banned.
}

void SecBegin(object oPlayer)
{
    string sAccountDatabase = GetPCPlayerName(oPlayer);

    AccCheck(oPlayer,sAccountDatabase); // not finished yet.
    if(GetIsDM(oPlayer))
        return;
    SlotReserv(oPlayer);

    if (GetCampaignString(sAccountDatabase, "PublicCDKey") == "")
        SetCampaignString(sAccountDatabase, "PublicCDKey", "FFFFFFFF");

    string sCDKey = GetPCPublicCDKey(oPlayer);
    string sIP = GetPCIPAddress(oPlayer);

    string sDefendedCD = GetCampaignString(sAccountDatabase, "PublicCDKey");
    string sDefendedIP = GetCampaignString(sAccountDatabase, "PlayerIPAddress");

    if(sDefendedCD == "FFFFFFF" && sDefendedIP == "")
        SendMessageToPC(oPlayer, "Âàø àêêàóíò íå çàùèùåí!");

    if(sDefendedCD != "FFFFFFFF")
    {
        if(sDefendedCD != sCDKey)
        {
            DelayCommand(2.0f, WriteTimestampedLogEntry("Attemption to hak: '" + GetName(oPlayer) + "' (" + GetPCPlayerName(oPlayer) + "), public CD key part: '" + sCDKey + "', IP address: '" + GetPCIPAddress(oPlayer) + "'"));
            DelayCommand(2.5f, BootPC(oPlayer));
            DelayCommand(3.0f, BootPC(oPlayer));
        }
        else
        {
            SendMessageToPC(oPlayer, "CD-key ïðîâåðåí.");
        }
    }

    if(sDefendedIP != "")
    {
        if(sIP != sDefendedIP)
        {
            DelayCommand(2.0f, WriteTimestampedLogEntry("Attemption to hak(ip invalid): '" + GetName(oPlayer) + "' (" + GetPCPlayerName(oPlayer) + "), public CD key part: '" + sCDKey + "', IP address: '" + GetPCIPAddress(oPlayer) + "'"));
            DelayCommand(2.5f, BootPC(oPlayer));
            DelayCommand(3.0f, BootPC(oPlayer));
        }
        else
        {
            SendMessageToPC(oPlayer, "IP ïðîâåðåí.");
        }
    }
}

//void main(){}

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

Сообщений в этой теме

Tomb Народ помогите плиз Mar 9 2005, 19:08

baskan Возможно, в этом модуле нужно регестрировать ДМов,... Mar 9 2005, 19:14

Tomb Давай я тебе его кину на почту или в асю... чето с... Mar 10 2005, 18:26

baskan 1) я не мастер скриптов. 2)Пиши в коде, а так я во... Mar 10 2005, 21:18

dumbo Tomb, ты не "подозрительные" скрипты кид... Mar 11 2005, 00:59

Tomb на OnClientEnter стоит этот скрипт Neverwinter Scr... Mar 11 2005, 18:10

baskan Ан, нет) ошибка. похоже в инклюдах что то. Отцы ск... Mar 11 2005, 21:52

K.SpecTr QUOTE #include "hx_sc_sec_check" QUOTE s... Mar 12 2005, 19:24

baskan CODE QUOTE string sStoreName = GetName(oPC... Mar 12 2005, 19:59

K.SpecTr И что делает SecBegin(oPC)? Это команда из инклюда... Mar 12 2005, 20:13

Tomb Вот этот инклюд: Neverwinter Script Sourceconst in... Mar 13 2005, 11:47

baskan Я не мастер скриптов, но попробуй удалить из скрип... Mar 13 2005, 12:27

K.SpecTr CODE AccCheck(oPlayer,sAccountDatabase); /... Mar 13 2005, 14:42

RiPPeR Если убрать строку Neverwinter Script SourceAssign... Apr 6 2005, 16:05

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

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

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

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

Сейчас: 3rd May 2025 - 05:24

Licensed to: WRG! Team