help Please

[m0nya]

Доброго времени суток , people's Help please с Итемом у нас на шарде итем просто на 1 вещи не качаеться ... играю на POL процедура происходит следующим образом , Кликаеш на статую итема , потом юзаеш скилл итем и до тех пор пака в журнале не появиться строка 'It appears to be a statue of itemid'

я постарался переделать имеющийся тут скрипт , но тут постигла неудача , вот как она выглядит (Compiler: [Error] (Item.sc at 67:63): Invalid number of parameters) ... вот скрипт

Code: Select all

Program ItemID;
var i : Integer;
DagerType : Word;
Dager : Cardinal;


{$Include 'all.inc'}


procedure FullDisconnect;
begin
SetARStatus(false);
Disconnect;
end;


procedure CheckDead;
begin
waitconnection(3000);
CheckSave;
if Dead then
begin
 SetWarMode(true);
 WaitGump('1');
 wait(5000);
 while (Dead) do Wait (1000);
 wait (2000);
 Hungry(1, ground);
end;
end;


Begin
FindDistance := 0;
SetARStatus(false);
waitconnection(3000);
CheckSave;
wait(3000);
SetARStatus(true);
DagerType := $1225;
FindType(DagerType, BackPack);
Dager := finditem;
if Dager = 0 then
    begin
    FullDisconnect;
    AddToSystemJournal('Dager no finded');
    end;


while true do
begin

waitconnection(3000);
CheckSave;
CheckTargetError(5, 2);
CheckDead;
Hungry(2, ground);
wait(1000);
i := 0;
while i < 10 do
  begin
  waitconnection(3000);
  CheckSave;
  UseSkill('item identification');
  WaitTargetObject(Dager);
  repeat
  InJournalBetweenTimes('It appears to be a statue of itemid');
  wait(3000);
  i := i + 1;
  end;

end;


End.

а вообще хотелось-бы переделать чтобы была возможность сразу с трюмя статуями работать ... чтобы выглядело примерно так
ЮЗ статую1
ЮЗ итем на нее пака ненапишет It appears to be a statue of itemid
ЮЗ статую2
ЮЗ итем на нее пака ненапишет It appears to be a statue of itemid
ЮЗ статую3
ЮЗ итем на нее пака ненапишет It appears to be a statue of itemid


Если кто в состоянии
Помогите пожалуйста ...

А в свою очередь на своем сервере всех суды буду за скриптом направлять ...

[m0nya]

Не кто не поможет ?

[scf]

(Compiler: [Error] (Item.sc at 67:63): Invalid number of parameters)

67 строчка скрипта:

Code: Select all

InJournalBetweenTimes('It appears to be a statue of itemid');

Пример использования ф-ции:

Code: Select all

function InJournalBetweenTimes(Str : String; TimeBegin,TimeEnd : TDateTime) : Integer
поиск последней строки в журнале по слову (или по словам) во временном интервале.