Share Free Adrenaline script: NA Classic Server - Collector's Dream quest - 1k adena

[Trance]

Hi peeps,

 

The quest starts if you soe/teleport to Elven Village, next to the GK in Gludio, soe to Dark Elven Village, or next to the quest npc.

The bot player will MAIL your main character every time it can send 5k adena. Replace "BT" with your other character.

 

var BreakMove: Boolean;
QuestItem: TL2Item;
Item: TL2Item;
Attacker: TL2Live;

procedure teleportEvt;
begin
	if user.inrange(45246, 49737, -3094, 1500) then
	begin
		Print('System: Unstuck/SOE to Elven Village.');
		Engine.MoveTo(45274, 49299, -3064);
		Engine.MoveTo(45623, 48821, -3086);
		Engine.MoveTo(45880, 49945, -3086);
		Engine.MoveTo(45879, 50756, -3086);
		Engine.SetTarget(30222); // Alshupes.
		Engine.DlgOpen;
		Engine.DlgSel('Quest'); Delay(500);
		Engine.DlgOpen; Delay(500);
		Engine.DlgSel('Quest'); Delay(500);
		Engine.DlgSel('"Yes."'); Delay(500);
		Engine.DlgSel('"Yes."');
	end;
	if user.inrange(11187, 16827, -4656, 500) then
	begin
		Print('System: Dark Elven to Gludio.');
		Engine.MoveTo(10270, 16985, -4611);
		Engine.MoveTo(9846, 15869, -4601);
		Engine.MoveTo(9644, 15591, -4601);
		Engine.SetTarget(30134); // Gatekeeper: Jasmine.
		Engine.DlgOpen;
		Engine.DlgSel('Move to another city');
		Engine.DlgSel('Town of Gludio');
	end;
	if user.inrange(-14447, 123970, -3120, 500) then
	begin
		Print('System: Gludio to Elven.');
		Engine.SetTarget(30256); // Gatekeeper: Bella.
		Engine.DlgOpen;
		Engine.DlgSel('Teleport');
		Engine.DlgSel('Elven Village');
		Engine.MoveTo(46888, 51429, -3002);
		Engine.MoveTo(46966, 50784, -3022);
		Engine.MoveTo(46693, 50588, -3086);
		Engine.SetTarget(30222); // Alshupes.
		Engine.DlgOpen; Delay(500);
		Engine.DlgSel('Quest'); Delay(500);
		Engine.DlgSel('"Yes."'); Delay(500);
	end;
end;

procedure startQuestEvt;
begin
	if user.inrange(45955, 50700,- 3056, 500) then
	begin
		Print('System: Mailing status:');
		sendMailEvt;
		Print('System: Starting the quest.');
		Engine.SetTarget(30222); // Alshupes.
		Engine.DlgOpen; Delay(500);
		Engine.DlgSel('Quest'); Delay(500);
		Engine.DlgSel('"Yes."'); Delay(500);
		Engine.MoveTo(46693, 50588, -3086);
		Engine.MoveTo(46966, 50784, -3022);
		Engine.MoveTo(46888, 51429, -3002);
		Engine.SetTarget(30146); // Gatekeeper: Mint.
		Engine.DlgOpen;
		Engine.DlgSel('Teleport');
		Engine.DlgSel('Elven Forest (Lv. 8)');
	end;
end;

procedure walkingEvt;
begin
	if user.inrange(21352,51102,-3688, 500) then
	begin
		Print('System: Arrived in Elven Forest.');
		Engine.FaceControl(0, false);
		Engine.MoveTo(21782, 52154, -3641);
		Engine.MoveTo(22417, 54455, -3637);
		Engine.MoveTo(20748, 54928, -3586);
		Engine.MoveTo(18910, 54935, -3667);
		Engine.MoveTo(16599, 54858, -3735);
		Engine.MoveTo(14911, 55489, -3690);
		Engine.MoveTo(13912, 56353, -3596);
		Engine.MoveTo(12622, 57875, -3455);
	end;
end;

procedure questStatusEvt;
begin
	if (Engine.QuestStatus(261, 1)) then
	begin
		Print('System: Quest status: 1');
		if user.inrange(12622, 57875, -3455, 500) then
			Engine.FaceControl(0, true);
		Delay(10 * 1000); // 10 seconds.
	end;
	if (Engine.QuestStatus(261, 2)) then
	begin
		Print('System: Quest status: 2.');
		Engine.FaceControl(0, false);
		Engine.EnterText('/unstuck');
		Delay(5 * 60000 + 10 * 1000); // 5 minutes + 10 seconds.
	end;
end;

procedure deathEvt;
begin
	while (Engine.Status <> lsOnline) do Delay(500);
	if (User.Dead) then
	begin
		Print('System: Dead.');
		Engine.FaceControl(0, false);
		Engine.GoHome;
	end;
end;

procedure sendMailEvt;
begin
	if inventory.user.byid(57, item) and (item.count > 6100) then
	begin
		Engine.SendMail('BT','e','e ',([57, 5000]));
		Print('System: 5000 adena was mailed to BT.');
	end;
	if not inventory.user.byid(57, item) and (item.count > 6100) then
		Print('System: 6100 adena is needed to mail.');
end;

begin   
	Print('System: Looping the script.');
	while true do
	begin
		deathEvt;
		startQuestEvt;
		walkingEvt;
		teleportEvt;
		questStatusEvt;
		if Engine.Status = lsOffline then 
			Delay(10 * 1000); // 10 seconds.
	end;
end.

 

Edited October 17, 2018 by Trance

[Trance]

My mage settings: https://www2.zippyshare.com/v/mmRS2sqz/file.html

[armenhek]

Thnx for the share :)! 

I tried it but it wont move, i am standing next to GK in elven village and it won't move. Am i doing something wrong?

 

It just says the following:

System: Quest status: 1

System: Quest status: 1

System: Quest status: 1

Edited October 16, 2018 by armenhek

[Trance]

12 hours ago, armenhek said:

Thnx for the share :)! 

I tried it but it wont move, i am standing next to GK in elven village and it won't move. Am i doing something wrong?

 

It just says the following:

System: Quest status: 1

System: Quest status: 1

System: Quest status: 1

 

Abort the quest and then go next to NPC Alshupes and run the script.

Quest status 1 means your quest is in progress and it's trying to find mobs to kill.

Edited October 17, 2018 by Trance

[armenhek]

Oh thanks man it worked! awesome!! is there a way to change unstuck to soe? 

[Trance]

3 hours ago, armenhek said:

Oh thanks man it worked! awesome!! is there a way to change unstuck to soe? 

 

SOE is a waste of adena. Even if the Character dies while using unstuck, after 5 minutes or so it will hit To Village.

 

Replace:

		Engine.EnterText('/unstuck');
		Delay(5 * 60000 + 10 * 1000); // 5 minutes + 10 seconds.

With:

		Engine.UseItem(ITEM-ID-HERE);
		Delay(20 * 1000); // 20 seconds.

 

Edited October 17, 2018 by Trance

[armenhek]

Thnx really appreciate it! once again you're awesome :)!

[ryudo]

any have this script? https://l2wiki.com/classic/Totem_of_Hestui?fbclid=IwAR1WcRq3w5Mj1sOieYWbIxsU7uniNyhETXl4HeIHv5wBAMt9A0RyjH5nQog    

[Trance]

You can create a script based on mine.

[mikesan]

On 10/20/2018 at 10:08 AM, ryudo said:

any have this script? https://l2wiki.com/classic/Totem_of_Hestui?fbclid=IwAR1WcRq3w5Mj1sOieYWbIxsU7uniNyhETXl4HeIHv5wBAMt9A0RyjH5nQog    

 

Sup man,

 

I sell that script.

if u want to pls hit me on skype: vagnerconde@hotmail.com

 

Ty

[pantgr]

hello how to add the new teleport system in this script ?

Thanks

[fAkeN]

On 9/5/2019 at 6:03 PM, pantgr said:

hello how to add the new teleport system in this script ?

Thanks

 

Engine.Teleport(id);

Teleport ID:

Spoiler

2 - Execution Grounds
3 - Partisan's Hideaway
4 - Cruma Marshlands
7 - Town of Dion
11 - Dion Territory
14 - Plains of Dion
17 - Hardin's Academy
18 - Dragon Valley
19 - Antharas' Lair
21 - Death Pass
23 - Devil's Isle
24 - Giran Harbor
25 - Town of Giran
29 - Gorgon Flower Garden
32 - Ruins of Agony
34 - Ant Nest
35 - Gludin Village
36 - Gludin Harbor
37 - Town of Gludio
38 - Abandoned Camp
46 - Langk Lizardmen Dwellings
49 - Talking Island Village
53 - Elven Ruins
55 - Talking Island (west)
56 - Talking Island (east)
57 - Fellmere Harvesting Grounds
58 - Windmill Hill
62 - Windawood Manor
66 - Neutral Zone
68 - Elven Forest
70 - Elven Village
71 - Elven Fortress
75 - Dark Elven Village
77 - Swampland
79 - Sea of Spores
81 - Ivory Tower
82 - Town of Oren
84 - Plains of the Lizardmen
90 - Ivory Tower Crater
98 - Tower of Insolence
99 - Blazing Swamp
101 - Seal of Shilen
102 - Giant's Cave (Forsaken Plains)
104 - Cemetery
105 - Forest of Mirrors
108 - Hunters Village
113 - Ancient Battleground
115 - Silent Valley
117 - Plains of Glory
118 - Fields of Massacre
119 - War-Torn Plains
131 - Orc Village
133 - Cave of Trials
134 - Frozen Waterfalls
136 - Immortal Plateau (north)
137 - Immortal Plateau (south)
140 - Dwarven Village
142 - Abandoned Coal Mines
143 - Mithril Mines
145 - Western Mining Zone
146 - Eastern Mining Zone
181 - Town of Goddard
184 - Hot Springs
186 - Forge of the Gods
189 - Ketra Orc Outpost
190 - Imperial Tomb
193 - Wall of Argos
195 - Varka Silenos Barracks
218 - Forgotten Island (Dino)
261 - Forgotten Island (Dino)
316 - Obelisk Victory
318 - Dark Forest
320 - Spider Nest
321 - Town of Aden
324 - Coliseum
402 - The Patriot's Necropolis
403 - Necropolis of Devotion
404 - Land of the Winds
405 - Garden of Eve
410 - Swampland
411 - South of Enchanted Valley
412 - North of Enchanted Valley
413 - Gludio Territory

 

[Trance]

On 10/15/2018 at 4:33 PM, Trance said:

The bot player will MAIL your main character every time it can send 5k adena. Replace "BT" with your other character.

 

procedure sendMailEvt;
begin
	if inventory.user.byid(57, item) and (item.count > 6100) then
	begin
		Engine.SendMail('BT','e','e ',([57, 5000]));
		Print('System: 5000 adena was mailed to BT.');
	end;
	if not inventory.user.byid(57, item) and (item.count > 6100) then
		Print('System: 6100 adena is needed to mail.');
end;

 

 

Reminder.

[angelcanibal]

how receive mail of adena? im need use the sentence getmailitems, but not work 

[angelcanibal]