Results 1 to 6 of 6

Thread: simple miner

  1. #1
    Join Date
    Mar 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default simple miner

    SCAR Code:
    program Miner;
    var x,y,a,b,color,wdrop,ydrop:Integer;
    Timer:Cardinal;
    //////////////////////////////////
    //Picks Color of anything
    //////////////////////////////////
    Function PickColor(word:string; secret:boolean):Integer;
    //Made By Afireinside
    var
      Canvas:TCanvas;
      nextstep,coldisp,savecol,a,b,image,width,height,x,x2,y:integer;
      vary,signal:boolean;
    begin
    nextstep:=4;
    width:=  140;
    height:= 140/2;
    x:=-width;
    x2:=0;
    y:=0;
    image := BitmapFromString(width, height,'');
    DisplayDebugImgWindow(width,height);

    while(x<=width)do

    begin
        Canvas:=GetBitmapCanvas(image);
        Canvas.Brush.Style:= bsSolid;
        Canvas.Brush.Color:= clBlack;
        Canvas.Pen.Color:= clBlack;
        Canvas.Rectangle(0,0,140,140);

       if(vary=false)then
       begin

        Canvas:=GetBitmapCanvas(image);
        Canvas.Brush.Style:= bsclear;
        Canvas.Brush.Color:= clWhite;
        Canvas.Pen.Color:= clBlack;
        Canvas.Pen.Width:= 1;
        //Canvas.moveto(pxlx, pxly);
        //Canvas.lineto(pxlx2, pxly2);
        //fps
        Canvas.Brush.Style:= bsClear;
        Canvas.Font.Size:= 7;
        Canvas.Font.Name:= 'Verdana Bold';
        Canvas.Font.Color:= clwhite;
        Canvas.Font.Color:= clwhite;
        //Canvas.TextOut(60,15,'('+inttostr(a)+','+inttostr(b)+')');
        //Canvas.TextOut(60,25,'{'+inttostr(coldisp)+'}');
        GetmousePos(a,b);
        coldisp:=getcolor(a,b);
        //if(istextat2(9,9,word,100))then begin Canvas.Font.Color:= clYellow;  Canvas.TextOut(60,35,'Pres Any Key') end else Canvas.TextOut(60,35,'Find Monster');
        //copycanvas(getbitmapcanvas(image), GetDebugCanvas, 0, 0, width, height, 0, 0, width-100, height-100);
        CopyCanvas(GetClientCanvas, GetDebugCanvas, a, b, a-1, b-1, 10, 10,50, 50);

        //if(not((getcolor(85,439))=16711680))then

        begin
        nextstep:=nextstep-1;
        Canvas.Font.Color:= clred;
        Canvas.Font.Size:=30;
        Canvas.Textout(75,0,inttostr(nextstep));
        Wait(1000);


        savecol:=coldisp;
        //Canvas.TextOut(60,35,'Got Hob Color!');
        if(nextstep=0)then signal:=true;
        end;
        end;

        If(vary=true)then begin Status('itdone'); Canvas.Font.Color:= clred;  Canvas.TextOut(75,20,'Got Color!');  end;
        if((vary=true)and(secret=true))then begin canvas.font.size:=5; Canvas.Font.Color:= clyellow;  Canvas.TextOut(60,20,'Click on SCAR'); Canvas.TextOut(60,35,'in Taskbar'); end;

    copycanvas(getbitmapcanvas(image), GetDebugCanvas, 60, 5, 125, 50, 60, 5, 125,50);
    wait(10);
    if(vary=true)then wait(3000);
    if(vary)then break;
    vary:=false;
    if(signal)then vary:=true;
    signal:=false;
    freebitmap(image);
    image := BitmapFromString(width, height,'');
    end;
    result:=savecol;
    end;

    //////////////////////////////
    //Find Color on the main screen
    //////////////////////////////
    Function FindColor(col:Integer):boolean;
    //Made By Afireinside
    begin
    if(findcolorspiral(x,y,col,1,1,515,335))then Result:=true else result:=false;
    end;

    /////////////////////////////
    //My mouse Procedure
    ////////////////////////////
    Procedure Mouse(xx,yy:Integer; click:String; ranx,rany:INteger);
    //made By Afireinside
    begin
    MoveMouseSmooth(xx+Random(ranx),yy+random(rany));
    Wait(500);
    GetMousepos(xx,yy);
    if(Click='left')then Clickmouse(xx,yy,true);
    if(Click='right')then ClickMouse(xx,yy,false);
    end;

    ////////////////////////////
    //CheckTime
    ////////////////////////////
    Procedure twoStep;
    //Made By Afireinside
    begin
    if((abs(timer-Getsystemtime))>60000)then
    begin
    Mouse(648,77,'left',2,2);
    //Writeln('Moved to avoid 5 min rule');
    Timer:=Getsystemtime;
    end;
    end;

    //////////////////////
    //Is inv full
    /////////////////////
    Function InvFull:boolean;
    //Afireinside
    var t,u:Integer;
    begin
    if(findcolortolerance(t,u,65536,691,431,729,458,50))then Result:=true else result:=false;
    end;

    /////////////////////////
    //Rlick and drop
    /////////////////////////
    Procedure Rclick(c,d:Integer);
    var dx,dy:INteger;
    begin
    Mouse(c,d,'right',0,0);
    wait(200);
    wait(random(100));

    if(findbitmapin(ydrop,dx,dy,525,175,750,475))then begin getmousepos(dx,dy); ClickMouse(dx,dy,true); end;
    wait(100);
    end;

    //////////////////////////
    //Drops all ore, not axes.
    //////////////////////////
    procedure Drop;
    var i,ItemPos,TempCount,xindex,yindex,xx,yy:Integer;
    var xInv :array[1..4] of Integer;
    var yInv :array[1..7] of Integer;
    begin
    if(InvFull)then
    begin
    Writeln('dropping Inventory');
        ItemPos:=29;
        for i := 1 to 4 do xInv[i] := 530+(i*(45));
        for i := 1 to 7 do yInv[i] := 195+(i*(35));
            repeat
            ItemPos:=ItemPos-1;
            if(ItemPos=0)  then break;
            if(ItemPos>=1) then begin tempcount:=ItemPos;    yindex:=1; end;
            if(ItemPos>=5) then begin tempcount:=ItemPos-4;  yindex:=2; end;
            if(ItemPos>=9) then begin tempcount:=ItemPos-8;  yindex:=3; end;
            if(ItemPos>=13)then begin tempcount:=ItemPos-12; yindex:=4; end;
            if(ItemPos>=17)then begin tempcount:=ItemPos-16; yindex:=5; end;
            if(ItemPos>=21)then begin tempcount:=ItemPos-20; yindex:=6; end;
            if(ItemPos>=25)then begin tempcount:=ItemPos-24; yindex:=7; end;
            xindex:=tempcount;
            Mouse(xinv[xindex],yinv[yindex],'slide',5,5);
            wait(400);

              begin
              GetMousePos(xx,yy);
              rClick(xx,yy);
              wait(100);
              wait(random(500));
              end;
            until(ItemPos=0);
        end;

    end;

    //////////////////////////////
    //Mining Procedure
    //////////////////////////////
    Procedure MineRocks;
    begin
      repeat
      Writeln('Mining');
      if(not((GetColor(x,y))=color))then
          begin
          if(findcolor(color))then
            begin
            Mouse(x,y,'left',0,0);
            wait(2000);
            end;
          end;

      Twostep;
      wait(Random(500));
      wait(200);
      until(false);
    end;

    /////////////////////////////////////////
    //Loads all the pictures
    /////////////////////////////////////////
    Procedure Load;
    begin
    wdrop := BitmapFromString(30, 8,
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF5D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
           '0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
           'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
           '5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D5447' +
           '5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447' +
           'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D5447FFFFFFFFFFFF0000000000005D54475D5447' +
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D5447FFFFFFFFFFFF000000');
           ydrop := BitmapFromString(30, 9,
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D5447FFFF00FFFF00' +
           '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D5447FFFF00FFFF000000005D5447FFFF00FFFF005D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
           'FFFF000000005D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D54475D54475D5447FFFF00FFFF00' +
           '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
           'FFFF005D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
           '5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
           '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447' +
           'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
           '000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000000000' +
           'FFFF00FFFF005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
           'FFFF000000005D5447FFFF00FFFF000000000000005D54475D5447' +
           'FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00' +
           'FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
           '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
           '5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
           '0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
           '');
    end;
    ///////////////////
    //Main Script
    ///////////////////
    begin


    Timer:=Getsystemtime;
    Color:=PickColor('Rock Color',false);
    MineRocks;
    end.

    Offline
    program New;
    begin
    if(findbitmapin(wdrop,dx,dy,525,175,750,475))then Mouse(dx+10,dy+5,'left',10,5);

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Please put it in scar tags...[SCAR].....[*/scar] without the *.


  3. #3
    Join Date
    Aug 2007
    Location
    bend down and ill show you!
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    copyed hard to beleave this is ur first script and use scar tags mr. one post!

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    BUSTED! Please know we users here know how to use google, and I found 'your' script here...: http://www.rs101.info/scripts/scarscript.php?id=97

    Nice try That script is uber outdated though.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Aug 2007
    Location
    bend down and ill show you!
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice work harry!!! ill contact a mod to ip ban tht noob im giveing u good rep =]

  6. #6
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    30 day ban

    Script copying will not be tolerated

    Closed
    STOP PM'ING ME

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Making my simple rune miner
    By nobody u kno in forum OSR Help
    Replies: 2
    Last Post: 07-14-2008, 11:57 PM
  2. Very SIMPLE Rune Miner
    By nobody u kno in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 07-13-2008, 05:09 AM
  3. just a simple east varrock miner/banker
    By solidxxx in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 04-15-2007, 03:19 PM
  4. A simple coal miner/bankeR?
    By bilbobaggins in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-01-2007, 05:40 PM
  5. simple miner
    By the scar noob in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-25-2006, 12:20 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
  •