Квест Spore Fungus (Classic EU)

[Groma]

// Lineage 2 CLASSIC EU SERVER
// Spore Fungus Quest - Reward 1k adenas
// Start at DE Village Grocer
// Created by [email protected]


function start: boolean;
begin
result:=false;

  Engine.MoveTo(11906, 15765, -4581);
  Engine.SetTarget('Vollodos');
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Agree to help');
  Delay(500);    
  Engine.MoveTo(11690, 16146, -4601);
  Engine.MoveTo(10894, 16313, -4618); 
  Engine.MoveTo(10071, 17140, -4610);
  Engine.MoveTo(7876, 17641, -4430);
  Engine.MoveTo(6208, 17950, -4283);
  Engine.MoveTo(6071, 18503, -4153);
  Engine.MoveTo(6901, 19015, -3872);
  Engine.MoveTo(6793, 19428, -3759);
  Engine.MoveTo(6358, 19837, -3729);
  Engine.MoveTo(1541, 20877, -3523);
  Engine.MoveTo(68, 20136, -3376);
  Engine.MoveTo(-2857, 21376, -3499);
  Engine.MoveTo(-4282, 21896, -3489);
  Engine.MoveTo(-5951, 22041, -3596);
  Engine.MoveTo(-7688, 23281, -3500);
end;

function battle: boolean;
begin
result:=false;

engine.facecontrol(0, true);
while not Engine.QuestStatus (262, 2) do begin
if Engine.AutoTarget (1500, 200) then Engine.Attack;
end;
engine.facecontrol(0, false);
Engine.MoveTo(-7688, 23281, -3500);
Engine.MoveTo(-5951, 22041, -3596);
Engine.MoveTo(-4282, 21896, -3489);
Engine.MoveTo(-2857, 21376, -3499);
Engine.MoveTo(68, 20136, -3376);
Engine.MoveTo(1541, 20877, -3523);
Engine.MoveTo(6358, 19837, -3729);
Engine.MoveTo(6793, 19428, -3759);
Engine.MoveTo(6901, 19015, -3872);
Engine.MoveTo(6071, 18503, -4153);
Engine.MoveTo(6208, 17950, -4283);
Engine.MoveTo(7876, 17641, -4430);
Engine.MoveTo(10071, 17140, -4610);
Engine.MoveTo(10894, 16313, -4618);
Engine.MoveTo(11690, 16146, -4601);
Engine.MoveTo(11906, 15765, -4581);
Engine.SetTarget('Vollodos');
Engine.DlgOpen;
Engine.DlgSel('Quest');
Delay(500);

end;

begin
while Engine.Status= lsOnline do begin
if ( ( User.distto(11906, 15765, -4581) < 5000 ) ) then start;
if ( ( User.distto(-7688, 23281, -3500) < 2000 ) ) then battle;
end;
end.

Автор peubraw from lineage2bot.com​

 

[uniquelove]

[member=Groma],
begin
while 1<>2 do begin
if inventory.User.ByID(57, Item) or (Item.count > 1000000000 ) then begin
engine.say('.bank deposit');
end; delay(200000);

подскажи что не так в этих строчках

 

[Agonia]

@uniquelove, вроде-как end; нехватает

 

[uniquelove]

@Agonia,
var
Item: TL2Item;


begin
while 1<>2 do begin
if inventory.User.ByID(57, Item) or (Item.count > 1000000000 ) then begin
engine.say('.bank deposit');
end; delay(200000);

end;
end.

весь скрипт

 

[uniquelove]

@Agonia, ругается на строчку if inventory.User.ByID(57, Item) or (Item.count > 1000000000 ) then begin
выделяет красным и не запускается

 

[Agonia]

var Item: TL2Item; begin while 1<>2 do begin if inventory.User.ByID(57, Item) or (Item.count > 1000000000 ) then begin engine.say('.bank deposit'); end; delay(200000); end; end. весь скрипт

var
Item: TL2Item;
begin
while 1<>2 do begin
if inventory.User.ByID(57, Item) or (Item.count > 1000000000 ) then begin
engine.say('.bank deposit');
end; delay(200000);
end;
end.

проверил у себя в боте, все работает, ошибок не выдало.

 

[platemate]

спасибо, хорошая работа