Кому несложно............

proZak · Post by **proZak** » 27.09.2008 14:21

напишите процедуру кто шарит, а то у меня неполучаетсо.
Смысл процедуры: есть чар ник (proZak) и есть другой чар Slade,
нада шоб када подходит чар proZak к чару Slade и гейтует перед ним и говорит какуето фразу, чар Slade делает дабл клик на гейт токо 1раз.
Буду очень благодарен за помощ!!

proZak · Post by **proZak** » 28.09.2008 22:09

шо нехто нешарит?

Alexej · Post by **Alexej** » 30.09.2008 20:20

а сам пробовал писать?

ищешь чара что подходит, если нашел слушаешь журнал, когда услышал фразу ищешь гейт на земле и 2клик по финдитему...

proZak · Post by **proZak** » 30.09.2008 21:49

Alexej wrote:а сам пробовал писать?

ищешь чара что подходит, если нашел слушаешь журнал, когда услышал фразу ищешь гейт на земле и 2клик по финдитему...

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

<'((>< · Post by **<'((><** » 01.10.2008 0:21

proZak wrote:я нешарю в журналах нечиво

По моему, хотя в этом деле чайник, журнал - это самое главное... Любой скрипт/процедура реагирует на сообщения в нем(в УО журнале).

<'((>< · Post by **<'((><** » 01.10.2008 0:23

Я действительно чайник, так что не судите строго, если что-то не так сказала...

Alexej · Post by **Alexej** » 01.10.2008 8:18

счаз никак не могу - завальчик, разгребу через недельку... может, попробываю...
пробуй сам творить - быстрее получится...
а пробы уже на форум бросай - быстрее помогут...

proZak · Post by **proZak** » 02.10.2008 22:44

Alexej wrote:счаз никак не могу - завальчик, разгребу через недельку... может, попробываю...
пробуй сам творить - быстрее получится...
а пробы уже на форум бросай - быстрее помогут...

тода будем ждать

proZak · Post by **proZak** » 04.10.2008 17:46

Так как я нечево не шарю в журналах написал без журнала но всеровно неработает:

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

ошыбок некаких невыдает но работать тоже нехочет

Beren · Post by **Beren** » 04.10.2008 18:37

читаем:
FindType (ObjType : Word, Container : Cardinal) : Cardinal - Поиск объекта указанного типа в указанном контейнере. Возвращает ID вещи, либо 0 при неудачном поиске. Не ищет в подсумках. Аналогично FindTypeEx(ObjType,$FFFF,Container,false).
и думаем, всё просто...

proZak · Post by **proZak** » 04.10.2008 19:06

Beren wrote:читаем:
FindType (ObjType : Word, Container : Cardinal) : Cardinal - Поиск объекта указанного типа в указанном контейнере. Возвращает ID вещи, либо 0 при неудачном поиске. Не ищет в подсумках. Аналогично FindTypeEx(ObjType,$FFFF,Container,false).
и думаем, всё просто...

Дело в том шо ето не контейнер, а Гейт (каст у мага - появляетсо портал через который можна попасть в заданое место) и искать нада не в контейнере а на земле на растоянии одной клетки и зделать дабл клик на гейт.

Beren · Post by **Beren** » 04.10.2008 19:35

я же совсем про другое!

Code: Select all

if FindType(GateType, Ground) = 1 then

подсказка, ошибка в правой части сравнения, прочитай ещё раз описание функции FindType и посмотри какой результат она возвращает)

proZak · Post by **proZak** » 04.10.2008 20:13

Beren wrote:я же совсем про другое!
Code: Select all
if FindType(GateType, Ground) = 1 then
подсказка, ошибка в правой части сравнения, прочитай ещё раз описание функции FindType и посмотри какой результат она возвращает)

так?:

Code: Select all

if FindType(GateType, Ground)  then

Beren · Post by **Beren** » 04.10.2008 20:18

Возвращает ID вещи, либо 0 при неудачном поиске.

следовательно:

Code: Select all

if FindType(GateType, Ground)>0 then

proZak · Post by **proZak** » 05.10.2008 0:07

Beren wrote:следовательно:

А можеш помоч ищо с етим?:
http://stealth.od.ua/forum/viewtopic.php?p=5171#5171
за первое спс, я правдо ищо нетестил работает ли оно но думаю должно работать.