Results 1 to 4 of 4

Thread: Homemade AntiGas

  1. #1
    Join Date
    Jan 2007
    Posts
    248
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Homemade AntiGas

    Hey guys, I coded an anti gas for mining, and I want a second opinion about it. Tell me if it looks any good...

    SCAR Code:
    Procedure LookForSmoke; // By TheGodfather**** anti smokey rock
    var gcol: array [0..3] of integer;
     g, gx, gy, sx, sy: integer;
    begin
        sx:= 235;
        sy:= 45;
        gcol[0]:= 8560811;
        gcol[1]:= 6134678;
        gcol[2]:= 6261387;
        gcol[3]:= 5534324;
       for g:=0 to 3 do
      if FindColorTolerance(gx,gy,gcol[g],175,60,330,200,15) then
     Mouse(sx,sy,4,5,true);
     wait(45000+random(12000));
    end;
    It doesnt compile, but if you add it to a miner it'll work. Just anybody that knows what this means, and tell me if it looks good....
    EDIT: Comeon guys, y'all can do better, 14 views and 0 comments.... pfft...

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    maybe you could add another few ifs in their compairing just two of the colours together?

    SCAR Code:
    Procedure LookForSmoke; // By TheGodfather**** anti smokey rock
    var gcol: array [0..3] of integer;
     g, gx, gy, sx, sy: integer;
    begin
        sx:= 235;
        sy:= 45;
        gcol0:= 8560811;
        gcol1:= 6134678;
        gcol2:= 6261387;
        gcol3:= 5534324;
       if (FindColorTolerance(x, y, gcol0, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, gcol1, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, gcol2, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, gcol3, 79, 95, 592, 429, Tolerence)) then
         begin
          Mouse(sx,sy,4,5,true);
          wait(45000+random(12000));
         end
      else
       if (FindColorTolerance(x, y, gcol0, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, gcol3, 79, 95, 592, 429, Tolerence)) then
          Begin
          Mouse(sx,sy,4,5,true);
          wait(45000+random(12000));
         end
       else
       if (FindColorTolerance(x, y, gcol1, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, gcol2, 79, 95, 592, 429, Tolerence)) then
          Begin
          Mouse(sx,sy,4,5,true);
          wait(45000+random(12000));
         end
    end;

    i had to change your array to basic variables dont understand how to put them into that

  3. #3
    Join Date
    Feb 2006
    Location
    L.A, USA
    Posts
    1,632
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe add an action other than just moving your mouse to the gas? Like clicking the Minimap at (648, 83).

    SCAR Code:
    procedure LookForSmoke; // By TheGodfather**** anti smokey rock
    var
      gcol: array [0..3] of integer;
      g, gx, gy, sx, sy: integer;
    begin
      sx:= 235;
      sy:= 45;
      gcol[0]:= 8560811;
      gcol[1]:= 6134678;
      gcol[2]:= 6261387;
      gcol[3]:= 5534324;
      for g:= 0 to 3 do
      begin
        if FindColorTolerance(gx,gy,gcol[g],175,60,330,200,15) then
        begin
          Mouse(sx,sy,4,5,true);
          wait(45000+random(12000));
        end;
      end;
    end;

    Dont' forget begin's and ends. So it only waits 45 - 57 seconds when there is gas.

    Good though, you know arrays. :]

  4. #4
    Join Date
    Jan 2007
    Posts
    248
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, so wait, I have the arrays out there correctly right?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My homemade battery charger!
    By Jason2gs in forum Semi Stupid Pictures
    Replies: 13
    Last Post: 01-31-2008, 06:11 PM
  2. [tut]Best homemade chillum pipe ever created!
    By aztek in forum Misc. Links and Programs
    Replies: 0
    Last Post: 01-08-2008, 12:15 AM

Posting Permissions

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