Jump to content

Lineage 2

Не пропустите!

ВАЖНЫЕ ОБСУЖДЕНИЯ НА ФОРУМЕ:
ZULUHOTEL СНОВА ONLINE! РЕГИСТРАЦИЯ ОТКРЫТА!

Все последние новости, информация о событиях на Zuluhotel, чат с админами и игроками в нашем телеграм канале: @ZuluhotelRussia
А еще у нас есть канал в Discord!
 
К сожалению, форумный формат общения себя изживает и активности на форуме с каждым днем всё меньше.
Самый быстрый способ получить ответ на вопрос - воспользоваться нашим Telegram каналом или Discord'oм.

Присоединяйся! Общайся!

Хеллоу! Общежитие слушает.

ШАРД РАБОТАЕТ! ЗАХОДИ К НАМ В ДИСКОРД И В ТЕЛЕГРАМ!


Ламбер


  • You cannot reply to this topic
40 replies to this topic

#1
Wend

Wend

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 504 posts
  • Location:Череповец
Принцип действия, ставим чара в лес, указываем радиус в настройках, и на указанной площади скрипт сам ищет деревья и рубит. Без наворотов.

Перед запуском убедитесь что у вас:
  • Версия стелса 3.2+
  • В настройках стелса указан правильный путь к папке с игрой
Program Lumber;

/// Настройки ///
const
RadiusX=3;
RadiusY=3;
Axe=$0F43; 
////////////////////
//Wend, ICQ 492280//
//v. 1.3


type
 TreeRecord = Record
  t,x,y: integer;
  end;
 
var
 TreeTile: array[0..50] of integer;
 TreePlace: array[0..500] of TreeRecord;
 TreeCount: integer;
 s: boolean;
 x,y,c,a,len,i: integer;


procedure CheckCon;
begin
 if Connected=False then
  begin;
   repeat
	Wait(1000);
   until Connected=True;
   Wait(5000);
  end;
end;

function CheckTool: boolean;
begin
 CheckCon;
 FindType(Axe, backpack);
  if (not dead) and (FindCount = 0) and (ObjAtLayer(LHandLayer) = 0) then
   begin
	AddToSystemJournal('Нет топора');
	s:=false;
	result:=false;
   end
  else 
	result:=true;	  
end;


procedure CheckTree;
var
 LCount: integer;
 t: integer;
 TTile: TStaticCell;
 
begin
 TTile:=ReadStaticsXY(x, y, WorldNum);
 LCount:=GetLayerCount(x, y, WorldNum);
 for i:=0 to LCount-1 do
  begin
   for t:=0 to len-1 do
	if TTile.Statics[i].Tile=TreeTile[t] then
	 begin 
	  TreePlace[c].t:=TTile.Statics[i].Tile;
	  TreePlace[c].x:=x;
	  TreePlace[c].y:=y;
	  c:=c+1;
	 end;
  end;  
end;


procedure FindTree;
begin
 for x:=GetX(self)-RadiusX to GetX(self)+RadiusX do
  if x mod 2 = 0 then
   begin
	for y:=GetY(self)-RadiusY to GetY(self)+RadiusY do
	 CheckTree;
   end
  else
   begin
	for y:=GetY(self)+RadiusY downto GetY(self)-RadiusY do
	 CheckTree;
   end;   
 TreeCount:=c-1;
end;  
   

procedure Lumber;
var
 t: TDateTime;
 
begin
 for a:=0 to TreeCount do
  begin
   if not Dead and CheckTool then
	repeat
	 CheckCon;
	 MoveXY(TreePlace[a].x, TreePlace[a].y, true, 1, false);
	 if TargetPresent then CancelTarget;
	 t:=now;
	 WaitTargetTile(TreePlace[a].t, TreePlace[a].x, TreePlace[a].y, 1);
	 UseType(Axe, $FFFF);
	 WaitJournalLine(t, 'stop lumberjacking|any wood', 120000); 
	until (InJournalBetweenTimes('no wood|any wood', t, now) > 0) or Dead
   else break;	
  end; 
end; 


begin 
 SetPauseScriptOnDisconnectStatus(false); 
 
 s:=true;
 
 TreeTile[0]:=3240; 
 TreeTile[1]:=3242; 
 TreeTile[2]:=3277; 
 TreeTile[3]:=3283; 
 TreeTile[4]:=3286; 
 TreeTile[5]:=3288; 
 TreeTile[6]:=3289; 
 TreeTile[7]:=3290; 
 TreeTile[8]:=3291; 
 TreeTile[9]:=3294; 
 TreeTile[10]:=3296; 
 TreeTile[11]:=3299; 
 TreeTile[12]:=3302; 
 TreeTile[13]:=3393; 
 TreeTile[14]:=3394; 
 TreeTile[15]:=3395; 
 TreeTile[16]:=3396; 
 TreeTile[17]:=3415; 
 TreeTile[18]:=3416; 
 TreeTile[19]:=3417; 
 TreeTile[20]:=3418; 
 TreeTile[21]:=3419; 
 TreeTile[22]:=3438; 
 TreeTile[23]:=3439; 
 TreeTile[24]:=3440; 
 TreeTile[25]:=3441; 
 TreeTile[26]:=3442; 
 TreeTile[27]:=3460; 
 TreeTile[28]:=3461; 
 TreeTile[29]:=3462; 
 TreeTile[30]:=3480;
 TreeTile[31]:=3482; 
 TreeTile[32]:=3488;  
 
 for i:=0 to Length(TreeTile)-1 do
  if TreeTile[i] <> 0 then
   len:=len+1;

 CheckCon;
 
 FindTree;
 AddToSystemJournal('Найдено деревьев: '+IntToStr(TreeCount));
 
 while (not Dead) and s and CheckTool do
  Lumber;
 
 SetARStatus(false);
 Disconnect;
  
end.

Edited by Wend, 14 December 2010 - 07:43 PM.


#2
KamaZ

KamaZ

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 110 posts
Cкачал стелс 3.2 Вроде все верно настроено. Но при нажатии кнопочки коннект ничего не происходит. Помогите, надоело рубить на уопилоте.

#3
Чернокнижник(Old)

Чернокнижник(Old)

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 318 posts
Чудо стелс!!! :o

#4
Rempler

Rempler

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 100 posts
у меня на инже уже 113.1 ламбера вкачало;)

#5
DAnce4life

DAnce4life

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 172 posts
У меня все запускаеться, только при запуске скрипта, пишет: "Найдено -1 дерево", и нечего не делает. В чем может быть проблема? :(

#6
Wend

Wend

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 504 posts
  • Location:Череповец
В старой версии стелса. Либо деревьев рядом нет =)

#7
DAnce4life

DAnce4life

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 172 posts

В старой версии стелса. Либо деревьев рядом нет =)

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

StartXY=false;
StartX=0;
StartY=0;

что они означают? и надо их менять?

#8
Wend

Wend

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 504 posts
  • Location:Череповец

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

В аську напиши.

StartXY=false;
StartX=0;
StartY=0;

что они означают? и надо их менять?

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

#9
KamaZ

KamaZ

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 110 posts
Все четко работает :) спс !

#10
DAnce4life

DAnce4life

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 172 posts
Работает на ура! Спасибо!!! B)

#11
koketka

koketka

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 580 posts
  • Location:Санкт-Петербург
  • Interests:Icq больше не работает, доступ не восстановить. Сижу в скайпе, телеграмме и дискорде, по всем вопросам пишите туда
Спасибо, с небольшой подсказкой всё работает =)))

#12
Wend

Wend

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 504 posts
  • Location:Череповец
Кто пользуется, обновите скрипт, немного поправил, будет искать больше деревьев.

#13
Mish Tygari

Mish Tygari

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 65 posts

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

Спасибо, проверим, а так ставил дистанцию 20 и ваще нон стоп )

#14
Mish Tygari

Mish Tygari

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 65 posts
.......

Edited by Mish Tygari, 14 December 2010 - 03:16 PM.


#15
Blueberry

Blueberry

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 214 posts
мде скрипт супер ))) спасибо

#16
sluntai

sluntai

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 64 posts

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

Перед запуском убедитесь что у вас:

  • Версия стелса 3.2+
  • В настройках стелса указан правильный путь к папке с игрой
Program Lumber;

/// Настройки ///
const
RadiusX=3;
RadiusY=3;
Axe=$0F43; 
////////////////////
//Wend, ICQ 492280//
//v. 1.3
type
 TreeRecord = Record
  t,x,y: integer;
  end;
 
var
 TreeTile: array[0..50] of integer;
 TreePlace: array[0..500] of TreeRecord;
 TreeCount: integer;
 s: boolean;
 x,y,c,a,len,i: integer;
procedure CheckCon;
begin
 if Connected=False then
  begin;
   repeat
	Wait(1000);
   until Connected=True;
   Wait(5000);
  end;
end;

function CheckTool: boolean;
begin
 CheckCon;
 FindType(Axe, backpack);
  if (not dead) and (FindCount = 0) and (ObjAtLayer(LHandLayer) = 0) then
   begin
	AddToSystemJournal('Нет топора');
	s:=false;
	result:=false;
   end
  else 
	result:=true;	  
end;
procedure CheckTree;
var
 LCount: integer;
 t: integer;
 TTile: TStaticCell;
 
begin
 TTile:=ReadStaticsXY(x, y, WorldNum);
 LCount:=GetLayerCount(x, y, WorldNum);
 for i:=0 to LCount-1 do
  begin
   for t:=0 to len-1 do
	if TTile.Statics[i].Tile=TreeTile[t] then
	 begin 
	  TreePlace[c].t:=TTile.Statics[i].Tile;
	  TreePlace[c].x:=x;
	  TreePlace[c].y:=y;
	  c:=c+1;
	 end;
  end;  
end;
procedure FindTree;
begin
 for x:=GetX(self)-RadiusX to GetX(self)+RadiusX do
  if x mod 2 = 0 then
   begin
	for y:=GetY(self)-RadiusY to GetY(self)+RadiusY do
	 CheckTree;
   end
  else
   begin
	for y:=GetY(self)+RadiusY downto GetY(self)-RadiusY do
	 CheckTree;
   end;   
 TreeCount:=c-1;
end;  
   

procedure Lumber;
var
 t: TDateTime;
 
begin
 for a:=0 to TreeCount do
  begin
   if not Dead and CheckTool then
	repeat
	 CheckCon;
	 MoveXY(TreePlace[a].x, TreePlace[a].y, true, 1, false);
	 if TargetPresent then CancelTarget;
	 t:=now;
	 WaitTargetTile(TreePlace[a].t, TreePlace[a].x, TreePlace[a].y, 1);
	 UseType(Axe, $FFFF);
	 WaitJournalLine(t, 'stop lumberjacking|any wood', 120000); 
	until (InJournalBetweenTimes('no wood|any wood', t, now) > 0) or Dead
   else break;	
  end; 
end; 
begin 
 SetPauseScriptOnDisconnectStatus(false); 
 
 s:=true;
 
 TreeTile[0]:=3240; 
 TreeTile[1]:=3242; 
 TreeTile[2]:=3277; 
 TreeTile[3]:=3283; 
 TreeTile[4]:=3286; 
 TreeTile[5]:=3288; 
 TreeTile[6]:=3289; 
 TreeTile[7]:=3290; 
 TreeTile[8]:=3291; 
 TreeTile[9]:=3294; 
 TreeTile[10]:=3296; 
 TreeTile[11]:=3299; 
 TreeTile[12]:=3302; 
 TreeTile[13]:=3393; 
 TreeTile[14]:=3394; 
 TreeTile[15]:=3395; 
 TreeTile[16]:=3396; 
 TreeTile[17]:=3415; 
 TreeTile[18]:=3416; 
 TreeTile[19]:=3417; 
 TreeTile[20]:=3418; 
 TreeTile[21]:=3419; 
 TreeTile[22]:=3438; 
 TreeTile[23]:=3439; 
 TreeTile[24]:=3440; 
 TreeTile[25]:=3441; 
 TreeTile[26]:=3442; 
 TreeTile[27]:=3460; 
 TreeTile[28]:=3461; 
 TreeTile[29]:=3462; 
 TreeTile[30]:=3480;
 TreeTile[31]:=3482; 
 TreeTile[32]:=3488;  
 
 for i:=0 to Length(TreeTile)-1 do
  if TreeTile[i] <> 0 then
   len:=len+1;

 CheckCon;
 
 FindTree;
 AddToSystemJournal('Найдено деревьев: '+IntToStr(TreeCount));
 
 while (not Dead) and s and CheckTool do
  Lumber;
 
 SetARStatus(false);
 Disconnect;
  
end.



Блин народ стелс пишет "Найдено деревьев -1" и все, стоит кто разобрался помогите понять в чем трабла..

#17
anton

anton

    Путешественник

  • Пользователи
  • PipPip
  • 44 posts
Такая же тема.Помогите )

#18
Blueberry

Blueberry

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 214 posts
ну что кто нас выручит скриптом ?

#19
sluntai

sluntai

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 64 posts
Мдя качаю на инже,быстрее будет...

#20
smitan

smitan

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 207 posts
  • Location:Череповец Nord-West to RUSSIA
скачайте stealth_v1.0 (rc 3) и качайтесь на старом скрипте !!!





0 user(s) are reading this topic

members, guests, anonymous users