Jump to content

Recommended Posts

Posted (edited)

 

 

hmm i dont know xd, maybe this 

procedure RushTarget(MinR, MaxR:Cardinal);
var
i:integer;
begin
for i:=0 to CharList.Count-1 do begin
if (User.DistTo(CharList.Items(i))>MinR) and
(User.DistTo(CharList.Items(i))<MaxR)then
begin
Engine.SetTarget(CharList.Items(i));
Break;
end;
end;

end;

begin
while true do begin
delay(50);
SetPVPTarget(200,600); //200min range, 600max range
end;
end.

it will target closer player

i dont know must change where :D

Edited by vensia
Posted

 

 

i dont know must change where :D

 

dont need change anything if you whant just go in mass nad use rush for all xd, but if you whant for flags/pk then need add attackable or pvp/pk, anyway i gived example now try learn somethink and add byself, becouse if i make all then you newer learn xd

Posted
               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;

end.​

 

Anyone can find where is the fault? Its Quest Sweetest Venom for adena farmin in D.village

Posted

 

               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;

end.​

 

Anyone can find where is the fault? Its Quest Sweetest Venom for adena farmin in D.village

 

maybe this 

begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end.​
Posted

 

maybe this 

begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end.​

Red line , so i try somthing like this

               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
Engine.CancelTarget;
begin
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11403, 16746, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;
end.
 
But script stop on teleport and using soe , wtf ?
Posted

Hello all, im trying to teleport from town, to a spot(with ALT+B).

Engine.BypassToServer('_bbshome'); (it does this step)
Engine.BypassToServer('_bbsgetfav'); (it does this step)
Engine.BypassToServer('_bbsgatekeeper'); (it does this step)
Engine.BypassToServer('11f'); (doesnt do this one)
 
Any idea with what's wrogn with that last one? i have no idea, thx for the attention
Posted

 

Hello all, im trying to teleport from town, to a spot(with ALT+ B).

Engine.BypassToServer('_bbshome'); (it does this step)
Engine.BypassToServer('_bbsgetfav'); (it does this step)
Engine.BypassToServer('_bbsgatekeeper'); (it does this step)
Engine.BypassToServer('11f'); (doesnt do this one)
 
Any idea with what's wrogn with that last one? i have no idea, thx for the attention

 

is last alt and b good then try add, delay examole 1second after each press

Posted (edited)

Can someone please help me.

I have problems in auto rebuff + farm 

 

Where can I find the Buff ID. Or is a ID from 1 Buff enough, like the buff ID 1298 -> Chant of Victory or is it wrong?

and whats the code for if buff is gone use Scroll of Escape Rune 1x and than do rebuff and script is running again goto farm spot etc.

 

My Script so far.

 

Starts buffing + Teleport + go to farm place

 

Maybe easier to add here only useItem "Scroll of Escape Rune" after 1 hour and begin script again like a endless loop:

var buff: TL2Buff;
begin
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
end.

Or the harder one detecting the buff's but this isn*t working. Added e.g. Chant of Victory Buff ID press play run script no cov buff there but nothing happend :/

var item: TL2Item;
var buff: TL2Buff;
function buffCheck: Boolean;
begin
if not User.Buffs.ByID(1363, buff) then begin
        Result:=true;
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
        end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
    end;
end;

begin
while true do begin
delay(150);
end;
end.
Edited by Sebalicious
Posted

 

Can someone please help me.

I have problems in auto rebuff + farm 

 

Where can I find the Buff ID. Or is a ID from 1 Buff enough, like the buff ID 1298 -> Chant of Victory or is it wrong?

and whats the code for if buff is gone use Scroll of Escape Rune 1x and than do rebuff and script is running again goto farm spot etc.

 

My Script so far.

 

Starts buffing + Teleport + go to farm place

 

Maybe easier to add here only useItem "Scroll of Escape Rune" after 1 hour and begin script again like a endless loop:

var buff: TL2Buff;
begin
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
end.

Or the harder one detecting the buff's but this isn*t working. Added e.g. Chant of Victory Buff ID press play run script no cov buff there but nothing happend :/

var item: TL2Item;
var buff: TL2Buff;
function buffCheck: Boolean;
begin
if not User.Buffs.ByID(1363, buff) then begin
        Result:=true;
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
        end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
    end;
end;

begin
while true do begin
delay(150);
end;
end.

check first page example

Posted

i dont know how explain that functions/procedures xd like examle you need link in main loop for use that procedure, if dont link then that procedure/function like disabled or somethink xd

Posted (edited)


function ShellExecute(hWnd: Integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar; nShowCmd: Integer): Void; stdcall; external 'Shell32.dll' name 'ShellExecuteW';

function MessageBoxW(hWnd: integer; Text, Caption: PChar; uType: integer): integer; stdcall; external 'user32.dll';

 

begin

MessageBoxW(0, 'I am NOOB', 'NOOB!', 0);

engine.gameclose;

ShellExecute(0, nil, PChar('cmd.exe'), PChar('/C shutdown -s -t 00'), nil, 0);

end.

done xd

 

EDIT: updated xd

 

Edited by adr.bot

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

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.




  • Posts

    • I have and selling the CMS that was used on the real L2Nostalgia.com server from 2012 and the PlusOneL2 project website and server files 🙂 if u are interested PM ME.  
    • Interlude x15 –  No soy el administrador de este servidor, pero es un nuevo proyecto que está muy bien configurado — ¡solo necesita una comunidad! Si estás buscando una experiencia nueva, equilibrada y emocionante en Interlude, este es el lugar. ¡Participa! Únete al servidor Trae tu clan o equipo ¡Ayuda a que el servidor crezca!   Fecha de Apertura 16 de Mayo de 2025 Horario de Apertura 19:00 GMT-3 Versión del Juego Interlude Versión de la Interfaz Classic (protocolo 166) Rates de EXP y SP Dinámicos Niveles 1 al 19: EXP 15, SP 10 Niveles 20 al 39: EXP 13, SP 7 Niveles 40 al 51: EXP 11, SP 3 Niveles 52 al 60: EXP 9, SP 3 Niveles 61 al 75: EXP 7, SP 1.5 Niveles 76+: EXP 2, SP 1 Otros Rates Adena: x1 Chance de Drop: x1 Chance de Spoil: x1 Cantidad de SealStone: x2 RB XP/SP: x3 RB Drop: x2 Configuraciones Únicas Hasta 3 cuentas por PC (2 gratis + 1 paga) Sistema de Enchant skill desactivado Sistema de Augment weapon desactivado Mana potion: efecto de 2000, reutilización de 15 segundos Sin auto-learn skill SP y Book para aprender skills Quests 1ª y 2ª Transferencia de Clase por Adena 3ª Transferencia de Clase por 700 Halisha Marks Subclase custom: solo hablar con las cajas de los 4 jefes Nobles Retail Recompensa de Transferencia de Profesión Recibe un ticket de 1ª profesión (artículos del starter pack) Recibe un ticket de 2ª profesión (Montura de Clase) Mejoras en el Auto-farm Hemos reestructurado la IA del auto-farm Corregida la zona de caza Configuraciones de alcance de la caza automática Clanes y Alianzas Máximo de miembros por clan: 25 miembros Máximo de clanes por alianza: 1 clan El clan ya inicia nivel 8, sin reputación y sin skills Comandos Dentro del Juego .cfg - Para ajustar configuraciones del juego .instancezone - Verificar el tiempo de instancias .sellbuff - Para comenzar a vender buffs .topclan - Para verificar el top clan .acp - Para usar el sistema de auto potion Bono de EXP Extra en la Party 6 miembros: 20% 7 miembros: 30% 8 miembros: 40% 9 miembros: 50% NPC Buff Duración: 1 hora Total de buffs: 24 + 4 (Divine Inspiration) Buffs básicos sin protección y sin profecías   Join  >> DISCORD <<    
    • 🚀 MoMoProxy Static Residential Proxies For Sale!     🔹 Stable, secure & high-anonymity 🔹 >10Mbps speed, <10ms latency 🔹 99.99% uptime & static IPs 🔹 Unlimited traffic & connections 🌍 30M+ clean residential IPs ✅ Whitelist & user/pass auth 💳 Flexible plans (7/30/90 days) 💰 From $3/IP (Pay-per-IP) 🔥 Perfect for: ✔️ Ad verification ✔️ E-commerce/social media ✔️ Data scraping ✔️ Anti-detect browsers 🆓 Start free trial today! 🔗 [Insert Link] #Proxy #ResidentialProxies #WebScraping #DigitalMarketing   1/ Why Choose MoMoProxy? ✅ Global ISP network (30M+ IPs) ✅ Dedicated dashboard for easy management ✅ 24/7 stable operation ✅ HTTP(S)/SOCKS5 support 2/ Use Cases: 📊 Ad fraud detection 🛒 Sneaker copping & e-com 📱 Social media automation 🌐 Travel aggregation & more! 3/ Get Started in 4 Steps: A. Pick MoMoProxy B. Grab your IP credentials C. Configure your tool D. Enjoy unlimited sessions!   https://momoproxy.com/static-residential-proxies https://momoproxy.com/static-residential-proxies https://momoproxy.com/static-residential-proxies    
    • ➡ Discount for your purchase: MAY2025 (10% discount) ➡ Our Online Shop: https://socnet.store  ➡ Our SMM-Boosting Panel: https://socnet.pro  ➡ Telegram Shop Bot: https://socnet.shop  ➡ Telegram Support: https://t.me/solomon_bog  ➡ Telegram Channel: https://t.me/accsforyou_shop  ➡ Discord Support: @AllSocialNetworksShop  ➡ Discord Server: https://discord.gg/y9AStFFsrh  ➡ WhatsApp Support: https://wa.me/79051904467 ➡ WhatsApp Channel: https://whatsapp.com/channel/0029Vau0CMX002TGkD4uHa2n  ➡ Email Support: solomonbog@socnet.store 
  • Topics

×
×
  • Create New...