Jump to content

Recommended Posts

Posted

Hey guys, I've searched a bit on google about a script that can can mix the regents for the Lunargent and Hellfire Oil and I managed to find something, but it doesn't work properly. Can someone tell me what do I need to do in order to make it work? Here's the code.

//Mixing Urn
var
 i,n,Craft:integer;
 item: TL2item;
begin
       // Craft:
       // =1 , Mix Moon Dust(МооnShard+VolcanicAsh)(10+1)
       // =2 , Mix Lunargent(MoonDust+Quicksilver)(10+1)
       // =3 , Mix Demonplasm(Demonblood+BloodRoot)(10+1)
       // =4 , Mix Magma Dust(Lavastone+VolcanicAsh)(10+1)
       
   Craft:=1; // Mix what? Read above^ 1=Moon Dust etc..
  
   n:=20; // Mix how many times?

  if craft = 1 then begin 
   engine.dlgopen;
   delay(500);
   engine.dlgsel('Quest');
   delay(500);
   engine.dlgsel('Insert a mixing');
   delay(500);
  for i:=1 to n do begin
   engine.dlgsel('Moonstone');
   delay(800);
   engine.dlgsel('Next');
   delay(800);
   engine.dlgsel('Ash');
   delay(800);
   engine.dlgsel('Next');
   delay(800);
   engine.dlgsel('Salamander');
   delay(800);
   engine.dlgsel('Mix');
   delay(800);
   engine.dlgsel('Mix');
   delay(800);
   end;
  end; 

   if craft = 2 then begin 
   engine.dlgopen;
   delay(300);
   engine.dlgsel('Quest');
   delay(300);
   engine.dlgsel('Insert a mixing');
   delay(300);
  for i:=1 to n do begin
   engine.dlgsel('Moon Dust'); 
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Quicksilver');
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Salamander');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   end;
  end; 

   if craft = 3 then begin 
   engine.dlgopen;
   delay(300);
   engine.dlgsel('Quest');
   delay(300);
   engine.dlgsel('Insert a mixing');
   delay(300);
  for i:=1 to n do begin
   engine.dlgsel('Demon''s Blood'); 
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Blood Root'); 
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Salamander');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   end;
  end; 

   if craft = 4 then begin 
   engine.dlgopen;
   delay(300);
   engine.dlgsel('Quest');
   delay(300);
   engine.dlgsel('Insert a mixing');
   delay(300);
  for i:=1 to n do begin
   engine.dlgsel('Lava Stone'); 
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Ash'); 
   delay(300);
   engine.dlgsel('Next');
   delay(300);
   engine.dlgsel('Salamander');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   engine.dlgsel('Mix');
   delay(300);
   end;
  end; 
end. 

 

  • 1 month later...
  • 1 month later...
Posted

Try this:

 

if  User.InRange (85538, 16191, -4300, 200, 200)  then
  begin
    Engine.SetTarget (31149);
    Engine.DlgOpen;
    Delay (500);
    Engine.DlgSel (2);
    Delay (500);

    // Moondust = 10 Moonstone Shard + 1 Volcanic Ash
	for  i := 1  to  50  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6013');  // x10 moonstone shard
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6018');  // x1 volcanic ash
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Lunargent = 10 Moondust + 1 Quicksilver
	for  i := 1  to  5	do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6023');  // x10 moondust
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6019');  // x1 quicksilver
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Magma Dust = 10 Lava Stone + 1 Volcanic Ash
	for  i := 1  to  10  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6012');  // x10 lava stone
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6018');  // x1 volcanic ash
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Fire Essence = 10 Magma Dust + 1 Sulfur
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6022');  // x10 magma dust
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6020');  // x1 sulfur
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	
	// Demonplasm = 10 Demon Blood + 1 Blood Root
	for  i := 1  to  10  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6015');  // x10 demon blood
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6017');  // x1 blood root
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Demonic Essence = 10 Demonplasm + 1 Sulfur
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6025');  // x10 demonplasm
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6020');  // x1 sulfur
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);

	// Hellfire Oil = 1 Fire Essence + 1 Demonic Essence
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_I_6028');  // x1 fire essence
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6031');  // x1 demonic essence
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
  end;

 

  • 1 year later...
Posted (edited)
On 5/25/2018 at 1:35 PM, Luigicol said:

Try this:

 


if  User.InRange (85538, 16191, -4300, 200, 200)  then
  begin
    Engine.SetTarget (31149);
    Engine.DlgOpen;
    Delay (500);
    Engine.DlgSel (2);
    Delay (500);

    // Moondust = 10 Moonstone Shard + 1 Volcanic Ash
	for  i := 1  to  50  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6013');  // x10 moonstone shard
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6018');  // x1 volcanic ash
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Lunargent = 10 Moondust + 1 Quicksilver
	for  i := 1  to  5	do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6023');  // x10 moondust
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6019');  // x1 quicksilver
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Magma Dust = 10 Lava Stone + 1 Volcanic Ash
	for  i := 1  to  10  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6012');  // x10 lava stone
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6018');  // x1 volcanic ash
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Fire Essence = 10 Magma Dust + 1 Sulfur
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6022');  // x10 magma dust
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6020');  // x1 sulfur
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	
	// Demonplasm = 10 Demon Blood + 1 Blood Root
	for  i := 1  to  10  do
	begin
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6015');  // x10 demon blood
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6017');  // x1 blood root
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
	end;
	
	// Demonic Essence = 10 Demonplasm + 1 Sulfur
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_2_I_6025');  // x10 demonplasm
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6020');  // x1 sulfur
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);

	// Hellfire Oil = 1 Fire Essence + 1 Demonic Essence
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_I_Insert');  // insert ingredient
	Delay (500);
	Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_I_6028');  // x1 fire essence
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents U_C_Insert');  // insert catalyst
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents x_1_C_6031');  // x1 demonic essence
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-5.htm');  // select temperature
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents tmp_1');  // temperature 1 - salamander
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents 31149-6.htm'); // mix ingredients
    Delay (500);
    Engine.BypassToServer ('Quest 373_SupplierOfReagents urn');  // back
    Delay (500);
  end;

 

for this to work u need to have complete mats? 500 100 100?

ps: i know its old post but its gonna save me a loot of time if someone that understands script better then me can answer that :d

Edited by zmaj13

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.



×
×
  • Create New...