Jump to content

Script Auto Farm For Adrenaline With return to the farm zone


evilonies
 Share

Recommended Posts

{
--------------------------------------------------------------------------------
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 by evilonies
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock