Кричалка

[Jason]

End.

[nah nah]

наверное

Code: Select all

UOSay(Chr(39)+'gsay Появился в доме на ламбере. ' + a);

[Jason]

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

[nah nah]

я не очень в паскале, но мб после while надо begin?

[Jason]

я не очень в паскале, но мб после while надо begin?

тут чуток разобрался уже) но все же есть нюанс
видит перса и кричит но не называет его имени(( место имени пишет System

[nepopus]

Попробуй плясать от этого образца.

Code: Select all

var
  objTypes: array of word;
  i: integer;
  s: string;

begin
  finddistance := 15;
  findvertical := 15;
  objTypes := [$0190, $0191]; // Типы бабы и мужика.

  while true do begin
    s := '';

    ignore(self); // На случай, если кричим не мертвым(пока) персом.
    for i := 0 to high(objTypes) do
      while findtype(objTypes[i], ground) > 0 do begin
        ignore(finditem);
        clickonobject(finditem);
        checklag(10000);
        wait(200);
        s := s + getname(finditem) + ' ';
      end;
    ignorereset;
    
    if s <> '' then begin
      uosay(Chr(39) + 'gsay У дома на ламбере замечены: ' + s);
      checklag(10000);
      wait(4000); // Защита от флуда.
    end;

    wait(300); // Снизим нагрузку, т.к. помимо этого окна будут и другие.
  end;
end.

[Jason]

Та же фигня((( он ник не говорил пишет System. а скрипт тот что ты скинул вобще не запускается) НО попробовал написать по этому типу опредления имени и тд но не кричит имя((

[nepopus]

На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.

Тут я тебе вряд ли помогу =)

А почему кста скрипт не запускается? Ошибка или что?

[Jason]

На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.

Тут я тебе вряд ли помогу =)

А почему кста скрипт не запускается? Ошибка или что?

Unknown identifier 'high'

[nepopus]

На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.

Тут я тебе вряд ли помогу =)

А почему кста скрипт не запускается? Ошибка или что?

Unknown identifier 'high'

а ты обновляешь стелс? = )
поставь там

Code: Select all

for i := 0 to 1 do

[Jason]

На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.

Тут я тебе вряд ли помогу =)

А почему кста скрипт не запускается? Ошибка или что?

Unknown identifier 'high'

а ты обновляешь стелс? = )
поставь там

Code: Select all

for i := 0 to 1 do

уже разобрался) все норм теперь надо както удалить тему) а то в плохих руках этот скрипт страшное оружие)

[nepopus]

уже разобрался) все норм теперь надо както удалить тему) а то в плохих руках этот скрипт страшное оружие)

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

[chencho]

когда кричит ники перед никами черточка вот такая _ постоянно как ее убрать

[Kallish]

Как сделать так что бы он кричал командой .c(у нас так гильд чат) и мог кричать в дохлом режиме.

[nepopus]

когда кричит ники перед никами черточка вот такая _ постоянно как ее убрать

У меня нет никакой черточки =) Попробуй поэксперементируй с командой copy(ник, 2, length(ник)).

Как сделать так что бы он кричал командой .c(у нас так гильд чат) и мог кричать в дохлом режиме.

На сервере может быть запрет на разговор в гчате мертвым персонажем Если запрета нет, то он должен нормально кричат. Насчет .с не знаю, нужно тебе самому эксперементировать.