Share Script Auto Farm For Adrenaline With return to the farm zone

[evilonies]

{
--------------------------------------------------------------------------------
Script Auto-Farm Simple By Eviloni
--------------------------------------------------------------------------------
}

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

{
--------------------------------------------------------------------------------
Mouse configuration do not touch here
--------------------------------------------------------------------------------
}

procedure mouseClick(x, y, _delay : integer);
begin
  SetCursorPos(x, y);
  mouse_event($2, 0, 0, 0, 0);
  delay(_delay);
  mouse_event($4, 0, 0, 0, 0);
end;


{
--------------------------------------------------------------------------------
Configuration do not change anything here
--------------------------------------------------------------------------------
}
var Figth_Flag:boolean;
     Item: TL2Item;
     Npc: TL2Npc;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;

{
--------------------------------------------------------------------------------
Configuration do not change anything here
--------------------------------------------------------------------------------
}
procedure toVillage;
begin
  Delay(100);
    if (User.HP=0) then
      begin
       Delay(4000);
       Engine.GoHome;
       Engine.Facecontrol(0,False);
Delay(4000);
       Buff;
      end;
end;

{
--------------------------------------------------------------------------------
Server Buff System Configuration (Configured for magicians at FANDC change for your server bypass)
--------------------------------------------------------------------------------
}
procedure buff;
begin
       Engine.BypassToServer ('_bbsbuffer');// buffs
     Delay(2500);
       Engine.BypassToServer ('_bbsbufferbypass_giveBuffSet mage 0 0');// buffs
     Delay(1500);
       Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 366 1 dance');// buffs
     Delay(1500);
       Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 349 1 song');// buffs
     Delay(1500);
            Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 304 1 song');// buffs
     Delay(1500);
            Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 267 1 song');// buffs
     Delay(1500);
            Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 264 1 song');// buffs
     Delay(1500);
            Engine.BypassToServer ('_bbsbufferbypass_giveBuffs 268 1 song');// buffs
     Delay(1500);
   RunTo;
end;

{
--------------------------------------------------------------------------------
Teleport Configuration (TP FANDC Change for your teleport bypass)
--------------------------------------------------------------------------------
}
procedure RunTo;
begin
Engine.BypassToServer('_bbsteleport;id;505');   //Teleport Forge
delay(1500);
     Fight;
end;

{
--------------------------------------------------------------------------------
Check if you have buffs
--------------------------------------------------------------------------------
}
procedure toBuff;
  begin
  IdBuff:=1323 ;  //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Nobless');
        Engine.UseItem(736);  //Scroll Escape switch to your scroll escape id
        Delay(20000);
        buff;
   end;
end;

{
--------------------------------------------------------------------------------
Setting Up Your Farm Zone
--------------------------------------------------------------------------------
}
procedure Fight;
   begin
    Engine.MoveTo(171656, -116408, -2136); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(173240, -116312, -3488); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(173624, -115368, -3744); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(178232, -116792, -3592); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(180344, -117560, -3592); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(179000, -118424, -3784); //zone that will travel to the farm zone
    Delay(500);
    Engine.MoveTo(177016, -119144, -4096); //zone that will travel to the farm zone
    Delay(1500);
    Engine.MoveTo(178136, -119624, -4088); //Area where you will farm
    Delay(1500);
    Engine.LoadConfig('YouSetings');    // switch to your character seting
    Engine.LoadZone('forge.zmap');   // switch to the map of the region where you are going to farm
    Print('Thank you EvilOni');
    toVillage;
    Engine.Facecontrol(0,True);
end;


{
--------------------------------------------------------------------------------
Configuration To keep repeating if you die, do not change anything here
--------------------------------------------------------------------------------
}
begin    //repeats the script again
  repeat
   toBuff;
   toVillage;
  until Engine.Status = lsOffline;
  Delay(9000);
end.

My Group in discord: Discord

Edited April 9, 2021 by evilonies