applegonebad
07-19-2007, 07:34 AM
for some reason autoing dosent work for me. Even tested high rated scripts dont work.I cant find out why!!!!!! i fill the form and input my one user, go to login screen, and hit play. it logs me in, and then does nothing, and ive tried millions of scripts!!!!!!!!!!!!!!
here is what i have.............
SCAR 2.03
SRL 3.7
i had the brand new scar, but i couldnt get the includes like si.txt n stuff.......
im trying to autocut, and everythings not going as planned:confused:
www.freddy1990.com
Be sure to check and see if it is the current Version of SCAR's folders you are checking if are updated, and not the previous version you still have installed....Some scripts you are using may not have been updated with the current version of SRL, best choices are the posts that are most active....Also, Please refer to the "Golden Rule's of Autoing" and the reasons for creating more than 1 account...As said before, a little bit of work and preperation now, will reward you much more later,
Good Luck,
~RAM
and BTW....don't forget to check out tutorial island (http://www.srl-forums.com/forum/tutorial-island-f46.html) if you have any more problems...
applegonebad
07-31-2007, 08:37 PM
Ya, i got 32bit, full rs briteness, and i found one script that workes with my scar 2.03. (i have 2.03 and divi) its an auto miner and dropper. its the only one that works. can someone PLZ add anti randoms and stuff, ithe script is by afireinside. Maybe he can update it, PLZ someone help!
{ ----Any Rock Powerminer---- ^
|
-by- |
/
AFIREINSIDE /
/
1.) Make sure you drag this to poonscape_____/
2. 99% Chance you will lose your pick with this.
3. This script will drop everything except pickaxes.
4. NO AntiRandoms yet. Turn on sound to listen for them
5. Watch script at all times, not my fault if you get bant.
Ill probably come up with updates later.
*After you press 'RUN', move mouse to a rock for 3 secs to get color.*
}program PowerMiner_Afireinside;
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
if(ISTextAt2(9,9,'M',50))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(wdrop,dx,dy,525,175,750,475))then Mouse(dx+10,dy+5,'left',10,5);
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 Dropitlikeitshot;
//Made by Afireinside
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);
if(Istextat2(9,9,'Use',80))then
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;
Dropitlikeitshot;
Twostep;
wait(Random(500));
wait(200);
until(false);
end;
/////////////////////////////////////////
//Loads all the pictures
/////////////////////////////////////////
Procedure LoadBits;
begin
wdrop := BitmapFromString(30, 8,
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D5447FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF5D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFF FFFFF' +
'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475 D5447' +
'5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005 D5447' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000000000005D54475 D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF000000');
ydrop := BitmapFromString(30, 9,
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D5447FFFF00F FFF00' +
'000000FFFF00FFFF005D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D5447FFFF00FFFF000000005D5447FFFF00FFFF005D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00F FFF00' +
'FFFF005D54475D54475D5447FFFF00FFFF00FFFF00FFFF005 D5447' +
'5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475 D5447' +
'5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005 D5447' +
'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF000 00000' +
'000000FFFF00FFFF005D54475D5447FFFF00FFFF000000000 00000' +
'FFFF00FFFF005D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D5447FFFF00FFFF000000000000005D54475 D5447' +
'FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF000 00000' +
'5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF000000005D5447FFFF00FFFF000 00000' +
'');
end;
///////////////////
//Main Script
///////////////////
begin
LoadChars('');
LoadBits;
Timer:=Getsystemtime;
Color:=PickColor('Rock Color',false);
MineRocks;
end.
Offline
program New;
begin
end.program New;
begin
end.
www.freddy1990.com (http://www.freddy1990.com)
Be sure to check and see if it is the current Version of SCAR's folders you are checking if are updated, and not the previous version you still have installed....Some scripts you are using may not have been updated with the current version of SRL, best choices are the posts that are most active....Also, Please refer to the "Golden Rule's of Autoing" and the reasons for creating more than 1 account...As said before, a little bit of work and preperation now, will reward you much more later,
Good Luck,
~RAM
and BTW....don't forget to check out tutorial island (http://www.srl-forums.com/forum/tutorial-island-f46.html) if you have any more problems...
.
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.