Results 1 to 5 of 5

Thread: Runescape Prayer Script help

  1. #1
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Runescape Prayer Script help

    Code:
    program Gilded_Altar; //By Evlin
    {$i srl/srl/misc/smart.simba}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.simba}
    {$i SPS\SPS.simba}
    
    
    var
      Clock: TIntegerArray;
      ActionText: TStringArray;
      Runs,Used:Integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // just leave it as is.
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    ///////////////////////////////////////////////////////////////////////////////
    ///////////////No Further Than Here(Unless Permission Was granted)/////////////
    ///////////////////////////////////////////////////////////////////////////////
    procedure SmallReport(Action: Integer);
    begin
      ClearDebug;
      ActionText := ['BankandTele','Useing','UseBankNPC'];
      Clock := [0,0,0];
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      writeln('(---Evlins Gilded Altar`---)');
      Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
      writeln('Current Process: '+ActionText[Action]);
      Writeln('Runs Done:' +IntToStr(runs));
    end;
    
    
    function UseBankNPC: Boolean;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      Result := (LoggedIn) and (BankScreen or PinScreen);
      if (Result) then exit;
      Speed := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);
      ColFace := 7513036;
      ColGrey := 4995649;
      ColBlue := 4336690;
      ColHair := 2506053;
      if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
        ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
      begin
        Mouse(bx, by, 0, 0, False);
        if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
        begin
          t := (GetSystemTime + 5000);
          repeat
            if (BankScreen) or (PinScreen) then
            begin
              Result := true;
              Break;
            end;
            Wait(50);
          until(GetSystemTime > t);
          if (Length(Players) > 0) then
            if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
              InPin(Players[CurrentPlayer].Pin);
          Result := (BankScreen) or (PinScreen);
        end;
      end;
      ColorToleranceSpeed(Speed);
    end;
    
    
     Procedure FillBoB;
    var
    x, y: integer;
    begin
      begin
        MoveMouse(706, 141);
        Wait(200 + random(50));
        ClickMouse2(False);
        Wait(500 + random (50));
        MoveMouse(646, 264);
        Wait(600 + random (50));
        ClickMouse2(True);
        Wait(4000);
     end;
      Repeat FindObjCustom(X, Y, ['War tortoise'], [4033478,3702966], 10) until(True)
    
        begin
         MMouse(x, y, 20, 20);
         Wait(250);
         ClickMouse2(False);
         ChooseOption('Store')
         Wait(400 + random(300));
         InvMouse(9, 3);
         ClickMouse2(False);
         ChooseOption('All')
         Wait(850 + random(50));
         MouseBox(419, 36, 428, 43, 1);
    
        end;
    end;
    
    
    
    Procedure TakeBob;
    begin
      Mouse(705, 140, 20, 20, 1);
    end;
    
    procedure TeleToBank;
    var
      x, y, N: Integer;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      if (N > 3) then
        begin
          Exit;
        end;
      ClickNorth(SRL_Angle_High);
      begin
        repeat
        Inc(N);
        //if FindObjTPA(x, y, 6982558, 10, 2, 25, 20, w, ['mulet']) then
        if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
          GetMousePos(X, Y);
        Mouse(x, y, 0, 0, false);
        until ChooseOption('Rub') or (N > 5);
      end;
      if (N > 5) then
        begin
          Exit;
        end;
      FFlag(0);
      N:=0;
      repeat
      Inc(N);
      Wait(500);
      until FindNpcChatText('dgev', ClickLeft);
      Wait(8000 + Random(957));
      begin
        SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
        SPS_Continue := true;
        SPS_WalkPath([Point(4214, 2686)]);
        FFlag(0);
        Wait(2500 + Random(200));
        N:=0;
      end;
    end;
    
    
    Procedure OpenDoor;
    var
    x, y : integer;
    
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      KeyUp(VK_F1);
      Wait(5500 + Random(200));
      begin
        repeat
        if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
          GetMousePos(X, Y);
        Mouse(x, y, 10, 10, false);
        until ChooseOption('Open');
      end;
    end;
    
    
    
    procedure RBurner;
    var
     Rburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw==');
    
    if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Right Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(RBurn);
    end;
    
    
     procedure LBurner;
    var
     Lburn,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE=');
    
    if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found Left Burner, Lighting it.')
        MMouse(x, y, 7, 7);
       Mouse(x, y, 0, 0, True);
      end else
      if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found no burner');
      FreeDTM(LBurn);
    end;
    
    
     procedure GAltar;
    var
     Altar,x,y:integer;
     aFound:extended;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk=');
    
    
    if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
      Begin
       writeln('Found The GAltar Using bones.')
        MMouse(x, y, 7, 7);
       Wait(250);
       ClickMouse2(True);
      end else
      if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
      writeln('Found No GAltar');
      FreeDTM(Altar);
    end;
    
    
    
    procedure Useing;
    begin
      If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End else
      InvMouse(9, 3);
    if isuptext('Bury') then
      ClickMouse2(False);
      wait(200);
      ChooseOption('Use');
      FFlag(0);
      Wait(600 + Random(250));
      GAltar;
      Wait(4000 + random(75));
      MouseBox(227, 405, 284, 435, 1);
      SmallReport(1);
    end;
    
    
    procedure BankandTele;
    begin
      begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      begin
        if Withdraw(8, 0, 1) then
          if Withdraw(8, 0, 1) then
            if Withdraw(9, 0, 25) then
              if BankScreen then
                CloseBank;
        Wait(1000 + Random(350))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        FillBoB;
        end;
           begin
        repeat
        UseBankNPC;
        until BankScreen;
      end;
    
      begin
            if Withdraw(9, 0, 25) then
              if BankScreen then
                CloseBank;
        Wait(1000 + Random(350))
        KeyDown(VK_F1);
        Wait(300 + Random(100))
        KeyUp(VK_F1);
        InvMouse(1, 1);
        SmallReport(1);
      end;
    end;
    
    
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      Players[0].Active:= True;
      Smart_Server := 15;
      Smart_Signed := True;
      Smart_Members := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      Writeln('Gilded Altar By Evlin');
      Writeln('Version 1.10');
      repeat
      BankandTele;
      OpenDoor;
      Wait(3000 + random(75));
      MouseBox(250, 40, 268, 73, 1);
      Wait(5500 + random(75));
      RBurner;
      Wait(5500 + random(75));
      LBurner;
      Wait(5500 + random(88));
      Useing;
      Wait(35000 + random (200));
      TakeBoB;
      Wait(43000 + random(125));
      TeleToBank;
      Inc(Runs);
      IncEx(Used,25);
      Until(Not Loggedin)
    end.
    if i run the script it teleports to my house and then it clicks in the left up corner
    help me please

  2. #2
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default

    Post a bug report on the script's thread.

  3. #3
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Maybe it's outdated. Try to fix your own. It's not so hard
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  4. #4
    Join Date
    Jan 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant im not a script writer

  5. #5
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    As said, post in the respective script thread for help.
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

Thread Information

Users Browsing this Thread

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

Posting Permissions

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