Results 1 to 10 of 10

Thread: proggy not working? help

  1. #1
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default proggy not working? help

    Simba Code:
    program copperminer;
    {$DEFINE SMART}
    {$include SRL\SRL.simba}
    {$i ObjectDTM\ObjDTMInclude.simba}
    {$i sps/sps.simba}

     //at the bottom set witch u wana mine/default is copper powermining minecop(copper)minetin(tin) mineiron(iron)
    Const

     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     LoadsTotal=    999999;  //How Many Total Lods To Do Per Character!
     Version=       '1.0'; //NO TOUCHY!   program new;
    var
      x, y, oreMined, TotalEXP: integer;


     {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Active      := True;
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      end;

    end;
    procedure oreMindd;
    begin
      if InvFull then
      IncEx(oreMined, 28)
    end;

    procedure Report;
    begin

      if (InvFull) then
      begin
      TotalEXP := (oreMined*18);

      Writeln('############ Tombows Mining #############');
      Writeln('|= Player : ' + Players[CurrentPlayer].Name);
      Writeln('|= Time Running : ' + TimeRunning);
      Writeln('|= Xp gained : ' + IntToStr(TotalEXP));
      Writeln('|= Ore Mined: ' + IntToStr(oreMined));
      Writeln('|= Ore Dropped: ' + InttoStr(oreMined));
      Writeln('########################################');
    end;
    end;



    {*******************************************************************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    *******************************************************************************}

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    {*******************************************************************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    *******************************************************************************}

    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);

        Case RClick Of

          'R':
          Begin
            Mouse(x, y, 0, 0, False);
            WaitOption('ine', 2000);
            FFlag(0);
          End;

          'L':
          Begin
            Mouse(x, y, 0, 0,True);
            Wait(100+Random(50));
            FFlag(0);
          End;

        End;
      End;

    End;


    procedure AntiBan;
    begin
      if(not(LoggedIn))then
        exit;
          FindNormalRandoms;
            case Random(60000) of
          0:
            begin
              WriteLn('AntiBan Is Being Performed');
                GameTab(Tab_Stats);
                  HoverSkill('Mining', false);
                    wait(1000 + Random(1000));
                      Mouse(659, 189, 0, 0, True);
                    end;
                1:
                  begin
                WriteLn('Bored')
            BoredHuman;
        end;
      end;
    end;

    Procedure Failsafe (reason:string);
    begin
      players[currentplayer].Loc:=reason;
      logout;
      stats_commit;
      terminatescript;
    end;



    Function minecop:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [5149437, 4621025, 660246, 4621283, 4687078], 10) Then
     begin
      StatsGuise('hooray we found the bastard');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 9000)

     End;
    end;

    Function minetin:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'tin', 'e t'], [8289924, 10592680, 5066064], 7) Then
     begin
      StatsGuise('hooray we found the tin');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 9000)

     End;
    end;

    Function mineiron:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'iron', 'e i'], [2847627, 3030632, 3557496], 7) Then
     begin
      StatsGuise('hooray we found the iron');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 9000)

     End;
    end;

    procedure PathToBankSPS;
    var
      PathToBank : TPointArray;
    begin
      if(not(LoggedIn))then Exit;
      if(not(FindNormalRandoms))then
      SPS_Setup(RUNESCAPE_SURFACE, ['12_7']); //Put SPS_Areas in here when using walking tool
      PathToBank := [Point(4986, 3199), Point(4997, 3157), Point(5010, 3133), Point(5010, 3108), Point(5007, 3058), Point(4997, 3022), Point(4982, 2987), Point(4971, 2949), Point(4945, 2937), Point(4904, 2937), Point(4874, 2935), Point(4852, 2941), Point(4855, 2974)];
      SPS_WalkPath(PathToBank);
    end;

    procedure PathToMineSPS;
    var
      PathToMine : TPointArray;
    begin
      if(not(LoggedIn))then Exit;
      if(not(FindNormalRandoms))then
      SPS_Setup(RUNESCAPE_SURFACE, ['12_7']); //Put SPS_Areas in here when using walking tool
      PathToMine := [Point(4852, 2974), Point(4852, 2937), Point(4891, 2935), Point(4910, 2935), Point(4949, 2939), Point(4979, 2993), Point(5000, 3055), Point(5003, 3091), Point(5009, 3114), Point(5005, 3154), Point(4990, 3206)];
      SPS_WalkPath(PathToMine);
    end;


    procedure Banking;
    begin
      if(InvFull) then
      begin

      SetAngle(SRL_ANGLE_HIGH);
                     MakeCompass('N');
        repeat
          OpenBankFast('ank');
            if(PinScreen)then
            InPin(Players[CurrentPlayer].Pin );

            if(BankScreen) then
            begin
              DepositAll;
              CloseBank;
            end;

        until(InvEmpty);
      end;
    end;



    Procedure GoodbyeOres;
    begin
      repeat
        DropAll;
      until (invcount = 0);
    end;

    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        minecop;     //minetin mineiron
        if InvFull Then
        GoodbyeOres;
        Report;
      Until(false);
    End.

  2. #2
    Join Date
    Mar 2012
    Location
    Over there
    Posts
    840
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

  3. #3
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the proggy its like its not there nothing happens with it it just mines then drops doesnt even mention proggy

  4. #4
    Join Date
    Mar 2012
    Location
    Over there
    Posts
    840
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    You have if InvFull in your proggy procedure, but you call it after you drop your ores. Either take that out or put it before you drop your ores.

  5. #5
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    done that but still nothing happens?

  6. #6
    Join Date
    Mar 2012
    Location
    Over there
    Posts
    840
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    I just used this with a full invy

    Simba Code:
    begin
      Smart_Server := 64;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        minecop;     //minetin mineiron
        if InvFull Then
        Report;
        GoodbyeOres;
      Until(false);
    End.

    I commented out the minecop; and it worked correctly, don't really want to go mine copper so not sure whats wrong if it doesn't work now.

  7. #7
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yup thats what iv got on script but still wont work

  8. #8
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    The only time it wouldn't work, is if your inventory was not full, I think this is your problem...

  9. #9
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it mines em gets full inv and just drops the ores and does nothing with the proggy and ideas what to change or do then

  10. #10
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    it mines em gets full inv and just drops the ores and does nothing with the proggy and ideas what to change or do then
    Bada bing bada boom!

    Read your mainloop. Notice anything?
    Simba Code:
    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        minecop;    
        if InvFull Then
        GoodbyeOres; // you drop your ores
        Report;         // before your report
      Until(false);
    End.

    It should be like this:
    Simba Code:
    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        minecop;    
        if InvFull then
          Report;      // do the report
      GoodbyeOres; // then drop ores
      Until(false);
    End.

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
  •