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

3 страниц V < 1 2 3  
Ответить в эту темуОткрыть новую тему
> spawnernpc ( quest system ), подати(quest system)
pager
сообщение 4.10.2016, 18:33
Сообщение #41


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Маленький patch:
Теперь только игрок попадает в систему репутации, а не нпс


Прикрепленный файл  MSetReporttables_04.10.2016.rar ( 506 байт ) Кол-во скачиваний: 39


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 2.7.2017, 11:13
Сообщение #42


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Spawnenpc ver 1.9 system quest and system ai and combat and class and race and checkskill and skill taming by nightowl0786

Прикрепленный файл  pol_099_beta_Oct_15_2016____spawnenpc_ver_1.9_and_system_ai_and_class_and_race_and_combat_and_skill_taming_2.07.2017_full_x64.rar ( 1,54 мегабайт ) Кол-во скачиваний: 24


В пакете содержится также новый ai system и обновленная документация.


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 2.7.2017, 19:03
Сообщение #43


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Docs ver 1.9 by nightowl0786
Опции системы
Пол - смена пола Нпс формат "0","1"(0-мужской,1-женский)
Расса - смена расы формат "1".."n"(1-человек,"n" - номер расы из uoclient.cfg)
Время - установка времени НПС, если "0" НПС ресниться мгновенно.
Удалить - удаляет НПС.
Дистанция - устанавливает дистанцию обработки команд от НПС.
Линия обзора - формат "0","1"(1-НПС не должен быть огражден от игрока стенкой и т.д
Инвентарь - имя группы из equip.cfg,то что оденется на НПС при создании
Лут группа - имя группы из lootgroup.cfg,то что появиться в трупе НПС.
Добавить команду - добавляет команду с номером события, которое при вызове команды посылается НПС<br>
Радиус - Устанавливает расстояние на которое НПС сможет уйти от респа иначе ресниться обратно на респ
Боевой радиус - устанавливает боевое расстояние на которое нпс во время боя сможет уйти от точки создания.
Добавить задание - создает задание<br>
Случайны цвет - окрашивает нпс в случайный цвет из списка,цвет задается через запятую. Примёр: 0,200,500,300 - установит 4 вида цвета

Убить НПС - убивает нпс

Время зарплаты - через скоко будет взиматься зарплата (в часах)
опции системы торговли
Добавить продукт - добавляет продукт(имя продукта из itemdesc.cfg) так же через символ ":" ставится класс мод и пойзон. Пример pickfork:5:5:5 - вещь получит имя: Supremety accurate pickfork of vanquishing ( letal poisoned )
Время торговли - устанавливает время (в минутах) через скоко будет обновляться товар в системной гильдии.
Налоговый сбор - установка налога с продажи и покупки товара в процентах (от 0 до 100 снимается со средней цены товара)
Добавить деньги - добавляет деньги (имя денег из moneys.cfg)
Добавить гильдию - добавляет гильдию (номер существующей гильдии или "0" для системной гильдии)

Время зарплаты - через скоко будет взиматься зарплата (в часах)
Зарплата - скоко нпс будет брать с гильдии денег формат: имя_денег=количество(имя денег берется из списка денег из меню если формат в веден правильно то меняется цвет с красного на зеленый).
Меню продуктов:
Продавать - средняя цена продажи товара (ни какая гильдия не сможет продавать товар дороже чем "средняя цена продажи" * 2)
Покупать - средняя цена покупки товара ( ни какая гильдия не сможет покупать дешевле чем "средняя цена покупки" / 2)
Количество - количество создаваемое системной гильдией товара
Скупать - количество товара которое будет скупать системная гильдия
Меню список гильдийских продуктов<br>
Открыть продажи - откроет контейнер продаж
Открыть покупки - откроет контайнер покупок
Снять деньги - снимит деньги за один раз максимум 60000
Добавить деньги - добавит деньги (деньги берется либо из сумки персонажа либо с веб денег)<br>
Меню гильдийского продукта
Продавать - цена продажи продукта либо "0" чтобы не продавать продукт
Покупать - цена покупки продукта либо "0" чтобы не покупать продукт
скупить - количество продукта которое скупит торговец


Опцыи системы квест

Время - устанавливает время ( в минутах ) через которое можно будет брать задание "0" - задание можно будет взять только 1 раз
Язык - переключает язык
включен - "1" - задание включено ( включение сопровождается сменой цвета имени задания с красного на зеленый)<
Взять - устанавливает условия взятия задания ( через запятую) формат:
имя_команды | параметры
команды:
"class"
"attributes"
Параметры:
Все параметры устанавливаются после символа "|"
"count(ct)"
Примеры:
class=mage|ct=5 - персонаж должен будет быть класса маг и его левел должен быть ниже 5
attributes=magery|ct=50 - у персонажа должен быть навык магии ниже 50
Объединяем два условия ( через запятую ) class=mage|ct=5 ,attributes=magery|ct=50

награда - устанавливает награду за выполнения задания (через запятую) формат:
тип_вещи = имя_вещи | параметры
типы вещей:
"item"
"armor"
"weapon"
"exp" - устанавливает награду в виде опыта для левела в классах формат: exp=отображаемое_имя|параметры пример: exp=exp|ct=1000 даст в награду 1000 опыта.
"attribute" - устанавливает награду в виде навыка или стата формат: attribute=magery|ct=1;attribute=50 - будет давать в награду навык магии один процент если навык миньше 50
Параметры:

Все параметры устанавливаются после символа "|"

В скобках имена сокращённые можно использовать место полных

Список параметров
"attribute (at)" - условие если атрибут меньше параметра attribute то установит атрибут иначе не установит. <br>
"count (ct)" - количество вещи
"class (cs)" - целое(от 0 до 5) - устанавливает на оружие класс пример (class=5): axe of vanquishing (устанавливает на оружие dmg_mod 25)
"mod (md)" - целое(от 0 до 5) - устанавливает на вещь модификатор пример (mod=5): supremely accurete axe (будет давать + 25 к сварде)
В сумме параметров (class=5;mod=5) мы получим оружие со следующим именем supremely accurete axe of vanquishing<br> Эти параметры в тестовом режиме вы можете их переопределить в include "MCreateItemInBackPack" и include "MGetWeaponDesc" и подключенных в нем include's

Примеры:
Установить награду в 1000 золотых монет
item=goldcoin|ct=1000
Задание - устанавливает что нужно сделать для завершения задания формат:
имя_команды=имя|параметры



Список команд: "give" - дать НПСу вещь формат:
give = имя_вещи | параметры
"quest" - выполнить задание формат:
quest = имя_задания | параметры
"kill" - убить формат:<br>
kill = имя_шаблона| параметры
"create" - Создать формат :
create = имя_вещи | параметры
Параметры:

"Параметры" не обязательная часть команды перечисляются после символа "|"

Параметр должен завершатся символом ";" если он не последний ,так же если параметр состоит из двух и более слов пример(test 2) то параметр нужно помещать в одинарные кавычки пример: out_quest='test 2'

В скобках имена сокращенные которые можно использовать в место полных

id (id) - устанавливает номер нпс который вам нужен
mod (md) - устанавливает какого модификатора должна быть вещь
class (cs) - устанавливает какого класса должна быть вещь
count (ct) - устанавливает количество (вещи,задания,нпс)
realm (rm) - устанавливает карту которую вам нужно
serial (sl) - устанавливает серею обекта которую вам нужно
region (rn) - устанавливает регион который вам нужен
spawnerserial (ss) - устанавливает серию номер спавнера который вам нужен
event - переопределяет события например death пример: event=kill:test2 вызовит рандомно событие kill или test2 при положительном результате условия
Примеры заданий:

Пример с командой quest:
Персонажу нужно выполнить какой то другой квест для завершения этого квеста.<br>
quest = test1 где test1 имя квеста - Надо будет выполнить квест с именем test1 для завершения этого квеста.

Теперь это же квест но с параметрами.
quest = test1 | spawnerserial = 125; region = test; realm = brittania; id = 1 где
spawnerserial (ss) - это серийный номер спавнера.
region (rn) - это регион где должен находится нпс.
realm (rm) - это карта где должен находится спавнер
id (id) - это номер НПСа (отображен в верхнем углу меню) у которого должно быть задание

Персонажу надо будет выполнить задание которое находится у НПС c номером (1),а нпс контролируется спавнером с номером (125) находящейся в регионе "test" на карте "britannia"
События квеста:<br>
Death - происходит когда команда kill дает положительный результат.
Give - происходит когда команда give дает положительный результат.
Quest - происходит когда команда quest дает положительный результат
Compiled - происходит когда квест завершается.
Notcompiled - происходит когда квест не завершился.

Pickup - происходит когда персонаж берет квест

Просто события
npcidle - происходит когда нпс выходит из ожидания
guards - происходит когда вызваная команда guards дает положительный результат
blockedmobile - происходит когда моб на тыкается на другого моба
blockedstatic - происходит когда моб на тыкается на статическое препятствие
damaged - происходит когда наносится повреждение нпсу физически
magicdamaged - происходит когда наносится повреждение нпсу магией
engaged - происходит когда персонаж атакует нпс
leftarea - происходит когда персонаж выходит за пределы видимости нпс
Команды событий:<br>
Команды speech=monolog_name|parameters|parameters
Команды sendevent=event_name|parameters|parameters
Команды refusequest=name_quest|id=id_npc;spawnerserial=serial_spawner
Коьанды SendCommandAi=command_name|parameters
Имена команд:
move
attack - SendcommandAi=Attack|serial=caused
stop - sendcommandai=stop|names=move:attack
cast - sendcommandAi=cast|serial=caused;spell=49

Примеры: speech=welcome – нпс скажет монолог welcome<br>
Speech=monolog1:monolog2|template=mbanker;id=1;region=test;realm=britannia - нпс mbanker находяйщийся в регионе test на карте britannia с номером "1" произнесет один из монологов monolog1 или monolog2
speech=monolog1:monolog2|id=1|id=2 Нпс сномером 1 и 2 произнесет рандомно mobilog1 или monolog2<br>
SendEvent=test1 - вызовит событие test1
Sendevent=test1:test2|id=1|id=2 - вызовит рандомно событие test1 или test2 нпсам с номерами 1 и 2

SendCommandAi=move|serial=caused - пошлет команду нпс перемещения устоновив объектом вызвавший событие объект(caused - вызвавший событие объект)<br>
SendcommandAi=move|serial=caused;dist=1;speed=250;flag=0;out_event=test1;out_que
st=out_quest1;delay=10;
SendcommandAi=move|x=1521;y=605;dist=1;speed=250;flag=0;out_event=test1;out_ques
t=out_quest1;delay=10;
В move параметр flag определяет будет ли нпс отбегать отцели ли наоборот подбегать от 0 до 3 если 0 то нпс пойдет шагом к цели если 1 то нпс побежит к цели если 2 то нпс будет уходить от цели если 3 то нпс будет убегать от цели
Параметр dist= устонавлевает дистанцию которую нпс будет держать от цели
Параметр out_event определяет какое событие пошлется при завершении команды
параметр out_quest определяет в коком квесте вызовется событие при завершении команды
Параметр parameter условие определяет при каких обстоятельствах завершится команда например parameter=dist когда дистанция будет достигнута тогда завершится команда
Параметер delay - принудительно завершает команду по истечению времени в секундах

Команды НПС: bank,train,buy,quest,tradeoption
buy - 0x00002025
bank - 0x00002019
train - 0x0000201f
quest - 0x0000201c
tradeoption - 0x00002024



Почта: [email protected]

Сообщение отредактировал pager - 12.8.2017, 23:47


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 4.7.2017, 8:04
Сообщение #44


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Устранена ошибка нпс при входе в зону видимости персонажа не атаковали персонажа.
Прикрепленный файл  ai_ver_1.9_04.07.2017.rar ( 7,31 килобайт ) Кол-во скачиваний: 18


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 7.7.2017, 9:14
Сообщение #45


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Кажется проблема с атакой нпс персонажа решена.Также исправлена ошибка при послании событий blockedmobile и blockedstatc.

Прикрепленный файл  ai_ver_1.9_07.07.2017.rar ( 7,36 килобайт ) Кол-во скачиваний: 22


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Rom1o
сообщение 7.8.2017, 23:36
Сообщение #46


***

Группа: Пользователи
Наличность: 0
Из: Украина - Одесса
Пользователь №: 11.152
Возраст: 27



Вообще !!!!! Автор молодец ! Делает хорошие дела !
*удалено, цензура*

Сообщение отредактировал Juzzver - 8.8.2017, 0:35


--------------------
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 17.9.2017, 17:56
Сообщение #47


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Лукавый развлкается фильм ужасов 2 19


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Александр Needle™
сообщение 18.9.2017, 1:20
Сообщение #48


*******

Mammy's hero
Сообщений: 1.163
Регистрация: 26.5.2009
Группа: Пользователи
Наличность: 535
Из: Украина , Одесса
Пользователь №: 11.891
Возраст: 27



Цитата(pager @ 17.9.2017, 17:56) *

https://youtu.be/ZgOZUkE-KcI фильм ужасов 2 19

Действительно фильм ужасов, зачем себя завалил то? (IMG:style_emoticons/default/smile.gif)
По-компактней сделать квест-окно не хочешь?


--------------------
SITE: www.uoserver.org
GROUP: www.vk.com/uoshipoftheseus
ICQ: 624-20-26 / 424-256-952
VK: www.vk.com/einzig.weltverloren
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 19.9.2017, 5:07
Сообщение #49


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Цитата(Александр Needle™ @ 18.9.2017, 3:20) *

Действительно фильм ужасов, зачем себя завалил то? (IMG:style_emoticons/default/smile.gif)
По-компактней сделать квест-окно не хочешь?

Я ВЕРНУЛСЯ

Сообщение отредактировал pager - 20.1.2018, 12:52


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 20.1.2018, 13:52
Сообщение #50


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Цитата(pager @ 19.9.2017, 7:07) *

Я ВЕРНУЛСЯ

https://www.youtube.com/watch?v=gla0gZfnauI

Попробую собрать для интересующихся сборку и выложить сюда но позже. Пишите в теме кому срочно.


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 2.2.2018, 23:37
Сообщение #51


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Цитата(dontkilla @ 22.12.2012, 14:23) *

На Pol 97 подойдёт? Куда кидать файлы и как им пользоваться ? =)


перешел на Яндекс диск накопления файлов

https://yadi.sk/d/uLLR-ERB3S3iKM


Вот решил написать лицензию на часть системы скарей всего на эту лицензию переведу всю систему.
Код

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//                                                              //
//            System land 1.5 alpha by robotl0786                                    //
//            Mail:    [email protected]                                    //                             //
//            Автор:     Прибытков Александр Валерьевичь дата рождения город Свердловск     1986 год седьмое февраля//                //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Licence(лицензия): один процент за алгоритм на установленой продукции от дохода продукции или щитай себя жмотом если продукция бесплатна то ты не жмот licence можит поменятся если жмотов будет 99 процентов и более лицензия рапростроняется на этот фаил и включеные внего под файлы ////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
use uo;
use os;
use datafile;

include "include/Oasis/MBigZero";
include "include/Oasis/MEventId";
include "include/Oasis/MConstats";

include "include/Oasis/MGetFacing";
include "include/Oasis/MGetElement";
include "include/Oasis/MGetProcPid";

include "include/Oasis/MGetProcNames";
include "include/Oasis/MOpenDataFile";

include "include/Oasis/MWait_For_Event";
include "include/Oasis/MGetObjProperty";
include "include/Oasis/MSetObjProperty";

include "include/Oasis/MSetGlobalProcPid";
include "include/Oasis/MGetGlobalProcPid";
include "include/Oasis/MGetGlobalProperty";
include "include/Oasis/MDataFileFindElement";
include "include/Oasis/MSendObjectProcEvent";
include "include/Oasis/MGetGlobalProcSubNames";

Const    DEFAULT_ECON_TIME        := 900;

set_script_option(SCRIPTOPT_NO_RUNAWAY,1);

const    DEFAULT_SYSTEM_LAND_TIME    := 60;

program systemland()
MSetGlobalProcPid(PROC_SYSTEM,"systemland",struct{pid := GetPid(),message := "script_systemland_name",level := 0});
Control();
MSetGlobalProcPid(PROC_SYSTEM,"systemland");
endprogram
/////////////////////////////////////////////////////////////////////////////////////
function Control()
var file        := MOpenDataFile(SYSTEM_LAND_DATA_PATCH,DF_KEYTYPE_STRING);
var data        := MDataFileFindElement(file,"systemland");
var base        := MGetObjProperty(data,"xyz",struct{time := 0,commands := "?",groups := dictionary});
var event        := 0;
var poltime        := 0;

while(1)

event             := MWait_For_Event(base.time,array{SYSEVENT_SHOTDOWN,SYSEVENT_UPDATE},struct{type := 0});
poltime            := ReadGameclock();

case(event.type)
SYSEVENT_SHOTDOWN:     return;
SYSEVENT_UPDATE:    systemlandupdate(base,event.source);


default:        base.time        := poltime + DEFAULT_SYSTEM_LAND_TIME;
endcase






MsetObjProperty(data,"xyz",base);

endwhile
endfunction
//////////////////////////////////////////////////////////////////////////////////
function systemlandupdate(byref base,byref source)
case(Lower(source.key))
"set_xyz":            SystemLandSetXyz(base,source);
"add_xyz":            systemlandaddxyz(base,source);
"read_xyz":            systemlandreadxyz(base,source);
"delete_bot":            systemlandDeletebot(base,source);
"delete_xyz":            systemlandDeletexyz(base,source);
"send_command":            systemlandSendcommand(base,source);
"set_xyz_read":            SystemlandSetXyzRead(base,source);    
endcase
endfunction
///////////////////////////////////////////////////////////////////////////////////////
function SystemlandSetXyzRead(byref base,byref source)



endfunction
/////////////////////////////////////////////////////////////////////////////////////
function SystemLandSetXyz(byref base,byref source)
var msetxyz := array;

foreach groups in (base.groups.keys())
    foreach xyz in (base.groups[groups].land.xyz)
        if(xyz.mfacing == source.mfacing)
            
            msetxyz.append(xyz);
        endif
    endforeach
endforeach
base.groups[source.groups].land.bots[source.serial].msetxyz.append(msetxyz);
endfunction
///////////////////////////////////////////////////////////////////////////////////////
function SystemLandSetXyzErase(byref base,byref source)
base.groups[groups].land.bots[source.serial].msetxyz.erase(source.group_id);
endfunction
//////////////////////////////////////////////////////////////////////////////////////
function systemlandSendcommand(byref base,byref source)


base.commands        := MGetElement(source.command,"?");

endfunction

///////////////////////////////////////////////////////////////////////////////////
function systemlandDeletexyz(byref base,byref source)
source.group        := Lower(source.group);
base.groups.erase(source.group);

Print("DELETE XYZ: " + source);

endfunction
//////////////////////////////////////////////////////////////////////////////////
function systemlandaddxyz(byref base,byref source)
source.group    := Lower(source.group);
var x1        := MBigZero(base.groups[source.group].land.xyz[MBigZero(base.groups[source.group].land.xyz.size()- 1,1)].x,Cint(source.x));
var y1        := MBigZero(base.groups[source.group].land.xyz[MBigZero(base.groups[source.group].land.xyz.size()- 1,1)].y,Cint(source.y));
var x2        := Cint(source.x);
var y2        := Cint(source.y);
var dist    := CoordinateDistance(x1,y1,x2,y2);
var mfacing    := MGetFacing(x1,y1,x2,y2);






    if(!base.groups.exists(source.group))
        base.groups.insert(source.group,struct{objects := dictionary,land := struct{cxyz := array,bots := dictionary, xyz := array{struct{dist := dist,x := source.x,y := source.y,z := source.z,msize := 0}}}});
            else
        
        base.groups[source.group].land.xyz.append(struct{bots := dictionary,dist := dist,x := source.x,y := source.y,z := source.z,msize := 0});    
    endif
    

base.groups[source.group].land.xyz[MBigZero(base.groups[source.group].land.xyz.size(),1)].dist        := dist;
base.groups[source.group].land.xyz[MBigZero(base.groups[source.group].land.xyz.size(),1)].msize        := 1;
base.groups[source.group].land.xyz[MBigZero(base.groups[source.group].land.xyz.size(),1)].mfacing    := mfacing;
    
Systemlandcxyz(base,struct{group := source.group,xyzidx := base.groups[source.group].land.xyz.size()});


Print("ADD XYZ: " + source + " mfacing: " + mfacing + " : "  + base.groups[source.group].land);




endfunction
////////////////////////////////////////////////////////////////////////////////
function Systemlandcxyz(byref base,byref source)
source.group    := Lower(source.group);
source.xyzidx    := MBigZero(source.xyzidx);
var mfacing    := Cint(base.groups[source.group].land.xyz[source.xyzidx].mfacing);
var x        := 0;
var y        := 0;
case(mfacing - mfacing / 8 * 8)
0:    x := -1;y := 1;
1:    x := -1;y := 0;
2:    x := -1;y := -1;

3:    x := 0;y := -1;

4:    x := 1;y := -1;

5:    x := 1;y := 0;

6:    x := 1;y := 1;
7:    x := 0;y := 1;
endcase
base.groups[source.group].land.cxyz[source.xyzidx]     := struct;
base.groups[source.group].land.cxyz[source.xyzidx].+x    := x;
base.groups[source.group].land.cxyz[source.xyzidx].+y    := y;
endfunction
////////////////////////////////////////////////////////////////////////////////

function systemlandreadxyz(byref base,byref source)
source.group        := Lower(source.group);
source.serial        := cint(source.serial);
source.xyzidx        := Cint(source.xyzidx);
source.xyzstep        := Cint(source.xyzstep);
var i             := 0;
var npc            := SystemFindObjectBySerial(source.serial);
var land        := array{struct{x := 0,y := 0,z := 0,msize := 0,xyzstep := 0}};
var xyzidx        := MBigZero(source.xyzidx,MBigZero(base.groups[source.group].land.bots[source.serial].xyzidx + 1,1));





    if(!base.groups[source.group].land.bots.exists(source.serial))
        base.groups[source.group].land.bots.insert(source.serial,struct{xyzidx := xyzidx,msetxyz := array,group := source.group,offsetxyz := array});
    endif

    if(xyzidx <= Cint(base.groups[source.group].land.xyz.size()) and base.groups.exists(source.group))


    for(i := xyzidx; i <= xyzidx + source.xyzstep; i := i + 1)
        land.append(base.groups[source.group].land.xyz[i]);
        land[land.size()].xyzidx     := i + 1;
        land[land.size()].xyzstep     := source.xyzstep;
        base.groups[source.group].land.bots[source.serial].xyzidx    := i;
        if(i >= base.groups[source.group].land.xyz.size())
            break;
        endif
    endfor
        land.erase(1);
        
        

    endif
/////////////////////////////////////////////////////////////////////////////////////////////////////////
    //for(i := 1;i <= land.size();i := i + 1)
    //    Print("SYSTEM LAND XYZ: " + land[i] + " bot xyzidx: " + Cint(base.groups[source.group].land.bots[source.serial].xyzidx) + " xyzidx: " + xyzidx + " xyzstep: " + source.xyzstep + " size: " + base.groups[source.group].land.xyz.size());
    //endfor

MSendObjectProcevent(npc,PROC_SYSTEM,"control",struct{type := SYSEVENT_UPDATE,source := struct{key := "out_read_land",land := land}});

endfunction
////////////////////////////////////////////////////////////////////////////////////////////

function systemlandDeletebot(byref base,byref source)
source.group        := Lower(source.group);
source.serial        := Cint(source.serial);

base.groups[source.group].land.bots.erase(source.serial);



endfunction













































function SystemLandConverGroupxyz(byref base,byref source)

var x1        := Cint(base.groups[group_name].land.xyz[_xyz_iter].x);;
var y1        := Cint(base.groups[group_name].land.xyz[_xyz_iter].y);
var x2        := Cint(base.groups[group_name].land.xyz[_xyz_iter + 1].x);
var y2        := Cint(base.groups[group_name].land.xyz[_xyz_iter + 1].y);
var dist    := (x2 + x1) - (y2 + y1);;


/base.outxyz.append(Struct{mfacing := MGetFacing(x1,y1,x2,y2),dist := MBigZero(dist,dist * (-1)});


var outxyz    := array;

    //foreach xyz in (base.groups[group_name].xyz)
        //x1    := Cint(base.groups[group_name]land..xyz[_xyz_iter].x);
        //x1    := Cint(base.groups[group_name].land.xyz[_xyz_iter].y);
        //x2    := Cint(base.groups[group_name].land.xyz[_xyz_iter + 1].x);                
        //y2    := Cint(base.groups[group_name].land.xyz[_xyz_iter + 1].y);
        //dist    := (x2 + x1) - (y2 + y1);


        //base.outxyz.append(Struct{mfacing := MGetFacing(x1,y1,x2,y2),dist := MBigZero(dist,dist * (-1)});




        //while(_xyz_iter + 1 <= base[group_name].xyz.size())
            





    
            //Case(mfacing)




            //endwhile


        //endwhile



    //endforeach


endfunction



--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 14.4.2018, 3:21
Сообщение #52


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Изучают голову человека плотя пенсию 8790 рублей



Имена фальшивые. родился 1986 14 - 15 лет влюбился но отказал ждали долго до 21 года пока не вернулся к ним во двор а любовь еще с садика при следовала.

Фамилии моих друзей бывших детства:
Зырянов Андрей - на пол года младше меня(Живой) русский
исаков максим - старше меня неважно( труп) национальность черный татарин преблизительно
Зырянов женя - младше меня на примерно 8 лет (труп) русский
Утяев Станислав - врач(семья врача целая больница и морг на гражданской в морге запчасти и периметр видел в моем 5 8 классе а вот голову мы нашли уже на территории где сабаки там щас стоянка и макси мушка нашел сказал она женская теперь уже не что не скажет),богатый много потем временам денег(судьба не из весна Исаков знал его близко)
Морозов илья
Морозов некита - национальность черный переделка под белого.
Бакулин миша - национальность русский особенности его тетя врачь
патрушев андрей
патрушев илья и другии.
/////////////////////////////////////////////////////////////////////////////
Влюбленный в умах своих пришол я как то в школу номер 185 а там там Горит андрей мой враг.
И Старуха учитель биологии боксера своего завет а все как прежде умные у них А мне Сказали сразу наверно ты безумен и это был учитель обж Нече не понимая что происходит с учителями Людмилой и той которой муж боксер заканчиваю школу.Любовь не отпускает завет меня мой друг андрей наулицю гулять и тут он заявляет что давай с девочками погуляем красивые они смерб ценю и говрю мне там котороя с право катюшкою завут а с юлей ты сам водись страшные они Андрей в стал в позу и я

пошол домой а звали туда где их Сережа из школы где учился я когдато проживал и чирный тот сережа и сашат там их есть который на гражданской квартиру получил Туда и стасик с ехал с красавицей своей не факт что то то крачивое говно со стасиком живетСережки то их жили на черепаново и череп стасик покозал их бог не чистый дух поимени черта пускай стараюца теперь как на луне сутки в секундах 2160 и скорость той луны коротая крутица станет вокруг обекта который щас нам светит.540 на сон 540 на работу читал я в интернете трудолюбивые они ведь мы же человеки а не как вы боги дадим вам отдахнуть 540 оддахнуть дабравший до кровати А ваш богатый будет жить на темной страране зземли там еще луна стоит тенек дает и будет жить то человек 3.25 года если перевести на 31536000 секунд кокраз радит ребенка сдохнет челове калинено тренадцать ваш бог черта там много ваши чертиков и там ваш уралмаш еще там ваша безумная красавица аленка и все ее друзья и номер там больницы как ваша третья школа и там дают ту справку которя должна довать вам право упровля машинкой еще там ваша муха с тремя 666 и все там черна секта вика победа поздравляю Повестись вы вмиг Всего хорошего не ваш раб александар и путина туда со словом которое было у бога все ваши там аминь вам не добавлю ведь там ваш камень проста и катечкой завут и имя то еще хатели поменять катюшкою назвать как думаете вы оком я говорю повесся тварь . Исус бог мне грибпыш мне Исус александар сын а не чистому духу хала и вере его во мне смерть.










,25M-C3kB5t5k6jgSw%3D%3D


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Juzzver
сообщение 16.4.2018, 11:01
Сообщение #53


**********

Модератор RunUO
Сообщений: 3.148
Регистрация: 1.11.2008
Группа: Старшие модераторы
Наличность: 17614
Из: Северная Корея
Пользователь №: 11.273
Возраст: 9



Это пол так мозги плавит или система спавнеров?


--------------------
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
RL_ka
сообщение 16.4.2018, 15:49
Сообщение #54


*****

Разработчик Injection
Сообщений: 405
Регистрация: 13.7.2013
Группа: Модераторы
Наличность: 7139
Из: Екатеринбург
Пользователь №: 16.211



Цитата(Juzzver @ 16.4.2018, 10:01) *

Это пол так мозги плавит или система спавнеров?


это суббота так мозги плавит (IMG:style_emoticons/default/laugh.gif)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Aimed
сообщение 16.4.2018, 19:05
Сообщение #55


********

Master
Сообщений: 1.664
Регистрация: 29.12.2012
Группа: Пользователи
Наличность: 7549
Пользователь №: 15.607



Цитата(pager @ 14.4.2018, 2:21) *

...А мне Сказали сразу наверно ты безумен....


Наверное они были правы)
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
pager
сообщение 11.6.2018, 23:11
Сообщение #56


****

Apprentice
Сообщений: 147
Регистрация: 10.1.2006
Группа: Пользователи
Наличность: 0
Из: --
Пользователь №: 4.699
Возраст: --



Цитата

Изучают голову человека плотя пенсию 8790 рублей
Имена фальшивые. родился 1986 14 - 15 лет влюбился но отказал ждали долго до 21 года пока не вернулся к ним во двор а любовь еще с садика при следовала.

Фамилии моих друзей бывших детства:
Зырянов Андрей - на пол года младше меня(Живой) русский
исаков максим - старше меня неважно( труп) национальность черный татарин преблизительно
Зырянов женя - младше меня на примерно 8 лет (труп) русский
Утяев Станислав - врач(семья врача целая больница и морг на гражданской в морге запчасти и периметр видел в моем 5 8 классе а вот голову мы нашли уже на территории где сабаки там щас стоянка и макси мушка нашел сказал она женская теперь уже не что не скажет),богатый много потем временам денег(судьба не из весна Исаков знал его близко)
Морозов илья
Морозов некита - национальность черный переделка под белого.
Бакулин миша - национальность русский особенности его тетя врачь
патрушев андрей
патрушев илья и другии.
/////////////////////////////////////////////////////////////////////////////
Влюбленный в умах своих пришол я как то в школу номер 185 а там там Горит андрей мой враг.
И Старуха учитель биологии боксера своего завет а все как прежде умные у них А мне Сказали сразу наверно ты безумен и это был учитель обж Нече не понимая что происходит с учителями Людмилой и той которой муж боксер заканчиваю школу.Любовь не отпускает завет меня мой друг андрей наулицю гулять и тут он заявляет что давай с девочками погуляем красивые они смерб ценю и говрю мне там котороя с право катюшкою завут а с юлей ты сам водись страшные они Андрей в стал в позу и я

пошол домой а звали туда где их Сережа из школы где учился я когдато проживал и чирный тот сережа и сашат там их есть который на гражданской квартиру получил Туда и стасик с ехал с красавицей своей не факт что то то крачивое говно со стасиком живетСережки то их жили на черепаново и череп стасик покозал их бог не чистый дух поимени черта пускай стараюца теперь как на луне сутки в секундах 2160 и скорость той луны коротая крутица станет вокруг обекта который щас нам светит.540 на сон 540 на работу читал я в интернете трудолюбивые они ведь мы же человеки а не как вы боги дадим вам отдахнуть 540 оддахнуть дабравший до кровати А ваш богатый будет жить на темной страране зземли там еще луна стоит тенек дает и будет жить то человек 3.25 года если перевести на 31536000 секунд кокраз радит ребенка сдохнет челове калинено тренадцать ваш бог черта там много ваши чертиков и там ваш уралмаш еще там ваша безумная красавица аленка и все ее друзья и номер там больницы как ваша третья школа и там дают ту справку которя должна довать вам право упровля машинкой еще там ваша муха с тремя 666 и все там черна секта вика победа поздравляю Повестись вы вмиг Всего хорошего не ваш раб александар и путина туда со словом которое было у бога все ваши там аминь вам не добавлю ведь там ваш камень проста и катечкой завут и имя то еще хатели поменять катюшкою назвать как думаете вы оком я говорю повесся тварь . Исус бог мне грибпыш мне Исус александар сын а не чистому духу хала и вере его во мне смерть.


Форум Uopilot wk ultima online тема называеца ' скрипты ' до 2007 года тема можно найти по моему нику pager с сылку кину позже стелефона не понел как с сылку вставить позже ставлю.

Кто может подскозать Какая опция вставляет на этом форуме с сылку .спасибо не скажу


--------------------
S: nightowl0786
М: [email protected] Не good delete msg тема реальная .
ПРО :D ВРАЧЕЙ
Скрипт на ламбер uopilot wk ver 1.07 beta 8 тема скрипты
Д: 12.01. 2007 в той теме было send msg 11.06.2018 (бн до 26)
Вы это называете демакратией?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

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

 

- Текстовая версия | Версия для КПК Сейчас: 19.9.2018, 0:11
Designed by Nickostyle