Jump to content

Can Someone Help With Me A Quest On My Script Here


Recommended Posts

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
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

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