{
--------------------------------------------------------------------------------
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