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
Simba Code: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!




Reply With Quote



