Scripting Problem, Not Runescape Related

[Bubbinator]

EDIT: Yo mama.

[Scaper]

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

[Bubbinator]

Edit

[Bubbinator]

A lot simpler, but it works. I think it might be too simple...

EDIT: See below

[NiCbaZ]

If FindBitmap(RandMask, x, y) then
  writeln('Found SecCheck at '+inttostr(x)+','+inttostr(y)+'.');
  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));

A lot simpler, but it works. I think it might be too simple...

if it works dont matter how simple it is but il tell you something that is not simple, your standards there killing me.

[Bubbinator]

lol, yeah, don't worry, i fixed it all up before i started using it. I was just in a hurry.

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;