EDIT: Yo mama.
Printable View
EDIT: Yo mama.
findDTM(DTMNAme,____________)
FindDTMRotated(DTMname,Blah,blah,blahetc)
hey bit there is loads DTM tuts in tuorial island get your self over and look em up :)
Edit
A lot simpler, but it works. I think it might be too simple...
EDIT: See below
if it works dont matter how simple it is but il tell you something that is not simple, your standards there killing me.Quote:
Originally Posted by Bubbinator
lol, yeah, don't worry, i fixed it all up before i started using it. I was just in a hurry.
SCAR Code:repeat
Wait(5)
Until (FindDTMRotated(BigBoxDTM, rx, ry, 400, 300, 1000, 800, 0, 180, 10, ang) or FindDTMRotated(BigBox2DTM, Rx, Ry, 400, 300, 1000, 800, 0, 180, 10, ang));
if FindColor(x, y, 16777215, 400, 450, 800, 720) then
begin
writeln('Found Box at '+inttostr(x)+','+inttostr(y));
a:= a+1;
If FindColor(ax, ay, 16777215, (x+35), y, 800, 720) then
begin
writeln('Found Box at '+inttostr(ax)+','+inttostr(ay));
a:= a+1;
If FindColor(bx, by, 16777215, (ax+35), y, 800, 720) then
begin
writeln('Found Box at '+inttostr(bx)+','+inttostr(by));
a:= a+1;
end;
end;
end;
Writeln('First Row: '+inttostr(a))
If FindColor(cx, cy, 16777215, 400, (y+35), 800, (y+70)) then
begin
writeln('Found Box at '+inttostr(cx)+','+inttostr(cy));
b:= b+1
If FindColor(dx, dy, 16777215, (cx+35), (y+35), 800, (y+70)) then
begin
writeln('Found Box at '+inttostr(dx)+','+inttostr(dy));
b:= b+1
If FindColor(ex, ey, 16777215, (dx+35), (y+35), 800, (y+70)) then
begin
writeln('Found Box at '+inttostr(ex)+','+inttostr(ey));
b:= b+1
end;
end;
end;
Writeln('Second Row: '+inttostr(b))
If FindColor(fx, fy, 16777215, 400, (y+105), 800, 720) then
begin
writeln('Found Box at '+inttostr(fx)+','+inttostr(fy));
c:= c+1;
If FindColor(gx, gy, 16777215, (fx+35), (y+105), 800, 720) then
begin
writeln('Found Box at '+inttostr(gx)+','+inttostr(gy));
c:= c+1;
If FindColor(hx, hy, 16777215, (gx+35), (y+105), 800, 720) then
begin
writeln('Found Box at '+inttostr(hx)+','+inttostr(hy));
c:= c+1;
end;
end;
end;
Writeln('Third Row: '+inttostr(c))
r:= (a+b+c);
writeln('Found '+inttostr(r));
case r of
1: begin
writeln('Clicking One');
If FindDTM(OneDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
2: begin
writeln('Clicking Two');
If FindDTM(TwoDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
3: begin
writeln('Clicking Three');
If FindDTM(ThreeDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
4: begin
writeln('Clicking Four');
If FindDTM(FourDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
5: begin
writeln('Clicking Five');
If FindDTM(FiveDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
6: begin
writeln('Clicking Six');
If FindDTM(SixDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
7: begin
writeln('Clicking Seven');
If FindDTM(SevenDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
8: begin
writeln('Clicking Eight');
If FindDTM(EightDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
9: begin
writeln('Clicking Nine');
If FindDTM(NineDTM, rx, ry, 300, 720, 1000,800) then
begin
repeat
Mouse(rx, ry, 5, 5, true);
Wait(50);
until FindDTM(SecPassDTM, rx, ry, 300, 720, 1000,800)
end;
end;
end;
end;