Results 1 to 5 of 5

Thread: nice little PowerMiner

  1. #1
    Join Date
    Nov 2007
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    nice little PowerMiner

    heres a nice little power miner i tryed making test it out:







    program PowerMiner;

    (.include SRL/SRL.scar)

    const
    rockcolor1= '';//set the color of the rock
    rockcolor2= '';//set 2nd color of the rock

    var x,y: integer;

    procedure DeclarePlayers; // this procedure is used to log players in
    begin
    HowManyPlayers :=1; //set the Number of players here.
    NumberOfPlayers(howManyPlayers); //sets the players array length;
    CurrentPlayer:=0 //currentPlayer = array index

    Players[0].Name :=Rune_Minorz;//USERNAME
    Players[0].Pass :=password1;//PASS
    Players[0].Nick :=orz;//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
    Players[0].Active:=True;//PLAYER IN USE OR NOT

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    SetupSRL;
    DeclarePlayers;
    LoginPlayer;

    Procedure Randoms;
    Begin
    FindTalk; //finds talkin randoms
    FindNormalRandoms; //finds normal randoms
    SolveChatRandom; //sloves chat randoms
    FindLamp(mining); //solves lamp and then choses a skill to update
    SolvePinball; //solves pinball random
    DwarfItem; //dropes dawalf items
    If(FindFight)Then //runs away from fight
    Begin
    MakeCompass('N');
    RunTo('E', True);
    Wait(7000 +Random(3000));
    RunBack;
    End;
    End;

    var x,y,randomm: integer;

    procedure antiban;
    begin
    randomm := Random(4)
    case randomm of


    0: begin

    Wait(3591+(random(287)));
    RandomRClick;
    Wait(3591+(random(287)));
    HighestAngle;
    RandomlyChosenSkill;
    Randoms
    end;

    1: begin
    Wait(3694+(random(791)));
    GameTab(random(13)+1);
    Randoms;
    Wait(3694+(random(791)));
    GameTab(4);
    end;

    2: begin
    Wait(3294+(random(873)));

    Randoms;
    HoverSkill('Woodcutting' ,false);

    Wait(3294+(random(873)));

    end;

    3: begin
    Wait(3694+(random(791)));
    GameTab(random(13)+1);
    Randoms;
    Wait(3694+(random(791)));
    GameTab(4);
    end;
    end;
    end;

    Procedure minerock;
    begin

    if not LoggedIn then
    Exit;

    repeat
    if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
    begin

    Mouse(x,y,0,0,false);
    Wait(500+(random(150)));

    ChooseOption('ine')
    randoms
    antiban;
    writeln('found rock');

    end else
    writeln('couldnt find rock');
    randoms;
    antiban;
    antiban;
    antiban;

    until( InvFull )
    end;
    begin
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    repeat
    minerock;
    drop;
    until (IsFKeyDown(3));


    end.
    end.

  2. #2
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Um, you forgot to erase your password! I changed it for you, I'll send you a PM with the new password.
    Okay, now to your script : It's quite good for your first script!but in the future, put [*SCAR] and [*/SCAR] at the end and beginning of your script, that way it will keep the standards. (don't use the asterixes, delete them)
    There is nothing right in my left brain and there is nothing left in my right brain.

  3. #3
    Join Date
    Feb 2008
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks like a nice script, good effort. But as the guy above me said put the script within tags next time, it makes it easier to read

  4. #4
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Yeah, looks like a good script. All you have to do now is add auto-colour (I'm english) so people down't have to set the colour of the rocks.

    Good job.

    DR

    EDIT: I'm bored so I decided to put the script in scar tags for you and did some editing to make it look nicer (I really am bored...):
    program PowerMiner;

    SCAR Code:
    (.include SRL/SRL.scar)

    Const
      rockcolor1= '';//set the color of the rock
      rockcolor2= '';//set 2nd color of the rock

    Var
      x,y: integer;

    Procedure DeclarePlayers; // this procedure is used to log players in
    Begin

      HowManyPlayers :=1; //set the Number of players here.
      NumberOfPlayers(howManyPlayers); //sets the players array length;
      CurrentPlayer:=0 //currentPlayer = array index

      Players[0].Name :=Rune_Minorz;//USERNAME
      Players[0].Pass :=password1;//PASS
      Players[0].Nick :=orz;//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
      Players[0].Active:=True;//PLAYER IN USE OR NOT

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

      SetupSRL;
      DeclarePlayers;
      LoginPlayer;

    Procedure Randoms;
    Begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //sloves chat randoms
      FindLamp(mining); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dawalf items
      If(FindFight)Then //runs away from fight
        Begin
          MakeCompass('N');
          RunTo('E', True);
          Wait(7000 +Random(3000));
          RunBack;
        End;
    End;

    Var
    x,y,randomm: integer;

    Procedure antiban;
    Begin
      randomm := Random(4)
      case randomm of


    0: Begin

          Wait(3591+(random(287)));
          RandomRClick;
          Wait(3591+(random(287)));
          HighestAngle;
          RandomlyChosenSkill;
          Randoms
       end;

    1: Begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;

    2: Begin
          Wait(3294+(random(873)));

          Randoms;
          HoverSkill('Woodcutting' ,false);

          Wait(3294+(random(873)));

        end;

    3: Begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;
      end;
    end;

    Procedure minerock;
    Begin

    If not LoggedIn then
    Exit;

    Repeat
      if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
        begin

          Mouse(x,y,0,0,false);
          Wait(500+(random(150)));

          ChooseOption('ine')
          randoms
          antiban;
          writeln('found rock');

          end else
            writeln('couldnt find rock');
            randoms;
            antiban;
            antiban;
            antiban;

      Until( InvFull )
    end;


    Begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Repeat
        minerock;
        Drop;
        Until (IsFKeyDown(3));
      end;
    end.

  5. #5
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    Repeat
        minerock;
        Drop;
        Until (IsFKeyDown(3));

    Errrmmmm...where is the Dropping procedure or i'm blind?:O
    Eerik.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help would be nice
    By Killmar in forum OSR Help
    Replies: 8
    Last Post: 12-01-2007, 03:52 PM
  2. Is anyone nice enough to...
    By Runescape Pro in forum OSR Help
    Replies: 6
    Last Post: 09-13-2007, 12:02 PM
  3. nice new banner.
    By Dark_Sniper in forum News and General
    Replies: 16
    Last Post: 01-22-2007, 12:54 AM
  4. it iz nice!!
    By Mafi@ in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 11-05-2006, 08:32 AM
  5. Nice Beach.
    By The Prince of Randomness? in forum News and General
    Replies: 0
    Last Post: 06-25-2006, 08:22 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
  •