Results 1 to 2 of 2

Thread: fun procedure

  1. #1
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Thumbs up fun procedure

    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!

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    cool idea

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

    Code:
    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;

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •