I would like to help you guys, I use this script without serving to play, and I would like to add a line so he can check the amount of adena and exchange for gold bar through the alt + b menu if it repeats all as times that reach x of adena for example. I'm noob in the script so give that strength there.
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
IdBuff: integer;
Buffs:TL2Buff;
var L2Skill: TL2Skill;
procedure toVillage;
begin
Print('To Village');
Delay(100);
if (User.HP=0) then
begin
Delay(2000);
Engine.GoHome;
Engine.Facecontrol(0,False);
Buff;
end;
end;
procedure buff;
begin
Engine.BypassToServer('_bbshome');
Delay(2000);
Engine.BypassToServer('_bbsloc');
Delay(2000);
Engine.BypassToServer('_bbsloc_buffer');
Delay(2000);
Engine.BypassToServer('_bbsloc_functions_buffer_showProfiles_buffforme');
Delay(2000);
Engine.BypassToServer('_bbsloc_functions_buffer_buffforme_ Fighter');
Delay(2000);
Engine.BypassToServer('_bbshome');
Delay(2000);
Engine.BypassToServer('_bbsloc');
Delay(2000);
Engine.BypassToServer('_bbsloc;gmshop');
Delay(2000);
Engine.BypassToServer('_bbsloc_sendMultisell 65045');
Delay(2000);
Engine.NpcExchange(3470, 199);
Delay(2000);
RunTo;
end;
procedure RunTo;
begin
Engine.BypassToServer('_bbshome');
Delay(2000);
Engine.BypassToServer('_bbsloc');
Delay(2000);
Engine.BypassToServer('_bbsloc;gatekeeper;main_gk');
Delay(2000);
Engine.BypassToServer('_bbsloc_teleport 11');
Delay(2000);
Engine.BypassToServer('_bbshome');
Delay(2000);
Fight;
end;
procedure toBuff;
begin
IdBuff:=1040 ; //Check BUFF
while not User.Buffs.ById(IdBuff,obj) do begin
Print('Check Buff');
Delay(3000);
buff;
end;
end;
procedure Fight;
begin
Print('Fight zone');
Engine.MoveTo(-82474, 150832, -2995);
Delay(500);
Engine.LoadConfig('1'); //Название Вашего конфига
Engine.LoadZone('Gludin Adena.zmap'); //zona de combat
Print('Фарм');
toVillage;
Engine.Facecontrol(0,True);
end;
//-----------------------------------------------------------------------------
begin //repete novamente o script
Print('repete novamente');
repeat
toBuff;
toVillage;
until Engine.Status = lsOffline;
Delay(5000);
end.
I tried to put something like this but it did not work because it does not constantly check
Engine.BypassToServer('_bbshome');
Delay(2000);
Engine.BypassToServer('_bbsloc');
Delay(2000);
Engine.BypassToServer('_bbsloc_sendMultisell 65045');
Delay(2000);
Engine.NpcExchange(3470, 199);
Delay(2000);