Pentti
2007-06-04 12:27:33
Function FindDaVarrockRoadColor(MaxTol:Integer):Integer;
Testers will be needed!
Hey, due to new Varrock Road Color I made a new function that will get the new road color. This will be in next update of my Multi City Miner & Banker if it works for most of people and most of the time.
This should find Varrock road color from 20 to 150 milliseconds.
I need people to test this so I can be sure it works if Im going to add it in next update of my script.
So please test this in Varrock, and tell me if it will find the road color!
(Also you can post the times how long it takes not to find it)
Settings:
Thanks, I apperciate if you will test this!!!
Testers will be needed!
Hey, due to new Varrock Road Color I made a new function that will get the new road color. This will be in next update of my Multi City Miner & Banker if it works for most of people and most of the time.
This should find Varrock road color from 20 to 150 milliseconds.
I need people to test this so I can be sure it works if Im going to add it in next update of my script.
So please test this in Varrock, and tell me if it will find the road color!
(Also you can post the times how long it takes not to find it)
Settings:
- Runescape brigntess set to maxium:
- Screen set to 32bits
program New;
{.include srl/srl.scar}
var
VRoad:array[0..3]of array[0..2] of Integer;
VRoadColor:Integer;
Time,Average,Times:Integer;
procedure VRoadBMP;
begin
VRoad[0][0] := BitmapFromString(14, 4, 'z78DA3330A01530B73037357' +
'3A39CA4B599D40500DD144429');
VRoad[0][1] := BitmapFromString(8, 7, 'z78DA33302007985B989B9AB9' +
'E12787937AE20100B58F4573');
VRoad[0][2] := BitmapFromString(4, 9, 'z78DA3330C007CC2DCC4DCDDC' +
'20E46016C7040070AA2B83');
VRoad[1][0] := BitmapFromString(14, 4, 'z78DA3330A015B070B6B0B03' +
'0A29CA4B599D40500C39443F9');
VRoad[1][1] := BitmapFromString(8, 7, 'z78DA3330200758385B585818' +
'E12787937AE2010095AF4537');
VRoad[1][2] := BitmapFromString(4, 9, 'z78DA3330C0072C9C2D2C2C8C' +
'20E46016C70400685A2B67');
VRoad[2][0] := BitmapFromString(14, 4, 'z78DA3330A01530753235373' +
'5A29CA4B599D40500154C42F1');
VRoad[2][1] := BitmapFromString(8, 7, 'z78DA33302007983A999A9B1A' +
'E12787937AE20100BBC643ED');
VRoad[2][2] := BitmapFromString(4, 9, 'z78DA3330C0074C9D4CCD4D8D' +
'20E46016C7040026C82ACD');
VRoad[3][0] := BitmapFromString(14, 4, 'z78DA3330A0153073337331' +
'33A19CA4B599D4050070834501');
VRoad[3][1] := BitmapFromString(8, 7, 'z78DA3330200798B999B9989' +
'9E02787937AE201006DD64681');
VRoad[3][2] := BitmapFromString(4, 9, 'z78DA3330C007CCDCCC5CCC4' +
'C20E46016C70400A91A2C01');
end;
Function FindDaVarrockRoadColor(MaxTol:Integer):Integer;
var
TI,i1,i2,lTol,Ax,Ay,TempColor: Integer;
begin
if(Not(LoggedIn))then
Exit;
for i2:= 0 to 2 do
begin
repeat
for i1:= 0 to 3 do
begin
TI:=GetSystemTime;
if(FindBitmapToleranceIn(VRoad[i1][i2],Ax,Ay,MMX1+22,MMY1,MMX2,MMY2,lTol)) then
begin
TempColor:=GetColor(Ax+1, Ay+1);
MoveMouse(Ax+1,Ay+1)
if(TempColor>5000000)and(TempColor<9000000)then
begin
Result:=TempColor
Writeln('Varrock Road Color = '+inttostr(Result))
Exit;
end;
end;
Writeln('VRoad['+inttostr(i1)+']['+inttostr(i2)+'] - Tol: '+inttostr(lTol)+' - '+inttostr(GetSystemTime-TI)+'ms')
lTol := lTol + 2;
end;
until (lTol >= MaxTol);
lTol:=0
end;
Writeln('Varrock Road Color was not found.')
end;
begin
SetUpSRL;
VRoadBMP;
repeat
ClearDebug;
Time:=GetsystemTime;
VRoadColor:=FindDaVarrockRoadColor(16)
Times:=Times+1
Average:=GetSystemTime-Time+(Average/Times)
Writeln('Find: '+Inttostr(GetSystemTime-Time)+'ms')
Writeln('Average time: '+inttostr(Average)+'ms')
wait(1000)
until(IsFKeyDown(5))
end.
Thanks, I apperciate if you will test this!!!