Jump to content

Lineage 2


Ламбер


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

#1
Wend

Wend

    Вождь Зулу

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

Перед запуском убедитесь что у вас:
  1. Версия стелса 3.2+
  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
Чудо стелс!!! ohmy.gif

#4
Rempler

Rempler

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

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

#5
DAnce4life

DAnce4life

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

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

#6
Wend

Wend

    Вождь Зулу

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

#7
DAnce4life

DAnce4life

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

  • Пользователи
  • PipPipPipPipPip
  • 172 posts
Цитата(Wend @ 27.11.2010, 23:53) View Post

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

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

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

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

#8
Wend

Wend

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 502 posts
  • Location:Череповец
Цитата(DAnce4life @ 28.11.2010, 6:56) View Post

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

В аську напиши.
Цитата(DAnce4life @ 28.11.2010, 6:56) View Post

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

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

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


#9
KamaZ

KamaZ

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

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

#10
DAnce4life

DAnce4life

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

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

#11
koketka

koketka

    Вождь Зулу

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

#12
Wend

Wend

    Вождь Зулу

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

#13
Mish Tygari

Mish Tygari

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

  • Пользователи
  • PipPipPip
  • 65 posts
Цитата(Wend @ 8.12.2010, 22:29) View Post

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

Спасибо, проверим, а так ставил дистанцию 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
Цитата(Wend @ 22.11.2010, 19:25) View Post

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

Перед запуском убедитесь что у вас:
  1. Версия стелса 3.2+
  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