Results 1 to 8 of 8

Thread: need help

  1. #1
    Join Date
    Sep 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need help

    hey, i just want to know if anyone can help me, ill post the script and, yeah, if it needs tweaking im only new to scripts, so yeah, help a noob you guys

    v heres the code v
    __________________________________________________ _________________
    (*
    Gnome Agility
    By: GenoDemoN
    NO-AntiRandoms, not really needed though
    Start At Log, Have log appear staright on main screen
    v-Bright Have Run 0n
    Set-up Lines 14-20

    *)

    program Gnomey;
    const
    tol=10; // Do not Change
    color1=605799; //Log
    color2=5464176; //Net Part
    color3=1195601; //Tree Stub (tanish part)
    color4=6062752; //Rope
    color5=1858165; //Tree Stub (tanish part)
    color6=5595256; //Net Part
    color7=7500411; //Pipe
    var
    x,y,xx,yy,z,zz,pipe:integer;
    found:boolean;

    procedure sendkeyssilentsmooth(text:string;pause:integer); {Created by Piv}
    begin
    repeat
    sendkeyssilent(copy(text,1,1)); wait(pause+random(50));
    delete(text,1,1); wait(50);
    until(length(text)=0);
    wait(100+random(50));
    end;

    procedure searchd(color:integer);
    begin
    repeat
    sleep(10);
    z:=z+1;
    IF (z>15)then z:=0;
    writeln(inttostr(z));
    until(findcolorspiraltolerance(x,y,color,128,180+z *10,400,190+z*10,tol))
    end;

    procedure searchu(color:integer);
    begin
    repeat
    sleep(10);
    z:=z+1;
    IF (z>18)then z:=0;
    writeln(inttostr(z));
    until(findcolorspiraltolerance(x,y,color,128,180-z*10,400,190-z*10,tol))
    end;

    procedure searcha(color:integer);
    begin
    repeat
    sleep(10);
    z:=z+1;
    IF (z>15)then z:=0;
    writeln(inttostr(z));
    until(findcolorspiraltolerance(x,y,color,128-z*2,180-z*10,400+z*2,190+z*10,tol))
    end;

    procedure searchr(color:integer);
    begin
    repeat
    sleep(10);
    z:=z+1;
    IF (z>20)then z:=0;
    writeln(inttostr(z));
    until(findcolorspiraltolerance(x,y,color,300+z*10, 50,310+z*10,240,tol))
    end;


    begin
    loadchars('');
    pipe := BitmapFromString(24, 6,
    'BAAB8ABBAE92000000000000000000BAAB8ABAAB8ABAAB8AB AAB8A' +
    'B9A581BAAB8AB9A581000000000000000000B9A581B9A581B 9A581' +
    'B9A581000000000000000000B9A581B9A581BBAE92000000B BAE92' +
    'BBAE92BAAB8A000000BAAB8ABAAB8A000000B9A581B9A5810 00000' +
    'B9A581B9A581B9A581000000B9A581B9A581000000B9A581B 9A581' +
    'B9A581000000B9A581BBAE92000000BBAE92BBAE92BAAB8A0 00000' +
    'BAAB8ABAAB8A000000B9A581B9A581000000B9A581B9A581B 9A581' +
    '000000B9A581B9A581000000B9A581B9A581B9A581000000B 9A581' +
    'BBAE92000000BAAB8ABAAB8ABAAB8A000000B9A581B9A5810 00000' +
    'BAAB8AB9A581000000B9A581B9A581B9A581000000B9A581B 9A581' +
    '000000000000000000000000B9A581B9A581BAAB8A000000B AAB8A' +
    'B9A581B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8A0 00000' +
    'B9A581BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8AB AAB8A' +
    'BAAB8AB9A581B9A581B9A581000000000000000000000000B AAB8A' +
    'BAAB8ABAAB8A000000BAAB8ABAAB8A0000000000000000000 00000' +
    'B9A581BAAB8ABAAB8AB9A581000000000000000000000000B 9A581' +
    '');



    repeat
    z:=-1;
    repeat
    found:=false;
    searchd(color1);
    movemousesmooth(x,y);
    sleep(200+random(50));
    zz:=0;
    repeat
    zz:=zz+1;
    sleep(5);
    IF (istextat2(46+zz,9,'a',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(6900+random(200));
    end;
    sleep(5);
    until(zz>3);
    until(found);

    x:=230+random(30);
    y:=260+random(25);
    movemousesmooth(x,y);
    sleep(100+random(50));
    clickmouse(x,y,true);
    sleep(1400+random(200));

    z:=-1;
    repeat
    found:=false;
    searchd(color2);
    movemousesmooth(x,y);
    sleep(100+random(50));
    IF (istextat2(9,9,'C',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(3600+random(200));
    end;
    until(found);

    z:=-1;
    repeat
    found:=false;
    searcha(color3);
    movemousesmooth(x,y);
    sleep(100+random(50));
    IF (istextat2(9,9,'C',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(3600+random(200));
    end;
    until(found);

    z:=-1;
    repeat
    found:=false;
    searchr(color4);
    movemousesmooth(x,y);
    sleep(200+random(50));
    zz:=0;
    repeat
    zz:=zz+1;
    sleep(5);
    IF (istextat2(46+zz,9,'on',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(6900+random(200));
    end;
    sleep(5);
    until(zz>3);
    until(found);




    z:=-1;
    repeat
    found:=false;
    searchr(color5);
    movemousesmooth(x,y);
    sleep(100+random(50));
    IF (istextat2(9,9,'C',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(5800+random(200));
    end;
    until(found);

    x:=228+random(32);
    y:=50+random(30);
    movemousesmooth(x,y);
    sleep(100+random(50));
    clickmouse(x,y,true);
    sleep(1100+random(200));

    z:=-1;
    repeat
    found:=false;
    searchu(color6);
    movemousesmooth(x,y);
    sleep(100+random(50));
    IF (istextat2(9,9,'C',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(3900+random(200));
    end;
    until(found);

    z:=-1;
    repeat
    found:=false;
    searchu(color7);
    movemousesmooth(x,y);
    sleep(100+random(50));
    IF (istextat2(9,9,'S',100)) then
    begin
    found:=true;
    clickmouse(x,y,true);
    sleep(2000+random(200));
    IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,43 3,5)=false)then
    begin
    sleep(7900+random(200));
    end;
    IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,43 3,5))then
    begin
    found:=false;
    sendkeyssilentsmooth('argh'+chr(13),10);
    sleep(300);
    end;
    end;
    until(found);

    x:=40+random(20);
    y:=140+random(30);
    movemousesmooth(x,y);
    sleep(100+random(50));
    clickmouse(x,y,true);
    sleep(2600+random(200));

    x:=40+random(20);
    y:=170+random(30);
    movemousesmooth(x,y);
    sleep(100+random(50));
    clickmouse(x,y,true);
    sleep(2600+random(200));



    until(false);
    end.

    __________________________________________________ _______________

    btw i am using the newest version of scar. and slr

  2. #2
    Join Date
    Aug 2007
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this your first script? Looks pretty good! Care to teach me sometime soon I would try to test it but saldy I'm non-members.

  3. #3
    Join Date
    Sep 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ha ha, took some stuff out of other agility scripts, but yeah, mainly its mine
    and yeah, sure ill teach u

  4. #4
    Join Date
    Aug 2007
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hehe, cool. You can try making another script for non-members so some people (like me) can test it properly. Just a suggestion, you don't have to make another script.

  5. #5
    Join Date
    Sep 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol what kind of script u want? wc? fishing? just tell me and ill bang 1 up for u

  6. #6
    Join Date
    Aug 2007
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, I'm not requesting, but I can test any script you make if you want me to.

  7. #7
    Join Date
    Sep 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aaaah ok, well ill make a wc 1 then?

  8. #8
    Join Date
    Sep 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    my first auto wcer

    hope u can cut yews manh):

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
  •