Results 1 to 6 of 6

Thread: Bitmaps

  1. #1
    Join Date
    Aug 2006
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Bitmaps

    hello again, below is my script all it does at the moment is find an ore and right right click on it, can someone please tell me how to make it click on the 'mine' tab when it right clicks on the ore, thanks

    //================================================== ======================//
    // -=My Happy go Gay Powerminer=- //
    //================================================== ======================//
    // By James //
    // Its Pretty much useless //
    // But it looks pretty //
    //================================================== ======================//
    var
    x, y, i: Integer;
    Ourmask: Integer;
    //===========================//Colors//===================================//
    const
    OreColor= 9145494;// Set the color of the Iron

    //===========================//Colors//===================================//
    procedure FindOre;
    begin
    Wait(100+random(200));
    if(FindColorTolerance(x,y,OreColor,0,0,600,600, 10)) then
    begin
    Writeln('Ore Found');
    end else
    end;

    procedure Mine;
    begin
    if(FindColor(x,y,OreColor,0,0,600,600)) then
    begin
    Wait(100+random(200));
    MoveMouseSmooth(x, y)
    Wait(100+random(200));
    ClickMouse(x,y,false);
    Wait(5000+random(200));
    end;
    end;


    Begin
    FindOre;
    repeat
    Mine;
    until(i>20)
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    ChooseOption(x, y, 'Mine');

    And you shouldn't use MoveMouse and ClickMouse. They're far too detectable.

  3. #3
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you should you MMouse to move your mouse and Mouse to click it...sense he didnt inform you which ones to use...

  4. #4
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, don't use MoveMouse or ClickMouse, you'll get banned.

    To find the rock, you could use
    SCAR Code:
    function FindObj(var  cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean;
    By: Stupid3ooo and modified by Ron.
    Description:
         Finds Object.

    It's far better than FindColorTolerance.

    And to move the mouse and right click on the rock, just go:
    SCAR Code:
    Mouse(x, y, 2, 2, False);
    Wait(Wait(100 + random(50));
    ChooseOptionEx('ine');

    Pancakes aka jbrauman.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  5. #5
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the above is good lol. wudnt color clicking do good though?

    SCAR Code:
    If FindColor(x, y, 34343) then Mouse(x, y, 3, 3,true)


    ima newb!! dont kil me if it dunt work lol
    Originally Posted by YoHoJo
    I like hentai.

  6. #6
    Join Date
    May 2007
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is another way:
    SCAR Code:
    program miner;
    {.include SRL/SRL.scar}
    var II:integer;
    //===========================//Colors//===================================//
    const
    OreColor= 9145494;// Set the color of the Iron
    OreTolerance= 10;//Tolerance of the ore.

    //===========================//FindOre//===================================//
    function FindOre(var OreX,OreY:integer; OreClr,Tol:integer):Boolean;
    var XX,YY:integer;
    begin
    if FindColorSpiralTolerance(XX,YY,OreClr,MSx1,MSy1,MSx2,MSy2,Tol) then
     begin
     MMouse(XX,YY,0,0);
     wait(200+random(50));
     if IsUpText('ine') then
      begin
      Result:=True;
      OreX:=XX;
      OreY:=YY;
      end
     else
      begin
      WriteLn('Could not find ore, found wrong colour');
      end;
     end
    else
     begin
     WriteLn('Could not find ore, did not even find colour');
     end;
    end;

    procedure Mine;
    begin
    wait(50);
    if FindOre(x,y,OreColor,OreTolerance) then
     begin
     Mouse(x,y,0,0,True);
     end
    else
     begin
     if II>=3 then
      begin
      WriteLn('CHANGE ORE COLOUR, CAN NOT FIND ROCK');
      WriteLn('SCRIPT TERMINATED!');
      TerminateScript;
      end;
     KeyDown(vk_left);
     wait(1000+random(400));
     KeyUp(vk_left);
     II:=II+1;
     end;
    end;

    begin
    SetUpSRL;
    II:=0;
    repeat
    Mine;
    {obviously you'll need something here so that you
    will wait untill you finish mining the rock}

    until(InvFull);//repeats until the inventory is full.
    end.

    You dont need
    SCAR Code:
    var
    x,y:integer;
    because thats already there in SRL, it'll log out if it can't find the rock in 3 attempts. remember this is only to start mining the rock you will need some code to check when it finishes mining:

    REMEMBER TO SET UP THE SRL
    SCAR Code:
    {.include SRL/SRL.scar}
    SCAR Code:
    begin
    SetUpSRL;//This is to include srl in your script.
    II:=0;
    repeat
    Mine;
    {obviously you'll need something here so that you
    will wait untill you finish mining the rock}

    until(InvFull);//repeats until the inventory is full.
    end.

    This is a simple mining meathod.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Bitmaps
    By HairyDuncan2 in forum OSR Help
    Replies: 2
    Last Post: 09-03-2007, 12:14 AM
  2. Need help with bitmaps!!!!!!
    By diamondhero5 in forum OSR Help
    Replies: 4
    Last Post: 02-19-2007, 02:49 PM
  3. Help me with bitmaps
    By raimis89 in forum OSR Help
    Replies: 2
    Last Post: 12-11-2006, 04:27 PM
  4. Bitmaps
    By XxKanexX in forum Outdated Tutorials
    Replies: 12
    Last Post: 04-17-2006, 06:13 AM

Posting Permissions

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