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

WRG! Team

Правила

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

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

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

Опции

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

Ответов

Tomb

Mar 11 2005, 18:10

Сообщение #2

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

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

на OnClientEnter стоит этот скрипт

Neverwinter Script Source

#include "fr_i0_subraces"
#include "x2_inc_itemprop"
#include "hx_inc_craftfix"
#include "hx_sc_sec_check"
#include "hx_inc_spellfix"
void RemoveTempEffects(object oItem)
{
    itemproperty ItemPTemp = GetFirstItemProperty(oItem);
    while (GetIsItemPropertyValid(ItemPTemp))
    {
     if (GetItemPropertyDurationType(ItemPTemp)==DURATION_TYPE_TEMPORARY)
        RemoveItemProperty(oItem,ItemPTemp);
     ItemPTemp = GetNextItemProperty(oItem);
    }
}

void main()
{
    object oPC = GetEnteringObject();
    object oStore = GetModule();

    string sStoreName = GetName(oPC) + GetPCPlayerName(oPC); // =[PC name] + [login name]
    SetLocalString(oPC, "_MyIdString", sStoreName);
    SendMessageToPC(oPC, "Taganrog Cormyrean Prophecies v3.7.2c");
    AssignCommand(GetModule(), DelayCommand(0.0f, SecBegin(oPC)));        ///
    if(GetIsDM(oPC))
    {
        if(GetItemPossessedBy(oPC, "dmfi_emote") == OBJECT_INVALID)
            CreateItemOnObject("dmfi_emote", oPC);
        if(GetItemPossessedBy(oPC, "dmfi_dmw") == OBJECT_INVALID)
           CreateItemOnObject("dmfi_dmw", oPC);
        return;
    }

    DelayCommand(0.0, InitializeSubrace(oPC));
    AssignCommand(GetModule(), DelayCommand(0.0f, CraftCheck(oPC)));

    object oOdeyalo = GetItemPossessedBy(oPC, "odeyalo");
    if (GetIsObjectValid(oOdeyalo) == TRUE)
        DestroyObject(oOdeyalo);

    if(GetIsPC(oPC))
    {
        SetLocalInt(oPC, "IsAPC", TRUE);

        RestoreTalents(oPC, sStoreName);

        int iSavedHP = GetLocalInt(oStore,"HP_"+sStoreName);
//        SendMessageToAllDMs(IntToString(iSavedHP));
        if(iSavedHP != 0)
        {
            effect efDamage = EffectDamage(GetMaxHitPoints(oPC)-iSavedHP,DAMAGE_TYPE_MAGICAL,DAMAGE_POWER_ENERGY);
            DelayCommand(0.0f, ApplyEffectToObject(DURATION_TYPE_INSTANT, efDamage, oPC));
        }

        if(GetItemPossessedBy(oPC, "dmfi_emote") == OBJECT_INVALID)
            CreateItemOnObject("dmfi_emote", oPC);

        if(!GetXP(oPC))
        {
            CreateItemOnObject("bedroll", oPC);
            CreateItemOnObject("NW_IT_GOLD001", oPC, 300);
            CreateItemOnObject("kr_food", oPC, 10);
            SetXP(oPC, 1);
        }
////check on temp properties
    object oItem=GetItemInSlot(INVENTORY_SLOT_CHEST, oPC);
    RemoveTempEffects(oItem);
    oItem=GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC);
    RemoveTempEffects(oItem);
    oItem=GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oPC);
    RemoveTempEffects(oItem);
////End check on temp properties

    }


// wtf? :P

    SetLocalInt(oPC, "CB_XP_SETTING", 0);
    SetLocalInt(oPC, "CB_ITEM1", 0);
    SetLocalInt(oPC, "CB_ITEM2", 0);
    SetLocalInt(oPC, "CB_ITEM3", 0);
    SetLocalInt(oPC, "CB_ITEM4", 0);
    SetLocalInt(oPC, "CB_ITEM5", 0);
    SetLocalInt(oPC, "CB_ITEM6", 0);

//   int ECL = core(oPC);
//   SetLocalInt(oPC, "CB_ECL", ECL); // laggy stuff

    if(GetLocalInt(oStore, "CB_EXECUTE") != 1)
    {
        ExecuteScript("_cb_ecl", oStore);
        SetLocalInt(oStore, "CB_EXECUTE", 1);
    }
}

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

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

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

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

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

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

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

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

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

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

Licensed to: WRG! Team