Stealth Client Forum

Posted: **13.01.2007 21:17**

Вот мой первый скрипт. Чар стоит коло банка и ловит рыбу в 1 точке. Как доходит до >320 веса, режет всю рыбу на стейки. Когда уже при полном весе, не разрезанной рыбы меньше 5 кучек, тогда скидывает в мешок в банке стейки. Скрипт не компилиться. Паскалем никогда не занимался, поэтому поначалу самому разобрятся сложно. Помогите пожалуйста, исправте ошибки.

Code: Select all

Program FishingYew;

Const 
   Meshok = $4001655E; 
   Udochka = $0DBF;
   Nozhik = $0F51;
var
   count:Integer;

Procedure Fishing;
var   
   Riba:array[1..8] of Cardinal; 
   i:Integer;
   Label start;

Begin
WaitGump('0001');
uosay('boxkeeperbox');
wait(1000);
UseObject(Meshok);
start:
if weight<=320 then
 begin
   if not Hidden then
   begin
      Repeat
         if (WarMode = true) then
         begin
            SetWarMode(false);
         end;
         useskill('Hiding');
         wait(3000);
      Until Hidden;
   end;
   UseObject(Udochka);
   if targetpresent then
   begin
      TargetToTile(6044,633,806,251);
      wait(4000);
   end;
 end
Else
 begin
   count := 0;
   FindType($09CD,backpack);
   count := FindCount;
   FindType($09CC,backpack);
   count := count+FindCount;
   FindType($09CF,backpack);
   count := count+FindCount;
   FindType($09CE,backpack);
   count := count+FindCount;
   if count < 5 then
   begin
      wait(1000)
      if targetpresent then
      begin
         canceltarget;
      end;
      FindType($097A,backpack);
      if FindCount>0 then
      begin
         repeat
	    MoveItem(finditem, 1, Meshok, 0, 0, 0);
	    wait(500);
	    FindType($097A,backpack);
         until FindCount = 0;
      end;
      goto start;
   end;
   Riba[1] := $09CC;
   Riba[2] := $09CD;
   Riba[3] := $09CF;
   Riba[4] := $09CE;
   Riba[5] := $09CC;
   Riba[6] := $09CD;
   Riba[7] := $09CF;
   Riba[8] := $09CE;
   for i:=1 to 8 do 
   begin 
      FindType(Riba[i],backpack); 
      if FindCount>0 then 
      begin
         UseObject(Nozhik);
         if targetpresent then
         begin
             TargetToObject(Riba[i])
         end;
         wait(2000);
      end;
   end;
end;
end;
End.

Posted: **14.01.2007 13:36**

Не компилится - это слишком расплывчато. Стелс тебе говорит конкретную ошибку, в какой она строке, в какой позиции. Копируй это сюда. Телепаты в отпуске.

Posted: **14.01.2007 16:37**

Code: Select all

Compiler: [Error] (Fishing.pas at 94:1):  'BEGIN' expected
Compiling failed
Script Fishing.pas stoped successfuly

С этими бегинами и эндами совсем путаюсь.

Posted: **14.01.2007 19:22**

скачай редактор с подсветкой Pascal, они обычно показывают лишние begin,end

Posted: **15.01.2007 13:59**

ну и какая строка номер 94? Мне лично вручную считать лень.

Posted: **15.01.2007 14:45**

Да, забыл, это последняя строка.

Posted: **15.01.2007 16:10**

проверять негде, так что по твоей ошибке только напишу

отсутствует основной бегин

Code: Select all

Program FishingYew;

Const 
   Meshok = $4001655E; 
   Udochka = $0DBF;
   Nozhik = $0F51;
var
   count:Integer;

Begin                                       //вот здесь его явно нехватало, слово процедура тут нафиг ненадо
var   
   Riba:array[1..8] of Cardinal; 
   i:Integer;
   Label start;

Begin
WaitGump('0001');
uosay('boxkeeperbox');
wait(1000);
UseObject(Meshok);
start:
if weight<=320 then
 begin
   if not Hidden then
   begin
      Repeat
         if (WarMode = true) then
         begin
            SetWarMode(false);
         end;
         useskill('Hiding');
         wait(3000);
      Until Hidden;
   end;
   UseObject(Udochka);
   if targetpresent then
   begin
      TargetToTile(6044,633,806,251);
      wait(4000);
   end;
 end
Else
 begin
   count := 0;
   FindType($09CD,backpack);
   count := FindCount;
   FindType($09CC,backpack);
   count := count+FindCount;
   FindType($09CF,backpack);
   count := count+FindCount;
   FindType($09CE,backpack);
   count := count+FindCount;
   if count < 5 then
   begin
      wait(1000)
      if targetpresent then
      begin
         canceltarget;
      end;
      FindType($097A,backpack);
      if FindCount>0 then
      begin
         repeat
	    MoveItem(finditem, 1, Meshok, 0, 0, 0);
	    wait(500);
	    FindType($097A,backpack);
         until FindCount = 0;
      end;
      goto start;
   end;
   Riba[1] := $09CC;
   Riba[2] := $09CD;
   Riba[3] := $09CF;
   Riba[4] := $09CE;
   Riba[5] := $09CC;
   Riba[6] := $09CD;
   Riba[7] := $09CF;
   Riba[8] := $09CE;
   for i:=1 to 8 do 
   begin 
      FindType(Riba[i],backpack); 
      if FindCount>0 then 
      begin
         UseObject(Nozhik);
         if targetpresent then
         begin
             TargetToObject(Riba[i])
         end;
         wait(2000);
      end;
   end;
end;
end;
End.

[/quote]

Posted: **15.01.2007 23:50**

колхоз wrote:Да, забыл, это последняя строка.

В таких случаях сразу считай количество begin и end в скрипте. Их должно быть равное количество.

Stealth Client Forum

Помогите доделать скрипт на фишинг

Помогите доделать скрипт на фишинг

Re: Помогите доделать скрипт на фишинг