Jump to content

Recommended Posts

Posted (edited)

Pretty new to scripting but with the help of people here I was able to fix my last on on here pretty easily.

Now here's the problem I'm attempting to create a script to do the Antharas quest on Interlude. I can handle the basic things but when my character goes back to the gate keeper in Aden after I kill off the first set of quest items in forsaken plains, rather than it porting to seal of shilen it ports right back to forsaken planes from the same GK. I know it's probably something really stupid that I need to change but I've been trying for a few hours now and still can't figure it out. Any help would be appreciated. Thanks guys. Its obviously not finished but I'm stuck on this part.

 

  
begin
   while Engine.Status = lsOnline do begin
  Engine.MoveTo(82111, 149267, -3495);
  Engine.MoveTo(81296, 149728, -3469);
  Engine.SetTarget(30753);
  Engine.DlgOpen;
  Engine.DlgSel(1);
  Engine.DlgSel(1);
  Engine.DlgSel(1);
  Engine.DlgSel(1);
  Engine.MoveTo(82568, 148888, -3495);
  Engine.SetTarget(30080);   // Clarissa
  Engine.MoveTo(83396, 147904, -3404);
  Engine.DlgOpen;
  Engine.DlgSel('Teleport');
  Engine.DlgSel('Town Of Aden');
  Engine.DlgSel('OK');
  Engine.MoveTo(146705, 25840, -2008);
  Engine.MoveTo(146638, 25967, -2008);
  Engine.SetTarget(30848);   // Elisa
  Engine.DlgOpen;
  Engine.DlgSel('Teleport');
  Engine.DlgSel('Forsaken Plains');
  Engine.DlgSel('OK');
  Engine.CancelTarget;
  Engine.MoveTo(166999, 36946, -4024);
  Engine.MoveTo(166087, 36228, -3948);
  Engine.MoveTo(165853, 36229, -3922);
  Engine.MoveTo(165390, 37134, -3768);
  Engine.MoveTo(165498, 37112, -3828);
  Engine.MoveTo(165526, 37578, -3726);
  Engine.MoveTo(165556, 38139, -3681);
  Engine.MoveTo(165230, 39019, -3686);
  Engine.MoveTo(165060, 39548, -3686);
  Engine.SetTarget(20680);   // Marsh Drake
  Engine.UseSkill(1239);
  Engine.CancelTarget;
  Engine.SetTarget(20679);   // Marsh Stalker
  Engine.UseSkill(1239);
  Engine.MoveTo(166528, 40283, -3656);
  end;
  end.
  Engine.UseItem('Scroll of Escape');
  Delay(500000);
 end.
 while Engine.Status = lsOnline do begin
 end.
  if user.inrange(147329, 30101, -2487,  1000) then
  begin
  Engine.MoveTo(147499, 29632, -2326);
  Engine.MoveTo(147438, 28295, -2294);
  Engine.MoveTo(147076, 27282, -2231);
  Engine.MoveTo(147311, 26257, -2133);
  Engine.MoveTo(147265, 25809, -2039);
  Engine.MoveTo(147045, 25764, -2039);
  end
  else if user.inrange(148112, 30439, -2456,  1000) then
  begin
  Engine.MoveTo(147571, 30049, -2487);
  Engine.MoveTo(147406, 29829, -2426);
  Engine.MoveTo(147391, 28754, -2294);
  Engine.MoveTo(147059, 27137, -2231);
  Engine.MoveTo(147297, 26195, -2107);
  Engine.MoveTo(147192, 25793, -2039);
  Engine.MoveTo(146791, 25752, -2039);
  end
  else if user.inrange(148946, 21121, -2136,  1000) then
  begin
  Engine.MoveTo(149737, 23023, -2167);
  Engine.MoveTo(149521, 24201, -2167);
  Engine.MoveTo(148592, 24395, -2039);
  Engine.MoveTo(148550, 25735, -2039);
  Engine.MoveTo(147283, 25746, -2039);
  Engine.MoveTo(146782, 25755, -2039);
  end
  else if user.inrange(148565, 30463, -2456,  1000) then
  begin
  Engine.MoveTo(147517, 29993, -2487);
  Engine.MoveTo(147393, 28936, -2294);
  Engine.MoveTo(147025, 26958, -2231);
  Engine.MoveTo(147288, 26134, -2085);
  Engine.MoveTo(147251, 25788, -2039);
  Engine.MoveTo(146788, 25750, -2039);
  end
  else if user.inrange(150227, 29104, -2456,  1000) then
  begin
  Engine.MoveTo(149883, 28669, -2463);
  Engine.MoveTo(149845, 27659, -2295);
  Engine.MoveTo(148157, 27610, -2295);
  Engine.MoveTo(147327, 26093, -2066);
  Engine.MoveTo(147117, 25745, -2039);
  Engine.MoveTo(146765, 25756, -2039);
  end
  else if user.inrange(146819, 28063, -2264, 1000) then
  begin
  Engine.MoveTo(147270, 26509, -2230);
  Engine.MoveTo(147263, 25819, -2039);
  Engine.MoveTo(146774, 25755, -2039);
  end
  else if user.inrange(144559, 22835, -2136, 1000) then
  begin
  Engine.MoveTo(147270, 26509, -2230);
  Engine.MoveTo(147263, 25819, -2039);
  Engine.MoveTo(146774, 25755, -2039);
  Engine.MoveTo(144559, 22835, -2136);
  Engine.MoveTo(145342, 23998, -2167);
  Engine.MoveTo(146420, 24492, -2039);
  Engine.MoveTo(146430, 25671, -2039);
  Engine.MoveTo(146769, 25735, -2039);
  end
  else if user.inrange(148010, 27996, -2264, 1000) then
  begin
  Engine.MoveTo(147738, 26885, -2231);
  Engine.MoveTo(147309, 25965, -2039);
  Engine.MoveTo(147130, 25763, -2039);
  Engine.MoveTo(146765, 25754, -2039);
  end
  else if user.inrange(146038, 30519, -2456, 1000) then
  begin
  Engine.MoveTo(147303, 30037, -2487);
  Engine.MoveTo(147437, 29679, -2352);
  Engine.MoveTo(147446, 28676, -2294);
  Engine.MoveTo(147034, 27101, -2231);
  Engine.MoveTo(147312, 26093, -2070);
  Engine.MoveTo(147243, 25752, -2039);
  Engine.MoveTo(146759, 25755, -2039);
  end
  else if user.inrange(144635, 26664, -2264, 1000) then
  begin
  Engine.MoveTo(144760, 27077, -2295);
  Engine.MoveTo(145221, 27639, -2295);
  Engine.MoveTo(144310, 27614, -1853);
  Engine.MoveTo(146707, 27628, -2295);
  Engine.MoveTo(146591, 27421, -2230);
  Engine.MoveTo(147483, 26236, -2120);
  Engine.MoveTo(147347, 25920, -2039);
  Engine.MoveTo(147221, 25770, -2039);
  Engine.MoveTo(146770, 25758, -2039);
  end
  else if user.inrange(144626, 29145, -2456, 1000) then
  begin
  Engine.MoveTo(144692, 29351, -2487);
  Engine.MoveTo(145057, 28500, -2429);
  Engine.MoveTo(145060, 27482, -2295);
  Engine.MoveTo(146649, 27643, -2295);
  Engine.MoveTo(146803, 27247, -2231);
  Engine.MoveTo(147506, 26114, -2079);
  Engine.MoveTo(147238, 25891, -2039);
  Engine.MoveTo(146893, 25794, -2039);
  Engine.MoveTo(146783, 25754, -2039);
  Engine.MoveTo(146777, 25755, -2008);
  end
  else
  begin
  Engine.SetTarget(30848);   // Elisa
  Engine.DlgOpen;
  Engine.DlgSel('Teleport');
  Engine.DlgSel('Seal of Shilen');
  Engine.DlgSel('OK');
  
Edited by NoToppingMeNow

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