Jump to content
MaxCheaters Official Group on X
MaxCheaters Official Group on Discord
--> Place your ad text here <--

L2 Adrenaline Scripts.

hornas

By hornas
in Request Botting [English]

 Share

Recommended Posts

BouKipiKe Newbie

BouKipiKe

Posted
Posted (edited)

hi all.

adr.bot can u help me pls i search how too use cmd chat in scrpit. i have try

 

Engine.Say('.jointvt', 0, '');

Engine.mtSystem('.jointv');

 

but not working, in nomal chat write .jointvt . :/ if u have any idea how can i do for use cmd chat when i m using script ?

Ty again for help cyu later

Edited by BouKipiKe
adr.bot Rookie

adr.bot

Posted
Posted

hi all.

adr.bot can u help me pls i search how too use cmd chat in scrpit. i have try

"Engine.say(.jointvt)"

but not working :/ u have any idea how can i do for use cmd chat when i m using script ?

Ty again for help cyu later

Engine.EnterText('.jointvt');
11k Newbie

11k

Posted
Posted

Adr, how to make buypass on ketrawars.ru?
Can't use buffer with this script :c

 

  Begin
        Engine.SetTarget(31275); // NPC ID
        Delay(4000);
        Engine.DlgOpen;
        Delay(4000);
        Engine.Dlgsel(6);
        Delay(4000);
        Engine.Dlgsel(2);
        Delay(4000);
        Engine.Dlgsel(4);
        Delay(4000);
        Engine.Dlgsel(4);
    End.

Where my mistake?)
adr.bot Rookie

adr.bot

Posted
Posted

 

Adr, how to make buypass on ketrawars.ru?

Can't use buffer with this script :c

 

Where my mistake?)

 

ketrawars use encrypted npc or somethink, need parse somehow, but how i dont know, so even pay version not help here

11k Newbie

11k

Posted
Posted

ketrawars use encrypted npc or somethink, need parse somehow, but how i dont know, so even pay version not help here

How can i decrypt this language?..

LAPDS Newbie

LAPDS

Posted
Posted

(first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong.

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
//QUEST JOURNEY TO A SETTLEMENT                                                                            //
//                                                                                                         //
//                                                                                                         //
//Localización: four mausoleums muy adentro en imperial tomb en Town Goddard                               //        
//Begin NPC: Nameless Spirit                                                                               //
//Reward: Frintezza's Magic Force Field Removal Scroll                                                     //
//Quest repetible: in this server "yes"                                                                    //
//                                                                                                         //
//1ª Nameless Spirit will ask you to bring antelope skin.                                                  //
//2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 //
//   then go back to NPC.                                                                                  //
//3ª speak with Nameless Spirit and give him the antelope skin.                                            //
//4ª him reward you with the Frintezza's Magic Force Field Removal Scroll.                                 //
//5ª take the quest again.                                                                                 //
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

var
	QuestItem: TL2Item;
	Item: TL2Item;
begin
	Engine.MoveTo(147960,-55272,-2728);
	//move to Goddard GK Tatiana
	Delay(500);
	Engine.SetTarget(31275);
	//Target GK Tatiana
	Delay(500);
	Engine.DlgOpen;
	//Talk GK Tatiana
	Delay(500);
	Engine.DlgSel('[Noblesse Exclusive] Teleport');
	//select Nobles Teleport
	Delay(500);
	Engine.DlgSel(2);
	// Select Teleport Hounting Ground without Token
	Delay(500);
	Engine.DlgSel('Four Sepulchers - 1000 9');
	// Select destination Four sepulchers teleport
	Delay(500);
	Engine.CancelTarget;
	// Cancel Target GK Tatiana
	Engine.MoveTo(178296,-85560,-7216);
	//Move Nameless Spirit NPC (begin of the quest)
	Delay(500);
	Engine.SetTarget(31453);
	//Target Nameless Spirit
	Delay(500);
	Engine.DlgOpen;
	// talk with NPC Nameless Spirit
	Delay(500);
	Engine.DlgSel('Quest');
	//Request quest
	Delay(500);
	Engine.DlgSel('65402');
	// Select Quest Journey to a Settlement
	Delay(500);
	Engine.DlgSel('I will do it.');
	//accept the quest
	Delay(500);
	Engine.CancelTarget;
	// Cancel Target Nameless Spirit
	if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin
	//ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory
		Engine.UseItem(736);
		//Take Soe
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		//Move to GK Tatiana
		Delay(500);
		Engine.SetTarget(31275);
		//Target GK Tatiana
		Delay(500);
		Engine.DlgOpen;
		// Talk with GK Tatiana
		Delay(500);
		Engine.DlgSel('Teleport');
		//Select Teleport
		Delay(500);     
		Engine.DlgSel('Wall of Argos - 2200 9');
		//Select destination wall of argos
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target GK Tatiana
		if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin
		// ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory
		    Engine.FaceControl(0,true);
			// activate BOT
		end.
		Engine.FaceControl(0,false);
		// deactivate BOT
		Engine.UseItem(736);
		//Take Soe
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		//Move GK Tatiana
		Delay(500);
		Engine.SetTarget(31275);
		//Target GK Tatiana
		Delay(500);
		Engine.DlgOpen;
		//Talk GK Tatiana
		Delay(500);
		Engine.DlgSel('[Noblesse Exclusive] Teleport');
		//select Nobles Teleport
		Delay(500);
		Engine.DlgSel(2);
		// Select Teleport Hounting Ground without Token
		Delay(500);
		Engine.DlgSel('Four Sepulchers - 1000 9');
		// Select destination Four sepulchers teleport
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target GK Tatiana
		Engine.MoveTo(178296,-85560,-7216); 
		//Move to Nameless Spirit
		Delay(500);
		Engine.SetTarget(31453);
		//Target Nameless Spirit
		Delay(500);
		Engine.DlgOpen;
		//Talk Nameless Spirit
		Delay(500);
		Engine.DlgSel('Quest');
		// Select Quest
		Delay(500);
		Engine.DlgSel('65402');
		// Select Journey to a Settlement
		Delay(500);
		Engine.DlgSel('Here it is.');
		// Give Item ID 8072 to NPC
		Delay(500);
		Engine.DlgOpen;
		//Talk Nameless Spirit
		Delay(500);
		Engine.DlgSel('Quest');
		// Select Quest
		Delay(500);
		Engine.DlgSel('65402');
		// Select Journey to a Settlement
		Delay(500);
		Engine.DlgSel('I will do it.');
		//accept the quest
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target Nameless Spirit
    end.
end.
adr.bot Rookie

adr.bot

Posted
Posted

 

(first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong.

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
//QUEST JOURNEY TO A SETTLEMENT                                                                            //
//                                                                                                         //
//                                                                                                         //
//Localización: four mausoleums muy adentro en imperial tomb en Town Goddard                               //        
//Begin NPC: Nameless Spirit                                                                               //
//Reward: Frintezza's Magic Force Field Removal Scroll                                                     //
//Quest repetible: in this server "yes"                                                                    //
//                                                                                                         //
//1ª Nameless Spirit will ask you to bring antelope skin.                                                  //
//2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 //
//   then go back to NPC.                                                                                  //
//3ª speak with Nameless Spirit and give him the antelope skin.                                            //
//4ª him reward you with the Frintezza's Magic Force Field Removal Scroll.                                 //
//5ª take the quest again.                                                                                 //
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

var
	QuestItem: TL2Item;
	Item: TL2Item;
begin
	Engine.MoveTo(147960,-55272,-2728);
	//move to Goddard GK Tatiana
	Delay(500);
	Engine.SetTarget(31275);
	//Target GK Tatiana
	Delay(500);
	Engine.DlgOpen;
	//Talk GK Tatiana
	Delay(500);
	Engine.DlgSel('[Noblesse Exclusive] Teleport');
	//select Nobles Teleport
	Delay(500);
	Engine.DlgSel(2);
	// Select Teleport Hounting Ground without Token
	Delay(500);
	Engine.DlgSel('Four Sepulchers - 1000 9');
	// Select destination Four sepulchers teleport
	Delay(500);
	Engine.CancelTarget;
	// Cancel Target GK Tatiana
	Engine.MoveTo(178296,-85560,-7216);
	//Move Nameless Spirit NPC (begin of the quest)
	Delay(500);
	Engine.SetTarget(31453);
	//Target Nameless Spirit
	Delay(500);
	Engine.DlgOpen;
	// talk with NPC Nameless Spirit
	Delay(500);
	Engine.DlgSel('Quest');
	//Request quest
	Delay(500);
	Engine.DlgSel('65402');
	// Select Quest Journey to a Settlement
	Delay(500);
	Engine.DlgSel('I will do it.');
	//accept the quest
	Delay(500);
	Engine.CancelTarget;
	// Cancel Target Nameless Spirit
	if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin
	//ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory
		Engine.UseItem(736);
		//Take Soe
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		//Move to GK Tatiana
		Delay(500);
		Engine.SetTarget(31275);
		//Target GK Tatiana
		Delay(500);
		Engine.DlgOpen;
		// Talk with GK Tatiana
		Delay(500);
		Engine.DlgSel('Teleport');
		//Select Teleport
		Delay(500);     
		Engine.DlgSel('Wall of Argos - 2200 9');
		//Select destination wall of argos
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target GK Tatiana
		if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin
		// ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory
		    Engine.FaceControl(0,true);
			// activate BOT
		end.
		Engine.FaceControl(0,false);
		// deactivate BOT
		Engine.UseItem(736);
		//Take Soe
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		//Move GK Tatiana
		Delay(500);
		Engine.SetTarget(31275);
		//Target GK Tatiana
		Delay(500);
		Engine.DlgOpen;
		//Talk GK Tatiana
		Delay(500);
		Engine.DlgSel('[Noblesse Exclusive] Teleport');
		//select Nobles Teleport
		Delay(500);
		Engine.DlgSel(2);
		// Select Teleport Hounting Ground without Token
		Delay(500);
		Engine.DlgSel('Four Sepulchers - 1000 9');
		// Select destination Four sepulchers teleport
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target GK Tatiana
		Engine.MoveTo(178296,-85560,-7216); 
		//Move to Nameless Spirit
		Delay(500);
		Engine.SetTarget(31453);
		//Target Nameless Spirit
		Delay(500);
		Engine.DlgOpen;
		//Talk Nameless Spirit
		Delay(500);
		Engine.DlgSel('Quest');
		// Select Quest
		Delay(500);
		Engine.DlgSel('65402');
		// Select Journey to a Settlement
		Delay(500);
		Engine.DlgSel('Here it is.');
		// Give Item ID 8072 to NPC
		Delay(500);
		Engine.DlgOpen;
		//Talk Nameless Spirit
		Delay(500);
		Engine.DlgSel('Quest');
		// Select Quest
		Delay(500);
		Engine.DlgSel('65402');
		// Select Journey to a Settlement
		Delay(500);
		Engine.DlgSel('I will do it.');
		//accept the quest
		Delay(500);
		Engine.CancelTarget;
		// Cancel Target Nameless Spirit
    end.
end.

first your script without red line 

var
	QuestItem: TL2Item;
	Item: TL2Item;
begin
	Engine.MoveTo(147960,-55272,-2728);
	Delay(500);
	Engine.SetTarget(31275);
	Delay(500);
	Engine.DlgOpen;
	Delay(500);
	Engine.DlgSel('[Noblesse Exclusive] Teleport');
	Delay(500);
	Engine.DlgSel(2);
	Delay(500);
	Engine.DlgSel('Four Sepulchers - 1000 9');
	Delay(500);
	Engine.CancelTarget;
	Engine.MoveTo(178296,-85560,-7216);
	Delay(500);
	Engine.SetTarget(31453);
	Delay(500);
	Engine.DlgOpen;
	Delay(500);
	Engine.DlgSel('Quest');
	Delay(500);
	Engine.DlgSel('65402');
	Delay(500);
	Engine.DlgSel('I will do it.');
	Delay(500);
	Engine.CancelTarget;
	if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin
		Engine.UseItem(736);
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		Delay(500);
		Engine.SetTarget(31275);
		Delay(500);
		Engine.DlgOpen;
		Delay(500);
		Engine.DlgSel('Teleport');
		Delay(500);     
		Engine.DlgSel('Wall of Argos - 2200 9');
		Delay(500);
		Engine.CancelTarget;
		if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin
		    Engine.FaceControl(0,true);
		end;
		Engine.FaceControl(0,false);
		Engine.UseItem(736);
		Delay(10000);
		Engine.MoveTo(147960,-55272,-2728);
		Delay(500);
		Engine.SetTarget(31275);
		Delay(500);
		Engine.DlgOpen;
		Delay(500);
		Engine.DlgSel('[Noblesse Exclusive] Teleport');
		Delay(500);
		Engine.DlgSel(2);
		Delay(500);
		Engine.DlgSel('Four Sepulchers - 1000 9');
		Delay(500);
		Engine.CancelTarget;
		Engine.MoveTo(178296,-85560,-7216); 
		Delay(500);
		Engine.SetTarget(31453);
		Delay(500);
		Engine.DlgOpen;
		Delay(500);
		Engine.DlgSel('Quest');
		Delay(500);
		Engine.DlgSel('65402');
		Delay(500);
		Engine.DlgSel('Here it is.');
		Delay(500);
		Engine.DlgOpen;
		Delay(500);
		Engine.DlgSel('Quest');
		Delay(500);
		Engine.DlgSel('65402');
		Delay(500);
		Engine.DlgSel('I will do it.');
		Delay(500);
		Engine.CancelTarget;
    end;
end.

second i dont know how explain xd better i think write in to procedures steps, to avoid problems when someone pk you, like example from my script (maybe not best way but works xd)

procedure tosepulchers;
begin
engine.settarget('Tatiana');
delay(500);
engine.dlgopen;
delay(500);
engine.dlgsel('Nobless only');
delay(500);
engine.dlgsel(2);
delay(500);
engine.dlgsel('Four Sepulchers');
end;

procedure towncheck;
begin
	if user.inrange(146272, -58176, -2976, 250, 150) then begin
		Engine.MoveTo(147593, -58103, -3007);
		Engine.MoveTo(147727, -57141, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;  
		if user.inrange(145264, -57680, -2976, 250, 150) then begin
		Engine.MoveTo(145588, -56926, -3007);
		Engine.MoveTo(146673, -56095, -2807);
		Engine.MoveTo(147543, -56054, -2807);
		Engine.MoveTo(147936, -55368, -2760);  
    end;
end;

procedure quest;
begin
if(User.Dead) then begin
	  Print('Dead. Pressing to village.');
		Engine.FaceControl(0, false);
		Engine.GoHome;
		delay(5000);
end;
if user.inrange(147936, -55368, -2760, 250) and (Engine.QuestStatus(654, 3)) then begin
tosepulchers;
end;
end;

begin
while (engine.status = lsOnline) do begin
delay(300);
quest();
townCheck();
end;
end.

this is not all script but like example how i write, this near gatekeeper check quest status and go where needed, i think you understand what i mean xdd

LAPDS Newbie

LAPDS

Posted
Posted (edited)

Thx adr.bot, i will try with that example. and one more cuestion, where i can find the ID of QUEST? to use in this command Engine.QuestStatus(654, 3)

Edited by LAPDS
BouKipiKe Newbie

BouKipiKe

Posted
Posted

Thx adr.bot, i will try with that example. and one more cuestion, where i can find the ID of QUEST? to use in this command Engine.QuestStatus(654, 3)

Hi LAPDS,

u find all u need here http://translate.google.fr/translate?hl=fr&sl=ru&tl=en&u=http%3A%2F%2Fadrenalin5.ru%2Fforum%2Findex.php%2Ftopic%2F238-bypass%2F

Engine.QuestStatus (621, 2) /// 621quest id, 2 quest stage

for find quest id is simpel in ur windows adr u go in inventory >> Quest and u see ID at ur item quest :) gl for ur script.

LAPDS Newbie

LAPDS

Posted
Posted

Thx adr.bot and Boukipike, the scrip work very well, not 100% but work fine (only stock in some respawn areas of goodard, i don't have all i thick), in the morning i take 100 frintezza pass, saw the scrip work fine for me. i one to said thank a lot for the help, i use a combination of procedure and function (like a adr.bot said), and use if and while with engine.queststatus() whit the different stage of quest (thx to boukipike).

 

 

P.S: i don't replay to adr.bot the question about backing to cal hall, the command you said me is (rttohall) but don't work, saw i read the scrip manual and i found there, the command is (rttoholl) whit "o".

 

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.

×
 Share
Go to topic listing


×
×
  • Create New...