Кричалка
Posted: 24.07.2012 16:00
End.
Code: Select all
UOSay(Chr(39)+'gsay Появился в доме на ламбере. ' + a);
тут чуток разобрался уже) но все же есть нюансnah nah wrote:я не очень в паскале, но мб после while надо begin?
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.
nepopus wrote:На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.
Тут я тебе вряд ли помогу =)
А почему кста скрипт не запускается? Ошибка или что?
а ты обновляешь стелс? = )Jason wrote:nepopus wrote:На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.
Тут я тебе вряд ли помогу =)
А почему кста скрипт не запускается? Ошибка или что?
Unknown identifier 'high'
Code: Select all
for i := 0 to 1 do
уже разобрался) все норм теперь надо както удалить тему) а то в плохих руках этот скрипт страшное оружие)nepopus wrote:а ты обновляешь стелс? = )Jason wrote:nepopus wrote:На моем сервере(дрв), все работает.
И скрипт запускается без ошибок, и имя персонажей пишется.
Тут я тебе вряд ли помогу =)
А почему кста скрипт не запускается? Ошибка или что?
Unknown identifier 'high'
поставь тамCode: Select all
for i := 0 to 1 do
Боюсь, что основная часть тут моя, и т.к. тему ты не удалишь, то она останется на всеобщее обозрениеJason wrote:уже разобрался) все норм теперь надо както удалить тему) а то в плохих руках этот скрипт страшное оружие)
У меня нет никакой черточки =) Попробуй поэксперементируй с командой copy(ник, 2, length(ник)).chencho wrote:когда кричит ники перед никами черточка вот такая _ постоянно как ее убрать
На сервере может быть запрет на разговор в гчате мертвым персонажемKallish wrote:Как сделать так что бы он кричал командой .c(у нас так гильд чат) и мог кричать в дохлом режиме.