Results 1 to 6 of 6

Thread: Members HELP!

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Members HELP!

    Can someone please find a solution to this?! I have tried soo hard but failed to figure this out.
    My script keeps logging out, and I put writen('blah') after each line of part of the script where it messes up so I can find my mistake.
    It keeps logging out and not mining.
    this is the script:

    SCAR Code:
    procedure ClickRock;
    begin
      Mouse(x, y, 1, 1, True);
      writeln('1');
      Replylaugh;
      writeln('2');
      Makesurepick;
      writeln('3');
      FindGas;
      writeln('4');
      Leveled;
      writeln('5');
      Myrandom;
      writeln('6');
    end;

    procedure FindRock;
    var
    RockColor : Array [0..2] of Integer;
    i : Integer;
    begin
      if not LoggedIn then Exit;

      Rockcolor[0]:=3030370;
      Rockcolor[1]:=3161957;
      Rockcolor[2]:=2832993;

      for i := 0 to GetArrayLength(RockColor) do Begin
      if FindObjCustom(x,y,['ocks'],[Rockcolor[i]],6) then
      begin
        ClickRock;
        end;
      end;
    end;

    procedure MinedaRock;
    var MiningTime : integer;
    begin
      MakeCompass('N');
      writeln('10');
      SetAngle(True);
      writeln('11');
      repeat
        if Not(LoggedIn) then exit;
        writeln('12');
        FindRock;
        writeln('13');
        MarkTime(MiningTime);
        writeln('14');
        repeat
        writeln('15');
          Wait(250+Random(300));
          writeln('16');
        until FindBlackChatMessage('anage') or FindBlackChatMessage('vailable') or (timefrommark(MiningTime) > (WaitperRock +random(250)));
      until (InvFull);
      if (InvFull) then
      begin
        writeln( 'Inventory Full walking to bank.' );
      end;
    end;

    Apparently it messed up in my FindRock procedure Please HELPP! someone! All would be repped!!

  2. #2
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    sorry, it doesnt log out but what it does that it says "successfully excuted"

  3. #3
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, if we could see the main loop/whole script we could probably help..

  4. #4
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Da 0wner View Post
    Well, if we could see the main loop/whole script we could probably help..
    lol i wudnt mind posting it..but leechers and also the problem has nuthin to do with the main loop..

  5. #5
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    (waits impatiently) can sum1 tell me a solution? I need to release my new version of my miner today PLZ help!

  6. #6
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    FindRock
    should be a Boolean;
    So it should look like:

    SCAR Code:
    Function FindRock(x,y : Integer):Boolean;
    var
    RockColor : Array [0..2] of Integer;
    i : Integer;
    begin
      if not LoggedIn then Exit;
     
      Rockcolor[0]:=3030370;
      Rockcolor[1]:=3161957;
      Rockcolor[2]:=2832993;
     
      for i := 0 to GetArrayLength(RockColor) do Begin
      if FindObjCustom(x,y,['ocks'],[Rockcolor[i]],6) then
      begin
        MMouse(x,y,1,1);
      end;
     end;
    end;

    So its uage would be:


    SCAR Code:
    If FindRock(x,y) then
      ClickRock;

    ^Makes the code look neater^

    SO the origonal problem.
    Well maybe it's your mainLoop which is causing the trouble. PM with the script and i'll send a fixed version back to you .

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. PC for Jr Members?
    By jumbosped in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 08-18-2008, 08:53 AM
  2. RS members w/o $$$
    By Nose Smasher in forum Misc. Links and Programs
    Replies: 12
    Last Post: 11-01-2007, 04:28 AM
  3. Members
    By hardman in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 08-15-2007, 08:42 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
  •