Page 1 of 1
Кому несложно............
Posted: 27.09.2008 14:21
by proZak
напишите процедуру кто шарит, а то у меня неполучаетсо.
Смысл процедуры: есть чар ник (proZak) и есть другой чар Slade,
нада шоб када подходит чар proZak к чару Slade и гейтует перед ним и говорит какуето фразу, чар Slade делает дабл клик на гейт токо 1раз.
Буду очень благодарен за помощ!!
Posted: 28.09.2008 22:09
by proZak
шо нехто нешарит?
Posted: 30.09.2008 20:20
by Alexej
а сам пробовал писать?
ищешь чара что подходит, если нашел слушаешь журнал, когда услышал фразу ищешь гейт на земле и 2клик по финдитему...
Posted: 30.09.2008 21:49
by proZak
Alexej wrote:а сам пробовал писать?
ищешь чара что подходит, если нашел слушаешь журнал, когда услышал фразу ищешь гейт на земле и 2клик по финдитему...
пробывал неполучаетсо я нешарю в журналах нечиво, есле несложно то напишы такую процедуру или хотябы шото в етом роде, а я попытаюсь розобратсо.
Posted: 01.10.2008 0:21
by <'((><
proZak wrote:я нешарю в журналах нечиво
По моему, хотя в этом деле чайник, журнал - это самое главное... Любой скрипт/процедура реагирует на сообщения в нем(в УО журнале).
Posted: 01.10.2008 0:23
by <'((><
Я действительно чайник, так что не судите строго, если что-то не так сказала...
Posted: 01.10.2008 8:18
by Alexej
счаз никак не могу - завальчик, разгребу через недельку... может, попробываю...
пробуй сам творить - быстрее получится...
а пробы уже на форум бросай - быстрее помогут...
Posted: 02.10.2008 22:44
by proZak
Alexej wrote:счаз никак не могу - завальчик, разгребу через недельку... может, попробываю...
пробуй сам творить - быстрее получится...
а пробы уже на форум бросай - быстрее помогут...
тода будем ждать
Posted: 04.10.2008 17:46
by proZak
Так как я нечево не шарю в журналах написал без журнала но всеровно неработает:
Code: Select all
const
GateType = $0F6C; // Тип гейта
Code: Select all
begin
Finddistance := 1;
if FindType(GateType, Ground) = 1 then
begin
Gate := finditem;
UseObject(Gate);
end;
end
ошыбок некаких невыдает но работать тоже нехочет
Posted: 04.10.2008 18:37
by Beren
читаем:
FindType (ObjType : Word, Container : Cardinal) : Cardinal - Поиск объекта указанного типа в указанном контейнере. Возвращает ID вещи, либо 0 при неудачном поиске. Не ищет в подсумках. Аналогично FindTypeEx(ObjType,$FFFF,Container,false).
и думаем, всё просто...
Posted: 04.10.2008 19:06
by proZak
Beren wrote:читаем:
FindType (ObjType : Word, Container : Cardinal) : Cardinal - Поиск объекта указанного типа в указанном контейнере. Возвращает ID вещи, либо 0 при неудачном поиске. Не ищет в подсумках. Аналогично FindTypeEx(ObjType,$FFFF,Container,false).
и думаем, всё просто...
Дело в том шо ето не контейнер, а Гейт (каст у мага - появляетсо портал через который можна попасть в заданое место) и искать нада не в контейнере а на земле на растоянии одной клетки и зделать дабл клик на гейт.
Posted: 04.10.2008 19:35
by Beren
я же совсем про другое!
Code: Select all
if FindType(GateType, Ground) = 1 then
подсказка, ошибка в правой части сравнения, прочитай ещё раз описание функции
FindType и посмотри какой результат она возвращает)
Posted: 04.10.2008 20:13
by proZak
Beren wrote:я же совсем про другое!
Code: Select all
if FindType(GateType, Ground) = 1 then
подсказка, ошибка в правой части сравнения, прочитай ещё раз описание функции
FindType и посмотри какой результат она возвращает)
так?:
Code: Select all
if FindType(GateType, Ground) then
Posted: 04.10.2008 20:18
by Beren
Возвращает ID вещи, либо 0 при неудачном поиске.
следовательно:
Code: Select all
if FindType(GateType, Ground)>0 then
Posted: 05.10.2008 0:07
by proZak
Beren wrote:следовательно:
А можеш помоч ищо с етим?:
http://stealth.od.ua/forum/viewtopic.php?p=5171#5171
за первое спс, я правдо ищо нетестил работает ли оно но думаю должно работать.