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);