From: ub3r |<1||3r
I need some people to post or PM me random pictures/videos.
this is what I need:
Gas from rocks
the teleporting mysterious old man (hard)
all the pictures from Niles and Miles(helmet, Sword, fish, Etc.)
I need these pictures/videos. I am creating my own randoms (the findgas procedure is not reliable at all)
I wrote my owm gas procedures and they seem to do pretty well. You can try them out if you like.
Procedure Check4Gas;
var i,n:integer;
begin
i:=0;
Repeat;
i:=i+1;
n:=random(50);
Wait(50);
If FindDTM(GasDTM,tmpx,tmpy,200,120,510,330) then
begin
SaveScreenshot(AppPath+'Gas1'+InttoStr(n)+'.bmp');
Writeln('Danger! Gas Detected!');
MouseC(tmpx-50-random(15),tmpy-50-random(50),1);
repeat;
wait(1000);
Until (FindDTM(GasDTM,tmpx,tmpy,0,0,515,340)=false);
If Mininglvl>=TargetLevel then WalkToMineIcon(iron) else WalkToMineIcon(copper);
Check4Gas;
end else If FindDTM(Gas2DTM,tmpx,tmpy,200,120,330,240) then
begin
n:=random(50);
SaveScreenshot(AppPath+'Gas2'+InttoStr(n)+'.bmp');
Writeln('Danger! Gas Detected!');
MouseC(tmpx-50-random(15),tmpy-50-random(50),1);
repeat;
wait(1000);
Until (FindDTM(Gas2DTM,tmpx,tmpy,0,0,515,340)=false);
If Mininglvl>=TargetLevel then WalkToMineIcon(iron) else WalkToMineIcon(copper);
Check4Gas;
end else If FindDTM(Gas3DTM,tmpx,tmpy,200,120,330,240) then
begin
n:=random(50);
SaveScreenshot(AppPath+'Gas3'+InttoStr(n)+'.bmp');
Writeln('Danger! Gas Detected!');
ClickMouse(tmpx-50-random(15),tmpy-50-random(50),true);
repeat;
wait(1000);
Until (FindDTM(Gas3DTM,tmpx,tmpy,0,0,515,340)=false);
If Mininglvl>=TargetLevel then WalkToMineIcon(iron) else WalkToMineIcon(copper);
Check4Gas;
end;
Until i>=3;
end;
And these are the DTMs I use…
GasDTM := DTMFromString('78DA63BCC6C0C07084010C182114C3ACFE020' +
'67E28FF3F1030DE06320EA2AA99D09603570316BF07240EA3AA69' +
'AB8965E0455603B2EB00AA9ADEC614B8394C400C00A008109E');
Gas2DTM := DTMFromString('78DA6354626460E86300032608C5B071792F0' +
'3179006CA30FC0702463920AB1755CDACFE02B81A10605406B2BA' +
'50D54C68CB4155A30664F5A0AA69AB894551030089000D52');
Gas3DTM := DTMFromString('78DA63E460646038C200068C108A61C5E2090' +
'C5C50FE7F2060E406B20EA3AA59B7623A033F121FACE628AA9A0D' +
'AB66328820ABE102B20EA2AAE96AC987DB050200E30A0EB1');
Gas4DTM := DTMFromString('78DA63DCCEC0C0709A010C182114C3B2791D0' +
'CFC50FE7F2060DC09645C4255B36456035C0D587C0B903883AA66' +
'C3F2890C92C86AB6018973A86AE64C2A47310700CC771177');
Of course you will have to modify it a little bit for it to fit into your own script, but you can try it out. Let me know if that works for you!
heres a gas pic if you arent using his procedure.