Помогите подкоректировать скрипт...

[SLAK]

Решил попользоваться стелсом, только на програмиста не учился и в скриптописании не очень шарю... Лиш основы в писании скриптов под Инжект понимаю.
Попробывал переделать вот этот скрипт под инжект:

Code: Select all

sub ID()
var t
var deed='0x14f0'

uo.cancelmenu()
uo.automenu("an",'ast')
while 1==1
if uo.count(deed)>0 then
  deljourn('item || not sure')
	uo.waittargettype(deed)
	uo.useskill('Item Identification')
	 t=0
	  repeat
	   t=t+1
	   wait(100)
	  until uo.InJournal('not sure') or uo.InJournal('item') or t==50 
	   if t==50 then
	    CheckLag()
       end if 
       wait(11000)
	uo.waittargetobject('self')
	uo.usetype(deed)
	uo.exec("ongump anygump 0")
	wait(1000)
	CheckLag()
 else	
   UO.useskill("Evaluating Intelligenc",'self')
   wait(10500)
end if	 
wend
end sub

Вот что у меня получилось(конечно же не рабочее):

Code: Select all

program ID;
var t : Integer;
    a : Integer;
    b : TDateTime;
    deed : Word;

{$Include 'all.inc'}

Begin
b := Now;
deed:=$14f0;
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
CancelMenu;
AutoMenu('an','ast');
while not Dead do
begin
 if Connected then
 begin
  for t := 0 to 10 do
  begin
   FindType(deed; 'backpack');
   if GetQuantity('finditem')>0 then
   a := InJournalBetweenTimes('System',b,Now);
   While a >= 0 do
	begin
	 SetJournalLine(a,'');
	 a := InJournalBetweenTimes('System',b,Now);
	end;
	useskill('Item Identification');
	WaitTargetType(deed);
	 t:=0;
	  repeat
          begin
	   t:=t+1;
	   wait(100);
	  end;
	  until InJournal('not sure') InJournal('item') or t==50
          wait(11000);
          WaitGump('0'); // ответ "NO"
	  useobject('finditem');
          WaitTargetSelf;
	  wait(1000);
   else
    useskill("Evaluating Intelligenc");
    WaitTargetSelf;
    wait(10500);
  end;
  Hungry(1,backpack);
 end;
End.

В связи с чем САБЖ.

[SLAK]

Почитал немного форум и чуток про Паскаль и переписал скрипт, но выбивает ошибку:
17:17:17: Compiling
17:17:17: Compiler: [Error] (IDalt.int at 35:114): Type mismatch
17:17:17: Compiling failed
17:17:17: Script IDalt.int stoped successfuly

Вот код, строка 35 выделена:

Code: Select all

program ID;
var a,t : Integer;
var Time,b : TDateTime;
var deed : Word;


{$Include 'all.inc'}

Begin
b := Now;
deed:=$14f0;
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
CancelMenu;
AutoMenu('Choose an orientation','East');
while not Dead do
begin
 if Connected then
 begin
  for t := 0 to 10 do
  begin
   FindType(deed, backpack);
   if (FindFullQuantity>0) then
   a := InJournalBetweenTimes('System',b,Now);
   While a >= 0 do
	begin
	 SetJournalLine(a,'');
	 a := InJournalBetweenTimes('System',b,Now);
	end;
	useskill('Item Identification');
	WaitTargetType(deed);
	 t := 0;
	 Time:= Now - (0.5 / 1440);
>>>>>  While InJournalBetweenTimes('not sure',Time,Now) or InJournalBetweenTimes('item',Time,Now) or (t < 50) do <<<<<
          begin
	   t := t+1;
	   wait(100);
	  end;
          wait(11000);
          WaitGump('0'); // ответ "NO"
	  useobject(deed);
          WaitTargetSelf;
	  wait(1000);
   else
    useskill("Evaluate Intelligenc");
    WaitTargetSelf;
    wait(10500);
  end;
  Hungry(1,backpack);
 end;
End.

[SLAK]

Ура заработало (с) Кот Матроскин
Но как по мне не надежно... Выкладываю вдруг кому понадобится:

Code: Select all

program ItemID;
var a,t : Integer;
    deed : Word;

{$Include 'all.inc'}

Begin
deed:=$14f0;
AutoMenu('orientation','East');
SetARStatus(true);
Hungry(1,backpack);
while not Dead do
begin
 if Connected then
 begin
  for t := 0 to 10 do
  begin
   FindType(deed, backpack);
   if (FindFullQuantity>0) then
   begin
	guards;
	useskill('Item Identification');
	WaitTargetType(deed);
           wait(11000);
          WaitTargetSelf;
          useobject( FindType(deed, backpack));
          WaitGump('0'); // ответ "NO"
          wait(1000);
   end;
wait(50);
  end;
  Hungry(1,backpack);
 end;
end;
End.