NoToppingMeNow Posted April 28, 2017 Share Posted April 28, 2017 (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 April 28, 2017 by NoToppingMeNow Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.