Search found 226 matches

by GeeZeR
29.06.2018 21:43
Forum: Основной раздел
Topic: Сигнал тревоги
Replies: 3
Views: 3030

Сигнал тревоги

http://www.findsounds.com/ISAPI/search. ... ords=alarm
Тут собрана куча различных сигналов тревоги, очень полезно для разных оповещений и т.д. В Стелсе работают звуки формата wav, 16-bit. Другие типы wav-файлов у меня не захотели пищать, короче наслаждайтесь!
PlayWav(FileName : String);
by GeeZeR
28.06.2018 9:31
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

задавай сколько хочешь, там одни ноли будут по умолчанию
by GeeZeR
28.06.2018 7:10
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

Вот это всё - жуткое извращение: Procedure AllMobTypeList; Begin MobTypeList:= [$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0000, $0000, $0000,$0000, $0000, $0...
by GeeZeR
27.06.2018 16:40
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

MoveThroughNPC := 0;
где-нить в начале скрипта
by GeeZeR
27.06.2018 12:43
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

канеш.
ты раздуешь код свой, делай через экс
by GeeZeR
27.06.2018 12:08
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

с этой функцией вот так:

var
hmm: array of word;
...
hmm := TypeFTaming;
FindTypesArrayEx([hmm[0], hmm[1], и т.д...], [$FFFF], [Ground], False);

:)

или возвращай конкретные индексы массива из TypeFTaming, я ж грю геморойная схема
by GeeZeR
27.06.2018 11:52
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

по моему так не будет работать, в FindTypesArrayEx нужно именно перечислить элементы, а просто написать там название массива не получится
by GeeZeR
27.06.2018 10:53
Forum: Заявки на новые возможности
Topic: Кидаем сюда заметки по "косметической" области
Replies: 26
Views: 51114

Re: Кидаем сюда заметки по "косметической" области

Алексей, ты мог бы добавить отображение координат в заголовке окна клиента (вкладка display длл)? Если можно в двух форматах: x,y и градусы с секундами.
by GeeZeR
27.06.2018 10:15
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

а зачем? Я тоже таким страдал поначалу, думал чем круче тем лучше, через неделю ты хрен вспомнишь чё ты хотел, или неочевидный баг возникнет ты с ума сойдёшь. Делай проще, зачем тебе эти массивы.
by GeeZeR
27.06.2018 9:32
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

Ты слишком всё усложняешь, типы животных привязаны к твоему скилу таминга сделай функцию типа: PROGRAM New; function LFAnimal():Cardinal; begin if (GetSkillValue('Animal Taming') >= 11.1) and (GetSkillValue('Animal Taming')< 29.1) then begin Result := FindTypesArrayEx([$00CF, $00D8], [$FFFF], [Groun...
by GeeZeR
27.06.2018 1:11
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

KaToK wrote:Вот правда не уверен очистится ли testarray после вызова функции?
по идее должен уничтожиться после завершения работы функции. Я те говорю тебе оно не надо, просто создай массив в обычном виде без всяких функций.
by GeeZeR
27.06.2018 1:02
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

кстати можешь сократить код:
FindTypesArrayEx([$00CF, $00D8, $00DC, $00E8, $00E9], [$FFFF], [Ground], False);
ищет сразу всех, потом гасишь их по finditem, тебе ж в принципе всё равно кого именно.
by GeeZeR
27.06.2018 0:58
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

да просто надо было проверить что находится в переменной, поставить AddToSystemJournal(inttostr(MobTypeList[3])); перед FindType(MobTypeList[3],ground);
by GeeZeR
27.06.2018 0:09
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

если очень хочется через функцию, можно так:

Code: Select all

Program New;

function Bools(a:word):word;
var
	testarray: array of word;
Begin
	testarray:=[$00D5];
	Result:=testarray[a];
end;

begin
	FindDistance := 20;
	FindType(Bools(0),ground);
	AddToSystemJournal(inttostr(FindCount));
end.
by GeeZeR
27.06.2018 0:02
Forum: Помощь по скриптам
Topic: FindType & FindTypeEx не находит мобов.
Replies: 37
Views: 13255

Re: FindType & FindTypeEx не находит мобов.

а процедурой зачем? Это имеет смысл если у тебя большая куча массивов хранится в отдельном файле и ты его подключаешь к основному скрипту, просто для удобства чтобы не захламлять скрипт, а если всё в одном файле то создавай массив как обычно да и всё.