как использовать весчь одетую на чара?

[Edred]

Уже пятый человек за последние несколько дней (большинство пытали меня в аське) наступает на одни и те же грабли: begin...end.

Запомните: во всех операторах цикла кроме REPEAT и в условном операторе IF - если вам нужно выполнить ОДНУ команду - пишите без begin и end. Если надо выполнить блок операций, заключайте его в begin...end. Например:

Code: Select all

if Dead then
   flag := true;
addtosystemjournal('test');

Code: Select all

if Dead then
begin
   flag := true;
   addtosystemjournal('test');
end;

В первом случае сообщение 'test' будет падать в журнал всегда, во втором - только если чар мертв...

[Chepka]

Так как написал Миралекс неработает:(

Program bint;
begin
while true do
begin
FindDistance:=0;
if (count($0E21) >= 1) then
wait(500);
else
begin
findType($0E21,Ground);
Grab(finditem,1);
wait(500);
end;
end;
end.

а так как Едред написал заработало но только на 0.95 версии стелса
в первой версии когда нажал запустить скрипт в системном журнале написало чтото типа память неможет быть рид) и стелс завис:)))
перезапустил теперь всё ок:)
вот рабочая версия:))

Program bint;
begin
while true do
begin
FindDistance:=0;
if (count($0E21) < 1) then
begin
findType($0E21,Ground);
Grab(finditem,1);
wait(500);
end;
end;
end.

[Miralex]

Так как написал Миралекс неработает:(

Хммм ...
Вообщето оно и запуститься не могло. Кто ж перед else ставит точку с запятой?

[Chepka]

нет всётаки в 1 версии стелса неработает) зависает..
или пишет ошибку в систем журнале и тутже зависает
вот что оно пишет
Compiling
Compiled succecfully
Exception: Acces violation at address 004E4640 in modulr 'Stealth.exe'. Read of address 0000006B at 0.230
Script podbor.txt stoped successfuly

при этом всём стелс благополучно зависает:))

[Miralex]

Стукни в аську - проверим.