Request L2 Adrenaline Scripts.

[BouKipiKe]

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 June 23, 2015 by BouKipiKe

[adr.bot]

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');

[BouKipiKe]

Engine.EnterText('.jointvt');

ok thx a lot adr u so pro :)

[11k]

 

Engine.EnterText('.jointvt');

ok thx a lot adr u so pro :)

 

He just know Delphi language :F

[11k]

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]

 

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]

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?..

[adr.bot]

How can i decrypt this language?..

this i dont know how

[11k]

this i dont know how

Support of Adrenalin bot say "can make this with button_click command"

Sth about it?)

[adr.bot]

Support of Adrenalin bot say "can make this with button_click command"

Sth about it?)

i dont know

[LAPDS]

(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]

 

(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]

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 June 26, 2015 by LAPDS

[BouKipiKe]

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]

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".