Jump to content

Lineage 2


Помогите ламбер в конюшне

ламба

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

#1
Whelp

Whelp

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

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

Помогите понять почему не работает этот скрипт в конюшне?

 

Program Lumber;
 
type
TreeRecord = Record
t,x,y: integer;
end;
 
var
TreeTile: array[0..50] of integer;
TreePlace: array[0..500] of TreeRecord;
TreeCount: integer;
x,y,c,a,s: integer;
 
/// Options ///
const
RadiusX=20;
RadiusY=20;
Axe=$0F43;
StartXY=true;
StartX=0;
StartY=0;
////////////////////
 
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 (dead=false) and (FindQuantity = 0) and (ObjAtLayer(RhandLayer) = 0) then
begin
AddToSystemJournal('You have no axe');
s:=0;
result:=false;
SetARStatus(false);
Disconnect;
end
else
result:=true;
end;
 
 
procedure CheckTree;
var
LCount: integer;
t,i: integer;
TTile: TStaticCell;
 
begin
TTile:=ReadStaticsXY(x, y, WorldNum);
LCount:=GetLayerCount(x, y, WorldNum);
i:=0;
while i < LCount do
begin
for t:=0 to 28 do
begin
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;
i:=i+1;
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 to GetY(self)-RadiusY do
CheckTree;
end;
TreeCount:=c-1;
end;
 
procedure Lumber;
var
t: TDateTime;
begin
for a:=0 to TreeCount do
begin
CheckCon;
t:=now;
NewMoveXY(TreePlace[a].x, TreePlace[a].y, true, 1, false);
Wait(1000);
if CheckTool=true then
begin
Equipt(RhandLayer,Axe);
//UseObject(ObjAtLayerEx(RhandLayer, Axe));
UseType(Axe, $FFFF);
WaitTargetTile(TreePlace[a].t, TreePlace[a].x, TreePlace[a].y, 0);
repeat
Wait(1000);
until (InJournalBetweenTimes('tool|far|no wood|equip', t, now) > 0) or (Connected=False) or (dead);
end
end;
end;
 
begin
c:=0;
s:=1;
TreeTile[0]:=3480;
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;
 
CheckCon;
 
if StartXY=true then
NewMoveXY(StartX, StartY, true, 0, false);
 
FindTree;
AddToSystemJournal('Trees found: '+IntToStr(TreeCount));
 
while (s=1) and (not dead) do
Lumber;
 

 

end.
 
Вне конюшни работает, а на деревьях которые посажены внутри не фурычит.... ((


#2
Guest_Alex_*

Guest_Alex_*
  • Гости

Стукни мне 179787381(аська)

Был где то на форуме , но чет я найти щас не смог )так что стучи ...



#3
Whelp

Whelp

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

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

Стукни мне 179787381(аська)

Был где то на форуме , но чет я найти щас не смог )так что стучи ...

Стукнул ))



#4
Guest_Alex_*

Guest_Alex_*
  • Гости

Стукнул ))

Молодец ))



#5
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,597 posts
  • Location:Череповец
  • Interests:Big Red Machine

;D



#6
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,597 posts
  • Location:Череповец
  • Interests:Big Red Machine

1000







0 user(s) are reading this topic

members, guests, anonymous users