This is a Restless Ghost Quest runner. It does the Restless Ghost Quest for you.
Updated for Rev 10. I also added multiplayer but im not sure if that works yet. Please post any problems that you have.
This is a Restless Ghost Quest runner. It does the Restless Ghost Quest for you.
Updated for Rev 10. I also added multiplayer but im not sure if that works yet. Please post any problems that you have.
Nice job! If I ever have a noob account and this quest needs to be done I will tell you how it goes.
Actually when REV 10 comes out and you update it for REV 10 I will immidietly test it.
lol darn where were you when i hadent done the quest
Updated to work with rev #10 and also added multiplayer, but im not sure how well it works.
i skimmed it and it looked pretty good. Good job with road stuff.
I do visit every 2-6 months
DAMN! your good at radial walking / rrw. I'm struggling on just 1 radial walk for my willow banker :P. Jeeez great job man, keep it up.
Looks good. but try to make more fail saves
![]()
thanks guys, have any of you had the chance to actually try the script?
ClickToContinue clicks until there ISN'T possible to click to contionue (if there are other options fr example.) So you don't need the long line of clickTocontinue's and waits.
Also, add some instructions on where to start the script and stuff.
I' glad you're contributing to the community.
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
oh, i thought it just clicked once, thanks for that. you start next to the altar in lumbridge.
That's a pretty cool script idea. I've already completed the quest though, but thanks.
It trips over itself, you need a few more failsafes.
It got out of the church and just stopped, it thought I had already gotten ghost speak amulet .
Good job on this though.
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
im pretty sure its always been like that
Just asked my friend to test it out since he hasn't done it yet (he says he hasnt because it takes up a bank space with the ghostspeak amulet). Will post proggie.
RS Simple Solution to Wilderness, Click Here!
Use Run Energy Efficiently in Scripts, Click Here!
----------------------------------------------
-----
Make some magic happen.
----------------------------------------------
-----
http://www.fenjer.com/adnan/SRLStats/3839.png
Hmm. Well this isn't working for me, i will try and fix and post it here if that is ok with you, but this has a lot of potential!
Thats fine with me. what problems do you have with it?
@EvilChicken: XcanadamanX is rightIt has always been like that. I think you remember a simple procedure somewhere in the folder AntiRandoms, that clicked until there wasn't any more "continue" to click on
.
And to the maker of the script: Instead of long sequences of
you could just do a loop.SCAR Code:Wait(2000)
ClickToContinue;
SCAR Code:repeat
Wait(2000)
ClickToContinue;
until(...condition...)
I tried it, but it screwed up near the graveyard, twice. And the other 2 times, it didn't find the quest-starter.
-Knives
Well, i have started on it! The problems are that it doesn't have any fail safes hardly at all. I have made it so that it will actually USE the player setup! and i have put in some flag functions. It doesn't walk at all, and it doesn't even leave the church.... I think i know how to fix that, but i can't test it right now as i don't have a character that hasn't tried the quest, could i borrow one from you? I won't steal it, you can even set recovery questions!
EDIT: i thought that might sound ridiculous, so here is the code!
SCAR Code:program TheRestlessGhost;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/magic.scar}
var
x,y,Amulet,Skull : integer;
Const
HomeTeleport = True;//Say true if you want to Teleport to the church the second visit//
procedure DeclarePlayers;
begin
HowManyPlayers := 3;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'ndwi';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := false;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := false;
end;
procedure StartQuest;
begin
LoginPlayer;
if not Loggedin then LoginPlayer;
WriteLn('Attempting to Start Quest!');
if (FindObjCustom(X, Y, ['ath','her','aer','reck'], [8537403,2438967,6699578,7906002], 3)) then
begin
Mouse(x,y,1,1,False);
ChooseOption('alk');
Wait(7000);
ClickToContinue;
WriteLn('Talking To Father Aereck.');
Wait(5000);
ClickNPCChatText('uest',True);
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickNPCChatText('help',True);
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
WriteLn('Hooray! Quest Started!');
end;
end;
Function OpenDoor: Boolean; //Mady By Wizzup?
Begin
ColorToleranceSpeed(2);
If FindObj(x, y, 'oor', 737880, 5) Then
Begin
GetMousePos(x, y);
Wait(100);
If IsUpText('pen') Then
Begin
Mouse(x, y, 0, 0, True);
Result := True;
WriteLn('Door Found and Opened');
Wait(50);
FFlag(0);
End
Else Result := IsUpText('lose');
End;
ColorToleranceSpeed(1);
End;
procedure ToFatherUrnhey;
begin
RadialWalk(3494514,285,290,20,3,3);
OpenDoor;
RadialRoadWalk(FindRoadColor,239,244,40,3,3);
Flag;
RadialRoadWalk(FindRoadColor,145,140,49,3,3);
flag;
RadialRoadWalk(FindRoadColor,210,200,22,3,3);
flag;
RadialWalk(8162641,264,259,49,3,3);
flag;
RadialWalk(3436585,244,239,59,3,3);
flag;
RadialWalk(5075754,235,230,55,3,3);
flag;
RadialWalk(2848573,250,245,45,3,3);
flag;
RadialWalk(8162641,270,275,48,3,3);
flag;
RadialWalk(8162641,270,265,48,3,3);
flag;
RadialWalk(2836573,280,285,48,3,3);
flag;
RadialWalk(2195571,275,270,72,3,3);
flag;
RadialWalk(2057336,254,260,54,3,3);
flag;
WriteLn('We Made It To Father Urnhey');
end;
Function OpenDoor2: Boolean; //Mady By Wizzup?
Begin
ColorToleranceSpeed(2);
If FindObj(x, y, 'oor', 5010054, 5) Then
Begin
GetMousePos(x, y);
Wait(100);
If IsUpText('pen') Then
Begin
Mouse(x, y, 0, 0, True);
Result := True;
WriteLn('Door Found and Opened');
Wait(50);
FFlag(0);
End
Else Result := IsUpText('lose');
End;
ColorToleranceSpeed(1);
End;
Function OpenDoor3: Boolean; //Mady By Wizzup?
Begin
ColorToleranceSpeed(2);
If FindObj(x, y, 'oor', 2242633, 5) Then
Begin
GetMousePos(x, y);
Wait(100);
If IsUpText('pen') Then
Begin
Mouse(x, y, 0, 0, True);
Result := True;
WriteLn('Door Found and Opened');
Wait(50);
FFlag(0);
End
Else Result := IsUpText('lose');
End;
ColorToleranceSpeed(1);
End;
procedure TalkToFatherUrnhey;
begin
if (FindObjCustom(X, Y, ['ath','her','urh','ney'], [8537403,2438967,6699578,7906002], 3)) then
begin
Mouse(x,y,1,1,False);
if (ChooseOption('rnhey') then
begin
end else
begin
ToFatherUrnhey;
end
Wait(2000);
ClickToContinue;
Wait(2000);
ClickNPCChatText('alk',True);
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickNPCChatText('aunt',True);
Wait(2000);
ClickToContinue
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
Wait(2000);
ClickToContinue;
WriteLn('We Got Ghost Speak Amulet');
Amulet := DTMFromString('78DA63E4656060106740014B6634836946289' +
'F511448B031A0014654355C40829B801A7E22CC9105129C04D4C8' +
'010941026AC431FD85A106E47745026A3880842C013520F70A115' +
'0230524D8F1AB0100D788035B');
if(FindDTM(Amulet,x,y,0,0,700,700))then
begin
Mouse(x,y,2,2,true);
end;
end;
end;
procedure BackToTheChurch;
begin
if (Hometeleport = true) then
begin
Cast('Home teleport')
exit
end;
WriteLn('Going Back To The Church!')
RadialWalk(2848626,107,112,59,3,3);
flag;
RadialWalk(2836573,87,92,42,3,3);
flag;
RadialWalk(8162641,72,79,61,3,3);
flag;
RadialWalk(8162641,77,84,50,3,3);
flag;
RadialWalk(8162641,77,84,63,3,3);
flag;
RadialWalk(8162641,73,78,29,3,3);
flag;
If FindSymbol(x,y,'Short cut') then
Mouse(x,y,1,1,True);
Wait(3000);
RadialRoadWalk(FindRoadColor,344,349,62,3,3);
flag;
OpenDoor;
end;
procedure TalkToGhost;
begin
if (FindObjCustom(X, Y, ['off','Coff','fin','ffi'], [2766142,1781307,2568505,2633010], 3)) then
Mouse(x,y,2,2,True);
if (FindObjCustom(X, Y, ['est','less','host','gho'], [10267037,8688009,5594967,10596001], 3)) then
Mouse(x,y,2,2,False);
ChooseOption('alk');
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue
Wait(2000+random(250));
ClickNPCChatText('oble',True);
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
ClickToContinue;
Wait(2000+random(250));
OpenDoor;
end;
procedure ToWizardTower;
begin
RadialRoadWalk(FindRoadColor, 233, 227, 44, 3, 3);
flag;
RadialWalk(8162641,264,259,49,3,3);
flag;
RadialWalk(3436585,244,239,59,3,3);
flag;
RadialWalk(5075754,235,230,55,3,3);
flag;
RadialWalk(2848573,250,245,45,3,3);
flag;
RadialWalk(8162641,270,275,48,3,3);
flag;
RadialWalk(8162641,270,265,48,3,3);
flag;
RadialWalk(2836573,280,285,48,3,3);
flag;
RadialWalk(2195571,275,270,72,3,3);
flag;
RadialWalk(2057336,254,260,54,3,3);
flag;
RadialWalk(8162641,263,268,70,3,3);
flag;
RadialWalk(8162641,271,276,56,3,3);
If FindSymbol(x,y,'Dungeon') then
Mouse(x,y,1,1,True);
Wait(3000);
RadialWalk(1670221,307,312,70,3,3);
flag;
RadialWalk(1670262,288,293,61,3,3);
flag;
RadialWalk(11568240,310,317,55,3,3);
flag;
RadialWalk(2842217,315,320,73,3,3);
flag;
RadialWalk(7566716,235,240,65,3,3);
flag;
RadialWalk(7566716,194,199,63,3,3);
If FindSymbol(x,y,'Water') then
Mouse(x,y,1,1,True);
Wait(3000);
WriteLn('We are at the Wizard Tower and are getting the Skull!');
RadialWalk(9138033,260,265,30,3,3);
OpenDoor3;
If FindObj(x, y, 'adder', 14678, 5) then
Mouse(x,y,2,2,False);
ChooseOption('limb');
RadialWalk(1006458,162,167,49,3,3);
flag;
RadialWalk(1006458,195,190,34,3,3);
MakeCompass('E');
OpenDoor3;
MakeCompass('N');
Wait(500);
RadialWalk(1006458,37,42,38,3,3);
If FindObj(x, y, 'ltar', 10408144, 5) then
Mouse(x,y,2,2,False);
ChooseOption('earch');
WriteLn('Woot! We got the Skull!');
RadialWalk(1006458, 221, 226, 45, 3,3);
GameTab(7);
Cast('Home Teleport');
Wait(5000);
WriteLn('We Are At Lumbridge!');
GameTab(4);
end;
procedure TalkToGhostAndFinishQuest;
begin
Skull := DTMFromString('78DA631462606090644001C7F7AC04D38C503' +
'EA33890E06140038CA86AB881840001359C404282801A2E20214F' +
'841A4522DCA34A400DC8EF1A04D488010965026AA480842C01353' +
'240429A801A3920214E400DC81E2122DCC34B408D0011712A0224' +
'B888885361FC6A00CF32052F');
RadialRoadWalk(FindRoadColor,100,105,61,3,3);
flag;
RadialRoadWalk(FindRoadColor,173,178,49,3,3);
flag;
RadialRoadWalk(FindRoadColor,156,151,40,3,3);
OpenDoor;
if (FindObjCustom(X, Y, ['off','Coff','fin','ffi'], [2766142,1781307,2568505,2633010], 3)) then
Mouse(x,y,2,2,True);
if(FindDTM(Skull,x,y,0,0,700,700))then
begin
Mouse(x,y,2,2,true);
end;
if (FindObjCustom(X, Y, ['off','Coff','fin','ffi'], [2766142,1781307,2568505,2633010], 3)) then
Mouse(x,y,2,2,True);
Logout;
NextPlayer(true);
end;
begin
SetupSRL;
ClearDebug;
ActivateClient;
Wait(1000);
DeclarePlayers;
StartQuest;
ToFatherUrnhey;
OpenDoor2;
TalkToFatherUrnhey;
BackToTheChurch;
TalkToGhost;
ToWizardTower;
TalkToGhostAndFinishQuest;
end.
Thanks but you didn't need to add all of those Flags because Flag is built into RadialWalk and RadialRoadWalk.
I didnt know that! thanks
where do u place your characters when u start script?
There are currently 1 users browsing this thread. (0 members and 1 guests)