Page 1 of 1
Provocation
Posted: 27.04.2005 12:40
by diGriZzZ
Code: Select all
Begin
p:=0;
while true do
begin
i:=0;
if p = 10 then DisConnect;
while i < 30 do
begin
repeat
{if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;}
b:=Now;
WaitTargetObject($0113DC1E); //ID of your pet which is provoked
wait(1000);
UseSkill('Provocation');
until WaitJournalLine(b, 'Select a target to provoke this onto|You enrage|I am already',10000); //serching in journal
if WaitJournalLine(b, 'Select a target to provoke this onto',1) then
begin
WaitForTarget(2000);
begin
TargetToObject($0113DD97); {ID of pet 2}
wait(2000);
p := 0;
end;
end;
if WaitJournalLine(b, 'You enrage',1) then
begin
p := 0;
wait(3000);
end;
if WaitJournalLine(b, 'I am already',1) then
begin
p := p + 1;
Wait(2000);
end;
i := i + 1;
end;
Hungry(1);
end; {end while}
End.
Должен делать дисконнект при подвисании таргета (тут я включаю счётчик)... скрипт компилируется, но упорно отказывается работать так как я хочу... т.е. он либо указывает таргетом не на ту тварь, либо отменяет таргет...
Code: Select all
Begin
p:=0;
while true do
begin
i:=0;
while i < 30 do
if p = 20 then DisConnect;
begin
repeat
if TargetPresent then
begin
CancelTarget;
Wait(1000);
end;
b:=Now;
WaitTargetObject($0113DC1E); //ID of your pet which is provoked
wait(1000);
UseSkill('Provocation');
until WaitJournalLine(b, 'Select a target to provoke this onto|You enrage|I am already',5000); //serching in journal
WaitForTarget(1000);
if TargetPresent then
begin
TargetToObject($0113DD97); //ID of pet which is a target for the first one
p := 0;
wait (1500);
end;
else
p := p + 1;
end;
i := i + 1;
end;
Hungry(1);
end; {end while}
End.
это упрощённый вариант первого скрипта, который вообще отказывается работать ссылаясь на ошибку "Compiler: [Error] (87:4): Identifier expected"
Posted: 28.04.2005 7:23
by Miralex
Должен делать дисконнект при подвисании таргета
Смотри
http://stealth.od.ua/forum/viewtopic.php?t=42
скрипт компилируется, но упорно отказывается работать так как я хочу... т.е. он либо указывает таргетом не на ту тварь, либо отменяет таргет...
Скрипт построен изначально неверно. Неверен сам принцип и структура скрипта.
это упрощённый вариант первого скрипта, который вообще отказывается работать ссылаясь на ошибку "Compiler: [Error] (87:4): Identifier expected"
Тебе компилятор подсказывает:
У тебя ошибка в 87 строке. смотри 4 символ.
Скрипт ты выложил явно не целиком, поэтому тяжело угадывать какая у тебя будет 87-я строка.
Единственное бросается не вооруженным глазом:
Code: Select all
p := 0;
wait (1500);
end;
else
p := p + 1;
Posted: 28.04.2005 8:54
by ParadoX
такой вопрос.. я паскаль плоха знаю.. как обозначается знак пустого оператора.. например мне нужно ПРОСТО запустить две функции... через If..
ну в си можно было проста
if ....
;
и тп
Posted: 28.04.2005 9:24
by Miralex
ParadoX wrote:такой вопрос.. я паскаль плоха знаю.. как обозначается знак пустого оператора.. например мне нужно ПРОСТО запустить две функции... через If..
ну в си можно было проста
if ....
;
и тп
Что значит знак пустого оператора?
Если ты имеешь ввиду операторные скобки - то так:
Code: Select all
if условие then
begin
{твои код}
end;