Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: The Restless Ghost Quest Runner

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default The Restless Ghost Quest Runner

    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.

  2. #2
    Join Date
    Sep 2007
    Posts
    413
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  3. #3
    Join Date
    Jun 2007
    Location
    Liverpool ,Nsw,Australia
    Posts
    740
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol darn where were you when i hadent done the quest

  4. #4
    Join Date
    Sep 2007
    Posts
    413
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by strikerx25 View Post
    lol darn where were you when i hadent done the quest
    Not being a leecher like you.

  5. #5
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated to work with rev #10 and also added multiplayer, but im not sure how well it works.

  6. #6
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i skimmed it and it looked pretty good. Good job with road stuff.
    I do visit every 2-6 months

  7. #7
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  8. #8
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks good . but try to make more fail saves

  9. #9
    Join Date
    Dec 2007
    Location
    Belgium
    Posts
    228
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rikjess View Post
    Looks good . but try to make more fail saves
    Agree with rikjess.
    How do I know? Know how.

  10. #10
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks guys, have any of you had the chance to actually try the script?

  11. #11
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  12. #12
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh, i thought it just clicked once, thanks for that. you start next to the altar in lumbridge.

  13. #13
    Join Date
    Oct 2007
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That's a pretty cool script idea. I've already completed the quest though, but thanks.

  14. #14
    Join Date
    Dec 2007
    Location
    I'm the short man in all those arcade games you play
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  15. #15
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by EvilChicken View Post
    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.
    have you looked at the code for clicktocontinue?
    SCAR Code:
    function ClickToContinue: Boolean;
    begin
      if (ClickNpcChatText('continue', True)) then
      begin
        Wait((100) + Random(100));
        Result := True;
      end;
    end;

    only clicks once.

  16. #16
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by XcanadamanX View Post
    have you looked at the code for clicktocontinue?
    SCAR Code:
    function ClickToContinue: Boolean;
    begin
      if (ClickNpcChatText('continue', True)) then
      begin
        Wait((100) + Random(100));
        Result := True;
      end;
    end;

    only clicks once.
    What the #uck?!
    I'm sorry then. -_-
    Last time I checked, even the description was "Clicks "continue" until no longer posble. Why the hell did they change that?

  17. #17
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im pretty sure its always been like that

  18. #18
    Join Date
    Dec 2007
    Location
    New Jersey
    Posts
    233
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  19. #19
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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!

  20. #20
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats fine with me. what problems do you have with it?

  21. #21
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    @EvilChicken: XcanadamanX is right It 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
    SCAR Code:
    Wait(2000)
    ClickToContinue;
    you could just do a loop.
    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

  22. #22
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  23. #23
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks but you didn't need to add all of those Flags because Flag is built into RadialWalk and RadialRoadWalk.

  24. #24
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I didnt know that! thanks

  25. #25
    Join Date
    Dec 2007
    Posts
    515
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    where do u place your characters when u start script?

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Rune Mysteri Quest runner! if its not here!
    By slakan in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-16-2007, 09:11 PM
  2. Restless Ghost
    By dvdcrayola in forum RuneScape News and General
    Replies: 1
    Last Post: 10-01-2007, 03:00 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •