Results 1 to 11 of 11

Thread: i got a working prayer leveler but..i need some help.

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default i got a working prayer leveler but..i need some help.

    hello i need some help my script is working good(not very good but..)
    my getBones procedure clicks bones if the flag; is away than he clicks the next but after taking few bones at chaos altar(script specially made for there)
    then he picked all bones and he cant see any bones on mains screen but there are few bones not far away from him on minimap
    i need asomthing in my procedure that if he cant find bones 30 sec(or other time)he clicks on mini-map on the red dot(means there is a item(bone) on the ground) can some1 help me with that?

    but maybe if its working he gets a random so he thinks can find bones he clicks the red dot and then he will teleported by random(maybe)
    ~Hermen

  2. #2
    Join Date
    Jul 2007
    Location
    England
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Greetings Hermpie!

    One question may I ask, are you using the SRL Bone finding Procedure in your 'getBones' Procedure?

    If you are I think it needs updating because Jagex changed it I think. ( I read it somewhere. )

    So basically you will have to make your own DTM/BMP of the bone =] ( If you don't know how, please say, because I will link you to some very good ones on here. )

    Good luck!

    -Nitro

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Nitro View Post
    Greetings Hermpie!

    One question may I ask, are you using the SRL Bone finding Procedure in your 'getBones' Procedure?

    If you are I think it needs updating because Jagex changed it I think. ( I read it somewhere. )

    So basically you will have to make your own DTM/BMP of the bone =] ( If you don't know how, please say, because I will link you to some very good ones on here. )

    Good luck!

    -Nitro
    i just want to say i already made my own dtm and its working i said but its not very human if he cants find bones because he goed with the mouse of the skeletons and thing for a min than the bones come back at the place but he is a little to far away so need ife he cant find 10/20/30 the bones then he must click on a red dot on minimap

    wich srl procedure
    findbone;
    or somthing like that?
    i used findobj and a dtm for burying burying is working
    ~Hermen

  4. #4
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    err try this
    SCAR Code:
    if getbones then
    begin
      marktime(foundBones)
    end;
    if timefrommark(foundbones) > 30000 then
    begin
      //insert click red dot procedure- try a dtm or just color.
    end;
    Completly untested, not even sure if it compiles. you may need to turn getbones into a function btw.

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when its a function and when its not?
    ~Hermen

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

    Default

    its a function when the result is true or false.
    something like this:

    SCAR Code:
    funtion Getbones:Boolean;
    begin;
      If findObj(X, Y, 'one', Bonecollor, 10) then // 10 is tolerance.
      begin;
        Result:= True;
        Mouse(x, y, 1, 1, True);
      end;
    end;
    //this is just a Example.
    This will search for 1 bone on the screen. when its found the getbone = true.

  7. #7
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so you can make a procedure to function to add in teh procedure treu false so the player can do true or false in const?

    or is it if he finds it then its result true and then continu?


    If findObj(X, Y, 'one', Bonecollor, 10) then // 10 is tolerance.
    begin;
    Result:= True;
    Mouse(x, y, 1, 1, True);
    end;
    end;




    i need soem help with a proggy liek 99% finished
    ~Hermen

  8. #8
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by rikjess View Post
    its a function when the result is true or false.
    The result doesn't always have to be a boolean...

    Anyways.

    Here's something I made in SCAR in like 1 min.

    Requires "RedDot" and HighestWait consts.. Repeats your bone finding until inventory full.. While picking repeats bone finding until taken 30 sec or "HighestWait*1000".. Well, just read it, you should get the point. Not sure if this even compiles

    SCAR Code:
    procedure LetsGetBones;
    var
      BoneTimer, TTime, TInvCount: Integer;
    begin
      while not InvFull do //Repeats until InvFull
      begin
        MarkTime(BoneTimer);//Timer for "dot clicking"
        TInvCount := InvCount;//Sets TInvCount as Inventorycount.
        MarkTime(TTime);//Failsafe timer.
        repeat
          getBones;//or whatever your bonefinding/picking procedure is.
          if not (InvCount = TInvCount) then //if invcount has increased/decreased
            Break;//Break the loop.
          if (TimeFromMark(TTimer) > HighestWait*1000) then
          begin//Not too good, but just a example.
            Writeln('Error! Took too long to search for bones.');
            LogOut;
            TerminateScript;
          end;
          if (TimeFromMark(BoneTimer) > 30000) then
          begin
            if FindColorTolerance(x, y, RedDot, MMx1, MMy1, MMx2, MMy2, 5) then //searches for red dot
            begin
              Mouse(x, y, 5, 5, True); //Clicks at the red dot.
              FFlag(0);//Waits for flag to disappear.
            end;
            MarkTIme(BoneTimer);//Resets timer.
          end;
        until not (TInvCount = InvCount)
      end;
    end;

    EDIT: not sure if that's useful at all I don't clearly know why I even made that :S

  9. #9
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default still need help

    ill post my script under my post because it doesnt compile because just a little bug but i dont know whats wrong


    so here it is

    lol my thread is rated 5 stars but that isnt correct
    ~Hermen

  10. #10
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey hermpie! Nice to talk to you again.. Got rid of the compiling error for you..
    Code:
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k                                                    k k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk   kk        ooo     tttttttttt                     k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk      o       o      tt      ssssssss             k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk      o         o     tt     s          zzzzzzzzz  k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kkkk      o           o    tt     s                zz   k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk     o           o    tt      sssss         zz     k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk    o           o    tt           s      zz       k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk   kk    o         o     tt           s    zz         k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk    kk    o       o      tt   ssssssss    zzzzzzzzz k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k               ooo                                  k k k\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////        \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    //////////////////////////////////////////////////          \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\                                                               /////////////////////
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    
    
    
    
    program KotszPrayerLeveler;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/misc/trade.scar}
    
    //setup
    const
    NumberOfUsers = 1; // = player [NUMBER] + 1 =?  fill the ? in here
    StartingPlayer = 0;//Player to start
    BoneColor     = 14013914;
    HowMuchAntiBan=  5;//(recommend)let this.lesser number is lesser antiban 1-5 (choice of numbers)
    
    Var
     StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor, buried : integer;
    Var
    Bone :integer;
    Var
    xp :extended;
    
      Procedure DeclarePlayers;
      Begin
         StartPlayer := StartingPlayer;
         NumberOfPlayers( NumberOfUsers );
         CurrentPlayer := StartPlayer;
    
         Players[0].Name :='mininghotxp';
         Players[0].Pass :='honden';
         Players[0].Nick :='hotx';
         Players[0].Loc :='chaosaltar';
         Players[0].Integer1 := 2;//Number of loads you want to do.
         Players[0].Active:=True;
    
         Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
      End;
    
    
    
    
     Procedure ChangeLocation(Location:string);
      begin
       Players[CurrentPlayer].Loc := location;
      end;
    
    
    
    //antiban procedure maked by me i am so good :D\\
    
    procedure AntiBan(mins: Integer);
    var
      AntiBanCase: Integer;
    begin
      if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
        AntiBanCase := Random(HowMuchAntiBan); (*1 over so it will do nothing sometimes*)
      case AntiBanCase of
        1: HoverSkill('Prayer', False);
        2: PickUpMouse;
        3: DragItem(1, 1 + Random(18));
        4: GameTab(1 + Random(12));
        5: DoEmote(1 + Random(20));
    
      end;
    end;
    
    
    {is what the name says:P}
    
     procedure KotszSignature;
    begin
      ClearDebug;
    
    
    
    Writeln('////     kk   kk        ooo     tttttttttt                       \\\\')
    Writeln('////     kk  kk      o       o      tt      ssssssss             \\\\')
    Writeln('////     kk kk      o         o     tt     s          zzzzzzzzz  \\\\')
    Writeln('////     kkkk      o           o    tt     s                zz   \\\\')
    Writeln('////     kk kk     o           o    tt      sssss         zz     \\\\')
    Writeln('////     kk  kk    o           o    tt           s      zz       \\\\')
    Writeln('////     kk   kk    o         o     tt           s    zz         \\\\')
    Writeln('////     kk    kk    o       o      tt   ssssssss    zzzzzzzzz   \\\\')
    Writeln('////                    ooo                                      \\\\')
    
    end;
    //does what the name says:P\\
    procedure KotszProggy;
    begin
      ClearDebug;
      Writeln('    THANKS FOR USING MY KOTSZ PRAYER LEVELER!!    ');
      Writeln('    Please remember to post proggies/bugs         ');
      Writeln('    if you used this script                       ');
      Writeln('////////////////////report\\\\\\\\\\\\\\\\\\\\\\\\');
      Writeln('    Worked For : ' + ScriptTime2(2)                );
      Writeln('    Did ' + IntToStr(Loads) + ' Loads             ');
      Writeln(inttostr(players[currentplayer].integer1)+  ' bones buried ');
      Writeln(             +  Floattostr(Xp)+ 'xp gained '           );
      Writeln('         ');
      SRLRandomsReport;
    end;
    
    
    {function findfast randoms credits to WT-Fawaki }
    
    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 10 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;
    
           9: If FindTalk Then Result := True;
    
           10: If HandleTrade Then Result := True;
        End;
        Wait(1);
      end;
    end;
    
    
    {Credits to Wizzup}
    
    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
    
    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 0 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;
    
    
    {credits to wizzup}
    
    Function FindNormalRandomsTimeEx: Boolean;
    
    Var
      TempTime, Time1, Time2: LongInt;
    
    Begin
      TempTime := GetSystemTime;
      If TempTime - NormalRandomsTime > 6000 Then
      Begin
        NormalRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindNormalRandoms;
        Time2 := GetSystemTime;
        Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;
    
      If TempTime - FastRandomsTime > 2000 Then
      Begin
        FastRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindFastRandoms;
        Time2 := GetSystemTime;
        Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;
    
      If TempTime - FindTalkTime > 500 Then
      Begin
        FindTalkTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindTalk;
        Time2 := GetSystemTime;
        Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;
    End;
    
    
    
    procedure LoadDTM; //The name of the procedure.
    begin
      Bone := DTMFromString('78DA63F4646660C862644006678E1E613002D' +
           '220D1FF40C0E88CA906220B2381B42B504D1101352140353904D4' +
           'F801D5A4E057030056770A2F');
    end;
    
    
    
    
    
    {procedure BuryBones bury the bones }
    
    
    procedure BuryBones;
    begin
    
    Repeat
    
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
    mouse(x,y,1,1,true);
    Wait(1000+random(500));
    Buried:=Buried + 1;
    players[currentPlayer].integer1 := buried;
    xp:=xp + 4.5;
    
    end
    else
    Writeln('Cant find Bones.');
    kotszProggy;
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    
    end;
    
    
    
    
    {procedure GetBones to get bones from the ground }
    
    procedure GetBones;
    begin
    if(not(LoggedIn))then
    Exit;
    
    repeat
    
    if FindObj(x, y, 'one',BoneColor, 50) then Mouse(x, y, 1, 1, True);
    
    Flag;
    
    until (InvFull)
    if(InvFull) then
    writeln('inventory is full');
    BuryBones;
    
    end;
    
    
    
    {procedure setupclient does wat the names says   }
    procedure SetUpClient;
    begin
    wait(500+random(500));
    SetupSrl;
    declareplayers;
    wait(3000);
    ActivateClient;
    
    end;
    
    {MainLoop}
    
    
    begin
    KotszSignature;
    SetUpClient;
    LoadDTM;
    LoginPlayer;
    HighestAngle;
    MakeCompass('N');
    AntiBan(60);
    Repeat
    If not LoggedIn Or WeAreDead then break
      FindFastRandoms;
      GetBones;
      BuryBones;
      if(Loads >= Players[CurrentPlayer].Integer1)then
       begin
    
        kotszProggy;
        NextPlayer(True);
    
      end;
    Until(False);
    end.

  11. #11
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks get on msn dude nice to see you where ya whas
    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Whales' Prayer Leveler
    By whales in forum RS3 Outdated / Broken Scripts
    Replies: 70
    Last Post: 11-07-2008, 06:11 PM
  2. Prayer tab help
    By geerhedd in forum OSR Help
    Replies: 2
    Last Post: 05-25-2007, 05:22 AM
  3. more prayer help plz
    By RudeBoiAlex in forum OSR Help
    Replies: 2
    Last Post: 04-29-2007, 03:44 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
  •