SRL Archive - Research & Development Lounge

i just want to post this i think its a good procedure to play with

IT AUTO SELECTS SYMBOLS ON MM WITH RIGHT ARROW =) FUN! WILL TURN THIS INTO A FULL BLOWN UTILITY LATER BUT HERE IT IS FOR NOW… till i actually make it for runescape right now it just crawled out of my ass**** lawl excuse thy french

procedure one;
  var
    a,b,x,y,i,w,h: integer;
    tpoint1,tpoint2,tpoint3:tpoint;
    tpa1,tpa2,tpa3,tpa4 :tpointarray;
    atpa1,atpa2,atpa3:t2dpointarray;
    box1,box2,box3:tbox;
    tba1,tba2,tba3:tboxarray;
      begin
        GetClientDimensions(w,h);
        FindColors(tpa1,65536,0,0,w-1,h-1);
        splittpaWrap(tpa1,1,atpa1);

          for i:=0 to high(atpa1) do begin
            SetArrayLength(tba1, i+1);
            SetArrayLength(atpa2, i+1);
            SetArrayLength(tpa2, i+1);
            SetArrayLength(tpa3, i+1);

            tba1[i]:=GetTPABounds(atpa1[i]);

            TPAFromBoxWrap(tba1[i], atpa2[i]);

            tpa2[i]:=MiddleTPA(atpa2[i]);

            FilterPointsDist(atpa2[i],6,12,tpa2[i].x,tpa2[i].y);

            tpa3[i]:=MiddleTPA(atpa2[i]);

            RAaSTPAEx(tpa3,10,10);

              end;
                writeln(tpa3);
                i:=1
                  repeat
                    if IsKeyDown(39) then
                      begin
                      wait(1000);
                      movemouse(tpa3[i].x,tpa3[i].y);
                      inc(i);
                        if i>7 then i:=1;
                          end;
                            until(false);
                              end;
                                    

COOL HUH!

cool idea :)

for those who want a little more normal standards (and removed the unused vars):

procedure one;
var
  i,w,h: integer;
  tpa1,tpa2,tpa3: tpointarray;
  atpa1,atpa2: t2dpointarray;
  tba1: tboxarray;
begin
  GetClientDimensions(w,h);
  FindColors(tpa1,65536,0,0,w-1,h-1);
  splittpaWrap(tpa1,1,atpa1);

  for i:=0 to high(atpa1) do
  begin
    SetArrayLength(tba1, i+1);
    SetArrayLength(atpa2, i+1);
    SetArrayLength(tpa2, i+1);
    SetArrayLength(tpa3, i+1);
    tba1[i]:=GetTPABounds(atpa1[i]);
    TPAFromBoxWrap(tba1[i], atpa2[i]);
    tpa2[i]:=MiddleTPA(atpa2[i]);
    FilterPointsDist(atpa2[i],6,12,tpa2[i].x,tpa2[i].y);
    tpa3[i]:=MiddleTPA(atpa2[i]);
    RAaSTPAEx(tpa3,10,10);
  end;
  writeln(tpa3);
  i:=1;
  repeat
    if IsKeyDown(39) then
    begin
      wait(1000);
      movemouse(tpa3[i].x,tpa3[i].y);
      inc(i);
      if i>7 then i:=1;
    end;
  until(false);
end;