Jump to content
MaxCheaters Official Group on Discord
Top.MaxCheaters.com is now OPEN – Lineage 2 Top Listing

L2 Adrenaline Scripts.

hornas

By hornas
in Request Botting [English]

 Share

Recommended Posts

vensia Iron Initiate

vensia

Posted
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
adr.bot Rookie

adr.bot

Posted
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

thanatos15 Iron Initiate

thanatos15

Posted
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

adr.bot Rookie

adr.bot

Posted
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.​
thanatos15 Iron Initiate

thanatos15

Posted
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 ?
amaralpt Iron Initiate

amaralpt

Posted
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
adr.bot Rookie

adr.bot

Posted
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

Sebalicious Iron Initiate

Sebalicious

Posted
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
adr.bot Rookie

adr.bot

Posted
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

adr.bot Rookie

adr.bot

Posted
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

adr.bot Rookie

adr.bot

Posted
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
	
	

			
		


		

		
	


	
    




	




					
					
					
				
			
			



		

	


	
		

			


	
	

		

	
	
	
	
	
		
	

			
				
				



	
	
		

			
				
Create an account or sign in to comment

				
You need to be a member in order to leave a comment

			
	
			

				

					

						
Create an account

						
Sign up for a new account in our community. It's easy!

						
							
						
						Register a new account
					

					

						
Sign in

						
Already have an account? Sign in here.

						Sign In Now
					

				

			

		

	


			
		

	

	
		

			

				
					


    
          Share
    

    

				
				
                

                


				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




								


							

							


	

		
		
			
			

		
		
			
			


		
		


	

		
    
			
				
					
					
  • 

	
    Posts
    
	
		
    
			
      
				
					
    • 
						
      
							


	
		pannicattack
	

						
      
						
      
							
       How nice, MaxCheaters
      
							
      By 


pannicattack · Posted 
      
							
      
								this site is "close" to 20 years old man xd
 

							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		gabijambob
	

						
      
						
      
							
       WTS Shyeed Bow+10 eternal new season
      
							
      By 


gabijambob · Posted 
      
							
      
								competitive prices shyeed bow+10/ maj light set/maj jwl sets  pm me here or / discord : gabe9410
 

							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		Deathboss
	

						
      
						
      
							
       [L2J] L2Nexum
      
							
      By 


Deathboss · Posted 
      
							
      
								L2 NEXUM — SERVER FEATURES 
	High Five · PvP · x300 · GMT+3 
	Play. Fight. Earn SOL.
 


	✨ SERVER FEATURES 
	──────────────── 
	⚡ XP / SP: x300 
	💰 Adena: x50 
	👥 Party Exp / Party SP: x1.1 
	🐉 Raid Boss Drop: x2 
	🔥 Epic Boss Drop: x2 
	📜 Quest: x5 
	💚 Vitality: ON (up to x2)
 


	🛡️ ENCHANT 
	──────────────── 
	Safe Enchant: +6 
	Max Enchant: +30 
	Normal 60% · Blessed 80% · Crystal 65% · Divine 100% 
	Olympiad field: +6 / +6 / +6
 


	💻 WINDOWS / HWID 
	──────────────── 
	2 free · up to 4 windows VIP (HWID)
 


	🎮 GAMEPLAY 
	──────────────── 
	AutoFarm · Community Board (ALT+B) · Custom Hi5 interface 
	DressMe · Active AntiCheat · Newbie / Safe / PvP farm zones 
	Daily events: TvT · CTF · Domination · DM 
	Weekly Olympiad · Weekly Sieges
 


	📅 SCHEDULE (GMT+3) 
	──────────────── 
	🏰 Castle Sieges: Sun 20:00–22:00 (Lord 16:00 or 20:00) 
	⚔️ Territory War: Sat 20:00–22:00 
	🏆 Olympiad: Thu / Fri / Sat 18:00–00:00 · non-class 
	🐉 Baium: Sat random 20:00–21:00 
	🌋 Antharas / Valakas: Sun every 2 weeks 22:30–23:30 
	🧪 QA / Core / Orfen: 18–24h after death
 


	💎 PLAY TO EARN 
	──────────────── 
	Farm & fight like High Five. 
	Crypto Auction — sell rare items for SOL. 
	One SOL balance on the panel (Donate + Auction).
 


	──────────────────────────────── 
	SERVER BETA  OPENING 
	Saturday 17 October · 20:00 GMT+3 · PvP x300 
	https://l2nexum.com    
	https://discord.com/invite/TmHftynKe5
 

							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		DinoF
	

						
      
						
      
							
       LF L2 Pride Pros
      
							
      By 


DinoF · Posted 
      
							
      
								I'm in to help test and trial stuff. L2 Pride brings back memories of countless farming in Cave of Trials
 

							
      
						
      
					
      • 
				
					
    • 
						
      
							


	
		newrostman
	

						
      
						
      
							
       Cruma - Lineage 2 World Viewer & Radar Map Generator
      
							
      By 


newrostman · Posted 
      
							
      
								Version 0.4.0 - A geodata generator and L2J format support have been added
	 



	 
 


	- Now, you can generate geodata for the server directly from the client. Most regions match server files at 99-100%.
 


	- Cruma opens and saves geodata in L2J format (.l2j).
 


	- Geodata can be converted from L2OFF to L2J and vice versa.
 


	- When exporting to L2OFF, you can immediately build a path node even if the original format is L2J.
 


	- Zones and NPCs are only displayed where there is geodata and no longer appear in mid-air.
 


	 
 


	Download
 

							
      
						
      
					
      • 
				
			
    
		
    
	


    • 
				
					
					
  • 

    • 
				
					
					
  • 

	
    Topics
    

	
		
    
			
		
    
	

    • 
				
					
					
  • 

    • 
				
			
		

	


	


						

					

					
				

				

			

		

			

				

				
			

		

		



	

		×
		


    
	





			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    • 
				
			

		

	




		






















	

		

			
Important Information

			
This community uses essential cookies to function properly.  Non-essential cookies and third-party services are used only with your consent.  Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..