Автоламбер с лодкой (сервер new age)

Oasis · Post by **Oasis** » 02.01.2014 15:20

Скрипт как бы работает, а именно: зайдет и выйдет с лодки, сделает топоры, поест, сбросит дерево, словом все работает, и нет ошибок. НО! Есть беда которую я не могу сам решить. Чар пробует рубить деревья с места запуска скрипта. к примеру если я запущу скрипт, где чар будет стоять возле дерева которое попадает в зону координат, он будет рубить деревья только те, до которых будет доставать. Если запустить скрипт в лодке, он выйдет с лодки и все. будет стоять как вкопанный и пробовать рубить деревья с того места.

Сервер Pol95
На форуме пишут что у всех работает, проблема походу только у меня.

скрипт

Code: Select all

program lumber_autotile;

var
TyleType : Array [0..19] of Word;
a : TFoundTilesArray;
c,b,s : Integer;

const
Xmin = 2556;
Xmax = 2567;
Ymin = 508;
Ymax = 510;
vozleX = 2557;
vozleY = 529;
lodkaX = 2556;
lodkaY = 534;
lodkaZ = -2;
Trap = $43883F62;
TynkType = $1EBC;
AxeType = $0F43;
IngotType = $1BF2;
LogType = $1BDD;
AxeGump = '3907';
WLimit = 150;
eda = $097B;

{$Include 'all.inc'}

procedure checkcoord;
begin
if (GetZ(self) = lodkaZ) then
  begin
  repeat
  MoveXY(lodkaX,lodkaY, True, 0, True);
  UseObject(Trap);
  wait(1000);
  Raw_Move(0,True);
  Raw_Move(0,True);
  wait(1000);
  until (GetZ(self) <> lodkaZ);
  end;
end;

procedure CheckIngot;
begin
FindType(IngotType, Backpack);
if (FindFullQuantity < 4) then
  begin
  FindType(IngotType, Ground);
  if (FindCount > 0) then
    begin
    MoveItem(finditem, 4, Backpack, 0,0,0);
    wait(500);
    end;
  end;
end;

procedure CheckAxe;
begin
if (Count(AxeType) < 4) then
   begin
   If TargetPresent Then CancelTarget;
   repeat
   CheckIngot;
   UseObject(FindType(TynkType,Ground));
   WaitTargetObject(FindType(IngotType,BackPack));
   WaitGump(AxeGump);
   WaitJournalLine(Now, 'You create|destroy|must stand', 30000);
   until (Count(AxeType) >= 5);
   end;
end;

procedure DropLog;
begin
repeat
FindType(LogType,Backpack);
if (FindCount > 0) then
   begin
   stack(LogType,GetColor(finditem));
   wait(500);
   end;
until (Count(LogType) = 0);
FindType(LogType,ground);
Addtosystemjournal('Дерева всего на лодке - '+intToStr(findfullquantity));
FindType(TynkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
end;

procedure checkfish;
begin
if (Count(eda) < 10) then
   begin
   MoveItem(FindType(eda,ground), 50, Backpack, 0,0,0);
   Wait(500);
   end;
end;

procedure GotoOnBoad;
begin
MoveXY(vozleX,vozleY, True, 0, True);
repeat
UseObject(Trap);
wait(1000);
until (GetZ(self) = lodkaZ);
DropLog;
checkfish;
Hungry(1,ground);
CheckAxe;
checkcoord;
end;

procedure checktools;
begin
if (Count(AxeType) = 0) then
   begin
   GotoOnBoad;
   end;
end;

procedure checkweight;
begin
if (Weight > WLimit) then  
   begin
   GotoOnBoad;
   end;
end;

BEGIN
Addtosystemjournal('Скрипт успешно стартовал.');
TyleType[0] := 3274;
TyleType[1] := 3275;
TyleType[2] := 3276;
TyleType[3] := 3277;
TyleType[4] := 3280;
TyleType[5] := 3283;
TyleType[6] := 3286;
TyleType[7] := 3289;
TyleType[8] := 3291;
TyleType[9] := 3292;
TyleType[10] := 3294;
TyleType[11] := 3295;
TyleType[12] := 3296;
TyleType[13] := 3299;
TyleType[14] := 3302;
TyleType[15] := 3394;
TyleType[16] := 3395;
TyleType[17] := 3417;
TyleType[18] := 3440;
TyleType[19] := 3460;
while not Dead do
   begin
   for s := 0 to 19 do
      begin
      b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType[s], a); 
      AddToSystemJournal('Tile Count : '+IntToStr(b));
      for c :=0 to b-1 do
         begin
         checktools;
         CheckWeight;
         checkcoord; 
         MoveXY(a[c].X,a[c].Y, True, 1, True); 
         Hungry(1,Backpack);
         If TargetPresent Then CancelTarget;
         if (GetType(ObjAtLayer(LhandLayer)) <> AxeType) then
            begin
            UseObject(FindType(AxeType, Backpack));
            end;
         if (GetType(ObjAtLayer(LhandLayer)) = AxeType) then
            begin
            UseObject(ObjAtLayer(LhandLayer));
            end;
         WaitTargetTile(TyleType[s],(a[c].X),(a[c].Y),(a[c].Z));
         WaitJournalLine(Now,'is attacking|enough|how to use|broke|stop|see|far away',120000);
         end;
      end;
   end;
END.

SystemJournal

UO Journal

nah nah · Post by **nah nah** » 02.01.2014 16:26

а карту мира стелс показывает? в смысле путь к мулам или уопам прописан? ну и будет нубством не вписать координаты, или перепутать их. и спроси у тех, у кого работает, какая у них версия стелса.

зы. забавный скрипт, сначала рубит вырубает в локации деревья одного типа, потом переходит к другому.

drabadan · Post by **drabadan** » 02.01.2014 16:34

nah nah wrote:а карту мира стелс показывает? в смысле путь к мулам или уопам прописан? ну и будет нубством не вписать координаты, или перепутать их. и спроси у тех, у кого работает, какая у них версия стелса.

зы. забавный скрипт, сначала рубит вырубает в локации деревья одного типа, потом переходит к другому.

тоже удивился...

Автору:
запускай скрипт не в лодке! всего-то делов...

Oasis · Post by **Oasis** » 02.01.2014 17:05

карту показывает, с координатами как только не баловался, запускал вне лодки тоже. беда скрипта или скорее у меня, в том, что он не желает бегать.

drabadan · Post by **drabadan** » 02.01.2014 18:23

Он не может делать то чего ему не говорят. Понатыкай сообщений и смотри где зависает!

Oasis · Post by **Oasis** » 02.01.2014 19:12

что зависает? все работает но не бегает.

Vizit0r · Post by **Vizit0r** » 02.01.2014 19:17

включи в настройках сообщения от мувера, и увидишь что не работает в ходилке.

Oasis · Post by **Oasis** » 02.01.2014 19:37

сделал, пишет как и раньше.
правильно я понял, поставить галочку: messages from mover in sysjournal?

Code: Select all

18:02:04:798 [1 Craft]: Compiling
18:02:04:831 [1 Craft]: Compiled succesfully
18:02:04:833 [1 Craft]: Скрипт успешно стартовал.
18:02:04:838 [1 Craft]: Tile Count : 0
18:02:04:840 [1 Craft]: Tile Count : 0
18:02:04:841 [1 Craft]: Tile Count : 0
18:02:04:843 [1 Craft]: Tile Count : 0
18:02:04:846 [1 Craft]: Tile Count : 0
18:02:04:848 [1 Craft]: Tile Count : 1
18:02:07:587 [1 Craft]: Tile Count : 0
18:02:07:591 [1 Craft]: Tile Count : 0
18:02:07:594 [1 Craft]: Tile Count : 0
18:02:07:596 [1 Craft]: Tile Count : 0
18:02:07:599 [1 Craft]: Tile Count : 0
18:02:07:601 [1 Craft]: Tile Count : 0
18:02:07:604 [1 Craft]: Tile Count : 2
18:02:12:973 [1 Craft]: Tile Count : 0
18:02:12:976 [1 Craft]: Tile Count : 1
18:02:15:417 [1 Craft]: Tile Count : 0
18:02:15:421 [1 Craft]: Tile Count : 0
18:02:15:425 [1 Craft]: Tile Count : 0
18:02:15:429 [1 Craft]: Tile Count : 0
18:02:15:433 [1 Craft]: Tile Count : 0
18:02:15:436 [1 Craft]: Tile Count : 0
18:02:15:440 [1 Craft]: Tile Count : 0
18:02:15:444 [1 Craft]: Tile Count : 0
18:02:15:447 [1 Craft]: Tile Count : 0
18:02:15:450 [1 Craft]: Tile Count : 0
18:02:15:454 [1 Craft]: Tile Count : 1

drabadan · Post by **drabadan** » 02.01.2014 20:38

[quote="Oasis"]сделал, пишет как и раньше.
правильно я понял, поставить галочку: messages from mover in sysjournal?

то-есть упорно гнем свою линию, без какого-либо желания попытаться решить проблему?

Тебе же 100 раз написали, что нужно сделать...

Oasis · Post by **Oasis** » 02.01.2014 20:53

я не умею тыкать сообщения
но готов учиться

drabadan · Post by **drabadan** » 02.01.2014 21:03

Oasis wrote:я не умею тыкать сообщения

c этого надо было начинать...

скрипт

Code: Select all

program lumber_autotile;

var
TyleType : Array [0..19] of Word;
a : TFoundTilesArray;
c,b,s : Integer;

const
Xmin = 2556;
Xmax = 2567;
Ymin = 508;
Ymax = 510;
vozleX = 2557;
vozleY = 529;
lodkaX = 2556;
lodkaY = 534;
lodkaZ = -2;
Trap = $43883F62;
TynkType = $1EBC;
AxeType = $0F43;
IngotType = $1BF2;
LogType = $1BDD;
AxeGump = '3907';
WLimit = 150;
eda = $097B;

{$Include 'all.inc'}

procedure checkcoord;
begin
if (GetZ(self) = lodkaZ) then
  begin
  repeat
  MoveXY(lodkaX,lodkaY, True, 0, True);
  UseObject(Trap);
  wait(1000);
  Raw_Move(0,True);
  Raw_Move(0,True);
  wait(1000);
  until (GetZ(self) <> lodkaZ);
  end;
end;

procedure CheckIngot;
begin
FindType(IngotType, Backpack);
if (FindFullQuantity < 4) then
  begin
  FindType(IngotType, Ground);
  if (FindCount > 0) then
    begin
    MoveItem(finditem, 4, Backpack, 0,0,0);
    wait(500);
    end;
  end;
end;

procedure CheckAxe;
begin
if (Count(AxeType) < 4) then
   begin
   If TargetPresent Then CancelTarget;
   repeat
   CheckIngot;
   UseObject(FindType(TynkType,Ground));
   WaitTargetObject(FindType(IngotType,BackPack));
   WaitGump(AxeGump);
   WaitJournalLine(Now, 'You create|destroy|must stand', 30000);
   until (Count(AxeType) >= 5);
   end;
end;

procedure DropLog;
begin
repeat
FindType(LogType,Backpack);
if (FindCount > 0) then
   begin
   stack(LogType,GetColor(finditem));
   wait(500);
   end;
until (Count(LogType) = 0);
FindType(LogType,ground);
Addtosystemjournal('Дерева всего на лодке - '+intToStr(findfullquantity));
FindType(TynkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
end;

procedure checkfish;
begin
if (Count(eda) < 10) then
   begin
   MoveItem(FindType(eda,ground), 50, Backpack, 0,0,0);
   Wait(500);
   end;
end;

procedure GotoOnBoad;
begin
MoveXY(vozleX,vozleY, True, 0, True);
repeat
UseObject(Trap);
wait(1000);
until (GetZ(self) = lodkaZ);
DropLog;
checkfish;
Hungry(1,ground);
CheckAxe;
checkcoord;
end;

procedure checktools;
begin
if (Count(AxeType) = 0) then
   begin
   GotoOnBoad;
   end;
end;

procedure checkweight;
begin
if (Weight > WLimit) then  
   begin
   GotoOnBoad;
   end;
end;

BEGIN
Addtosystemjournal('Скрипт успешно стартовал.');
TyleType[0] := 3274;
TyleType[1] := 3275;
TyleType[2] := 3276;
TyleType[3] := 3277;
TyleType[4] := 3280;
TyleType[5] := 3283;
TyleType[6] := 3286;
TyleType[7] := 3289;
TyleType[8] := 3291;
TyleType[9] := 3292;
TyleType[10] := 3294;
TyleType[11] := 3295;
TyleType[12] := 3296;
TyleType[13] := 3299;
TyleType[14] := 3302;
TyleType[15] := 3394;
TyleType[16] := 3395;
TyleType[17] := 3417;
TyleType[18] := 3440;
TyleType[19] := 3460;
while not Dead do
   begin
   for s := 0 to 19 do
      begin     
      b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType[s], a); 
      AddToSystemJournal('Tile Count : '+IntToStr(b));
      for c :=0 to b-1 do
         begin
         checktools;
         CheckWeight;
         checkcoord;
         Wait(1000); 
         NewMoveXY(a[c].X,a[c].Y, True, 1, True); 
         Hungry(1,Backpack);
         If TargetPresent Then CancelTarget;
         if (GetType(ObjAtLayer(LhandLayer)) <> AxeType) then
            begin
            UseObject(FindType(AxeType, Backpack));
            end;
         if (GetType(ObjAtLayer(LhandLayer)) = AxeType) then
            begin
            UseObject(ObjAtLayer(LhandLayer));
            end;
         WaitTargetTile(TyleType[s],(a[c].X),(a[c].Y),(a[c].Z));
         WaitJournalLine(Now,'is attacking|enough|how to use|broke|stop|see|far away',120000);
         end;
      end;
   end;
END.

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

З.Ы. Спасибо, что скрипты прячешь в спойлеры!

Oasis · Post by **Oasis** » 02.01.2014 21:18

таки что-то изменилось, запустил с лодки, вышел и подбежал к дереву и вырубил его. но дальше он не ходит и с большой задержкой скорее всего то самое дерево и лупит.

уо журнал

я не знаю. к сожалению он у меня ещё не разу не работал. человек писал именно под сервер где я играю, но его нет больше на форуме и спросить нет возможности. но люди пишут, что все рубят на этом скрипте, правда писал 1 человек. серву пару мес. людей мало.

drabadan · Post by **drabadan** » 02.01.2014 21:27

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

нет желания другой скрипт использовать, а то у меня температура сейчас и как-то не могу въехать...

Oasis · Post by **Oasis** » 02.01.2014 21:31

Работает=)
я поправил координаты осей и начал работать. спасибо=))
осталось только задержу сделать меньше.

и остался вопрос, между какими процедурами можно вставить процедуру, что бы он сбрасывал в лодку негрореги и реги которые иногда выпадают при рубки?

теперь в журнале есть что-то новое.

сис журнал

drabadan · Post by **drabadan** » 02.01.2014 21:41

Oasis wrote:Работает=)
я поправил координаты осей и начал работать. спасибо=))
осталось только задержу сделать меньше.

и остался вопрос, между какими процедурами можно вставить процедуру, что бы он сбрасывал в лодку негрореги и реги которые иногда выпадают при рубки?

ну или динмассивом, или просто тупо вписать в разгрузку еще и выкладку негрорегов.

home api manuals about Forum

Автоламбер с лодкой (сервер new age)

Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)

Re: Автоламбер с лодкой (сервер new age)