Provocation

[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"

[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; 

Перед else точку с запятой ставить нельзя

[ParadoX]

такой вопрос.. я паскаль плоха знаю.. как обозначается знак пустого оператора.. например мне нужно ПРОСТО запустить две функции... через If..

ну в си можно было проста

if ....
;

и тп

[Miralex]

такой вопрос.. я паскаль плоха знаю.. как обозначается знак пустого оператора.. например мне нужно ПРОСТО запустить две функции... через If..

ну в си можно было проста

if ....
;

и тп

Что значит знак пустого оператора?

Если ты имеешь ввиду операторные скобки - то так:

Code: Select all

if условие then
   begin
   {твои код}
   end;