Город Мастеров
IPB

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

 Правила этого форума ПРАВИЛА РАЗДЕЛА
5 страниц V  < 1 2 3 4 > »   
 Ответить в эту темуОткрыть новую тему
> База скриптов, Готовые скрипты. Описание обязательно.
Аваддон
сообщение Nov 29 2004, 09:35
Сообщение #41


Level 10
***

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


На ваульте полно Сервер-статус-чекеров, но они берут инфу когда снифят трафик от сервака к серверу Bioware. В нашем НВН сервере есть такая галочка "Post game to Inernet", которую самому поставить нельзя, а если интернет у сервера не доступен (например, в локальной сети) то, это галочка убирается, траффик от сервера не передается, и следовательно все PHP скрипты для статуса, не работают.
Но у меня появилась идея сделать статус сервера с помощью APS/NWNX2 и базы данных MySQL. [MoF]Darth_Nick написал еще для нее PHP скрипт который будет брать данные из MySQL.

Статус позволяет видеть:

- Количество игроков на сервере
- Их имена (зачем MoF]Darth_Nick'у нужны аккаунты - понятия не имею, но я чуть модифицировал его скрипт - если вам нужны аккаунты см. в теме "Статус Сервера через PHP страницу"
Итак, для начала мои скрипты:
- Пол
- Раса и Подраса
- Уровень
- Классы и уровень каждого класса
- PC или DM

Теперь скрипты:

OnModuleLoad

Neverwinter Script Source
/*
////////////////////////////////
//////Created By: Avaddon//////
//////Date: 28. 11. 2004//////
/////////////////////////////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\MYSQL SERVER STATUS\\\\\\\
\\\\\\Put this script:\\\\\\\\\
\\\\\\\"OnModuleLoad"\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/
#include "aps_include"
void main()
{
//СтандартаЯ команда в "aps_onload"
SQLInit();

//Команда MySQL "Создать таблицу REG_DATA"
string sSQL="CREATE TABLE `reg_data` ("+
"  `pc_dm` varchar(64) NOT NULL default '',"+
"  `login` varchar(64) NOT NULL default '',"+
"  `name` varchar(64) NOT NULL default '',"+
"  `gender` varchar(10) NOT NULL default '',"+
"  `race` varchar(64) NOT NULL default '',"+
"  `sub_race` varchar(100) NOT NULL default '',"+
"  `levels` varchar(3) NOT NULL default '',"+
"  `class_1` varchar(64) NOT NULL default '',"+
"  `class_2` varchar(64) NOT NULL default '',"+
"  `class_3` varchar(64) NOT NULL default '',"+
"  `deity` varchar(100) NOT NULL default '',"+
"  `cd_key` varchar(64) NOT NULL default '',"+
"  `ip` varchar(25) NOT NULL default '',"+
"  `line_status`  varchar(4) NOT NULL default '',"+
"  `creation_date` datetime NOT NULL default '0000-00-00 00:00:00',"+
") TYPE=MyISAM;";

/*Команда MySQL "Выставить line_status" на "off", везде где он = "on".
ИспользуетсЯ при загрузке модулЯ длЯ обновлениЯ статистики после краша
или выключениЯ сервера. */
string sOffline = "UPDATE `reg_data` SET line_status = 'off' WHERE line_status='on'";

  //ПроверЯем есть ли таблица REG_DATA
  SQLExecDirect("DESCRIBE reg_data");

  //Если таблицы нет - создаем ее
  if (SQLFetch()!= SQL_SUCCESS)
  {
    SQLExecDirect(sSQL);
  }
  //При загрузке модулЯ всем выставлЯем статус "Offline"
  SQLExecDirect(sOffline);
}



OnClientEnter

Neverwinter Script Source
/*
////////////////////////////////
//////Created By: Avaddon//////
//////Date: 28. 11. 2004//////
/////////////////////////////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\MYSQL SERVER STATUS\\\\\\\
\\\\\\Put this script:\\\\\\\\\
\\\\\\\"OnClentEnter"\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/
#include "aps_include"
void main()
{
object oPC=GetEnteringObject();
string sName=SQLEncodeSpecialChars(GetName(oPC));//ИМЯ персонажа
string sLogin=SQLEncodeSpecialChars(GetPCPlayerName(oPC)); // Логин игрока
string sGender="Мужской"; if(GetGender(oPC)==GENDER_FEMALE)sGender="Женский";//Пол
string sKey=GetPCPublicCDKey(oPC); //CD-key игрока
string sIp=GetPCIPAddress(oPC); //Ip игрока
string sDeity=GetDeity(oPC); //Божество игрока
string sPC_DM = "PC"; if (GetIsDM(oPC)==TRUE)sPC_DM = "DM";////ДМ или Игрок
string sSubrace=GetStringLeft(GetSubRace(oPC), 99);//Подраса игрока
string sAllLevels = IntToString(GetHitDice(oPC));
//Расы заносимые при регистрации в БД////////////////////////
string sRace;                                              //
int iRace = GetRacialType(oPC);                            //
switch (iRace)                                            //
    {                                                      //
    case RACIAL_TYPE_DWARF:                                //
    sRace = "Дворф";                                      //
    break;                                                //
                                                          //
    case RACIAL_TYPE_ELF:                                  //
    sRace = "Эльф";                                        //
    break;                                                //
                                                          //
    case RACIAL_TYPE_GNOME:                                //
    sRace = "Гном";                                        //
    break;                                                //
                                                          //
    case RACIAL_TYPE_HALFELF:                              //
    sRace = "Полуэльф";                                    //
    break;                                                //
                                                          //
    case RACIAL_TYPE_HALFLING:                            //
    sRace = "Полурослик";                                  //
    break;                                                //
                                                          //
    case RACIAL_TYPE_HALFORC:                              //
    sRace = "Полуорк";                                    //
    break;                                                //
                                                          //
    case RACIAL_TYPE_HUMAN:                                //
    sRace = "Человек";                                    //
    break;                                                //
    }                                                      //
/////////////////////////////////////////////////////////////


//Классы игрока///////////////////////////////////////////
int iNum;                                  //
for (iNum=0; iNum<4; iNum++)
{
string sClass;                                          //
int iClass = GetClassByPosition(iNum,oPC);              //
switch (iClass)                                        //
    {                                                  //
    case CLASS_TYPE_ARCANE_ARCHER:                      //
    sClass = "Тайный Стрелок";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_ASSASSIN:                          //
    sClass = "Убийца";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_BARBARIAN:                          //
    sClass = "Варвар";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_BARD:                              //
    sClass = "Бард";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_BLACKGUARD:                        //
    sClass = "Страж Тьмы";                              //
    break;                                              //
                                                        //
    case CLASS_TYPE_CLERIC:                            //
    sClass = "Клирик";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_DIVINECHAMPION:                    //
    sClass = "Чемпион Торма";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_DRAGONDISCIPLE:                    //
    sClass = "Ученик Дракона";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_DRUID:                              //
    sClass = "Друид";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_DWARVENDEFENDER:                    //
    sClass = "Защитник Дворфов";                        //
    break;                                              //
                                                        //
    case CLASS_TYPE_FIGHTER:                            //
    sClass = "Воин";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_HARPER:                            //
    sClass = "Разведчик Арфистов";                      //
    break;                                              //
                                                        //
    case CLASS_TYPE_INVALID:                            //
    sClass = " - ";                      //
    break;                                              //
                                                        //
    case CLASS_TYPE_MONK:                              //
    sClass = "Монах";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_PALADIN:                            //
    sClass = "Паладин";                                //
    break;                                              //
                                                        //
    case CLASS_TYPE_PALEMASTER:                        //
    sClass = "Бледный Мастер";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_RANGER:                            //
    sClass = "Следопыт";                                //
    break;                                              //
                                                        //
    case CLASS_TYPE_ROGUE:                              //
    sClass = "Плут";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_SHADOWDANCER:                      //
    sClass = "Танцор Тени";                            //
    break;                                              //
                                                        //
    case CLASS_TYPE_SHIFTER:                            //
    sClass = "Оборотень";                              //
    break;                                              //
                                                        //
    case CLASS_TYPE_SORCERER:                          //
    sClass = "Волшебник";                              //
    break;                                              //
                                                        //
    case CLASS_TYPE_WEAPON_MASTER:                      //
    sClass = "Мастер Оружий";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_WIZARD:                            //
    sClass = "Маг";                                    //
    break;                                              //
    }                                                  //
//////////////////////////////////////////////////////////

//Берем класс данной позиции и заносим его в локальную строку
SetLocalString(oPC,"Class"+IntToString(iNum),sClass);//
//Берем уровень данного класса и заносим его в локальную строку
SetLocalString(oPC,"Level"+IntToString(iNum),IntToString(GetLevelByPosition(iNum,oPC)));//;
}
//Читаем уровни 1,2, и 3  класса
string sLevel1 = GetLocalString(oPC,"Level1");
string sLevel2 = GetLocalString(oPC,"Level2");
string sLevel3 = GetLocalString(oPC,"Level3");

//Читаем 1,2, и 3  класс
string sClass_1 = GetLocalString(oPC,"Class1")+" ("+sLevel1+")";
string sClass_2 = GetLocalString(oPC,"Class2")+" ("+sLevel2+")";
string sClass_3 = GetLocalString(oPC,"Class3")+" ("+sLevel3+")";


//Выполним запрос SQL - выбираем строчку где логин и чар-нейм = логин и ИМЯ персонажа вошедшего игрока
string sSelect = "SELECT * FROM `reg_data` WHERE login='"+GetPCPlayerName(oPC)+
"' AND name='" +GetName(oPC)+ "' AND pc_dm='"+sPC_DM+"'";

//Команда MySQL "Выставить вощдшему игроку статус OnLine"
string sLine_Status = "UPDATE `reg_data` SET line_status = 'on' WHERE login='"+GetPCPlayerName(oPC)+
"' AND name='" +GetName(oPC)+ "' AND pc_dm='"+sPC_DM+"'";

//Регистрируем игрока статус - регистред, логин, чар-нейм, пол, раса, классы (1,2,3), подраса, сд-кей, ip, и дата регистрации
string sReg="INSERT INTO reg_data (pc_dm, login, name, gender,"+
      "race, sub_race,levels, class_1,class_2,class_3, deity,cd_key,ip,line_status,creation_date) "+
      "VALUES('"+sPC_DM+
      "','"+sLogin+
      "','"+sName+
      "','"+sGender+
      "','"+sRace+
      "','"+sSubrace+
      "','"+sAllLevels+
      "','"+sClass_1+
      "','"+sClass_2+
      "','"+sClass_3+
      "','"+sDeity+
      "','"+sKey+
      "','"+sIp+
      "','on',NOW())";

//Проверка на статус игрока (зарегистрирован или нет)
SQLExecDirect(sSelect);
if (SQLFirstRow() == SQL_SUCCESS)
    {
    SendMessageToPC(oPC,"Статус изменен на [On Line]");
    //Если да - просто изменЯем статус на OnLine
    SQLExecDirect(sLine_Status);
    }
    else
    {
    //Если нет - регистрируем, и выставлЯем статус OnLine
        SQLExecDirect(sReg);
        SendMessageToPC(oPC,"Приветствуем Вас! Вас персонаж был автоматически зарегистрирован!");
        SendMessageToPC(oPC,"Статус изменен на [On Line]");
    }

//Задаем локальные строки игроку с его логином и именем
SetLocalString(oPC,"Login",GetPCPlayerName(oPC));
SetLocalString(oPC,"Name",GetName(oPC));
}



OnClientLeave

Neverwinter Script Source
/*
////////////////////////////////
//////Created By: Avaddon//////
//////Date: 28. 11. 2004//////
/////////////////////////////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\MYSQL SERVER STATUS\\\\\\\
\\\\\\Put this script:\\\\\\\\\
\\\\\\\"OnClentLeave"\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/
#include "aps_include"
void main()
{
object oPC=GetExitingObject();

// Считываем имЯ игрока с его локальной строчки заданной при входе на сервер
string sName=SQLEncodeSpecialChars(GetLocalString(oPC,"Name"));

// Считываем логин игрока с его локальной строчки заданной при входе на сервер
string sLogin=SQLEncodeSpecialChars(GetLocalString(oPC,"Login"));
string sPC_DM = "PC"; if (GetIsDM(oPC)==TRUE)sPC_DM = "DM";////ДМ или Игрок
//
//Выполним запрос SQL - выбираем строчку где логин и чар-нейм = логин и ИМЯ персонажа ушедшего игрока
string sSelect = "SELECT * FROM `reg_data` WHERE login='"+sLogin+
"' AND name='" +sName+ "' AND pc_dm='"+sPC_DM+"'";

//Команда MySQL "Изменить "line_status" на "off", где логин и имЯ = логину и имени ушедшего игрока.
string sLine_Status = "UPDATE `reg_data` SET line_status = 'off' WHERE login='"+sLogin+
"' AND name='" +sName+ "' AND pc_dm='"+sPC_DM+"'";

SQLExecDirect(sSelect);
if (SQLFirstRow() == SQL_SUCCESS)
    {
    SendMessageToPC(oPC,"Статус изменен на [Off Line]");
    SQLExecDirect(sLine_Status);
    }
}



Сообщение отредактировал Twin - Jan 9 2005, 17:24
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Аваддон
сообщение Nov 29 2004, 10:11
Сообщение #42


Level 10
***

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


продолжение

OnPlayerLevelUp

Neverwinter Script Source
/*
////////////////////////////////
//////Created By: Avaddon//////
//////Date: 28. 11. 2004//////
/////////////////////////////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\MYSQL SERVER STATUS\\\\\\\
\\\\\\Put this script:\\\\\\\\\
\\\\\\\"OnPlayerLevelUp"\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/

#include "aps_include"
void main()
{
object oPC = GetPCLevellingUp();
string sAllLevels = IntToString(GetHitDice(oPC));
//Классы игрока///////////////////////////////////////////
int iNum;                                   //
for (iNum=0; iNum<4; iNum++)
{
string sClass;                                          //
int iClass = GetClassByPosition(iNum,oPC);              //
switch (iClass)                                         //
    {                                                   //
    case CLASS_TYPE_ARCANE_ARCHER:                      //
    sClass = "Тайный Стрелок";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_ASSASSIN:                           //
    sClass = "Убийца";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_BARBARIAN:                          //
    sClass = "Варвар";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_BARD:                               //
    sClass = "Бард";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_BLACKGUARD:                         //
    sClass = "Страж Тьмы";                              //
    break;                                              //
                                                        //
    case CLASS_TYPE_CLERIC:                             //
    sClass = "Клирик";                                  //
    break;                                              //
                                                        //
    case CLASS_TYPE_DIVINECHAMPION:                     //
    sClass = "Чемпион Торма";                           //
    break;                                              //
                                                        //
    case CLASS_TYPE_DRAGONDISCIPLE:                     //
    sClass = "Ученик Дракона";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_DRUID:                              //
    sClass = "Друид";                                   //
    break;                                              //
                                                        //
    case CLASS_TYPE_DWARVENDEFENDER:                    //
    sClass = "Защитник Дворфов";                        //
    break;                                              //
                                                        //
    case CLASS_TYPE_FIGHTER:                            //
    sClass = "Воин";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_HARPER:                             //
    sClass = "Разведчик Арфистов";                      //
    break;                                              //
                                                        //
    case CLASS_TYPE_INVALID:                            //
    sClass = " - ";                                     //
    break;                                              //
                                                        //
    case CLASS_TYPE_MONK:                               //
    sClass = "Монах";                                   //
    break;                                              //
                                                        //
    case CLASS_TYPE_PALADIN:                            //
    sClass = "Паладин";                                 //
    break;                                              //
                                                        //
    case CLASS_TYPE_PALEMASTER:                         //
    sClass = "Бледный Мастер";                          //
    break;                                              //
                                                        //
    case CLASS_TYPE_RANGER:                             //
    sClass = "Следопыт";                                //
    break;                                              //
                                                        //
    case CLASS_TYPE_ROGUE:                              //
    sClass = "Плут";                                    //
    break;                                              //
                                                        //
    case CLASS_TYPE_SHADOWDANCER:                       //
    sClass = "Танцор Тени";                             //
    break;                                              //
                                                        //
    case CLASS_TYPE_SHIFTER:                            //
    sClass = "Оборотень";                               //
    break;                                              //
                                                        //
    case CLASS_TYPE_SORCERER:                           //
    sClass = "Волшебник";                               //
    break;                                              //
                                                        //
    case CLASS_TYPE_WEAPON_MASTER:                      //
    sClass = "Мастер Оружий";                           //
    break;                                              //
                                                        //
    case CLASS_TYPE_WIZARD:                             //
    sClass = "Маг";                                     //
    break;                                              //
    }                                                   //
    SetLocalString(oPC,"Class"+IntToString(iNum),sClass);
    SetLocalString(oPC,"Level"+IntToString(iNum),IntToString(GetLevelByPosition(iNum,oPC)));//;
//////////////////////////////////////////////////////////
}
string sName=SQLEncodeSpecialChars(GetName(oPC));
string sLogin=SQLEncodeSpecialChars(GetPCPlayerName(oPC));
//Читаем уровни 1,2, и 3  класса
string sLevel1 = GetLocalString(oPC,"Level1");
string sLevel2 = GetLocalString(oPC,"Level2");
string sLevel3 = GetLocalString(oPC,"Level3");

//Читаем 1,2, и 3  класс
string sClass_1 = GetLocalString(oPC,"Class1")+" ("+sLevel1+")";
string sClass_2 = GetLocalString(oPC,"Class2")+" ("+sLevel2+")";
string sClass_3 = GetLocalString(oPC,"Class3")+" ("+sLevel3+")";

//Команда MySQL "Обновить уровни игрока"
string sLevel = "UPDATE `reg_data` SET levels = '"+sAllLevels+
"', class_1 = '"+sClass_1+
"', class_2 = '"+sClass_2+
"', class_3 = '"+sClass_3+
"' WHERE login = '"+sLogin+"' AND name = '"+sName+"'";

SQLExecDirect(sLevel);
}


PHP-скрипт by [MoF]Darth_Nick
Я его немного модифицировал под классы, а так же чтобы сервер говорил об отсутствии игроков на сервере

УДАЛЕНО. Айваном.

Сообщение отредактировал Aiwan - Jul 26 2005, 10:12
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Аваддон
сообщение Dec 4 2004, 23:45
Сообщение #43


Level 10
***

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


В одном из моих постов, в Базе Скриптов я опубликовал скрипт на отдых в дикой местности.
Теперь, я бы хотел уделить внимаение отдыху в гостинице.
И так, что нам надо для того чтобы организовать отдых в гостиничной комнате?

1. Нам нужен этот хак (0.04 мб), который заменяет в тайлах простые кровати, на такие же по виду кровати, но на которые игрок может забраться.

2. Нам надо сделать гостиничную комнату. Тэг локации должен начинаться с "free". Например, free_inn_rooms.
Я делал одну локацию в которой много гостиничных комнат, никаким образом не соединенных между собой. В каждой комнате перед кроватью стоит ВэйПоинт с тэгом "BED" и на кровати стоит ВэйПоинт с тэгом "SLEEP".

3. Пока вам в кратце опишу, что же происходит при отдыхе в гостиничной комнате.
Игрок подходит к кровати, раздевается, забирается на кровать и ложится спать. Накладывается эффект сна. Потом, если отдых удачно завершен - эффекты сна снимаются, игрок встает с кровати и одевается. Если же отдых был прерван - игрок встает с кровати, получает на время Slow, эффекты сна снимуться только когда эффект сам прекратит дейсвовать по времени. И естественно поднятый ни свет, ни заря игрок не одевается. Придется это делать вручную.

На события модуля OnPlayerRest ставим нижеследующий скрипт.
Neverwinter Script Source
/*
////////////////////////////////
//////Created By: Avaddon//////
//////Date: 04. 12. 2004//////
/////////////////////////////
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\INN ROOM FREE REST\\\\\\\
\\\\\\Put this script:\\\\\\\\\
\\\\\\\"OnPlayerRest"\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/
void main()
{
//Эффекты сна
effect eBlack = EffectVisualEffect(VFX_DUR_BLACKOUT);
effect eZzz =  EffectVisualEffect(VFX_IMP_SLEEP);
effect eSlow = EffectSlow();

object oPC = GetLastPCRested();

//Вейпоинт с тэгом "BED" должен находитсЯ перед кроватью на полу
object oBed = GetNearestObjectByTag("BED",oPC);

/*Вейпоинт с тегом "SLEEP" должен находитсЯ на самой кровати
(Я надеюсь вы скачали хак с фиксом кровати на nwvault.ign.com)*/
object oSleep = GetNearestObjectByTag("SLEEP",oPC);

//Берем предметы в слотах
object oArmor =GetItemInSlot(INVENTORY_SLOT_CHEST,oPC);
object oRightHand = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC);
object oLeftHand = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC);
object oBoots = GetItemInSlot(INVENTORY_SLOT_BOOTS,oPC);
object oHelmet = GetItemInSlot(INVENTORY_SLOT_HEAD,oPC);
object oBelt = GetItemInSlot(INVENTORY_SLOT_BELT,oPC);
object oCloak = GetItemInSlot(INVENTORY_SLOT_CLOAK,oPC);
object oArms = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC);

//В качестве тэгов предметов читаем переменные с игрока
string sFree = GetTag(GetArea(oPC));
string sArmor = GetLocalString(oPC,"armor");
string sRightHand = GetLocalString(oPC,"right");
string sLeftHand = GetLocalString(oPC,"left");
string sHelmet = GetLocalString(oPC,"helmet");
string sBoots = GetLocalString(oPC,"boots");
string sBelt = GetLocalString(oPC,"belt");
string sCloak = GetLocalString(oPC,"cloak");
string sArms = GetLocalString(oPC,"arms");

    /*Проверка арены в которой находитсЯ игрок решивший отдохнуть.
    Если тег арены начинаетсЯ с "free" (например "free_inn_rooms"),
    то наш скрипт начинает работу*/
    if(GetStringLeft(sFree,4)=="free")
    {
    //Если игрок еще не на кровати то...
        if(GetLocalInt(GetLastPCRested(),"on_bed")!=1)
        {
        //Записываем на игрока переменные с тегами одетых на него вещей
        SetLocalString(oPC,"armor",GetTag(oArmor));
        SetLocalString(oPC,"right",GetTag(oRightHand));
        SetLocalString(oPC,"left",GetTag(oLeftHand));
        SetLocalString(oPC,"helmet",GetTag(oHelmet));
        SetLocalString(oPC,"boots",GetTag(oBoots));
        SetLocalString(oPC,"belt",GetTag(oBelt));
        SetLocalString(oPC,"cloak",GetTag(oCloak));
        SetLocalString(oPC,"arms",GetTag(oArms));

        /*За 2 секунды он уже должен быть у кровати(расчитано на маленькую
        комнату с кроватью. Раздеваем игрока. Снимаем все кроме колец,
        боеприпасов, и амулета.*/
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oArmor)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oRightHand)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oLeftHand)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oHelmet)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oBoots)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oBelt)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oCloak)));
        DelayCommand(2.0,AssignCommand(oPC,ActionUnequipItem(oArms)));

            //При событии отдых начат (в гостинице соответственно)...
            if (GetLastRestEventType()==REST_EVENTTYPE_REST_STARTED)
            {
            //ОтменЯем отдых и выполнЯем следущие действиЯ
            AssignCommand(oPC,ClearAllActions());

            //Подходим к кровати(как он подойдет - тут же разденетсЯ)
            AssignCommand(oPC,ActionMoveToObject(oBed));

            //Когда разденетсЯ - забираемсЯ на кровать
            DelayCommand(2.0,AssignCommand(oPC,ActionJumpToObject(oSleep)));

            //ВыставлЯем переменную "Игрок уже на кровати"
            DelayCommand(2.5,SetLocalInt(oPC,"on_bed",1));

            //Начинаем отдых
            DelayCommand(3.0,AssignCommand(oPC,ActionRest()));

            //Накладываем эффекты сна
            DelayCommand(3.5,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eZzz,oPC,10.0));
            DelayCommand(4.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eBlack,oPC,60.0));
            }//Заканчиваем условие "Если Отдых Начат"
        }//Заканчиваем условие "Если игрок не на кровати"
    }//Заканчиваем условие "Если тег арены начинаетсЯ с 'free' "
    else
    {
    /*Здесь - действие которое происходит если тег арены в которой игрок
    находитсЯ не начинаетсЯ с "free".
    Тут "AssignCommand(oPC,ClearAllActions()" - отменЯет отдых. Вы же,
    можете вставить любой другой скрипт, или команды длЯ другого типа отдыха,
    например на природе.*/
    AssignCommand(oPC,ClearAllActions());
    }

  //////////////////////////////////////////////////////////////////////
  /*Если Отдых Окончен или Прерван в арене с тегом начинающимсЯ с "free"
  и игрок находитсЯ на кровати.*//////////////////////////////////////

    if(GetStringLeft(sFree,4)=="free" && GetLocalInt(oPC,"on_bed")==1)
    {
        //Если Отдых Завершен
        if (GetLastRestEventType()==REST_EVENTTYPE_REST_FINISHED)
        {
        //Одеваем игрока обратно (теги предметов бывших на нем одетыми читаем из локалок игрока)
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sArmor), INVENTORY_SLOT_CHEST)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sRightHand), INVENTORY_SLOT_RIGHTHAND)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sLeftHand), INVENTORY_SLOT_LEFTHAND)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sBoots), INVENTORY_SLOT_BOOTS)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sHelmet), INVENTORY_SLOT_HEAD)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sBelt), INVENTORY_SLOT_BELT)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sCloak), INVENTORY_SLOT_CLOAK)));
        DelayCommand(2.0,AssignCommand(oPC, ActionEquipItem(GetItemPossessedBy(oPC,sArms), INVENTORY_SLOT_ARMS)));

        //Встаем с кровати
        AssignCommand(oPC,ActionJumpToObject(oBed));

        //Стираем с игрока все локалки предметов и того что он был на кровати.
        DeleteLocalInt(oPC,"on_bed");
        DeleteLocalString(oPC,"armor");
        DeleteLocalString(oPC,"right");
        DeleteLocalString(oPC,"left");
        DeleteLocalString(oPC,"helmet");
        DeleteLocalString(oPC,"boots");
        DeleteLocalString(oPC,"belt");
        DeleteLocalString(oPC,"cloak");
        DeleteLocalString(oPC,"arms");

        //Убираем эффекты сна
        RemoveEffect(oPC,eBlack);
        }//Заканчиваем условие "Если Отдых Завершен

        /*Если Отдых Прерван То одевать игрока не будем (он проснулсЯ с перепугу,
        или разбудили там.. Не дали спокойно собратьсЯ вобщем.*/
        if (GetLastRestEventType()==REST_EVENTTYPE_REST_CANCELLED)
        {
        //Встаем с кровати
        AssignCommand(oPC,ActionJumpToObject(oBed));

        //Стираем с игрока все локалки предметов и того что он был на кровати.
        DeleteLocalInt(oPC,"on_bed");
        DeleteLocalString(oPC,"armor");
        DeleteLocalString(oPC,"right");
        DeleteLocalString(oPC,"left");
        DeleteLocalString(oPC,"helmet");
        DeleteLocalString(oPC,"boots");
        DeleteLocalString(oPC,"belt");
        DeleteLocalString(oPC,"cloak");
        DeleteLocalString(oPC,"arms");

        /*Эффекты сна не снимаем
        И накладываем Blackout и эффект замедлениЯ,
        чтобы игрок 30 секунд приходилв себЯ.*/

        ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eSlow,oPC,30.0);
        //Периодически игрок полусонный подхрапывает
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eZzz,oPC,10.0);
        DelayCommand(10.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eZzz,oPC,10.0));
        DelayCommand(20.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eZzz,oPC,10.0));
        }
    }
}


Сообщение отредактировал Twin - Jan 8 2005, 05:55
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Twin
сообщение Dec 7 2004, 11:38
Сообщение #44


Level 5
**

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



Пара функций для сохранения и восстановления всех свойств предмета. Дают возможность конвертировать все перманентные (и только перманентные) свойства предмета в строку, которую можно сохранить куда хотите. И также восстановить все свойства (кроме On Monster Hit) из этой строки на предмет. Также сохраняются заряды палочек.
Не сохраняется:
Кастомный вид брони и оружия.
Additional Price отличная от ResRef'овской.
Свойство On Monster Hit (его можно ставить только на Creature Weapon) сохраняется нормально, но при восстановлении работает некорректно. Вернее два из подствойств (SubType) этого свойства не получается восстановить. Карочи, а оно вам ваще нужно? ;)
Количество использований свойства X uses/day. То есть при восстановлении данного свойства из строки возможно, что количество использований обновится как будто после отдыха - не проверял.
Наверняка что-то еще не сохраняется, но мне в голову ничего не приходит.
Neverwinter Script Source
/*
** Конвертациz свойств предмета в строку.
*/
string GetProperties(object oItem)
{
    string sProperties = IntToString(GetItemCharges(oItem));
    int nTemp;
    itemproperty ipTemp = GetFirstItemProperty(oItem);

    while (GetIsItemPropertyValid(ipTemp))
    {
        if (GetItemPropertyDurationType(ipTemp) == 2)
        {
            sProperties += "@"+
                IntToString(GetItemPropertyType(ipTemp)) +":";

            nTemp = GetItemPropertyParam1Value(ipTemp);
            if (nTemp == 255 || nTemp == -1)
                sProperties += "-1:";
            else
                sProperties += IntToString(nTemp - 1) +":";

            sProperties +=
                IntToString(GetItemPropertyCostTable(ipTemp)) +":";

            nTemp = GetItemPropertyCostTableValue(ipTemp);
            if (nTemp == -1)
                sProperties += "-1:";
            else
                sProperties += IntToString(nTemp - 1) +":";

            nTemp = GetItemPropertySubType(ipTemp);
            if (nTemp == -1) sProperties += "0";
            else            sProperties += IntToString(nTemp);
        }

        ipTemp = GetNextItemProperty(oItem);
    }

    return sProperties;
}

/*
** Установка свойств предмета из строки.
*/
void SetProperties(object oItem, string sProperties)
{
    //SendMessageToPC(GetFirstPC(), "SetProperties :: sProperties == "+ sProperties);

    itemproperty ipTemp = GetFirstItemProperty(oItem);
    while (GetIsItemPropertyValid(ipTemp))
    {
        RemoveItemProperty(oItem, ipTemp);
        ipTemp = GetNextItemProperty(oItem);
    }

    int i = 1;
    int pos, nCharges;
    string sTemp;

    nCharges = StringToInt(GetStringLeft(sProperties, FindSubString(sProperties, "@")));
    if (nCharges > 0)
        SetItemCharges(oItem, nCharges);

    while ((pos = FindSubString(sProperties, "@")) != -1)
    {
        sProperties = GetStringRight(sProperties, GetStringLength(sProperties) - pos - 1);

        pos = FindSubString(sProperties, "@");
        if (pos == -1)
            pos = GetStringLength(sProperties);

        sTemp = GetStringLeft(sProperties, pos);

        //SendMessageToPC(GetFirstPC(), "sTemp["+ IntToString(i) +"] == "+ sTemp);
        SetProperty(oItem, sTemp);

        i++;
    }
}

void SetProperty(object oItem, string sProperty)
{
    int pos = FindSubString(sProperty, ":");
    int nType = StringToInt(GetSubString(sProperty, 0, pos));

    sProperty = GetSubString(sProperty, pos + 1, GetStringLength(sProperty));
    pos = FindSubString(sProperty, ":");
    int nParam1Value = StringToInt(GetSubString(sProperty, 0, pos));
    nParam1Value++;

    sProperty = GetSubString(sProperty, pos + 1, GetStringLength(sProperty));
    pos = FindSubString(sProperty, ":");
    int nCostTable = StringToInt(GetSubString(sProperty, 0, pos));

    sProperty = GetSubString(sProperty, pos + 1, GetStringLength(sProperty));
    pos = FindSubString(sProperty, ":");
    int nCostTableValue = StringToInt(GetSubString(sProperty, 0, pos));
    nCostTableValue++;

    sProperty = GetSubString(sProperty, pos + 1, GetStringLength(sProperty));
    int nSubType = StringToInt(sProperty);

    itemproperty ipTemp;

    switch (nType)
    {
/*OK*/  case ITEM_PROPERTY_ABILITY_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ABILITY_BONUS _OK_");
            ipTemp = ItemPropertyAbilityBonus(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_AC_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_AC_BONUS _OK_");
            ipTemp = ItemPropertyACBonus(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_AC_BONUS_VS_ALIGNMENT_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_AC_BONUS_VS_ALIGNMENT_GROUP _OK_");
            ipTemp = ItemPropertyACBonusVsAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_AC_BONUS_VS_DAMAGE_TYPE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_AC_BONUS_VS_DAMAGE_TYPE _OK_");
            ipTemp = ItemPropertyACBonusVsDmgType(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_AC_BONUS_VS_RACIAL_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_AC_BONUS_VS_RACIAL_GROUP _OK_");
            ipTemp = ItemPropertyACBonusVsRace(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_AC_BONUS_VS_SPECIFIC_ALIGNMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_AC_BONUS_VS_SPECIFIC_ALIGNMENT _OK_");
            ipTemp = ItemPropertyACBonusVsSAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ARCANE_SPELL_FAILURE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ARCANE_SPELL_FAILURE _OK_");
            ipTemp = ItemPropertyArcaneSpellFailure(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ATTACK_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ATTACK_BONUS _OK_");
            ipTemp = ItemPropertyAttackBonus(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ATTACK_BONUS_VS_ALIGNMENT_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ATTACK_BONUS_VS_ALIGNMENT_GROUP _OK_");
            ipTemp = ItemPropertyAttackBonusVsAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ATTACK_BONUS_VS_RACIAL_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ATTACK_BONUS_VS_RACIAL_GROUP _OK_");
            ipTemp = ItemPropertyAttackBonusVsRace(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ATTACK_BONUS_VS_SPECIFIC_ALIGNMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ATTACK_BONUS_VS_SPECIFIC_ALIGNMENT _OK_");
            ipTemp = ItemPropertyAttackBonusVsSAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_BASE_ITEM_WEIGHT_REDUCTION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_BASE_ITEM_WEIGHT_REDUCTION _OK_");
            ipTemp = ItemPropertyWeightReduction(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_BONUS_FEAT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_BONUS_FEAT _OK_");
            ipTemp = ItemPropertyBonusFeat(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_BONUS_SPELL_SLOT_OF_LEVEL_N:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_BONUS_SPELL_SLOT_OF_LEVEL_N _OK_");
            ipTemp = ItemPropertyBonusLevelSpell(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_CAST_SPELL:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_CAST_SPELL _OK_");
            ipTemp = ItemPropertyCastSpell(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_BONUS _OK_");
            ipTemp = ItemPropertyDamageBonus(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_BONUS_VS_ALIGNMENT_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_BONUS_VS_ALIGNMENT_GROUP _OK_");
            ipTemp = ItemPropertyDamageBonusVsAlign(nSubType, nParam1Value, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_BONUS_VS_RACIAL_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_BONUS_VS_RACIAL_GROUP _OK_");
            ipTemp = ItemPropertyDamageBonusVsRace(nSubType, nParam1Value, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_BONUS_VS_SPECIFIC_ALIGNMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_BONUS_VS_SPECIFIC_ALIGNMENT _OK_");
            ipTemp = ItemPropertyDamageBonusVsSAlign(nSubType, nParam1Value, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_REDUCTION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_REDUCTION _OK_");
            ipTemp = ItemPropertyDamageReduction(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_RESISTANCE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_RESISTANCE _OK_");
            ipTemp = ItemPropertyDamageResistance(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DAMAGE_VULNERABILITY:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DAMAGE_VULNERABILITY _OK_");
            ipTemp = ItemPropertyDamageVulnerability(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DARKVISION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DARKVISION _OK_");
            ipTemp = ItemPropertyDarkvision();
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_ABILITY_SCORE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_ABILITY_SCORE _OK_");
            ipTemp = ItemPropertyDecreaseAbility(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_AC:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_AC _OK_");
            ipTemp = ItemPropertyDecreaseAC(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_ATTACK_MODIFIER:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_ATTACK_MODIFIER _OK_");
            ipTemp = ItemPropertyAttackPenalty(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_DAMAGE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_DAMAGE _OK_");
            ipTemp = ItemPropertyDamagePenalty(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_ENHANCEMENT_MODIFIER:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_ENHANCEMENT_MODIFIER _OK_");
            ipTemp = ItemPropertyEnhancementPenalty(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_SAVING_THROWS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_SAVING_THROWS _OK_");
            ipTemp = ItemPropertyReducedSavingThrowVsX(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_SAVING_THROWS_SPECIFIC:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_SAVING_THROWS_SPECIFIC _OK_");
            ipTemp = ItemPropertyReducedSavingThrow(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_DECREASED_SKILL_MODIFIER:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_DECREASED_SKILL_MODIFIER _OK_");
            ipTemp = ItemPropertyDecreaseSkill(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ENHANCED_CONTAINER_REDUCED_WEIGHT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ENHANCED_CONTAINER_REDUCED_WEIGHT _OK_");
            ipTemp = ItemPropertyContainerReducedWeight(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ENHANCEMENT_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ENHANCEMENT_BONUS _OK_");
            ipTemp = ItemPropertyEnhancementBonus(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_ALIGNMENT_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_ALIGNMENT_GROUP _OK_");
            ipTemp = ItemPropertyEnhancementBonusVsAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_RACIAL_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_RACIAL_GROUP _OK_");
            ipTemp = ItemPropertyEnhancementBonusVsRace(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_SPECIFIC_ALIGNEMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ENHANCEMENT_BONUS_VS_SPECIFIC_ALIGNEMENT ?_OK_");
            ipTemp = ItemPropertyEnhancementBonusVsSAlign(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_EXTRA_MELEE_DAMAGE_TYPE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_EXTRA_MELEE_DAMAGE_TYPE _OK_");
            ipTemp = ItemPropertyExtraMeleeDamageType(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_EXTRA_RANGED_DAMAGE_TYPE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_EXTRA_RANGED_DAMAGE_TYPE _OK_");
            ipTemp = ItemPropertyExtraRangeDamageType(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_FREEDOM_OF_MOVEMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_FREEDOM_OF_MOVEMENT _OK_");
            ipTemp = ItemPropertyFreeAction();
            break;
/*OK*/  case ITEM_PROPERTY_HASTE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_HASTE _OK_");
            ipTemp = ItemPropertyHaste();
            break;
/*OK*/  case ITEM_PROPERTY_HEALERS_KIT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_HEALERS_KIT _OK_");
            ipTemp = ItemPropertyHealersKit(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_HOLY_AVENGER:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_HOLY_AVENGER _OK_");
            ipTemp = ItemPropertyHolyAvenger();
            break;
/*OK*/  case ITEM_PROPERTY_IMMUNITY_DAMAGE_TYPE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMMUNITY_DAMAGE_TYPE _OK_");
            ipTemp = ItemPropertyDamageImmunity(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_IMMUNITY_MISCELLANEOUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMMUNITY_MISCELLANEOUS _OK_");
            ipTemp = ItemPropertyImmunityMisc(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_IMMUNITY_SPECIFIC_SPELL:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMMUNITY_SPECIFIC_SPELL _OK_");
            ipTemp = ItemPropertySpellImmunitySpecific(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_IMMUNITY_SPELL_SCHOOL:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMMUNITY_SPELL_SCHOOL _OK_");
            ipTemp = ItemPropertySpellImmunitySchool(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_IMMUNITY_SPELLS_BY_LEVEL:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMMUNITY_SPELLS_BY_LEVEL _OK_");
            ipTemp = ItemPropertyImmunityToSpellLevel(nCostTableValue+1);
            break;
/*OK*/  case ITEM_PROPERTY_IMPROVED_EVASION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_IMPROVED_EVASION _OK_");
            ipTemp = ItemPropertyImprovedEvasion();
            break;
/*OK*/  case ITEM_PROPERTY_KEEN:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_KEEN _OK_");
            ipTemp = ItemPropertyKeen();
            break;
/*OK*/  case ITEM_PROPERTY_LIGHT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_LIGHT _OK_");
            ipTemp = ItemPropertyLight(nCostTableValue, nParam1Value);
            break;
/*OK*/  case ITEM_PROPERTY_MASSIVE_CRITICALS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_MASSIVE_CRITICALS _OK_");
            ipTemp = ItemPropertyMassiveCritical(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_MIGHTY:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_MIGHTY _OK_");
            ipTemp = ItemPropertyMaxRangeStrengthMod(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_MIND_BLANK:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_MIND_BLANK");
            break;
/*OK*/  case ITEM_PROPERTY_MONSTER_DAMAGE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_MONSTER_DAMAGE ?OK?");
            ipTemp = ItemPropertyMonsterDamage(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_NO_DAMAGE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_NO_DAMAGE _OK_");
            ipTemp = ItemPropertyNoDamage();
            break;
/*OK*/  case ITEM_PROPERTY_ON_HIT_PROPERTIES:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ON_HIT_PROPERTIES _OK_");
            ipTemp = ItemPropertyOnHitProps(nSubType, nCostTableValue, nParam1Value);
            break;
/*FAIL*/case ITEM_PROPERTY_ON_MONSTER_HIT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ON_MONSTER_HIT _PARTIAL_ "+ IntToString(nSubType) +"!"+ IntToString(nParam1Value));
            ipTemp = ItemPropertyOnMonsterHitProperties(nSubType, nParam1Value);
            break;
/*OK*/  case ITEM_PROPERTY_ONHITCASTSPELL:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_ONHITCASTSPELL _OK_");
            ipTemp = ItemPropertyOnHitCastSpell(nSubType, nCostTableValue+1);
            break;
/*OK*/  case ITEM_PROPERTY_POISON:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_POISON");
            break;
/*OK*/  case ITEM_PROPERTY_REGENERATION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_REGENERATION _OK_");
            ipTemp = ItemPropertyRegeneration(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_REGENERATION_VAMPIRIC:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_REGENERATION_VAMPIRIC _OK_");
            ipTemp = ItemPropertyVampiricRegeneration(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_SAVING_THROW_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_SAVING_THROW_BONUS _OK_");
            ipTemp = ItemPropertyBonusSavingThrowVsX(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_SAVING_THROW_BONUS_SPECIFIC:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_SAVING_THROW_BONUS_SPECIFIC _OK_");
            ipTemp = ItemPropertyBonusSavingThrow(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_SKILL_BONUS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_SKILL_BONUS _OK_");
            ipTemp = ItemPropertySkillBonus(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_SPECIAL_WALK:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_SPECIAL_WALK ?OK?");
            ipTemp = ItemPropertySpecialWalk(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_SPELL_RESISTANCE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_SPELL_RESISTANCE _OK_");
            ipTemp = ItemPropertyBonusSpellResistance(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_THIEVES_TOOLS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_THIEVES_TOOLS _OK_");
            ipTemp = ItemPropertyThievesTools(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_TRAP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_TRAP _OK_");
            ipTemp = ItemPropertyTrap(nSubType, nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_TRUE_SEEING:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_TRUE_SEEING _OK_");
            ipTemp = ItemPropertyTrueSeeing();
            break;
/*OK*/  case ITEM_PROPERTY_TURN_RESISTANCE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_TURN_RESISTANCE _OK_");
            ipTemp = ItemPropertyTurnResistance(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_UNLIMITED_AMMUNITION:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_UNLIMITED_AMMUNITION _OK_");
            ipTemp = ItemPropertyUnlimitedAmmo(nCostTableValue);
            break;
/*OK*/  case ITEM_PROPERTY_USE_LIMITATION_ALIGNMENT_GROUP:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_USE_LIMITATION_ALIGNMENT_GROUP _OK_");
            ipTemp = ItemPropertyLimitUseByAlign(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_USE_LIMITATION_CLASS:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_USE_LIMITATION_CLASS _OK_");
            ipTemp = ItemPropertyLimitUseByClass(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_USE_LIMITATION_RACIAL_TYPE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_USE_LIMITATION_RACIAL_TYPE _OK_");
            ipTemp = ItemPropertyLimitUseByRace(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_USE_LIMITATION_SPECIFIC_ALIGNMENT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_USE_LIMITATION_SPECIFIC_ALIGNMENT _OK_");
            ipTemp = ItemPropertyLimitUseBySAlign(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_USE_LIMITATION_TILESET:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_USE_LIMITATION_TILESET");
            break;
/*OK*/  case ITEM_PROPERTY_VISUALEFFECT:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_VISUALEFFECT _OK_");
            ipTemp = ItemPropertyVisualEffect(nSubType);
            break;
/*OK*/  case ITEM_PROPERTY_WEIGHT_INCREASE:
            //SendMessageToPC(GetFirstPC(), "const ITEM_PROPERTY_WEIGHT_INCREASE _OK_");
            ipTemp = ItemPropertyWeightIncrease(nParam1Value);
            break;
        default:
            //SendMessageToPC(GetFirstPC(), "const default");
            break;
    }

    if (GetIsItemPropertyValid(ipTemp)) {
        AddItemProperty(DURATION_TYPE_PERMANENT, ipTemp, oItem);
    }
}

Данный скрипт можно исползовать для создания банка вещей. Так как проблема сохранения вещей с динамическими теперь отпадает.
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Tarre Talliorne
сообщение Jan 5 2005, 13:19
Сообщение #45


Level 8
***

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


http://rage-t.boom.ru/creative.html
На эой страничке нашего сайта висят пару библиотек. ИМХО довольно полезных.
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Лито
сообщение Jan 27 2005, 21:00
Сообщение #46


Level 9
***

Класс: Страж Тьмы
Характер: Chaotic Evil
Раса: Нежить
Многие начинающие не могут нормально соединить несколько отдельных скриптов в один целый, например часто надо вписывать в скрипт OnClientEnter дополнительные...хм...вещи. Специально для них я сделал систему захода игрока на сервер. она соединяет два скрипта _kaa_ и baal в одно целое, кроме того в системе реализованна выдача начального пакета по класу. Все что надо изменить это вбить РесРефы вещей которые вы хотите дать игроку.
Проверка на первый заход производится с помощью проверки на наличие определенного предмета в инвенторе, то есть если этот предмет есть то скрипт останавливается на точке выдачи стартового пакета, если же этого предмета нет, то скрипт выдает игроку этот предмет:) и стартовый пакет. В моем случае этот предмет oBook, создаете предмет, копируете его ресреф и заменяете
object oBook=GetItemPossessedBy(oPC, "item004"); на свой

Вот сама система:
Neverwinter Script Source
//::///////////////////////////////////////////////
//:: module_enter
//:://////////////////////////////////////////////
/*   system OnClientEnter
*/
//:://////////////////////////////////////////////
//:: Created By: _kaa_ , Baal , Ëèòî
//:: Created On: Jan 27, 2005
//:://////////////////////////////////////////////
#include "nw_o0_itemmaker"
void main()
{
object oPC = GetEnteringObject();
object oStore = GetModule();
string sStoreName = GetName(oPC)+GetPCPlayerName(oPC); // =[PC name] + [login name]
SetLocalString(oPC,"HP_MyIdString",sStoreName); // Çàãðóçêà õèò ïîèíòîâ è ñïåëëîâ
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 < 510; k++)
{
nSpells = GetLocalArrayInt(oStore,sStoreName+"_spells",k);
if (nSpells)
  for (j=0; j <= GetHasSpell(k,oPC)-nSpells; j++) DecrementRemainingSpellUses(oPC, k);
if(GetIsDM(oPC)) //Åñëè DM, òî íå âûäàâàòü ñòàðòîâûé ïàêåò
        return;
object oBook=GetItemPossessedBy(oPC, "item004");
if(!GetIsObjectValid(oBook))  //Åñëè äîñòóïåí ïðåäìåò ñ ResRef*îì "item004",
                              //íå âûäàâàòü ñòàðòîâûé ïàêåò, åñëè íå äîñòóïåí, òî óíè÷òîæèòü âñå âåùè â èíâåíòàðå
{
  object oItem = GetFirstItemInInventory (oPC);
  while(GetIsObjectValid(oItem))
    {
    DestroyObject(oItem);
    oItem = GetNextItemInInventory (oPC);
    }
  int i=0;
  while(i<14)
    {
    DestroyObject(GetItemInSlot(i, oPC));
    i++;
    }
if(GetLevelByClass(CLASS_TYPE_FIGHTER, oPC)) //Âûäà÷à íà÷àëüíîãî ïàêåòà ïî êëàññó
    {
  GiveGoldToCreature(oPC, 500);
  CreateItemOnObject("item004", oPC); //Âûäà÷à âåùåé ïî ResRef*àì
  CreateItemOnObject("Item", oPC);
   CreateItemOnObject("Item", oPC);
    CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_BARBARIAN, oPC))
  {
    GiveGoldToCreature(oPC, 500);
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
   CreateItemOnObject("Item", oPC);
    CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_MONK, oPC))
  {
      GiveGoldToCreature(oPC, 500);
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
   CreateItemOnObject("Item", oPC);
    CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_RANGER, oPC))
  {
    CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
   CreateItemOnObject("Item", oPC);
    CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_WIZARD, oPC))
  {
      CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
   CreateItemOnObject("Item", oPC);
    CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_SORCERER, oPC))
  {
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_BARD, oPC))
  {
    CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_DRUID, oPC))
  {
      CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_BARD, oPC))
  {
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_CLERIC, oPC))
  {
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_PALADIN, oPC))
  {
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  else if(GetLevelByClass(CLASS_TYPE_ROGUE, oPC))
  {
  CreateItemOnObject("item004", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("Item", oPC);
  CreateItemOnObject("item001", oPC);
  CreateItemOnObject("item003", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  CreateItemOnObject("it_mpotion004", oPC);
  }
  }
  }
}


Кроме того чтобы скрипт нормально работал надо поставить еще один(_kaa_) на OnClientLeave
Вот и он
Neverwinter Script Source
#include "nw_o0_itemmaker"
void main()
{
object oPC = GetExitingObject();
object oStore = GetModule();
string sStoreName = GetLocalString(oPC,"HP_MyIdString");
SetLocalInt(oStore, sStoreName, GetCurrentHitPoints(oPC));
int k,nSpells;
for (k=1;k<510;k++)
{
nSpells = GetHasSpell(k,oPC);
if (nSpells)
  SetLocalArrayInt(oStore,sStoreName+"_spells",k,nSpells);
}
}


Сообщение отредактировал Lex - Mar 18 2005, 23:36
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Jan 27 2005, 22:14
Сообщение #47


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


Скрипт на смерть НПС. НПС исчезает, а на его месте появляется труп на который переносятся все вещи покойного. Сам труп исчезает через 250 секунд.

"low_plc_loot" - резреф трупа в палитре.
Neverwinter Script Source
//::Created by      Лито
//::Modificated by  Lex
void Clear(object oBag = OBJECT_SELF)
{
object oItem = GetFirstItemInInventory(oBag);
while (GetIsObjectValid(oItem))
  {
  DestroyObject(oItem);
  oItem = GetNextItemInInventory(oBag);
  }
DestroyObject(oBag,1.0);
}
void main()
{
string sTemplate = "low_plc_loot";
string sTag = GetTag(OBJECT_SELF);
location lLoc = GetLocation(OBJECT_SELF);
object oloot = CreateObject(OBJECT_TYPE_PLACEABLE, sTemplate, lLoc, TRUE, sTag);
int i = 0;
object oItem = GetFirstItemInInventory(OBJECT_SELF);
while (GetIsObjectValid(oItem))
    {
    if (GetDroppableFlag(oItem))
       CopyObject(oItem,lLoc,oloot);
    DestoyObject(oItem);
    oItem = GetNextItemInInventory(OBJECT_SELF);
    }
oItem = GetItemInSlot(i,OBJECT_SELF);
while (i<14)
    {
    if (GetDroppableFlag(oItem))
       CopyObject(oItem,lLoc,oloot);
    DestoyObject(oItem);
    i++;
    oItem = GetItemInSlot(i,OBJECT_SELF);
    }
AssignCommand(oloot,DelayCommand(250.0,Clear(oloot)));
}


Сообщение отредактировал DBColl - Mar 12 2005, 12:09
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Aiwan
сообщение Mar 13 2005, 20:25
Сообщение #48


Миловидный Бегрюссунг
Иконки Групп

Класс: Воин
Характер: Chaotic Good
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СКРИПТ ВЕДУЩИЙ ИГРОКА ЗА НПС ПО ТОЧКАМ.
Вейпов должно быть столько сколько я нарисовал, но либо меньше 10 ли бо больше чем у меня. Почему? Не знаю, неделю гонял Стинки по вейпам и он гад прыгал на некоторые из них при количестве 10, а так нет. Идет как миленький.
и расчитай скорость так, что бы НПС НЕ ЗАСТРЯЛ и не опаздал на 15 сек до точки. Иначе вы просто прыгнете на следующий вейп и диалог прервется. А так он остановится и продолжите диалог.

Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!  www.wrg.ru
//:: am_pc_stinki_go2
//:://////////////////////////////////////////////
/*
  ПЕРЕДВИЖЕНИЕ оРС ЗА НПС, СКРИПТ СТАВИТСЯ
    НА СТРОКУ В ДИАЛОГЕ oPC (!)

*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan    Aiwan@e-mail.ru
//:: Created On: 20.03.2004
//:://////////////////////////////////////////////
void main()
{
    object oPC = GetPCSpeaker();
    object oStinki = GetObjectByTag("MM_STINKI");
    object oWp01 = GetObjectByTag("WP_STINKI_01");
    object oWp02 = GetObjectByTag("WP_STINKI_02");
    object oWp03 = GetObjectByTag("WP_STINKI_03");
    object oWp04 = GetObjectByTag("WP_STINKI_04");
    object oWp05 = GetObjectByTag("WP_STINKI_05");
    object oWp06 = GetObjectByTag("WP_STINKI_06");
    object oWp07 = GetObjectByTag("WP_STINKI_07");
    object oWp08 = GetObjectByTag("WP_STINKI_08");
    object oWp09 = GetObjectByTag("WP_STINKI_09");
    object oWp10 = GetObjectByTag("WP_STINKI_10");
    object oWp11 = GetObjectByTag("WP_STINKI_11");
    object oDoor = GetObjectByTag("AM_DOOR_FLEG_NO");
    effect eHaste = EffectHaste(); // ЧТО БЫ ИГРОК НЕ ОТСТАВАЛ!

    SetLocalInt(oPC, "STINKI", 3);
    AssignCommand(oStinki, ActionPauseConversation());
    AssignCommand(oPC, ActionForceFollowObject(oStinki, 4.0f));
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHaste, oPC, 9999.0);
    AssignCommand(oStinki, ActionDoCommand(SetCommandable(FALSE, oPC)));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp02, TRUE, 4.0));
    AssignCommand(oStinki, ActionDoCommand(SetFacingPoint(GetPosition(oPC))));
    AssignCommand(oStinki, ActionDoCommand(SpeakString("Не отставай!")));
    AssignCommand(oStinki, ActionWait(1.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp03, TRUE, 4.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp04, TRUE, 4.0));
    AssignCommand(oStinki, ActionDoCommand(SetFacingPoint(GetPosition(oPC))));
    AssignCommand(oStinki, ActionDoCommand(SpeakString("Не сильно быстро?")));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp05, TRUE, 4.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oDoor, TRUE, 4.0));
    AssignCommand(oStinki, ActionDoCommand(SpeakString("Не обращай внимание, нас никто не тронет.")));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp06, TRUE, 4.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp07, TRUE, 4.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp08, TRUE, 1.0));
    AssignCommand(oStinki, ActionDoCommand(SpeakString("Мы почти пришли!")));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp09, TRUE, 1.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp10, TRUE, 1.0));
    AssignCommand(oStinki, ActionWait(2.0));
    AssignCommand(oStinki, ActionForceMoveToObject(oWp11, TRUE, 1.0));
    AssignCommand(oStinki, ActionDoCommand(SetFacingPoint(GetPosition(oPC))));
    AssignCommand(oStinki, ActionDoCommand(RemoveEffect(oPC, eHaste)));
    AssignCommand(oStinki, ActionDoCommand(SetCommandable(TRUE, oPC)));
    AssignCommand(oStinki, ActionResumeConversation());
}
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 17 2005, 11:51
Сообщение #49


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ ПРОКЛЯТИЯ ЛЕВОРА"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ LEX'А"


Цель:
сделать 2 (можно и более) НПС которые как будто между собой разговаривают.
(те, кто играл ПЛ в Тсурлаголе видели такие примеры. Особенно в тавернах.)
Реализация:
ставим 2х НПС, даем соотв. тэги и ставим между ними нивидимый объект, в ХБ которого вносим этот скрипт.

"+" - эффект диалога. Так как фразы стыкуются (вы сами их пишите так, что на вопрос дается ответ и прочее.) так как они все парные.
"-" - на каждую уникальную группу свой скрипт. Текст разговора пишется в скрипте.

Neverwinter Script Source
//::///////////////////////////////////////////////
//:: Name lm_2speakers
//:: Copyright © 2004 -=WRG!=-
//:://////////////////////////////////////////////
/*
скрипт разговора 2-х НПС. Шаблон.
*/
//:://////////////////////////////////////////////
//:: Created By: Lex
//:: Created On: Agust 2004
//:://////////////////////////////////////////////

void ANIMATION(object oD)
/// Рандомная анимация во время разговора. настраивайте сами.
    {
    int A=0;
    float T,S;
    switch (Random(8)+1)
       {
       case 2: A=ANIMATION_FIREFORGET_PAUSE_SCRATCH_HEAD;T=3.0;S=1.0;break;
       case 3: A=ANIMATION_FIREFORGET_TAUNT;T=3.0;S=1.0;break;
       case 4: A=ANIMATION_FIREFORGET_PAUSE_BORED;S=1.0;break;
       case 5: A=ANIMATION_LOOPING_LISTEN;T=5.0;S=1.0;break;
       case 6: A=ANIMATION_LOOPING_LISTEN;T=5.0;S=1.0;break;
       }
    if (A==0) return;
    AssignCommand(oD,PlayAnimation(A,S,T));
    }

void DIALOG(object oD1,object oD2)
    {
    string s1="",s2="";
    string ya = GetName(GetObjectByTag("ya")); // "+ya+"
    switch (Random(30))
         {
         case 0: s1="Как дела, друг?";s2="Да идут по маленьку..";break;
         case 1: s1="И как она? Симпатична"+ya+"?";s2="А как же! Ты мен"+ya+" обижаешь!";break;
         /// и так далее 20 фраз типа вопрос-выссказывание и ответ на это дело
         }
    AssignCommand(oD1,SpeakString(s1)); /// первый НПС говорит фразу
    AssignCommand(oD2,DelayCommand(5.0,SpeakString(s2))); /// второй отвечает
    }

void main()
{
object oPC = GetFirstPC();
if (GetArea(oPC)!=GetArea(OBJECT_SELF)) return; // если нет игрока, то молчим
object oD1 = GetNearestObjectByTag("SPEAKING_NPC_1"); // первый НПС
object oD2 = GetNearestObjectByTag("SPEAKING_NPC_1"); // второй НПС
if (GetIsInCombat(oD1)) return; // если первый НПС дерется то молчим
if (GetIsInCombat(oD2)) return; // если второй НПС дерется то молчим
if ( (IsInConversation(oD1)) || (IsInConversation(oD2)) ) return; /// если один из НПС разговаривает с игроком
if (GetDistanceToObject(oPC)>10.0) return; // если игрок далеко (больше 10 футов) то он как будто ничего не слышит.
AssignCommand(oD1,SetFacingPoint(GetPosition(oD2))); // повернуться навтречу друг другу
AssignCommand(oD2,SetFacingPoint(GetPosition(oD1)));
DIALOG(oD1,oD2);
ANIMATION(oD1);
ANIMATION(oD2);
}



================================================================================

Небольшой простенький скрипт на слот onDamage плэйсебла. (ТЭГ плэйса "DANGER")

Плэйс взрывается, если его повредить. Если у вас есть Проклятие Левора, то в пещере почти все бочки это объекты с таким скриптом. Сила взрыва растет, если рядом есть такие же объекты.
ВНИМАНИЕ: больше таких 5 рядом не ставить. Тормозит....скрипт не оптимален.
Делалася под СоУ, поэтому использованны не локалки, а поле
KeyTag. Скрипт старый и давно мной не улучшавшийся. Это вам просто для работы.
(как юзать в таком варианте KeyTaG:
ставим флаг Закрыто и Требуется ключ. Поле открывается. Теперь пишем туда что надо и снимаем флаг Закрыто.
ограничение: скрипт лучше не ставить на закрытые объекты, так как поле KeyTaG нужно для работы.)
в поле KeyTag радиус и сила взрыва: X_Y
X - сила по нижепреведенной шкале. По умолчанию 2
1 - слабый
2 - средний
3 - сильный
Y - радиус в футах. (не более 9). По умолчанию 5 футов.
подрыв объекта происходит при повреждении более чем на 30%.
Neverwinter Script Source
//::///////////////////////////////////////////////
//:: Name ******
//:: FileName lm_damage_danger
//:: Copyright © 2003 -=WRG!=-.
//:://////////////////////////////////////////////
/*
THIS SCRIPT CHECKS IF ANYBODY DAMAGED DANGER OBJECT MORE THEN 30%
THEN THE OBJECT EXPLOSE
EXPLOSION DEPENDS ON STRONG EXPLOSION RADIUS.
EXPLOSION RADIUS & STRONG ARE IN TrapKeyTag of object
*/
//:://////////////////////////////////////////////
//:: Created By: Lex
//:: Created On: October 2003
//:: Special thanks to:
//::    Baal (WRG) for advice about calculation power
//:://////////////////////////////////////////////

void DamageObject(float ExplosionRadius, int Strong, object oDamager, location lCenter)
   {
   float modifier=1.0;
   effect eAddition;
   int DamagePower=DAMAGE_POWER_PLUS_ONE;
   float fDistance = GetDistanceBetweenLocations(GetLocation(oDamager),lCenter);
   switch(Strong)
      {
      case 1: modifier=0.5;
              DamagePower=DAMAGE_POWER_NORMAL;
              eAddition = EffectFrightened();
              break;
      case 2: modifier=1.0;
              DamagePower=DAMAGE_POWER_PLUS_ONE;
              eAddition = EffectFrightened();
              break;
      case 3: modifier=1.5;
              DamagePower=DAMAGE_POWER_PLUS_TWO;
              eAddition = EffectParalyze();
              break;
      default:modifier=2.0;
              DamagePower=DAMAGE_POWER_PLUS_THREE;
              eAddition = EffectParalyze();
              break;
      }
   int iDamage = FloatToInt((ExplosionRadius*ExplosionRadius/2 - fDistance*fDistance/2)*modifier+modifier*5);
   effect eDamage = EffectDamage(iDamage,DAMAGE_TYPE_FIRE,DamagePower);
   AssignCommand(oDamager,ClearAllActions());
   AssignCommand(oDamager,DelayCommand(0.2,SetCommandable(FALSE,oDamager)));
   if (GetObjectType(oDamager)==OBJECT_TYPE_CREATURE)
       if (Random(2)==1)
           AssignCommand(oDamager,PlayAnimation(ANIMATION_LOOPING_DEAD_FRONT,0.6,2.0));
       else AssignCommand(oDamager,PlayAnimation(ANIMATION_LOOPING_DEAD_BACK,0.6,2.0));
   AssignCommand(oDamager,DelayCommand(0.8,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_HIT_FIRE),oDamager,1.0)));
   if (fDistance<=ExplosionRadius/3)
     {
     float time = modifier*ExplosionRadius/fDistance;
     AssignCommand(oDamager,DelayCommand(0.8,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eAddition,oDamager,time)));
     }
   AssignCommand(oDamager,DelayCommand(0.3,ApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oDamager)));
   AssignCommand(oDamager,DelayCommand(2.5,SetCommandable(TRUE,oDamager)));
   }
void main()
{
//========================================================
int iDamage;
float ExplosionRadius;
int Strong;
location lCenter;
int Next=TRUE;
int Filter;
int Explosion;
object oDamager;
string STR;
int Critical=0;
Filter = OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE;
lCenter = GetLocation(OBJECT_SELF);
if (GetTrapKeyTag(OBJECT_SELF)!="**")
   {
   ExplosionRadius=5.0;
   Strong=2;
   }
else if (GetTag(OBJECT_SELF)!="ITM_FIREMINE")
   {
    iDamage = GetMaxHitPoints()-GetCurrentHitPoints();
    STR = GetStringRight(GetTrapKeyTag(OBJECT_SELF),1);
    if (STR!="") ExplosionRadius = StringToFloat(STR);
    STR = GetStringLeft(GetTrapKeyTag(OBJECT_SELF),1);
    if (STR!="") Strong = StringToInt(STR);
    if ((Strong>3)||(Strong==0)) Strong=2;
    if ((ExplosionRadius>10.0)||(ExplosionRadius==0.0)) ExplosionRadius=5.0;
    if (iDamage*10 < GetMaxHitPoints()*3) return;
   }
else
   {
   ExplosionRadius = 6.5;
   Strong = 2;
   SendMessageToPC(GetFirstPC(),"MINE");
   }
Strong = GetLocalInt(OBJECT_SELF,"ADD_STRONG")+Strong;
if (Strong<3) Explosion = VFX_FNF_GAS_EXPLOSION_FIRE;
else Explosion = VFX_FNF_FIREBALL;
if ((iDamage<GetMaxHitPoints()/3)&&(GetDamageDealtByType(DAMAGE_TYPE_FIRE)==0)) return;
if (GetLocalInt(OBJECT_SELF,"ALREADY")) return;
SetLocalInt(OBJECT_SELF,"ALREADY",TRUE);
oDamager = GetFirstObjectInShape(SHAPE_SPHERE,ExplosionRadius,lCenter,TRUE,Filter);
object oPC = GetFirstPC();
DestroyObject(OBJECT_SELF);
if ((GetLocalInt(GetObjectByTag("TS_LOCALS"),"FIRECAMP_DESTROED"))&&(GetTag(GetArea(OBJECT_SELF))=="TSUR_SUB_EASTFOREST_BOMBCAVE"))
     return;
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_IMP_PULSE_FIRE),lCenter,1.5);
ApplyEffectAtLocation(DURATION_TYPE_PERMANENT,EffectVisualEffect(Explosion),lCenter);
   while (GetIsObjectValid(oDamager))
     {
     if ((GetTag(oDamager)=="DANGER")&&(!GetLocalInt(oDamager,"ALREADY"))&&(GetDistanceToObject(oDamager)<=ExplosionRadius/2))
        {
        if (Next) SetLocalInt(oDamager,"ADD_STRONG",1);
        ExplosionRadius = ExplosionRadius + 2.0;
        Critical++;
        }
     if (Critical==3)
         {
         Next=TRUE;
         }
     if (Critical==5)
         {
         Strong++;
         Critical=0;
         }
     AssignCommand(oDamager,DamageObject(ExplosionRadius,Strong,oDamager,lCenter));
     oDamager = GetNextObjectInShape(SHAPE_SPHERE,ExplosionRadius,lCenter,TRUE,Filter);
     }
}
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Aiwan
сообщение Mar 17 2005, 16:18
Сообщение #50


Миловидный Бегрюссунг
Иконки Групп

Класс: Воин
Характер: Chaotic Good
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ ПРОКЛЯТИЯ ЛЕВОРА"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ AIWAN'А"


Скрипт который позволяет при наличии надетой брони с определенным ТЕГом ходить во вражественном лагере :) Ну или где там вам надо...
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Created By: WRG! Aiwan aiwan@e-mail.ru
//:: Created On: 14.01.2004
//:://////////////////////////////////////////////
//:: Скрипт проверки брони "Железного Трона"
//::  у РС на фрегате "Отшельник"
//:://////////////////////////////////////////////
#include "NW_I0_GENERIC"

void main()
{
if (GetArea(OBJECT_SELF) != GetArea(GetFirstPC()))
       return; // Если РС нет в локации то возврат
   int nEvent = GetUserDefinedEventNumber();
   if (nEvent == 1002) // Стандартный эвент на юзердеф
   {
    object oPC = GetLastPerceived();
    object oNPC = OBJECT_SELF;
    object oArm = GetItemInSlot(INVENTORY_SLOT_CHEST, oPC); // Предмет в слоте РС "броня"
      if (GetLastPerceptionSeen() && GetIsPC(oPC))
         {
          if (GetTag(oArm) != "AM_ITM_IRONTRON" && GetLocalInt(oPC,"TRONE_ALARM") != 1)
          // Если Таг надетой брони не равен AM_ITM_IRONTRON и нет локалки тревоги
            {
             SetLocalInt(oPC, "TRONE_ALARM", 1); // Вы обнаружены и поднята тревога
             SetFacingPoint(GetPosition(oPC));
             SpeakString("А ну стой, ты что тут вынюхиваешь?!");
             AdjustReputation(oPC, oNPC, -100);
             DetermineCombatRound(oPC);
             }
            if (GetLocalInt(oNPC, "LOOK") != 1 && GetTag(oArm) == "AM_ITM_IRONTRON" &&
                GetLocalInt(oPC,"TRONE_ALARM") != 1)
             {
             SetLocalInt(oNPC, "LOOK", 1); // Ставим локалку что бы часто не болтали
             AssignCommand(oNPC, ClearAllActions());
             AssignCommand(oNPC, ActionDoCommand(SetFacingPoint(GetPosition(oPC))));
             DelayCommand(16.0f, SetLocalInt(oNPC, "LOOK", 0));
             int iRand = Random(10);
              switch (iRand)
              {
                    case 0:
                    {
                         SpeakString("Займись делом, солдат!"); break;
                    }
                    case 1:
                    {
                         SpeakString("Привет, ты новенький?"); break;
                    }
                    case 2:
                    {
                        SpeakString("Смотри, скоро прибудут боссы..."); break;
                    }
                    case 3:
                    {
                        SpeakString("Ты откуда выполз?"); break;
                    }
                    case 4:
                    {
                        SpeakString("Ты чего тут делаешь?"); break;
                    case 5:
                    {
                        SpeakString("Слушай, твои доспехи тебе не жмут?"); break;
                    case 6:
                    {
                        SpeakString("Иди на пост!"); break;
                    }
                     case 7:
                    {
                        SpeakString("Я твою рожу не помню что-то..."); break;
                    }
                     case 8:
                    {
                        SpeakString("Эй, ты свой ведь? Да?"); break;
                    }
                     AssignCommand(oNPC, ActionDoCommand(WalkWayPoints()));
               }
              }
            }
          }
        }
       }
    return;
}


Дальше, два скрипта для запуска диалога в котором участвует НПС которого вы атакуете и диалог начинается с определенного нр у НПС. Скрипты финального боя с воином в модуле 3.

Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!  www.wrg.ru
//:: Name: oud_am_warrord
//:://////////////////////////////////////////////
/*
   UserDefined - СКРИПТ ЗАПУСКА СЦЕНЫ С ДАЛЛИКОМ
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan    Aiwan@e-mail.ru
//:: Created On: 26.02.2004
//:://////////////////////////////////////////////
void main()
{
int nEvent = GetUserDefinedEventNumber();
//======================= DAMAGED EVENT 1006 ===================================
if (nEvent == 1006)
  {
   object oPC = GetFirstPC(); // Опишите своего РС как вам надо.
   object oCat = GetHenchman(oPC);
   object oWord = OBJECT_SELF;
   object oSlave1 = GetObjectByTag("AM_SKELLETON_SLAVE_01"); // Скелет - Раб 1
   object oSlave2 = GetObjectByTag("AM_SKELLETON_SLAVE_02"); // Скелет - Раб 2
   object oWPTrone = GetObjectByTag("WP_TRONE_WARRIOR");
   int iCurHP = GetCurrentHitPoints(OBJECT_SELF);
   int iMaxHP = GetMaxHitPoints(OBJECT_SELF);
   int iD;
//==============================================================================
  if (!GetIsPC(oPC) || !GetLocalInt(oPC, "DALLIK_HELP"))
    {return;}
    int Class = GetClassByPosition(1, oPC); // При разных классах надо нанести разное повреждение
    switch (Class)
      {
      case CLASS_TYPE_BARBARIAN:{iD = 200; break;}
      case CLASS_TYPE_BARD:{iD = 300; break;}
      case CLASS_TYPE_CLERIC:{iD = 250; break;}
      case CLASS_TYPE_DRUID:{iD = 300; break;}
      case CLASS_TYPE_FIGHTER:{iD = 200; break;}
      case CLASS_TYPE_MONK:{iD = 150; break;}
      case CLASS_TYPE_PALADIN:{iD = 200; break;}
      case CLASS_TYPE_RANGER:{iD = 250; break;}
      case CLASS_TYPE_ROGUE:{iD = 300; break;}
      case CLASS_TYPE_SORCERER:{iD = 300; break;}
      case CLASS_TYPE_WIZARD:{iD = 300; break;}
      }

  if (GetIsPC(oPC) && ((iMaxHP - iD) >= iCurHP) && !GetLocalInt(oWord, "DALLIK_JAMP"))
   {
   SetLocalInt(oWord, "DALLIK_JAMP", TRUE);
   AssignCommand(oPC, ClearAllActions());
   AssignCommand(oCat, ClearAllActions());
   AssignCommand(OBJECT_SELF, ClearAllActions());
   AssignCommand(oSlave1, ClearAllActions());
   AssignCommand(oSlave2, ClearAllActions());
   ExecuteScript("am_chang_fr_warr", OBJECT_SELF); // Скрипт меняет репутацию у участников боя
// DelayCommand(0.5, ExecuteScript("am_scen_warr_03", oPC));
   }
  }
}


Вот сам скрипт смены репутации:
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!  www.wrg.ru
//:: name: am_chang_fr_warr
//:://////////////////////////////////////////////
/*
     ИЗМЕНЕНИЕ ФРАКЦИИ И ПЕРСОНАЛНЫХ ОТНОШЕНИЙ
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan    Aiwan@e-mail.ru
//:: Created On: 23.03.2004
//:://////////////////////////////////////////////
void main()
{
   object oPC = GetFirstPC();
   object oHen = GetHenchman(oPC);
   object oWord = GetObjectByTag("AM_WARRIOR_HORDE"); // Воин Орды
   object oSlave1 = GetObjectByTag("AM_SKELLETON_SLAVE_01"); // Скелет - Раб 1
   object oSlave2 = GetObjectByTag("AM_SKELLETON_SLAVE_02"); // Скелет - Раб 2
   location lClose = GetLocation(GetObjectByTag("AIWAN_CLOSE_ARENA")); //Скрыт.арена Aiwan'a
   object oNeutral = GetObjectByTag("AM_TRUE_NEUTRAL"); // Нейтральный НПС с фракцией ПОФИГИСТОВ
   ChangeFaction(oWord, oNeutral);
   ChangeFaction(oSlave1, oNeutral);
   ChangeFaction(oSlave2, oNeutral);
//--------------------------------------
   ClearPersonalReputation(oSlave1, oPC);
   ClearPersonalReputation(oPC, oSlave1);
   ClearPersonalReputation(oSlave1, oHen);
   ClearPersonalReputation(oHen, oSlave1);
//--------------------------------------
   ClearPersonalReputation(oSlave2, oPC);
   ClearPersonalReputation(oPC, oSlave2);
   ClearPersonalReputation(oSlave2, oHen);
   ClearPersonalReputation(oHen, oSlave2);
//--------------------------------------
   ClearPersonalReputation(oWord, oPC);
   ClearPersonalReputation(oPC, oWord);
   ClearPersonalReputation(oWord, oHen);
   ClearPersonalReputation(oHen, oWord);
}



СКРИПТ ЗАПРЕЩАЮЩИЙ МОНСТРАМ ВЫХОДИТЬ
ИЗ ЛОКАЦИИ ВСЛЕД ЗА ИГРОКОМ
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG
//:: a0_onareaexit
//:://////////////////////////////////////////////
/*
    СКРИПТ ЗАПРЕЩАЮЩИЙ МОНСТРАМ ВЫХОДИТЬ
        ИЗ ЛОКАЦИИ ВСЛЕД ЗА ИГРОКОМ
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan    Aiwan@e-mail.ru
//:: Created On: 21.04.2004
//:://////////////////////////////////////////////
void main()
{
  object oPC = GetEnteringObject();
  object oAnimal = GetAssociate(ASSOCIATE_TYPE_ANIMALCOMPANION, oPC);
  object oDominated = GetAssociate(ASSOCIATE_TYPE_DOMINATED, oPC);
  object oFamiliar = GetAssociate(ASSOCIATE_TYPE_FAMILIAR, oPC);
  object oHenchman = GetAssociate(ASSOCIATE_TYPE_HENCHMAN, oPC);
  object oSummoned = GetAssociate(ASSOCIATE_TYPE_SUMMONED, oPC);
  object oJamp = GetTransitionTarget(OBJECT_SELF);
  //Чисто для моих земель, чтобы фамилиары не разгуливали где попало, пока их владельцы задумчиво стоят в области
  if (GetIsPC(oPC) && !GetIsPosessedFamiliar(oPC))
  {
  AssignCommand(oPC, JumpToObject(oJamp));
  AssignCommand(oAnimal, JumpToObject(oJamp));
  AssignCommand(oDominated, JumpToObject(oJamp));
  AssignCommand(oFamiliar, JumpToObject(oJamp));
  AssignCommand(oHenchman, JumpToObject(oJamp));
  AssignCommand(oSummoned, JumpToObject(oJamp));
  }
  else
  {
  //Иначе наши монстрyaшки будут задумчиво покачиваться у двери, совершенно беззащитные
  AssignCommand(oPC, ClearAllActions());
  }
}
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 18 2005, 22:42
Сообщение #51


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ MILEZ'А"

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 22 2003
Cкрипт для смерти.
Вешать на OnPlayerDying модуля.
+ скрипта в том, что он не использует хартбит.
Это бета-версия скрипта предложена as is, автор не несет ответственности за материальный и моральные ущерб, который этот скрипт может кому-то принести!
Neverwinter Script Source
void DyingTicker(object oPC)
{
   int iHP=GetCurrentHitPoints(oPC);
   if (iHP>0) {
       RemoveEffect(oPC,EffectBlindness());
       DeleteLocalInt(oPC,"DyingDC");
       DeleteLocalInt(oPC,"STvsDeathSucceed");
       return;
   }
   int iDC;
   int iDam;
   int iSuc;
   if (iHP<-9) { ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDeath(TRUE,TRUE),oPC); }
   else {
       iDam=d4();
       iDC=GetLocalInt(oPC,"DyingDC");
       if (FortitudeSave(oPC,iDC)>0) {
           iDam=iDam/2;
           iSuc=GetLocalInt(oPC,"STvsDeathSucceed")+1;
           SetLocalInt(oPC,"STvsDeathSucceed",iSuc);
           if (iSuc>2) {
               FloatingTextStringOnCreature("Кровотечение прекратилось",oPC,FALSE);
               return;
           }
       }
       AssignCommand(oPC,DelayCommand(6.0,DyingTicker(oPC)));
       ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(iDam), oPC);
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectBlindness(),oPC,6.0);
       SetLocalInt(oPC,"DyingDC",iDC+1);
   }
}

void main()
{
   object oPC=GetLastPlayerDying();
   if (!GetIsPC(oPC)) return;
   SetLocalInt(oPC,"DyingDC",15);
   SetLocalInt(oPC,"STvsDeathSucceed",0);
   FloatingTextStringOnCreature("У менz открылось кровотечение",oPC,FALSE);
   DyingTicker(oPC);
}

Смысл в том, что каждый раунд (6 сек) игрок кидает спасбросок стойкости для половинного дамаджа от 1d4, при этом DC, который надо побить, увеличивается с каждым раундом на 1 (начальное значение 15). При удачном спасбраске 2 раза подряд кровотечение прекращается.
от 0 до -9 - игрок без сознание. От -10 и меньше - смерть без спасброска.

************************************************************************************

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 24 2003

Вот температурный скрипт, полностью в соответсвии с D&D 3ed согласно разделам HEAT и COLD в DMG. Писан мной, любые совпадения в реализации с другими подобными скриптами являются чисто случайными. За общую идею создать нечто подобное спасибо ДБколлу. Подробнее об общем алгоритме работы см DMG (Температура, в отличие от DMG, приведена не в иноземных Фаренгейтах, а в старых добрых Цельсиях).
Всяческое использование, модификация, дебаггинг приветствуются! Никакой ответственности за причиненный моральный/материальный ущерб в результате работы скрипта автор не несет!

Вешать на OnEnter местности.
Neverwinter Script Source
void DealTemperatureDamage(object oPC)

{
   // Игрок без сознания
   if (GetCurrentHitPoints(oPC)<1) return;
   // Где находится игрок?
   object oArea=GetArea(oPC);
   // И какая там температура?
   int iT=GetLocalInt(oArea,"Temperature");
   // Температура комфортабельна или не установлена
   // (значение 0 рассматривается как неустановленная температура. Вместо 0 ставьте -1)
   if (((iT<=32) && (iT>=4)) || (iT==0)) return;
   // Определяем переменные
   int iDamType;
   int iDamAmount;
   int iSaveType;
   float iInterval;

   object oFire;
   int iFatigue=FALSE;
   int iFortSave;
   int i;
   effect eDam;
   // Носим тяжелую броню и/или плащ?
   int iCloth=(GetItemACValue(GetItemInSlot(INVENTORY_SLOT_CHEST,oPC))>5)
               ||GetIsObjectValid((GetItemInSlot(INVENTORY_SLOT_CLOAK,oPC)));
   // Сколько раз мы уже "стучали" по игроку?
   int iTimes=GetLocalInt(oPC,"TemperatureDamageTimer");
   int iDC=15+iTimes; // Подсчет DC
   if (iT>32) { // Жарко!
       FloatingTextStringOnCreature("Мне жарко!",oPC);
       iDamType=DAMAGE_TYPE_FIRE;
       iSaveType=SAVING_THROW_TYPE_FIRE;
       iDamAmount=d4();
       if (iCloth) iDC+=4; // -4 пенальти к спасброску аналогично +4 к DC (так как спасбросок делается встроенной функцией). При желание спасбросок можно делать вручную, но встроенная функция уж больно красиво пишет о спасброске в логах :)
       if (iT>60) { // Адская жарища!
       // 1d6 дамадж каждые 2 реальные секунды без спасброска
           eDam=EffectDamage(d6(),iDamType);
           ApplyEffectToObject(DURATION_TYPE_INSTANT,eDam,oPC);
           for (i=2;i<10;i+=2)
               AssignCommand(oPC,DelayCommand(IntToFloat(i),
               ApplyEffectToObject(DURATION_TYPE_INSTANT,eDam,oPC)));
           iFatigue=TRUE;
           iInterval=10.0;
       } else if (iT>43) { // Очччень жарко!
           iInterval=20.0;
           iFatigue=TRUE;
       } else { // Просто жарко
           iInterval=120.0;
       }
   } else if (iT<4) { // Холодно!
       // ищем костер
       oFire=GetNearestObjectByTag("ku_campfire",oPC);
       // Если рядом костер, но мы согреемся
       if ((GetIsObjectValid(oFire)) &&
           (GetDistanceBetween(oFire,oPC)<5.0)) {
           iDC=0;
           RemoveEffect(oPC,EffectSlow());
           iInterval=120.0;
       } else {
           iDamType=DAMAGE_TYPE_COLD;
           iSaveType=SAVING_THROW_TYPE_COLD;
           iDamAmount=d6();
           FloatingTextStringOnCreature("Мне холодно!",oPC);
           if (iT<-18) { // Жуткий мороз
               if (iCloth) iInterval=120.0; else iInterval=20.0;
               iFatigue=TRUE;
           } else { // Very cold
               if (iCloth) iDC=0; // Мы хорошо одеты и легкий морозец нам не страшен
               iInterval=120.0;
           }
       }
   }
   if (iDC>0){
       iFortSave=FortitudeSave(oPC,iDC,iSaveType);
       if (iFortSave==0) {
           ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDamage(iDamAmount,iDamType),oPC);
           if (iFatigue) ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectSlow(),oPC,iInterval);
       }
   }
   SetLocalInt(oPC,"TemperatureDamageTimer",iTimes+1);
   AssignCommand(oPC,DelayCommand(iInterval,DealTemperatureDamage(oPC)));
}


void main()
{
   object oPC=GetEnteringObject();
   if (GetIsObjectValid(oPC)) {
       DeleteLocalInt(oPC,"TemperatureDamageTimer");
       AssignCommand(oPC,DealTemperatureDamage(oPC));
   }
}

где
ku_campfire - "синька" костра

************************************************************************************

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 24 2003

Скрипт для "тягловых" животных. Легко переделывается для банка. Писано мной, любые совпадения с чьей-либо реализацией как в деталях так и в общем алгоритме чисто случайны. Всяческие изменения, доработки, дебаггинг приветствуются. За моральный/материальный ущерб в результате работы скрипта автор ответственности не несет!
На "тягловом" НПЦ (я использовал окса, но это может быть и хенчман, и фамильяр) в диалоге ставиться строчка наподобие "Перебрать поклажу". В Action Taken ставиться следующий скрипт:
Neverwinter Script Source
void main()
{
   object oPC=GetPCSpeaker();
   object oPackAnimal=OBJECT_SELF;
   location lLoc=GetLocation(oPC);
   object oContainer=CreateObject(OBJECT_TYPE_PLACEABLE,"inviscont",lLoc);
   object oEnum=GetFirstItemInInventory(oPackAnimal);
   SetLocalObject(oContainer,"LinkedPackAnimal",oPackAnimal);
   while (GetIsObjectValid(oEnum)) {
       CopyObject(oEnum,lLoc,oContainer);
       DestroyObject(oEnum);
       oEnum=GetNextItemInInventory(oPackAnimal);
   }
   AssignCommand(oPC,ClearAllActions());
   AssignCommand(oPC,ActionInteractObject(oContainer));
}

Создается "синька" врменного контейнера (я использовал за образец Invisible Object), на "синьке" ставяться аттрибуты Usable, Plot, Has Inventory. Имя синьки в данном случае "inviscont". В обработчик "синьки" OnClose ставиться следующий скрипт:
Neverwinter Script Source
void main()
{
   object oMaster=GetLocalObject(OBJECT_SELF,"LinkedPackAnimal");
   location lLoc=GetLocation(OBJECT_SELF);
   object oEnum=GetFirstItemInInventory();
   while (GetIsObjectValid(oEnum)) {
       CopyObject(oEnum,lLoc,oMaster);
       DestroyObject(oEnum);
       oEnum=GetNextItemInInventory();
   }
   DelayCommand(1.0,DestroyObject(OBJECT_SELF));
}


************************************************************************************

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 27 2003
Гильдия Убийц.
(с) Оригинальная идея ONYX'а.
(с) Реализация Milez'а.
Система маленько запутанна, в модуле все взаимосвязано, здесь только основные скрипты, без диалогов и прочего.
Итак, есть айтем Контракт, в св-вах добавлено Cast: Unique Power Unlim Times/Day. Имя синьки contract.
Есть айтем Голова "клиента", в св-вах Cast: Unique Power Self Only Unlim Times/Day. Имя синьки headofclient.
В OnActivateItem модуля следующая бяка:
Neverwinter Script Source
location RandomLocationFrom(location lOrigin)
{
   vector vOrigin=GetPositionFromLocation(lOrigin);
   vOrigin.x+=(Random(11)-5);
   vOrigin.y+=(Random(11)-5);
   return Location(GetAreaFromLocation(lOrigin),vOrigin,GetFacingFromLocation(lOrigin));
}

void SummonKiller(object oClient,object oMaster)
{
   location lClient=RandomLocationFrom(GetLocation(oClient));
   ApplyEffectAtLocation(DURATION_TYPE_INSTANT,
       EffectVisualEffect(VFX_FNF_SMOKE_PUFF),lClient);
   object oKiller=CreateObject(OBJECT_TYPE_CREATURE,"gypsy007",lClient);
   SetLocalObject(oKiller,"MyClient",oClient);
   SetLocalString(oKiller,"MyClientName",GetName(oClient));
   SetLocalString(oKiller,"MyClientTag",GetTag(oClient));
   SetLocalObject(oKiller,"MyMaster",oMaster);
  & nbsp;DelayCommand(IntToFloat(Random(51)+50),AssignCommand(oKiller,ActionAttack(o
Client)));
}

void SummonKillers(object oClient,object oMaster,int iNumKillers)
{
   int i;
   for (i=1;i<=iNumKillers;i++) {
       SummonKiller(oClient,oMaster);
   }
}

void main()
{
   object oOwner=GetItemActivator();
   if (!GetIsPC(oOwner)) return;
   object oSource=GetItemActivated();
   object oTarget=GetItemActivatedTarget();
   string sSourTag=GetTag(oSource);
   if (sSourTag=="contract") {
       int iNumOfKillers=GetLocalInt(oSource,"NumberOfKillers");
       if (iNumOfKillers<1) {
           DestroyObject(oSource);
       } else
       if ((GetObjectType(oTarget)==OBJECT_TYPE_CREATURE) && (!GetIsDM(oTarget)) && (!GetPlotFlag(oTarget)))
      {
           FloatingTextStringOnCreature("The murder have been assigned!",oOwner,FALSE);
           DelayCommand(IntToFloat(Random(51)+50),
               SummonKillers(oTarget,oOwner,iNumOfKillers));
           DestroyObject(oSource);
       } else {
           FloatingTextStringOnCreature("The murder can't be assigned to an item, DM or plot character!",oOwner,FALSE);
       }
   } else if (sSourTag=="headofclient") {
       FloatingTextStringOnCreature("This is the head of "+
           GetLocalString(oSource,"Client"),oOwner,FALSE);

   }
}

Персонажи:
Наемник (типа главарь). В его диалоге уставливается кол-во убийц для задания, забираются деньги у игрока,
дается контракт (CreateItemOnObject("contract",oPC)).
Кол-во убийц-исполнителей должно писаться на контракте (SetLocalInt(oContract,"NumberOfKillers",xxx))
Убийца. Собственно исполнитель. Имя синьки "gypsy007". В OnHeartbeat убийцы такая бяка:
Neverwinter Script Source
void main()
{
   object oClient=GetLocalObject(OBJECT_SELF,"MyClient");
   object oMaster=GetLocalObject(OBJECT_SELF,"MyMaster");
   object oMessenger;
   string sNotifyVar;
   if ((!GetIsObjectValid(oClient)) || GetIsDead(oClient)) {
       if (GetIsObjectValid(oMaster)) {
           sNotifyVar="Notified"+GetLocalString(OBJECT_SELF,"MyClientTag");
           if (GetLocalInt(oMaster,sNotifyVar)!=TRUE) {
               oMessenger=CreateObject(OBJECT_TYPE_CREATURE,"halfmerc002",
                   GetLocation(oMaster),TRUE);
               SetLocalObject(oMessenger,"MyMaster",oMaster);
               SetLocalString(oMessenger,"MyClient",GetLocalString(OBJECT_SELF,"MyClientName"));
               SetLocalString(oMessenger,"NotifyVar",sNotifyVar);
               SetLocalInt(oMaster,sNotifyVar,TRUE);
           }
       }
       DestroyObject(OBJECT_SELF);
   }
}

Вестник Гильдии Убийц. После исполнения задания доставляет заказчику голову жертвы. Имя синьки "halfmerc002".
Диалог длинный, хитрый и может быть любым. Основной скрипт который должен быть для отдавания головы жертвы следующий:
Neverwinter Script Source
void main()
{
   object oPC=GetPCSpeaker();
   object oHead=CreateItemOnObject("headofclient",oPC);
   SetLocalString(oHead,"Client",GetLocalString(OBJECT_SELF,"MyClient"));
   SetLocalObject(oHead,"Master",oPC);
   DeleteLocalInt(oPC,GetLocalString(OBJECT_SELF,"NotifyVar"));
}

Работа скрипта: игрок говорит с Наемником и просит его убрать какого-либо игрока/неписю.
Наемник спрашивает сколько посылать убийц и в зависимости от их кол-ва устанавливает цену,
если игрок согласен и у него хватает денег, то игроку дается контракт и забираются деньги.
Потом контракт используется на том неписе/игроке которого надо "убрать", после чего через 50-100 секунд
(DelayCommand(IntToFloat(Random(51)+50),... Впрочем это можно регулировать) около "клиента" материализуется энное кол-во убийц. Они атакуют жертву (убийцы у меня в спец. фракции Killer, которая нейтральна ко всем, так что атакуют они только намеченную жертву, но это можно менять) и если жертва успешно убивается, то к заказчику направляется гонец (если жертва выживает, то значит убийцы умирают и посылать гонца некому) и убийцы бесследно смываются с места преступления. Игрок говорит с посыльным и получает голову "клиента". Если использовать эту голову, то игроку-заказчику напишет чья это голова.
Вот и все.

************************************************************************************

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 14 2003
Это система отдыха в моем модуле (модуль пока еще не вышел из стадии первичной разработки поэтому о нем пока ни гу-гу).
Навеяно системой отдыха из Axistown'а но полностью писано мной

kel_rest
Neverwinter Script Source
void DestroyFirecamp(object oCampFire=OBJECT_SELF)
{
// Создаем обгорелое пятно на месте костра и гасим костер
   object oLandMark=CreateObject(OBJECT_TYPE_PLACEABLE,"plc_weathmark",GetLocation(oCampFire));
// Пятно исчезает через 120 секунд (2 реальных минуты, 1 игровой час). Менять по вкусу
   AssignCommand(oLandMark,DelayCommand(120.0,DestroyObject(oLandMark)));
   DestroyObject(oCampFire);
}

void ApplyRestEffect(object oTarget=OBJECT_SELF)
{
// Создаем эффекты сна. Функцию править по вкусу.
   effect eSleep=EffectBlindness();

   if (GetRacialType(oTarget)==RACIAL_TYPE_ELF)
   {
// Эльфы не спят, а впадают в транс (см. описание эльфов в D&D 3ed)
       if (GetGender(oTarget)==GENDER_FEMALE)
           FloatingTextStringOnCreature("Я вошла в транс",oTarget,FALSE);
       else
           FloatingTextStringOnCreature("Я вошел в транс",oTarget,FALSE);
   } else

       eSleep=EffectLinkEffects(eSleep,EffectVisualEffect(VFX_IMP_SLEEP));
// Эффект сна на 30 секунд. Менять по желанию.
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eSleep,oTarget,30.0);
}

object FindFood(object oTarget=OBJECT_SELF)
{
   object oEnum=GetFirstItemInInventory(oTarget);
   while (GetIsObjectValid(oEnum) && (GetTag(oEnum)!="KEL_FOOD"))
       oEnum=GetNextItemInInventory(oTarget);
   return oEnum;
}


ku_makecamp (вешать на OnUsed дров)
Neverwinter Script Source
#include "kel_rest"

void main()
{
   object oPC=GetLastUsedBy();
   if (!GetIsPC(oPC)) return;
   object oTorch=GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC);
   if (GetIsObjectValid(oTorch) &&
          (GetTag(oTorch) == "NW_IT_TORCH001") &&
// Флаг, висящий на области (например в таверне) и позволяющий отдыхать бесплатно
          (GetLocalInt(GetArea(oPC),"NoCampArea") != TRUE)) {
       object oFire=CreateObject(OBJECT_TYPE_PLACEABLE,"ku_campfire",GetLocation(OBJECT_SELF));
       DestroyObject(OBJECT_SELF);
// Огонь гаснет через 900 секунд (15 реальных минут или 7,5 игровых часов)
// Менять по желаю
       AssignCommand(oFire,DelayCommand(900.0,DestroyFirecamp(oFire)));
   } else {
       CreateItemOnObject("kel_wood",oPC);
       DestroyObject(OBJECT_SELF);
   }
}


kua_dropwood (вешать OnUnAquiredItem модуля)
Neverwinter Script Source
void main()
{
   object oPC=GetModuleItemLostBy();
   if (!GetIsPC(oPC)) return;
   object oItem=GetModuleItemLost();
   if (!GetIsObjectValid(oItem)) return;
   string sResRef=GetTag(oItem);
   if (sResRef=="KEL_WOOD")
   {
// Пропатчено by Milez on 14/05/2003, по намекам некоего Guest
       if (GetIsObjectValid(GetAreaFromLocation(GetLocation(oItem)))) {
           CreateObject(OBJECT_TYPE_PLACEABLE,"ku_woodpile",GetLocation(oItem));
           DestroyObject(oItem);
       }
   }
}


kr_resteffect (вешать на OnRested модуля)
Neverwinter Script Source
#include "kel_rest"
void main()
{
   object oPC=GetLastPCRested();
   if (GetCurrentAction(oPC)!=ACTION_REST) return;
   int iFreeRest=GetLocalInt(GetArea(oPC),"FreeRestArea");
   if (iFreeRest) ApplyRestEffect(oPC);
   else {
       object oCampFire=GetNearestObjectByTag("ku_campfire",oPC);
// нельзя отдыхать дальше 3 метров от костра (расстояние менять по вкусу)
       if (GetIsObjectValid(oCampFire) && (GetDistanceBetween(oPC,oCampFire)<=3.0)) {
           object oFood=FindFood(oPC);
           if (GetIsObjectValid(oFood)) {
               DestroyObject(oFood);
               ApplyRestEffect(oPC);
           } else {
               FloatingTextStringOnCreature("Мне надо перекусить",oPC,FALSE);
               AssignCommand(oPC,ClearAllActions());
           }
       } else {
           FloatingTextStringOnCreature("Я не могу отдыхать далеко от костра",oPC,FALSE);
           AssignCommand(oPC,ClearAllActions());
       }
   }
}


khb_cfire_sfx (на OnHeartbeat костра, исключительно для красоты, можно не использовать в целях повышения скорости работы кода)
Neverwinter Script Source
void main()
{
   PlaySound("al_cv_firecamp1");
}



Используемые "синьки":
KEL_WOOD - дрова как айтем в инвентаре
ku_woodpile - горка дров как плэйсабл айтем на земле
ku_campfire - сам костер
KEL_FOOD - еда

************************************************************************************


Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
May 29 2003
"Приведем НВН в соответствие с АДиД". На повестке дня скрипт для ветра. Ниже базовый инклуд. Основная функция - ApplyWindEffect.
Параметры:
int iWindForce - сила ветра: 0 - Light wind; 1 - Moderate wind; 2 - Strong wind; 3 - Severe wind; 4 - Windstorm; 5 - Hurricane force wind; 6 - Tornado.
Neverwinter Script Source
float fWindDirection
- направление ветра, угол.
Neverwinter Script Source
object oTarget
- на кого "подуть"
Рекомендуется использовать в Heartbeat'е, перебирая всех игроков, так как по АДиД эти проверки должны проходить каждый раунд. Реально в хартбите использовать можно например так:
Neverwinter Script Source
void main()
{
   object oPC=GetFirstPC();
   while (GetIsObjectValid(oPC)) {
       ApplyWindEffect(4,45.0,oPC);
       oPC=GetNextPC();
   }
}

Работает в соответствии с соответствующим разделом DMG.
Ниже собственно сам инклуд.
Neverwinter Script Source
vector BlowAwayTo(vector vOrigin,float fAngle,float fRange)
{
   float dx=fRange*cos(fAngle);
   float dy=fRange*sin(fAngle);
   return Vector(vOrigin.x+dx,vOrigin.y+dy,vOrigin.z);
}

// "Сдувание". Сбивание с ног + отбрасывание на 1d4*10 футов с 1d4 дамаджа на каждые 10 футов.
void ApplyBlowAwayEffect(float fWindDirection,object oTarget=OBJECT_SELF)
{
   int iRange=d4();
   int iDam=d4(iRange);
   iRange *= 10;
   float fRange=FeetToMeters(IntToFloat(iRange));
   vector vNewPos=BlowAwayTo(GetPosition(oTarget),fWindDirection,fRange);
   AssignCommand(oTarget,ClearAllActions(TRUE));
   AssignCommand(oTarget,JumpToLocation(Location(GetArea(oTarget),vNewPos,GetFacin
g(oTarget))));
   AssignCommand(oTarget,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,6.0));
   ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDamage(iDam),oTarget);
   PrintVector(vNewPos,TRUE);
}

void ApplyWindEffect(int iWindForce,float fWindDirection,object oTarget=OBJECT_SELF)
{
if (iWindForce<1) return;
object oTorch=GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oTarget);

if (GetBaseItemType(oTorch)==BASE_ITEM_TORCH) {
   if (iWindForce==1) { // Moderate wind имеет 50% шанс погасить незащищенный огонь (факел)
       if (d2()==1) ActionUnequipItem(oTorch);
       return;
   } else { ActionUnequipItem(oTorch); } // Stronger winds extinguish fire at 100%
} else if (iWindForce==1) return; // If there's no lit torch moderate wind doesn't do any effect

int iCreatureSize=GetCreatureSize(oTarget);
// Так как мы будем накладывать пенальти на удаленные атаки, мы вызнаем, держит ли чар метательное/стреляющее оружие
int iWpnType=GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oTarget));
int iFeet;
vector vVec;
int bRangeWpn=FALSE;

if (iWpnType!=BASE_ITEM_INVALID) {
   bRangeWpn=(iWpnType==BASE_ITEM_DART)||
             (iWpnType==BASE_ITEM_HEAVYCROSSBOW)||
             (iWpnType==BASE_ITEM_LIGHTCROSSBOW)||
             (iWpnType==BASE_ITEM_LONGBOW)||
             (iWpnType==BASE_ITEM_SHORTBOW)||
             (iWpnType==BASE_ITEM_SHURIKEN)||
             (iWpnType==BASE_ITEM_SLING)||
             (iWpnType==BASE_ITEM_THROWINGAXE);
}

switch (iWindForce) {
case 2: // Strong wind
   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(2),oTarget,6.0);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,2),oTarget,6.0);

   if (iCreatureSize==1) // оч. маленькое существо (Tiny)
       if (FortitudeSave(oTarget,10)==0)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,3.0);
break;
case 3: // Severe wind
   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(4),oTarget,6.0);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,4),oTarget,6.0);

   if (iCreatureSize<4)
   if (FortitudeSave(oTarget,15)==0)
   switch (iCreatureSize) {
   case 3: // Среднее существо (Medium).
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectEntangle(),oTarget,6.0);
   break;
   case 2: // Маленькое сущ-во (Small)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,6.0);
   break;
   case 1:
       ApplyBlowAwayEffect(fWindDirection,oTarget);
   }
break;
case 4: // Windstorm
   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(50),oTarget,6.0);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,8),oTarget,6.0);

   if (iCreatureSize<6)
   if (FortitudeSave(oTarget,18)==0)
   switch (iCreatureSize) {
   case 3:
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,6.0);
   break;
   case 4: // Большое (Large)
   case 5: // или огромное сущ-во (Huge)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectEntangle(),oTarget,6.0);
   break;
   case 2:
   case 1:
       ApplyBlowAwayEffect(fWindDirection,oTarget);
   break;
   }
break;
case 5: // Hurricane force wind
   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(50),oTarget,6.0);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,50),oTarget,6.0);

   if (iCreatureSize<6)
   if (FortitudeSave(oTarget,20)==0)
   switch (iCreatureSize) {
   case 3:
   case 2:
   case 1:
       ApplyBlowAwayEffect(fWindDirection,oTarget);
   break;
   case 4:
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,6.0);
   break;
   case 5:
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectEntangle(),oTarget,6.0);
   break;
   }
break;
case 6: // Tornado (WOW!)
   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(50),oTarget,6.0);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,50),oTarget,6.0);
   if ((iCreatureSize==5) && (FortitudeSave(oTarget,30)==0))
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectKnockdown(),oTarget,6.0);
   else { // Торнадо особый случай. Он не сбивает с ног, а засасывает на 1d10 раундов, давая 6d6 дамаджа за раунд
       iFeet=GetLocalInt(oTarget,"IsInTornado");
       if (iFeet<1)
           if (FortitudeSave(oTarget,30)==0) iFeet=d10();
       if (iFeet>0) {
           iFeet-=1;
// По АДиД жерло торнадо движется с линейной скоростью 30 миль в час.
// В пересчете на реальные для НВН значения получаются астрономические цифры, кроме того летание
// в НВН нормально не сделаешь, поэтому я предположил что торнадо каждый раунд кидает чара в случайное
// место в радиусе 10 метров от текущего местоположения. Садисты это значение могут увеличить
           vVec=GetPosition(oTarget);
           vVec.x+=Random(21)-10;
           vVec.y+=Random(21)-10;
           AssignCommand(oTarget,ClearAllActions(TRUE));
           AssignCommand(oTarget,JumpToLocation(Location(GetArea(oTarget),vVec,GetFacing(o
Target))));
           AssignCommand(oTarget,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
               EffectKnockdown(),oTarget,6.0));
           ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDamage(d6(6)),oTarget);
       }
       SetLocalInt(oTarget,"IsInTornado",iFeet);
   }
break;
}
}

Кроме того сила ветра 3 (Severe wind) соответствует спеллу Gust of Wind, так что кому не в терпеж ждать этого спелла в SoU можете заюзать этот скрипт для создание этого спелла вручную
Смотреть spells.2da, там прописаны данные по спеллам, включая скрипты, эти спеллы реализующие.

************************************************************************************


Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
Jun 8 2003
Как и обещал, скрипт для осадков. Прошу прощения за такую задержку: только начались экзамены, просто не было времени. Писано как всегда мной, теперь уже по готовому шаблону (см. ветер, кстати, этот шаблон очень удобно использовать во многих случаях, может кому пригодиться). Ниже только функция, использовать можно так же, как скрипт на ветер.
Все сделано по DMG AD&D 3ed.
Neverwinter Script Source
int PRECIPITATION_RAIN=1;
int PRECIPITATION_SNOW=2;
int PRECIPITATION_SLEET=3;
int PRECIPITATION_HAIL=4;

void ApplyPrecipitationEffect(int iPrecType,object oTarget=OBJECT_SELF)
{
object oTorch=GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oTarget);
if (GetBaseItemType(oTorch)==BASE_ITEM_TORCH) ActionUnequipItem(oTorch);
int iWpnType=GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oTarget));
int bRangeWpn=FALSE;

if (iWpnType!=BASE_ITEM_INVALID) {
   bRangeWpn=(iWpnType==BASE_ITEM_DART)||
             (iWpnType==BASE_ITEM_HEAVYCROSSBOW)||
             (iWpnType==BASE_ITEM_LIGHTCROSSBOW)||
             (iWpnType==BASE_ITEM_LONGBOW)||
             (iWpnType==BASE_ITEM_SHORTBOW)||
             (iWpnType==BASE_ITEM_SHURIKEN)||
             (iWpnType==BASE_ITEM_SLING)||
             (iWpnType==BASE_ITEM_THROWINGAXE);
}

switch(iPrecType) {
case 3: //PRECIPITATION_SLEET - морось
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectMovementSpeedDecrease(50),oTarget,7.0);
case 1: //PRECIPITATION_RAIN - дождь
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_SPOT,4),oTarget,7.0);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_SEARCH,4),oTarget,7.0);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,4),oTarget,7.0);

   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(4),oTarget,7.0);
break;
case 2: //PRECIPITATION_SNOW - снег
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectMovementSpeedDecrease(50),oTarget,7.0);

   if (bRangeWpn)
       ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
       EffectAttackDecrease(4),oTarget,7.0);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_SPOT,4),oTarget,7.0);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_SEARCH,4),oTarget,7.0);
break;
case 4: //PRECIPITATION_HAIL - град
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectMovementSpeedDecrease(50),oTarget,7.0);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
   EffectSkillDecrease(SKILL_LISTEN,4),oTarget,7.0);

   if (d100()<=5) {
       ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDamage(1,DAMAGE_TYPE_BLUDGEONIN
G),oTarget);
       SendMessageToPC(oTarget,"Здороваz градина внезапно стукнула тебz по голове.");
   }
break;
}
}

Это предпоследний скрипт из цикла скриптов, реализующих окружающую среду по АДиД. Последним будет скрипт для штормов, но там уже в принципе все просто: это в основном смесь осадков и ветра.

************************************************************************************
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 18 2005, 23:50
Сообщение #52


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ MILEZ'А"

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
Jun 29 2003
Еще один спавн. Фишка в том, что респавн существ основан на вероятностом законе, а не на времени, через которое спавн должен происходить. Может кому пригодиться.
Основной скрипт на Heartbeat плейсабла, играющего роль спавна:
Neverwinter Script Source
void main()
{
   object oSelf=OBJECT_SELF;
   object oPC=GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR,PLAYER_CHAR_IS_PC);
   if (!GetIsObjectValid(oPC)) return;
   float fActDist=IntToFloat(GetMaxHitPoints()); // расстоЯние, на к-ом должен поЯвитьсЯ игрок от спавна, чтобы тот заработал
   if (GetDistanceBetween(oPC,oSelf)>fActDist) return;
   int iSpawnDist=GetReflexSavingThrow(oSelf); // макс. расст-ие, на к-ом будут поЯвлЯться сущ-ва
   int iSpawnChance=GetWillSavingThrow(oSelf); // вероЯтность поЯвлениЯ существа, %
   int iMaxSpawn=GetFortitudeSavingThrow(oSelf); // макс. кол-во сущ-в, поддерживаемых спавном
   int iSpawned=GetLocalInt(oSelf,"SpawnedCreatures");
   object oMonster;
   string sMonster;
   float fSpawnAngle;
   float fSpawnDist;
   vector vSpawnPlace;
   location lSpawnLoc;
   if (iSpawned<iMaxSpawn) {
       if (d100()<=iSpawnChance) {
           iSpawned++;
           fSpawnDist=IntToFloat(Random(iSpawnDist)+1);
           fSpawnAngle=IntToFloat(Random(360));
           vSpawnPlace=GetPosition(oSelf);
           vSpawnPlace.x+=fSpawnDist*cos(fSpawnAngle);
           vSpawnPlace.y+=fSpawnDist*sin(fSpawnAngle);
           lSpawnLoc=Location(GetArea(oSelf),vSpawnPlace,IntToFloat(Random(360)));
// Здесь вставьте подобным образом список сущ-в, которые будут спавнитьсЯ
           switch (Random(2)) {
           case 0:
               sMonster="nw_skeleton";
           break;
           case 1:
               sMonster="nw_zombie01";
           break;
           }
           oMonster=CreateObject(OBJECT_TYPE_CREATURE,sMonster,lSpawnLoc);
           SetLocalObject(oMonster,"MySpawner",oSelf);
           SetLocalObject(oSelf,"LastMonsterSpawned",oMonster);
       }
   }
   SetLocalInt(oSelf,"SpawnedCreatures",iSpawned);
}


В OnUserDefined стандартного скрипта nw_c2_defaultd добавим обработчик на событие 1007 (смерть), для регистрации смерти существа на мастер-спавне:
Neverwinter Script Source
...
object oSpawnPoint;
switch(iEvent) {
...
case 1007:
       oSpawnPoint=GetLocalObject(OBJECT_SELF,"MySpawner");
       if (GetIsObjectValid(oSpawnPoint)) {
           SetLocalInt(oSpawnPoint,"SpawnedCreatures",GetLocalInt(oSpawnPoint,"SpawnedCreatures")-1);
       }
   break;
...
}


Модификации возможны самые разные. Можно добавить флаг на макс. спавн, чтобы спавн работал только 1 раз, можно внести ограничения по времени. Короче, делайте что хотите
Настраивается спавн до обидног просто:
с св-вах плейсабла-спавна (я использовал невидимый объект) ставите:
Max Hit Points - расстояние, на котором должен появиться игрок, чтобы спавн заработал.
Reflex Save - макс. расст-ие от спавна, на котором будут создаваться сущ-ва.
Fortitude Save - макс. кол-во существ, к-ое будет поддерживаться спавном.
Will Save - вероятность того, что существо будет создано при каждом данном вызове скрипта, в процентах (100 - существа будут спавниться всегда, 0 - спавн отключен. 100 используйте очень осторожно: спавн будет постоянно поддерживать популяцию монстров, игрок просто может не успеть всех прибить!)

************************************************************************************

Автор:::::::::::::::::Milez::::::::::::::::::::::::::::::
Feb 24 2004
Ээээх, давно я тут не писал. Времени скриптовать не было. И вот жизнь подладилась, вышла ХотУ и... Сбылась мечта идиота! Я наконец-то смог сделать нормального призрака!
Вот функция:
Neverwinter Script Source
void SetGhostState(object oPC)
{
   // polymorph, so we can't equip/use things, cast spells etc.
   effect eGhost = EffectPolymorph(POLYMORPH_TYPE_SPECTRE,TRUE);
   // this way we can pass thru other mobs
   eGhost = EffectLinkEffects(EffectCutsceneGhost(),eGhost);
   // ghosts are invisible, you know
   eGhost = EffectLinkEffects(EffectInvisibility(INVISIBILITY_TYPE_DARKNESS),eGhost);
   // ghosts can't attack as well
   eGhost = EffectLinkEffects(EffectDazed(),eGhost);
   // others can't detect ghosts, no way!
   eGhost = EffectLinkEffects(EffectEthereal(),eGhost);
   // these effects can't be dispelled, as well as they can't be removed by rest
   eGhost = SupernaturalEffect(eGhost);

   ApplyEffectToObject(DURATION_TYPE_PERMANENT,eGhost,oPC);
   SetPlotFlag(oPC,TRUE); // ghosts are invincible
   SetLocalInt(oPC,"IAmAGhost",1);
}

Ставим ее на OnDeath, а скрипт ресурректа правим так, чтобы, будучи скастованным на чара, проверял соотв-ую лок. переменную и, если надо, "оживлял" чара, скидывая эффкты.

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ MILEZ'А" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 01:06
Сообщение #53


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ _kaa_"

Автор:::::::::::::::::_kaa_::::::::::::::::::::::::::::::
Feb 24 2004
По поводу защиты чаров от хака. Вот простая реализация, привязывает конкретный аккаунт и имя персонажа к СД-КЕЮ. Есть возможность ДМ-ом отключить защиту на некоторое время (например сменили СД-КЕЙ и не могут попасть на шард)
Все ключи хранятся в базе данных на сервере.
Neverwinter Script Source
void main()
{
object oPC = GetEnteringObject();
string sCDKEY = GetPCPublicCDKey(oPC);
string sName = GetName(oPC);
string sPCName = GetPCPlayerName(oPC);
//Зачем нужны скобки (или вообще любые символы) - думайте сами.
string sID = "("+sPCName+")"+sName;
int SecurityDisabled = GetLocalInt(GetModule(),"SecurityDisable");
//if (GetIsDM(oPC)) return;
WriteTimestampedLogEntry("Security: "+sName+" :["+sPCName+"]: with key ="+sCDKEY);
string sReadID = GetCampaignString("Security",sID);
// ЕСЛИ НОВЫЙ ИЛИ ПРОВЕРКА ОТКЛЮЧЕНА - ПЕРЕЗАПИСЫВАТЬ КЛЮЧИ
if (sReadID =="" || SecurityDisabled)
   SetCampaignString("Security",sID,sCDKEY);
if (sReadID != sCDKEY && sReadID !="" && !SecurityDisabled)
   {
    BootPC(oPC);
    SendMessageToAllDMs("Security: Error! "+sName+" :["+sPCName+"]: with key ="+sCDKEY+ " != "+sReadID);
    WriteTimestampedLogEntry("Security: Error! "+sName+" :["+sPCName+"]: with key ="+sCDKEY+ " != "+sReadID);
   }
else
   WriteTimestampedLogEntry("Security: Check ok.");
}

Чтобы отключить на время защиту - из ДМ-клиента в консоли набираете:
dm_setmodulevarint SecurityDisable 1
включить обратно :
dm_setmodulevarint SecurityDisable 0

************************************************************************************

Автор:::::::::::::::::_kaa_::::::::::::::::::::::::::::::
Oct 3 2003
Скрипт для магазинов. Проверяет наличие такого товара в магазине, если уже есть - то после продажи удаляет. Нужен на шардах, где мазагины со временем забиваются ловушками, камнями и т.п. - при наличии более 10 страниц ассортимента в магазине начинаются заметные торможения сервера, проверенно.
Только одно требования к самим магазинам. В теге должно содержаться слово "_SHOP" (//Иначе нельзя узнать, магазин это или нет). - Вру ведь и никто не видит %)
Есть функция узнать тип объекта GetObjectType();
Вызывать из события модуля OnUnAcquireItem
Проще всего добавить в уже существующий обработчки строку:
ExecuteScript("at_check_dupe",OBJECT_SELF);

Сам скрипт:
at_check_dupe
Neverwinter Script Source
void main()
{
object oLostItem = GetModuleItemLost();
object oLostBy = GetModuleItemLostBy();
object oNewPosessor = GetItemPossessor(oLostItem);

if (FindSubString(GetStringUpperCase(GetTag(oNewPosessor)),"_SHOP"))
   {
    int n = 0;
    object oItem = GetFirstItemInInventory(oNewPosessor);
    while (GetIsObjectValid(oItem))
        {
          if (GetTag(oLostItem) == GetTag(oItem)) n++;
          if (n>1)
               {
                 DestroyObject(oLostItem);
                 break;
               }
          oItem = GetNextItemInInventory(oNewPosessor);
        }
   }
}


************************************************************************************

Автор:::::::::::::::::_kaa_::::::::::::::::::::::::::::::
Jan 30 2004
Из нового.
Реализация кольца духа - при надевании игрок становится полупрозрачным и может проходить сквозь других игроков. При снятии - эффект пропадает.
При желании можно добавить и неузвимость (не стал делать, ибо нефиг).
Для эффекта рекомендую добавить DayToNight() при надевании и наоборот.
на событие модуля onPlayerEquipItem()
Neverwinter Script Source
void main()
{
object oPC = GetPCItemLastEquippedBy();
object oItem = GetPCItemLastEquipped();
if (GetTag(oItem) == "mg_it_ringghost")
   {
   effect E = EffectCutsceneGhost();
   E = EffectLinkEffects(EffectEthereal(),E);
   ApplyEffectToObject(DURATION_TYPE_PERMANENT,E,oPC);
   }
}
[/nss

на onPlayerUnEquipItem()
[nss] 
void FindAndRemoveGhostEffect(object O)
{
effect e = GetFirstEffect(O);
while (GetIsEffectValid(e))
   {
   if (GetEffectType(e) == EFFECT_TYPE_CUTSCENEGHOST)
       RemoveEffect(O,e);
   if (GetEffectType(e) == EFFECT_TYPE_ETHEREAL)
       RemoveEffect(O,e);
   e = GetNextEffect(O);
   }
void main()
{
object oPC = GetPCItemLastUnequippedBy();
object oItem = GetPCItemLastUnequipped();
// кольцо духа
if (GetTag(oItem) == "mg_it_ringghost")
   {
   FindAndRemoveGhostEffect(oPC);
   }

где mg_it_ringghost - тег кольца.
написанно вчера для Мидгарда.

************************************************************************************

Автор:::::::::::::::::_kaa_::::::::::::::::::::::::::::::
Mar 25 2004
Расцветка сообщений, выводимых SendMessageToPC()
Работает все примерно так: есть тег <cRGB> и парный ему </c>
RGB - это три символа, ascii код каждого - это значение соответствующей цветовой компоненты.
Посколько многие символы нельзя использовать в скиптах, я взял " " (пробел) (32) и букву "ю" (254) как минимум и максимум.
После использования тега раскраски - закрывайте тег в помощью s_end()
Мне было достаточно 4 цветов, вот самый простейший код:
Neverwinter Script Source
string s_green() 
{     
return "<c ю >"; 
}   
string s_blue()
{     
return "<c  ю>"; 
}   
string s_red() 
{     
return "<cю  >"; 
}   
string s_white() 
{     
return "<cююю>"; 
} 
string s_end() 
{     
return "</c>"; 
}


Вроде можно и в диалогах через SetCustomToken

************************************************************************************

Автор:::::::::::::::::_kaa_::::::::::::::::::::::::::::::
Mar 26 204
Простейшая реализация двумерного массива (очень полезен при кэширование .2da таблиц).
Ограничение - размерность, поставил 0..999

Neverwinter Script Source
//Add string S to array O[X,Y]
void _arr_SetStringXY(object O, int X,int Y,string S,string Prefix="_arr");
//Get string S from array O[X,Y]
string _arr_GetStringXY(object O, int X,int Y,string Prefix="_arr");
string _arr_AddNull(int I)
{
   string result = "";
   if (I<10) result+="0";
   if (I<100) result+="0";
   result += IntToString(I);
   return result;
}

void _arr_SetStringXY(object O, int X,int Y,string S,string Prefix="_arr")
{
   SetLocalString(O,Prefix+_arr_AddNull(X)+_arr_AddNull(Y),S);
}

string _arr_GetStringXY(object O, int X,int Y,string Prefix="_arr")
{
   return GetLocalString(O,Prefix+_arr_AddNull(X)+_arr_AddNull(Y));
}


ps. Многие не знают, поэтому добавлю:
Если вы описываете кроме самой функции ее прототип - это дает вам а) право использовать функцию в рекурсивных вызовах б) при дабл клике на функции выдаст описание этой функции (все то, что выше прототипа)

************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ _kaa_" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 13:56
Сообщение #54


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ DBCOLL'A"

автор::::::::::::DBColl::::::::::::::::::::
May 7 2003
скрипт на первое использование рычага отпирает и открывает дверь, на второе закрывает и захлопывает ее и тд.
На "OnUsed" рычага
Neverwinter Script Source
void main()
{
object oDoor=GetNearestObjectByTag("ТЭГ_ДВЕРИ");
if(GetIsOpen(oDoor)) // если она открыта
   {
    AssignCommand(OBJECT_SELF,ActionCloseDoor(oDoor));
    // захлопнуть дверь. действие привязанно к рычагу.
    SetLocked(oDoor,TRUE); // запереть дверь
    ActionPlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE);
    // рычаг переходит в другое положение
    }
else if(!GetIsOpen(oDoor)) //иначе, если дверь не открыта
    {
    SetLocked(oDoor,FALSE);// отпереть дверь
    AssignCommand(OBJECT_SELF,ActionOpenDoor(oDoor));
    // открыть дверь.
    ActionPlayAnimation(ANIMATION_PLACEABLE_ACTIVATE);
    // перевод рычага в другое положение
    }
}


************************************************************************************

Автор:::::::::::::::::DBColl::::::::::::::::::::::::::::::
May 8 2003
данный скрипт каждые 18 секунд убавляет хиты, если игрок более, чем на 15 футов от костра.
(эмуляция действия холода)
Neverwinter Script Source
void main()
{
object oPC = GetFirstPC();
object oFlame = GetObjectByTag("тэг пламени");
int nSpeedOfDec = 3; 
// 3 раунда (за 18 секунд здоровье уменьшиться на 1 единицу)
int nSpeed = GetLocalInt(oPC, "DecHealthSpeed");
// первый раз даже если такая переменная не заведена, значение будет == 0
if (nSpeed == nSpeedOfDec && GetDistanceBetween(oPC, oFlame) > 15.0)
  // проверяем сколько раундов прошло с последнего уменьшения Health
  // и расстояние до костра (15 метров)
  {
  effect eDamage = EffectDamage( 1, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_NORMAL);
  /// определяется кол-во повреждений и тип
  ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oPC);
  /// нанесение урона
  AssignCommand(oPC, ActionSpeakString("Блин, холодно однако..."));
  SetLocalInt(oPC, "DecHealthSpeed", 0);
  return;
  }
else if (GetDistanceBetween(oPC, oFlame) < 15.0
        && GetCurrentHitPoints(oPC) <= GetMaxHitPoints(oPC))
  /// если дистанция 15 метров или меньше, то лечить 2 хитпоинта за раунд
  {
  effect eHeal = EffectHeal(2);
  ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oPC);
  return;
  }
SetLocalInt(oPC, "DecHealthSpeed", nSpeed+1);
}


************************************************************************************

Автор:::::::::::::::::DBColl::::::::::::::::::::::::::::::
May 28 2003
Это скрипт командира охраны. Ему все солдаты (его фракции) отдают честь. ставится в UserDefined
Neverwinter Script Source
#include nw_i0_generic
void main()
{
int nEvent = GetUserDefinedEventNumber();
if (nEvent == 1002)
   {
   object oNPC = GetLastPerceived();
   if (GetFactionEqual(oNPC, OBJECT_SELF))
      {
      if (GetLastPerceptionSeen() && GetDistanceToObject(oNPC) < 6.0f &&
      GetLocalInt(oNPC, "GREATED") != 1)
          {
          SetLocalInt(oNPC, "GREATED", 1);
          AssignCommand(oNPC, ClearAllActions());
          AssignCommand(oNPC, ActionDoCommand(SetFacingPoint(GetPosition(OBJECT_SELF))));
          AssignCommand(oNPC, ActionSpeakString("ЗдравиЯ желаю!"));
          AssignCommand(oNPC, ActionPlayAnimation(ANIMATION_FIREFORGET_SALUTE, 0.5f, 1.0f));
          AssignCommand(oNPC, ActionDoCommand(WalkWayPoints()));
          DelayCommand(15.0f, SetLocalInt(oNPC, "GREATED", 0));
          }
      }
   return;
   }
}


************************************************************************************

Автор:::::::::::::::::DBColl::::::::::::::::::::::::::::::
Feb 20 2004
Я вот смотрю-смотрю, жду, но что-то так никто и не догадался, как просто можно сделать всплывающую строку на триггере... Вот мой вариант:
1. Создать триггер в палитре. В ОнЭнтер нужен всего один универсальный скрипт! Этот юзаем мы в Проклятии.
Neverwinter Script Source
//::///////////////////////////////////////////////
//:: Name
//:: Copyright © 2003 WRG!
//:://////////////////////////////////////////////
//:: Created By: DBColl
//:: Created On: 7.09.2003
//:://////////////////////////////////////////////
void main()
{
   object oPC = GetEnteringObject();
   if (!GetIsPC(oPC) || GetLocalInt(OBJECT_SELF, "triggered") > 0)
       return;
   string sStr = GetName(OBJECT_SELF);
   AssignCommand(oPC, SpeakString(sStr));
   if (GetLockKeyTag(OBJECT_SELF) == "")
       SetLocalInt(OBJECT_SELF, "triggered", 1);
}

2. Создаем этот триггер в модуле, заходим в его свойства и в поле Name пишем текст, который должен всплыть над игроком при наступании на него!!!
3. В KeyTag вносим что-то (любое число!) и получаем постоянно всплывающий текст над всеми PC, кто войдет на него.

************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ DBCOLL'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"

Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 15:03
Сообщение #55


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ LAZY RAMN'Ы"

автор::::::::::::Lazy Ramna::::::::::::::::::::
Oct 14 2003
LEX: ИСТОРИЧЕСКИЙ СКРИПТ LAZY. ОКТЯБРЬ 2003 ГОДА!! ВЕСЬ РУНЕТ ПОЛЬЗОВАЛСЯ ЭТОЙ ИДЕЕЙ ДО ВЫХОДА ПАТЧА DUMBO
Скрипт, позволяющий использовать букву "я" в скриптах
В константных строках буковка "я" запрещена, однако в переменных ее никто не запрещал. Посему создаем любой плэсейбл с тэгом ax_letter_ya и именем "я". Потом просто через ya() получаем нашу буковку, либо заменяем в строке все "йа" на "я". =)
Neverwinter Script Source
string ya(string sMessage = "йа")
   {
    string sYa = GetName(GetObjectByTag("ax_letter_ya"));
    string sResult = "";
    string sSub;
    int i = 0;
    while ((sSub = GetSubString(sMessage, i, 2)) != "")
           {
           if (sSub == "йа")
              {
              sResult += sYa;
              i += 2;
              }
           else
              {
              sResult += GetStringLeft(sSub, 1);
              i++;
              }
           }
    return sResult;
  }


Использование:
1) string sMessage = "Мо"+ya()+" сто"+ya()+"ть как стена";
2) string sMessage = ya("Мойа стойать как стена");
В обоих случаях в sMessage будет "Моя стоять как стена"

************************************************************************************

автор::::::::::::Lazy Ramna::::::::::::::::::::
Mar 15 2004
Не знаю, было или нет (я сюда не сильно заглядываю ), вот элементарнейший скрипт "автоперехода". Телепортирует наступившую на триггер кричу к объекту, тэг которого прописан в KeyTag. Вешается на OnEnter.
Neverwinter Script Source
void main()
{
object oPC = GetEnteringObject();
object oTarget = GetObjectByTag(GetTrapKeyTag(OBJECT_SELF));
if (GetIsObjectValid(oPC) && GetIsObjectValid(oTarget)) {
     AssignCommand(oPC, ClearAllActions());
     AssignCommand(oPC, JumpToObject(oTarget));
}
}

Я его ставлю после городских ворот, или ворот на мосту. Если PC не захочет "входить" в ворота, а решит пройтись чуть дальше к краю локации, то его насильно кинут куда надо.
Добавлено 18:57
Простенький инклюд. Позволяет получать кол-во лет/месяцев/дней/часов/минут/секунд, которое прошло с момента старта модуля. (в стиле UNIX_TIMESTAMP ) AX_LIB_START_YEAR - стартовый год.
Neverwinter Script Source
//© 2003 by Alexander Ponyatikh, aka Lazy Ranma

const int AX_LIB_START_YEAR = 0;

int GetCurrentYear()
{
   return GetCalendarYear() - AX_LIB_START_YEAR;
}

int GetCurrentMonth()
{
   return GetCurrentYear()*12 + GetCalendarMonth();
}

int GetCurrentDay()
{
   return (GetCurrentMonth() - 1)*28 + GetCalendarDay();
}

int GetCurrentHour()
{
   return (GetCurrentDay() - 1)*24 + GetTimeHour();
}

int GetCurrentMinute()
{
   return GetCurrentHour()*FloatToInt(HoursToSeconds(1))/60 + GetTimeMinute();
}

int GetCurrentSecond()
{
   return GetCurrentMinute()*60 + GetTimeSecond();
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ LAZY RAMN'Ы" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:06
Сообщение #56


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ BAAL'A"

автор::::::::::::Baal::::::::::::::::::::
May 7 2003
данный скрипт забирает у игрока (или любого другого объекта) все вещи и дестроит их.
Neverwinter Script Source
void main()
{
  object oPC = GetFirstPC();
  /// выбирает игрока ( если хотите другой объект то GetObjectByTag("тэг объекта")
  object oInv = GetFirstItemInInventory(oPC);
    /// брать первый предмет из инвентаря игрока
  while(GetIsObjectValid(oInv)) /// пока в инвентаре есть предмет
      {
      DestroyObject(oInv); /// удаляет его
      oInv = GetNextItemInInventory(oPC);
      /// брать следующий предмет из инвентаря игрока
      }
    int i=0;
    while(i<14) 
      {
      DestroyObject(GetItemInSlot(i, oPC)); /// удаление вещей из слотов
      i++;
      }
}


************************************************************************************

автор::::::::::::Baal::::::::::::::::::::
Aug 18 2003
Вот конечный, работающий скрипт часов, для тех кому интересно. Спасибо ДБу за то, что помог с минутами.
Neverwinter Script Source
void main()
{
int iHour=GetTimeHour();
int iGameHourRealMinutes = 2; // число реальных минут равное 1 игровому часу (в настройках модулЯ)
float fMinute = IntToFloat(GetTimeMinute());
float fSecond = IntToFloat(GetTimeSecond());
float fGameMinute = fMinute*(60/iGameHourRealMinutes)+(fSecond/iGameHourRealMinutes);
int iMinute=FloatToInt(fGameMinute);
string sHour;
string sMinute;
if(iHour>0||iHour==21)
sHour=" Час ";
if(iHour>1||iHour>21)
sHour=" Часа ";
if(iHour>4&&iHour<21)
sHour=" часов ";
if(iHour==0)
sHour=" часов ";
sHour=IntToString(iHour)+sHour;

int iVR=StringToInt(GetStringRight(IntToString(iMinute),1));
if(iVR==0)
sMinute=IntToString(iMinute)+" минут.";
if(iVR>0)
sMinute=IntToString(iMinute)+" минута.";
if(iVR>1)
sMinute=IntToString(iMinute)+" минуты.";
if(iVR>4||(iMinute>10&&iMinute<21))
sMinute=IntToString(iMinute)+" минут.";
if(iMinute<10)
sMinute="0"+sMinute;

AssignCommand(GetFirstPC(),SpeakString("Московское времЯ: "+sHour+sMinute));
PlaySound("as_an_rooster1");//звук можно убрать :-)
}


************************************************************************************

автор::::::::::::Baal::::::::::::::::::::
Этот скрипт подсчитовает сколько у цели предметов с выбранным тегом. oInventory - чей инвентарь. sItemTag - Тег
Neverwinter Script Source
int ItemsAmount(string sItemTag, object oCreature = OBJECT_SELF)
{
int N=0;
object oItem = GetFirstItemInInventory(oCreature);
while (GetIsObjectValid(oItem))
  {
  if(GetTag(oItem) == sItemTag)
      {
      N = N + GetNumStackedItems(oItem);
      }
  oItem = GetNextItemInInventory(oCreature);
  }
return N;
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ BAAL'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:21
Сообщение #57


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ SMITH'A"

автор::::::::::::Smith::::::::::::::::::::
Sep 24 2003
Мне иногда приходилось сталкиваться с задачей создания случайной локации на заданном растоянии от какого-то объекта. Среди стандартных функций тулсета я такой вещи не нашел (хотя может быть плохо искал ), так, что пришлось написать самому. Может кому и пригодиться:
Neverwinter Script Source
location RandomLocation(object oTarget, float fRadius, int iLine = TRUE)
{
if(!iLine)
fRadius=IntToFloat(Random(FloatToInt(fRadius)));

float iXO=VectorMagnitude(GetPosition(oTarget))*cos(VectorToAngle(GetPosition(oTarget)
));
float iYO=VectorMagnitude(GetPosition(oTarget))*sin(VectorToAngle(GetPosition(oTarget)
));
float fRndomAngle=IntToFloat(Random(360));
location lNewLoc=Location(GetArea(oTarget),Vector(iXO+fRadius*cos(fRndomAngle),iYO+fRadiu
s*sin(fRndomAngle)),360.0);
return lNewLoc;
}

Скрипт создает случайную локацию на растоянии fRadius метров от объекта oTarget, причем, если задать iLine = FALSE, то локация может быть создана внутри круга на произвольном растоянии от объекта, не превышающем, однако, fRadius.

************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ SMITH'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:22
Сообщение #58


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ SELLARY"

автор::::::::::::sellary::::::::::::::::::::
Oct 20 2003
Функция определяет, можно ли надеть указанный армор.
в функцию передаем:
oArmor - объект армора,
oCreature - объект создания, на которое этот армор пытаемся одеть
возвращает TRUE, если одеть можно, FALSE - в обратном случае.
Проверка идет без учета класса создания (возможно, в дальнейшем модифицирую "по просьбам радиослушателей").
Отдельное спасибо Lazy Ranma за идею и spurlos - за мотивацию, DBColl за подсказку с уровнем.
Neverwinter Script Source
int GetIsValidArmor(object oArmor, object oCreature)
{
       // считаем базовую цену армора
       int nPrice = GetGoldPieceValue(oArmor);

       // определяем уровень создания
       int nClass = GetHitDice(oCreature);

       // определяем, может ли создание класса nClass
       // одевать броню стоимостью nPrice
       // (используется таблица #13 из приложения;
       // считаем, что создание более, чем 20 уровня
       // может одеть любой армор)
       int bResult = TRUE;
       switch (nClass) {
               case 1: bResult = (nPrice<=1000);
                       break;
               case 2: bResult = (nPrice<=1500);
                       break;
               case 3: bResult = (nPrice<=2500);
                       break;
               case 4: bResult = (nPrice<=3500);
                       break;
               case 5: bResult = (nPrice<=5000);
                       break;
               case 6: bResult = (nPrice<=6500);
                       break;
               case 7: bResult = (nPrice<=9000);
                       break;
               case 8: bResult = (nPrice<=12000);
                       break;
               case 9: bResult = (nPrice<=15000);
                       break;
               case 10: bResult = (nPrice<=19500);
                       break;
               case 11: bResult = (nPrice<=25000);
                       break;
               case 12: bResult = (nPrice<=30000);
                       break;
               case 13: bResult = (nPrice<=35000);
                       break;
               case 14: bResult = (nPrice<=40000);
                       break;
               case 15: bResult = (nPrice<=50000);
                       break;
               case 16: bResult = (nPrice<=65000);
                       break;
               case 17: bResult = (nPrice<=75000);
                       break;
               case 18: bResult = (nPrice<=90000);
                       break;
               case 19: bResult = (nPrice<=110000);
                       break;
               case 20: bResult = (nPrice<=130000);
                       break;
               default: bResult = (nClass>20);
                       break;
       };

       // возвращаем результат
       return bResult;
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ SELLARY" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:23
Сообщение #59


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ GREEDO BEEFY"

автор::::::::::::Greedo Beefy::::::::::::::::::::
Jan 10 2004
Может кому то пригодится...
Если хотите что бы на вашем сервере, имеются ввиду шарды с PW, время и дата не сбрасывались с рестартом то можно сделать следующее.
Такой вот скриптик вешаем на любой предмет в модуле, лучше в защищенной локе, в слот OnHeartBeat
Neverwinter Script Source
void SaveCurTime (int minutes)
{
  int current = GetLocalInt(GetModule(), "cyclestill");
  if (current < ((minutes * 60) / 6))
  SetLocalInt(GetModule(), "cyclestill", current + 1);
  else
  {
        object oMod = GetModule();
        int iMonth = GetCalendarMonth();
        int iDay = GetCalendarDay();
        int iYear = GetCalendarYear();
        int iHour = GetTimeHour();
        SetCampaignInt("server_time", "CUR_YEAR", iYear, oMod);
        SetCampaignInt("server_time", "CUR_DAY", iDay, oMod);
        SetCampaignInt("server_time", "CUR_MONTH", iMonth, oMod);
        SetCampaignInt("server_time", "CUR_HOUR", iHour, oMod);
        SetLocalInt(GetModule(), "cyclestill", 0);
        WriteTimestampedLogEntry("Save Current Time completed");
  }
return;
}
void main ()
{
SaveCurTime(10);
}

Раз в десять минут (можно поставить любое значение) будет сохранятся текущая дата и время на сервере , игровое конечно же.
А на OnModuleLoad ставим это:
Neverwinter Script Source
void main()
{
object oMod = GetModule();
int iMonthNew = GetCampaignInt("server_time", "CUR_MONTH", oMod);
int iDayNew = GetCampaignInt("server_time", "CUR_DAY", oMod);
int iYearNew = GetCampaignInt("server_time", "CUR_YEAR", oMod);
int iHourNew = GetCampaignInt("server_time", "CUR_HOUR", oMod);
SetCalendar (iYearNew, iMonthNew, iDayNew);
SetTime (iHourNew, 0, 0, 0);
}

Написать скрипт вынудило желание ввести в банковскую систему проценты по вкладам и кредиты с процентами, которые зависят от времени. Ну как в жизни
С уважением Александр Дишке

************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ GREEDO BEEFY" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:24
Сообщение #60


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ DOCFEERT'A"

автор::::::::::::DocFeert::::::::::::::::::::
Feb 10 2004
Вот скрипт для уборщика:
Cтавится на OnHeartBeat уборщика
Как только уборщик увидит валяющийся на земле предмет, он его сразу поднимет.
Neverwinter Script Source
void main()
{
object oItem = GetFirstObjectInArea(GetArea(OBJECT_SELF));
while (GetIsObjectValid(oItem) == TRUE)
ClearAllActions();
{
if (GetObjectType(oItem) == OBJECT_TYPE_ITEM)
{
ActionPickUpItem(oItem);
}
oItem = GetNextObjectInArea(GetArea(OBJECT_SELF));
}
}


************************************************************************************

автор::::::::::::DocFeert::::::::::::::::::::
Feb 24 2004
Скрипт определяет кол-во жизней цели в процентах. oObject - чьи жизни, Возвращает кол-во жизней oObject.
Neverwinter Script Source
int Percent(object oObject)
{
int iCur = GetCurrentHitPoints(oObject);
int iMax = GetMaxHitPoints(oObject);
int iSt = iCur * 100;
int iPercent = iSt / iMax;
return iPercent;
}


************************************************************************************

автор::::::::::::DocFeert::::::::::::::::::::
Feb 24 2004
Скрипт на автооткрывание дверей. Делаем триггер и вешаем на него 2 скрипта. Это на OnEnter Триггера:
Neverwinter Script Source
void main()
{
object oDoor = GetFirstObjectInShape(SHAPE_SPHERE, 3.0, GetLocation(OBJECT_SELF), FALSE, OBJECT_TYPE_DOOR);
if (GetLocked(OBJECT_SELF) == FALSE)
{
ActionOpenDoor(oDoor);
}
}

А это на OnExit Триггера:
Neverwinter Script Source
void main()
{
if (GetLocked(OBJECT_SELF) == FALSE)
{
object oDoor = GetFirstObjectInShape(SHAPE_SPHERE, 3.0, GetLocation(OBJECT_SELF), FALSE, OBJECT_TYPE_DOOR);
ActionCloseDoor(oDoor);
}
}

Триггер просто растягивается под открываемой дверью.

************************************************************************************

автор::::::::::::DocFeert::::::::::::::::::::
Mar 10 2004
А этот код позволяет создать "случайную локацию", как например в БГ или Фаллоут, когда идешь, идешь... И натыкаешься на каких-нибудь рейдеров. Для этого в oArea записываем локацию, в которой будут создоваться обьекты, в Х записываем количество тайлов этой локации по оси Х, в Y записываем количество тайлов этой локации по оси Y, в sObjByResRef пишем тег по ресрефу обьекта, в iObjType пишем тип обьекта (OBJECT_TYPE_*) а в iMaxObjects пишем максимальное количество этих обьектов.
Neverwinter Script Source
void RandomObjectsAtRandomLocation(object oArea, int X, int Y, string sObjByResRef, int iObjType, int iMaxObjects)
{
int iMax = 0;
float fX = IntToFloat(Random(X * 10));
float fY = IntToFloat(Random(Y * 10));
float fZ = 0.0;
float fF = IntToFloat(Random(360));
location lLoc = Location(oArea, Vector(fX, fY, fZ), fF);
while (iMax != iMaxObjects)
{
iMax = iMax + 1;
float fX = IntToFloat(Random(X * 10));
float fY = IntToFloat(Random(Y * 10));
float fZ = 0.0;
float fF = IntToFloat(Random(360));
location lLoc = Location(oArea, Vector(fX, fY, fZ), fF);
if (d2(1) == 2)
{
CreateObject(iObjType, sObjByResRef, lLoc, FALSE);
}
}
}


************************************************************************************

автор::::::::::::DocFeert::::::::::::::::::::
Mar 10 2004
А этот скрипт для переноса всех обьектов (крич, плейсов, итемов) из одной локации в другую. В oAreaFrom записываем локацию ИЗ которой переносим обьекты, в oAreaTo пишим ту локацию В которую переносим обьекты, если iDestroy = TRUE, все обьекты в локации oAreaFrom уничтожаются. Если в локации игрок, то он тоже переностится.
Neverwinter Script Source
void MoveArea(object oAreaFrom, object oAreaTo, int iDestroy=TRUE)
{
object oObject = GetFirstObjectInArea(oAreaFrom);
while (GetIsObjectValid(oObject) == TRUE)
{
location lLoc = Location(oAreaTo, GetPosition(oObject), GetFacing(oObject));
if (GetObjectType(oObject) == OBJECT_TYPE_ITEM)
{
CopyObject(oObject, lLoc, OBJECT_INVALID, GetTag(oObject));
if (iDestroy == TRUE)
{
DestroyObject(oObject);
}
}
if ((GetObjectType(oObject) == OBJECT_TYPE_PLACEABLE))
{
string sTag = GetResRef(oObject);
CreateObject(OBJECT_TYPE_PLACEABLE, sTag, lLoc);
if (iDestroy == TRUE)
{
DestroyObject(oObject);
}
}
if (GetObjectType(oObject) == OBJECT_TYPE_CREATURE)
{
AssignCommand(oObject, JumpToLocation(lLoc));
}
oObject = GetNextObjectInArea(oAreaFrom);
}
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ DOCFEERT'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:26
Сообщение #61


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ MALKOR'A"

автор::::::::::::MalkoR::::::::::::::::::::
Sep 13 2003
Идея скрипта такая. Стоит обелиск, вокруг стоят 4 шарика силы. В обелиске по порядку стоят 10 невидимых объекта, мелких. Шарики накладывают на onHeartbeat эффект луча в рэндом из этих 10 невидимых объекта. Получаеться эффект питания обелиска энергией этими шариками.
скрипт ставиться в onHeartbeat шариков
Neverwinter Script Source
void main()
{
object wp_k4 = GetObjectByTag("TWp_KEEPER4"); //WayPoint стояший на месте шарика, это на тот случай, если шарик атакуя кого то отойдет.
AssignCommand(OBJECT_SELF, ActionJumpToObject(wp_k4)); //перемешаеться на свое место
object os = OBJECT_SELF;
effect eff = EffectBeam(VFX_BEAM_LIGHTNING,os,BODY_NODE_CHEST,FALSE); //какой эффект накладывать на обелиск (тут была идея сделать ещё один скрипт, чтоб луч был рэндом, но с первого разане вышло, продолжать не стал из- за своей запарки  )

object c1 = GetObjectByTag("TP_CORPOSE_001"); //определяет невидимый объект в обелиске
object c2 = GetObjectByTag("TP_CORPOSE_002");
object c3 = GetObjectByTag("TP_CORPOSE_003");
object c4 = GetObjectByTag("TP_CORPOSE_004");
object c5 = GetObjectByTag("TP_CORPOSE_005");
object c6 = GetObjectByTag("TP_CORPOSE_006");
object c7 = GetObjectByTag("TP_CORPOSE_007");
object c8 = GetObjectByTag("TP_CORPOSE_008");
object c9 = GetObjectByTag("TP_CORPOSE_009");
object c10 = GetObjectByTag("TP_CORPOSE_010");

int a = d10();

if (a == 1)
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eff,c1,6.0f);
return;
}
if (a == 2)
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eff,c2,6.0f);
return;
}
if (a == 3)
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eff,c3,6.0f);
return;
}
///. . . . . . (а == 4, а ==5 и т.д. до 9) . . . . . . .

if (a == 10)
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eff,c10,6.0f);
return;
}
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ MALKOR'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:28
Сообщение #62


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ VALLEO"

автор::::::::::::Valleo::::::::::::::::::::
Mar 19 2004
Маленький скриптик для реализации болота:
Neverwinter Script Source
void StartBog()
{
object oBog = OBJECT_SELF;
object oArea = GetArea(oBog);
location lLocation = GetLocation(oBog);
location lLoc;
location lLocat;
object oObject = GetFirstObjectInShape(SHAPE_SPHERE,100.0,lLocation,FALSE,OBJECT_TYPE_CREATURE);
while(GetIsObjectValid(oObject))
{
lLoc = GetLocation(oObject);
lLocat = GetLocalLocation(oObject,"BOGLOC");
if(GetIsObjectValid(GetAreaFromLocation(lLocat)))
  {
  float fDist = GetDistanceBetweenLocations(lLoc,lLocat);
  if(fDist < 5.0)
   {
   effect eSlow = EffectMovementSpeedDecrease(75);
   ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eSlow,oObject,70.0);
   FloatingTextStringOnCreature("Вас засасывает в бололто...",oObject,FALSE);
   }
  }
SetLocalLocation(oObject,"BOGLOC",lLoc);
oObject = GetNextObjectInShape(SHAPE_SPHERE,100.0,lLocation,FALSE,OBJECT_TYPE_CREATURE);
}
}
void main()
{
object oBog = OBJECT_SELF;
int iTimer = GetLocalInt(oBog,"TIMER");
if(iTimer <= 9)
{
iTimer = iTimer + 1;
SetLocalInt(oBog,"TIMER",iTimer);
return;
}
SetLocalInt(oBog,"TIMER",0);
StartBog();
}

Ставится на хербит любого объекта на локации болота (главное чтобы объект был плотовый )...

************************************************************************************

автор::::::::::::Valleo::::::::::::::::::::
Mar 19 2004
Мой личный код на проверку скилла Persuade. Используется харизма и ее модификатор, а так же кубики для болей реалестичности...
Использовать:
NPC: Привет!
1) И тебе привет! У тебя же есть работа?
NPC (1) [Проверка удачна] Да, конечно! <-- сюда вставить скрипт проверки Persuade
NPC (2) [Проверка неудачна] С чего ты взял?
2) Извини, обознался...
Neverwinter Script Source
int StartingConditional()
{
object oPC = GetPCSpeaker();
object oNPC = OBJECT_SELF;
object oWinner;
int iCharisma = GetAbilityScore(oPC,ABILITY_CHARISMA);
if(iCharisma < 7)
{
SendMessageToPC(oPC,"У вас харизма ниже 7, вы не можете нормально разговаривать с "+GetName(oNPC));
return FALSE;
}
int iPCPersuade, iNPCPersuade;
int iAddPC, iAddNPC;
int iPCCharModif, iNPCCharModif;
if(GetHasSkill(SKILL_PERSUADE,oPC)) iPCPersuade = GetSkillRank(SKILL_PERSUADE,oPC);
if(GetHasSkill(SKILL_PERSUADE,oNPC)) iNPCPersuade = GetSkillRank(SKILL_PERSUADE,oNPC);
iPCCharModif = GetAbilityModifier(ABILITY_CHARISMA,oPC);
iNPCCharModif = GetAbilityModifier(ABILITY_CHARISMA,oNPC);
iAddPC = d12();
iAddNPC = d12();
SendMessageToPC(oPC,"Проверка на скилл Persuade:");
SendMessageToPC(oPC,"Ваш сккилл равен = "+IntToString(iPCPersuade)+" + "+IntToString(iAddPC)+" (d12) + "+IntToString(iPCCharModif)+" (модификатор харизмы) = " +IntToString(iPCPersuade+iAddPC+iPCCharModif));
SendMessageToPC(oPC,"Скилл вашего оппонента равен = "+IntToString(iNPCPersuade)+" + "+IntToString(iAddNPC)+" (d12)  + "+IntToString(iNPCCharModif)+" (модификатор харизмы) = " +IntToString(iNPCPersuade+iAddNPC+iNPCCharModif));
iPCPersuade = iPCPersuade + iAddPC + iPCCharModif;
iNPCPersuade = iNPCPersuade + iAddNPC + iNPCCharModif;
if(iPCPersuade > iNPCPersuade)
{
SendMessageToPC(oPC,"Вы удачно провели проверку скилла.");
return TRUE;
}
SendMessageToPC(oPC,"Вы провалили проверку.");
return FALSE;
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ VALLEO" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:30
Сообщение #63


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ТЕМНОГО ЛОРДА"

автор::::::::::::Темный лорд::::::::::::::::::::
May 17 2003
Скрипт на то. Чтобы после смерти объекты воскрешали. Я делал его для себя. Подскажу как его еще можно использовать.
Я взял обычных людей. Поставив им тег h01. И вставил в onDeath этот скрипт. В результате получилось, что если убить этого человека.
Он превратится в зомби. Главное не забыть поставить на карте объект Nekrolog01.
Neverwinter Script Source
void Raise()
{
effect eVisDead = EffectVisualEffect(VFX_IMP_HEAD_ACID);///Эффект с которым объект будет воскресать. В данном случае это кислота!
object oNew = CreateObject(OBJECT_TYPE_CREATURE,"ZombieWeak07", GetLocation(OBJECT_SELF)) ;///Тег объекта который будет воскресать.
ApplyEffectAtLocation(DURATION_TYPE_PERMANENT, eVisDead, GetLocation(oNew));

}
void main()
{
object oCleric = GetNearestObjectByTag("Nekrolog01");/// Тег объекта который будет оживлять. И которого надо убить чтобы остальные больше не оживали.

if (GetIsObjectValid(oCleric) == TRUE && GetIsDead(oCleric) == FALSE)
{
AssignCommand(oCleric, ClearAllActions());
AssignCommand(oCleric, ActionPlayAnimation(ANIMATION_LOOPING_WORSHIP, 1.0, 3.0));///Действия которые выполняет "оживитель" как только умирает один из объектов. В данном случае становится на колени.
effect eVisCleric = EffectVisualEffect(VFX_IMP_AURA_NEGATIVE_ENERGY);/// Эффект с которым клирик воскрешает. В данном случае появляется красного цвета аура. Но эффекты можно менять!
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVisCleric, oCleric);
DelayCommand(3.0, Raise());
DelayCommand(0.2,AssignCommand(oCleric, SpeakOneLinerConversation())) ;
}
}

Самое необходимое я выделил.

************************************************************************************

автор::::::::::::Темный лорд::::::::::::::::::::
May 17 2003
Скрипт моего друга. Он если зайдет то даст его описание. Вообще скрипт на то чтобы после смерти находится в бессознательном состоянии 10 едениц. 1 вставляется в OnHeartbeat. Второй в OnPlayerDying. /// Без пояснений.
Neverwinter Script Source
void loadBehaviors()
{
SetLocalInt(OBJECT_SELF, "DEATH_TARGET", -10);
SetLocalInt(OBJECT_SELF, "PLAYER_ONLY_GRUNTS_WHILE_DYING", FALSE);
}
void bleedCheck(object pc)
{
if (!GetIsPC(pc))
return;
int DEATH_TARGET = GetLocalInt(OBJECT_SELF, "DEATH_TARGET");
int PLAYER_ONLY_GRUNTS_WHILE_DYING = GetLocalInt(OBJECT_SELF, "PLAYER_ONLY_GRUNTS_WHILE_DYING");
int hp = GetCurrentHitPoints(pc);
if ((hp <= 0) && (hp > DEATH_TARGET))
    {
    effect dmg = EffectDamage(1);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, dmg, pc);
    int which = Random(6)+1;
    if (PLAYER_ONLY_GRUNTS_WHILE_DYING)
    switch (which)
        {
        case 1:
              PlayVoiceChat(VOICE_CHAT_PAIN1, pc);
              break;
        case 2:
              PlayVoiceChat(VOICE_CHAT_PAIN2, pc);
              break;
        case 3:
              PlayVoiceChat(VOICE_CHAT_PAIN3, pc);
              break;
        case 4:
              PlayVoiceChat(VOICE_CHAT_HEALME, pc);
              break;
        case 5:
              PlayVoiceChat(VOICE_CHAT_NEARDEATH, pc);
              break;
        case 6:
              PlayVoiceChat(VOICE_CHAT_HELP, pc);
              break;
       }
    }
else if (hp <= DEATH_TARGET)
   {
   effect death = EffectDeath(FALSE, FALSE);
   ApplyEffectToObject(DURATION_TYPE_INSTANT, death, pc);
   }
}

void main()
{
loadBehaviors();
object pc = GetFirstPC();
while (GetIsObjectValid(pc))
   {
   bleedCheck(pc);
   pc = GetNextPC();
   }
}



Neverwinter Script Source
void main()
{
// load up desired behaviors for all OnHeartbeat scripts
loadBehaviors();

// enumerate all PCs, calling bleedCheck on each
// if you want to add more / other scripts that act on all players
// every heartbeat, this is the place to do it ... just put a call
// to them after (or before) bleedCheck, within the while loop.
object pc = GetFirstPC();

while (GetIsObjectValid(pc))
  {
  bleedCheck(pc);
  pc = GetNextPC();
  }
}


************************************************************************************

автор::::::::::::Темный лорд::::::::::::::::::::
Jun 3 2003
Вот еще скрипт из моего модуля. Ставится как правило. На OnUsed
предмета. Что телепортирует игрока на заданный вэйпоинт.
Neverwinter Script Source
void main()
{
object oPC = GetLastUsedBy();
object oTarget = GetObjectByTag("Waypoint"); /// тэг Waypoint-та, на который попадёт игрок.
effect eVis = EffectVisualEffect(VFX_IMP_HEALING_X); /// эффект с которым игрок будет попадать.
location lPC = GetLocation(oPC);
ApplyEffectAtLocation(DURATION_TYPE_PERMANENT, eVis, lPC);
AssignCommand(oPC,JumpToObject(oTarget));
}


************************************************************************************

автор::::::::::::Темный лорд::::::::::::::::::::
Jun 3 2003
На превращение НПC в предмет. Вставляется в Heartbeat!!
(Скрипт взят из гаргульи.)
Neverwinter Script Source
void main()
  {
  object oPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
  if ((GetIsObjectValid(oPC) != TRUE) || (GetIsDead(oPC) == TRUE) || GetDistanceToObject(oPC) >= 10.0)
    {
    location l = GetLocation(OBJECT_SELF);
    location lNew = Location( GetAreaFromLocation(l), GetPositionFromLocation(l), GetFacingFromLocation(l) + 180);
    // CreateObject( OBJECT_TYPE_PLACEABLE, "plc_statue3", lNew );
    CreateObject(OBJECT_TYPE_PLACEABLE, "StatueStone", lNew); /// предмет в который НПК будет превращатся.
    DestroyObject(OBJECT_SELF, 0.5);
    }
  }


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ТЕМНОГО ЛОРДА" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:31
Сообщение #64


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ NEUROSHOOTA"

автор::::::::::::neuroshoot::::::::::::::::::::
Jun 19 2003
Скрипт смены погоды (таких наверное дофига уже сделали, но ине лень было искать, вот и написал).
Скрипт кладете на хертбит зоны:
Neverwinter Script Source
void main()
{
object oArea = OBJECT_SELF;
int nRain = WEATHER_RAIN;
int nClear = WEATHER_CLEAR;
int nDef = WEATHER_USE_AREA_SETTINGS;
int nHour = GetTimeHour();
if(nHour == 20|| nHour == 21|| nHour == 22|| nHour == 23||
nHour == 24|| nHour == 0 || nHour == 1 || nHour == 2 ||
nHour == 3 || nHour == 4 || nHour == 5 || nHour == 6 &&
!GetLocalInt(oArea, "IsDef") == 1)
{
SetWeather(oArea, nDef);
SetLocalInt(oArea, "IsRaining", 0);
SetLocalInt(oArea, "IsClear", 0);
SetLocalInt(oArea, "IsDef", 1);
}

if(nHour == 7 || nHour == 8 || nHour == 9 || nHour == 10||
nHour == 11|| nHour == 12&&
!GetLocalInt(oArea, "IsClear") == 1)
{
SetWeather(oArea, nClear);
SetLocalInt(oArea, "IsRaining", 0);
SetLocalInt(oArea, "IsClear", 1);
SetLocalInt(oArea, "IsDef", 0);
}

if(nHour == 13|| nHour == 14|| nHour == 15|| nHour == 16||
nHour == 17|| nHour == 18|| nHour == 19&&
!GetLocalInt(oArea, "IsRaining") == 1)
{
SetWeather(oArea, nRain);
SetLocalInt(oArea, "IsRaining", 1);
SetLocalInt(oArea, "IsClear", 0);
SetLocalInt(oArea, "IsDef", 0);
}
}

Вроде все работает. Если хотите, чтобы погода менялась чаще, поменяйте измените время срабатывания. Для полноты картины разместите на карте различные звуки, которые будут появляться в определенное время (например звук грозы и т.д.).

************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ТЕМНОГО ЛОРДА" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
Lex
сообщение Mar 19 2005, 16:33
Сообщение #65


Level 5
Иконки Групп

Класс: Обыватель
Характер: Lawful Neutral
Раса: Человек
NWN: Модмейкер
 Проклятие Левора
 Порядок Времени


СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ"
ЦИКЛ "СКРИПТЫ ДЯДЮШКИ AIWAN'A"

автор::::::::::::Aiwan::::::::::::::::::::
Jan 19 2004
Скрипт лута для класса в после выполнения квеста.
Neverwinter Script Source
//::///////////////////////////////////////////////////////////
//:: Created By: WRG! Aiwan aiwanwrg.ru
//:: Created On: 19.01.2004
//:://////////////////////////////////////////////////////////
/*
Скрипт на OnOpen сундука. Здесь приведены только
два класса, но проверить можно любой, достаточно
скопировать строки кода и кликнув на классе в скрипте
F-2, выбрать нужный класс. Если класс не попал в
проверку, то получаем самую нижнюю вещь.
*/
//:://////////////////////////////////////////////////////////
void main()
{
  object oPC = GetLastOpenedBy();

  if (!GetIsPC(oPC) || GetLocalInt(OBJECT_SELF, "DO_IT") ||
       !GetLocalInt(oPC, "ПЕРЕМЕННАЯ_КВЕСТА"))
      {return;}
     SetLocalInt(OBJECT_SELF, "DO_IT", TRUE);

     if(GetLevelByClass(CLASS_TYPE_CLERIC, oPC) >= 1) // КЛЕРИК выше 1 уров.
       {
       CreateItemOnObject("res-ref предмета", OBJECT_SELF, 1);
         return;
       }
     if(GetLevelByClass(CLASS_TYPE_WIZARD,oPC) >= 1) // МАГ выше 1 уров. итд
       {
       CreateItemOnObject("res-ref предмета ", OBJECT_SELF, 1);
         return;
       }
       CreateItemOnObject("res-ref предмета ", OBJECT_SELF, 1); // все остальные
         return;
}


************************************************************************************

автор::::::::::::Aiwan::::::::::::::::::::
Mar 5 2004
Вот простенький скрипт, ставится на OnOpen сундука, саркофаги и т.д. При проверке скилла поиск, создает в инвентаре объект в зависимости от алигмента. Код не идеален, но работает
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Created By: WRG! Aiwan aiwane-mail.ru
//:: Created On: 06.12.2003
//:://////////////////////////////////////////////
/*  Скрипт на OnOpen сундука или саркофага.
     у каждого, алигмента свой приз.
    Если поиск прошел, получаем плюшку.
*/
//:://////////////////////////////////////////////
#include "nw_i0_tool"
void main()
{
  object oPC = GetLastOpenedBy();

  if (GetIsPC(oPC) && GetLocalInt(OBJECT_SELF, "DO_IT") != 1 &&
     (AutoDC(DC_HARD, SKILL_SEARCH, oPC))) // ПРОВЕРКА СКИЛЛА ПОИСК
    {
    AssignCommand(oPC, SpeakString("Bам удалось обнаружить предмет."));
    if (GetAlignmentGoodEvil(oPC) == ALIGNMENT_GOOD) // ПЛЮШКА ДЛЯ ГУДА
       {
       CreateItemOnObject("ResRef ОБЪЕКТА", OBJECT_SELF, 1);
       }
       if (GetAlignmentGoodEvil(oPC) == ALIGNMENT_EVIL) // ПЛЮШКА ДЛЯ ЕВИЛА
           {
           CreateItemOnObject("ResRef ОБЪЕКТА", OBJECT_SELF, 1);
           }
    RewardPartyXP(1500, oPC);
    SetLocalInt(OBJECT_SELF, "DO_IT", 1);
    }
  if (GetIsPC(oPC) && GetLocalInt(OBJECT_SELF, "DO_IT") != 1)
  {
  AssignCommand(oPC, SpeakString("Вам не удалось обнаружить ничего."));
  RewardPartyXP(500, oPC);
  SetLocalInt(OBJECT_SELF, "DO_IT", 1);
  }
}


************************************************************************************

автор::::::::::::Aiwan::::::::::::::::::::
Mar 5 2004
Вот еще один скрипт. Короче, создаете в палитре НПС и делаете его с нужными свойствами, что бы он рандомно бродил или еще что. Дальше, в локации где он должен спавниться, на любой объект вешаете скрипт на хербит. И усе, ночью будет приведение, днем все спокойно

Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!
//:://////////////////////////////////////////////
/*
СТАВИМ НЕВИДИМЫЙ ОБЪЕКТ В ЛОКЕ И НА OnHeartBeat
КИДАЕМ СКРИПТ. НОЧЬЮ ПОЯВЛЯЕТСЯ ДУХ ИЗ ПАЛИТРЫ
С НАСТУПЛЕНИЕМ УТРА ДЕСТРОИТЬСЯ. КТО ХОЧЕТ МОЖЕТ
      ДОБАВИТЬ ТОЧНОЕ ВРЕМЯ ДЛЯ СПАВНА
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 03.02.2004
//:://////////////////////////////////////////////

void main()
{
    object oItm = OBJECT_SELF;
    object oTarget = GetObjectByTag("WP_NIMPHA_GOST"); //ТОЧКА ПОЯВЛЕНИЯ ДУХА
    object oGost = GetObjectByTag("ANDR_GOST");
//=====================  ДЕНЬ  ====================
    if (GetIsDay() && GetLocalInt(OBJECT_SELF, "NIGHT") == 1)
    {
      ApplyEffectAtLocation(DURATION_TYPE_INSTANT,
      EffectVisualEffect(VFX_FNF_SOUND_BURST), GetLocation(oGost));
      ActionWait(1.0);
      ActionDoCommand(DestroyObject(oGost));
      SetLocalInt(OBJECT_SELF, "NIGHT", 0);
    }
    if (!GetIsNight() && GetLocalInt(OBJECT_SELF, "NIGHT") == 0)
    return;
//=====================  НОЧЬ =====================
    {
    if (!GetIsNight() || GetLocalInt(OBJECT_SELF, "NIGHT") == 1)
    return;

      oGost = CreateObject(OBJECT_TYPE_CREATURE, "ResRef_ДУХА", GetLocation(oTarget));
      ApplyEffectAtLocation(DURATION_TYPE_INSTANT,
      EffectVisualEffect(VFX_IMP_DEATH_WARD), GetLocation(oTarget));
      AssignCommand(oGost, ClearAllActions());
      SetLocalInt(OBJECT_SELF, "NIGHT", 1);
     }
}


Перед спавном вашего Духа поставьте строчку, я не проверял. но должно пахать:
Neverwinter Script Source
if (GetTimeHour()==23) // ТУТ УКАЖЕТЕ ВРЕМЯ


************************************************************************************

автор::::::::::::Aiwan::::::::::::::::::::
Mar 8 2004
У меня много дверей в модуле, которые произносят фразу, типа: "Запечатано магией. Открыть нельзя" Ну и в том же духе. Так вот, скриптов-стрингов развелось уже довольно много Сел я тут и написал парачку ну очень простеньких скриптиков для этих нужд. Если вам пригодятся, буду только рад.
Первый, просто скрипт. Если вам не в лом его править под каждую дверь, то ставьте его.
Второй проще для установки, но немного с побочным эффектом в виде вейпоинта. Какой нравится, тот и берите.
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!
//:: OnFailToOpen
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 10.01.2004
//:://////////////////////////////////////////////
void main()
{
string oDoor = GetTag(OBJECT_SELF);
string sMesseg = "ОШИБКА! TAG двери НЕПРАВИЛЬНЫЙ!"; // ЕСЛИ ВЫ ОШИБЛИСЬ С ТЭГОМ
{
   if (oDoor == "TAG_ДВЕРИ_01" || oDoor == "TAG_ДВЕРИ_02") // ОДИНАКОВЫЕ ФРАЗЫ ДЛЯ РАЗНЫХ ДВЕРЕЙ
      {sMesseg = "Дверь заперта, ключ украден.";}
   if (oDoor == "TAG_ДВЕРИ_03")
      {sMesseg = "Дверь заперта.";}
SpeakString(sMesseg);
}
}


Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!
//:: OnFailToOpen
//:://////////////////////////////////////////////
/*
  WP_DOOR_TXT - вейп с именем нашего текста.
    Ставим его сразу перед нужной дверью.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 10.01.2004
//:://////////////////////////////////////////////
void main()
{
object oWp = GetNearestObjectByTag("WP_DOOR_TXT"); // БЕРЕМ БЛИЖАЙШИЙ
string sDoor = GetName(oWp);

   if (GetIsObjectValid(oWp) && GetDistanceBetween(oWp, OBJECT_SELF) <= 10.0f)
       //  ЕСЛИ ЕСТЬ ТАКОЙ WP И ОН НЕ ДАЛЬШЕ 10 МЕТРОВ
       {
       SpeakString(sDoor); // ПРОИЗНОСИМ ЕГО ИМЯ
        return;
       }
       else
          {
          SpeakString("Ошибка! Не могу найти WP_DOOR_TXT!");// ЕСЛИ МЫ ЗАБЫЛИ ПОСТАВИТЬ
          return;
          }
}


************************************************************************************

автор::::::::::::Aiwan::::::::::::::::::::
Mar 14 2004
Воот ну очень простой скриптик. Рандомный лут в КВЕСТОВЫЙ сундук, плюшка к плотовому предмету или еще куда.
Мне необходимо дать игроку разные вещи но +4, +5 и т.д. Править лут общий из-за пары сундуков не охота
Чем проще тем надежнее Вспомнил как мне нужен был такой скрипт год назад
Neverwinter Script Source
//:://////////////////////////////////////////////
//:: Copyright © 2004 WRG!  www.wrg.ru
//:: OnOpen OBJECT
//:://////////////////////////////////////////////
/*
           РАНДОМНЫЙ ЛУТ ДЛЯ СУНДУКА
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan    Aiwane-mail.ru
//:: Created On: 14.03.2004
//:://////////////////////////////////////////////
void main()
{
  object oPC = GetLastOpenedBy();
  string sResRef;
if (!GetIsPC(oPC) || GetLocalInt(OBJECT_SELF, "DO_IT"))
      {return;}
{
  SetLocalInt(OBJECT_SELF, "DO_IT", TRUE);
  int iPrize = Random(10);
             switch (iPrize)
             {
                   case 0:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 1:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 2:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 3:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 4:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 5:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 6:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 7:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 8:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
                   case 9:
                   {
                        sResRef = "sResRef_itm"; break;
                   }
             }
     CreateItemOnObject(sResRef, OBJECT_SELF, 1); // ЭТО РАНДОМНЫЙ ЛУТ
     CreateItemOnObject("sResRef_itm_2", OBJECT_SELF, 1); // ЭТО ПОСТОЯННЫЙ, т.е. В ЛЮБОМ СЛУЧАЕ ВЕЩЬ №2
   }
}


************************************************************************************

КОНЕЦ ЦИКЛА "СКРИПТЫ ДЯДЮШКИ AIWAN'A" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
Вернуться в начало страницы
Скопировать ник в поле быстрого ответа
+Ответить с цитированием данного сообщения
« Предыдущая тема · Neverwinter Nights Aurora Toolset · Следующая тема »
 

5 страниц V  < 1 2 3 4 > » 
Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

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

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

Текстовая версия Сейчас: 28th April 2025 - 16:05
Powered By IP.Board © 2025  IPS, Inc.
Licensed to: WRG! Team