Results 1 to 14 of 14

Thread: plz help convert this to smart....(varrock iron miner)

  1. #1
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default plz help convert this to smart....(varrock iron miner)

    hi here it goes...

    Code:
    var x, y,b: integer;
    {$DEFINE OSI_Color_Anti_Randoms}
    {.include OSI\OSI.scar}
    
    
    
    procedure pauze;
    begin
    wait(3000+random(1000));
    ClickWindMouse(786,14, 2, 2, true);
    wait(200+random(150));
    ClickWindMouse(689,409, 50, 6, true);
    wait(300000+random(100000));
    ClickWindMouse(401,502, 100, 10, true);
    
    
    
    b:=0
    end;
    
    procedure iron;
    begin
    wait(2500);
    
    if FindColorTolerance(x,y,3228273,200,200,600,450,5)
    then ClickWindMouse(x,y, 2, 2, true);
    wait(300+random(1000));
    MoveWindMouseEx(1+random(400), 3+random(400), 500, 500, 5+random(20));
    
    
    end;
    
    procedure walkbank;
    begin
    
    ClickWindMouse(730,17, 3, 7, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(7000+random(400));
    ClickWindMouse(700,37, 3, 7, true);
    ClickWindMouse(627,123, 10, 10, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
     wait(4000+random(300));
    ClickWindMouse(700,37, 3, 7, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(7000+random(400));
    ClickWindMouse(700,25, 3, 7, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(8000+random(400));
    ClickWindMouse(680,70, 3, 7, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(6000+random(400));
    ClickWindMouse(646,80+7, 3, 7, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(12000+random(400));
    
    //dollar
    if FindColortolerance(x,y,2413294,650,60,720,150,30)
    then ClickWindMouse(x,y, 10, 10, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(13000+random(3000));
    
    //find banker
    if FindColortolerance(x,y,5782083,261,300,552,530,10)
    then ClickWindMouse(x,y, 3, 3, true);
    wait(3000+random(200));
    if FindColortolerance(x,y,5782083,261,300,552,530,10)
    then ClickWindMouse(x,y, 3, 2, false);
    wait(400+random(200));
    ClickWindMouse(x,y+43, 20, 2, true);
    wait(1500+random(200));
    
    //deposit
    ClickWindMouse(433,396, 6, 6, true);
    wait(200+random(200));
    repeat
    wait(100);
    until FindColortolerance(x,y,7168585,439,101,548,126,10);
    if FindColortolerance(x,y,7168585,439,101,548,126,10)
    then ClickWindMouse(x,y+10, 5, 5, true);
    wait(800+random(500));
    
    b:=+1
    end;
    
    procedure walkmine;
    begin
    wait(2000+random(400));
     ClickWindMouse(627,123, 10, 10, true);
     MoveWindMouseEx(712,89, 50, 50, 3+random(10));
     wait(200+random(300));
    ClickWindMouse(730,65, 5, 2, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(5000+random(200));
    
    ClickWindMouse(780,79, 5, 2, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(9000+random(200));
    
    ClickWindMouse(749,148, 5, 2, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(7000+random(200));
    
    ClickWindMouse(735,149, 5, 2, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(6000+random(200));
    
    ClickWindMouse(717,128, 5, 2, true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(6000+random(1000));
    if FindColortolerance(x,y,1136166,700,125,745,155,30)
    then ClickWindMouse(x,y-5, 3, 3, true)
    else ClickWindMouse(730,150, 3, 3,true);
    MoveWindMouseEx(712,89, 50, 50, 3+random(10));
    wait(6000+random(3000))
    
    
    ClickWindMouse(680-random(4),125, 3, 2, true);
    wait(5000+random(500));
    
    
    
    
    
    
    
    
    end;
    
    
    
    
    
    
    
    
    
    begin
    repeat
    walkmine;
    wait(1000+random(300));
    if FindColorTolerance(x,y,3228273,0,0,560,460,5)
    then ClickWindMouse(x,y, 2, 2, true);
    
    repeat iron
    until  FindColorTolerance(x,y,540185,227,562,300,569,30);
    
    
    if (b>6+random(4)) then pauze;
    walkbank;
    
    
    
    
    
    
    
    until false;
    end.

  2. #2
    Join Date
    Dec 2011
    Posts
    273
    Mentioned
    0 Post(s)
    Quoted
    39 Post(s)

    Default

    Read some tutorials... Requesting dirty work.. for your first post
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

  3. #3
    Join Date
    Jul 2007
    Posts
    238
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default


    have fun lol


    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    var x, y,b: integer;


    procedure pauze;
    begin
    wait(3000+random(1000));
    mouse(786,14, 2, 2, true);
    wait(200+random(150));
    mouse(689,409, 50, 6, true);
    wait(300000+random(100000));
    mouse(401,502, 100, 10, true);

    b:=0
    end;

    procedure iron;
    begin
    wait(2500);

    if FindColorTolerance(x,y,3228273,200,200,600,450,5)
    then mouse(x,y, 2, 2, true);
    wait(300+random(1000));
    MoveMouse(1+random(400), 3+random(400));

    end;

    procedure walkbank;
    begin

    mouse(730,17, 3, 7, true);
    MoveMouse(712,89 );
    wait(7000+random(400));
    mouse(700,37, 3, 7, true);
    mouse(627,123, 10, 10, true);
    MoveMouse(712,89);
     wait(4000+random(300));
    mouse(700,37, 3, 7, true);
    MoveMouse(712,89);
    wait(7000+random(400));
    mouse(700,25, 3, 7, true);
    MoveMouse(712,89);
    wait(8000+random(400));
    mouse(680,70, 3, 7, true);
    MoveMouse(712,89);
    wait(6000+random(400));
    mouse(646,80+7, 3, 7, true);
    MoveMouse(712,89);
    wait(12000+random(400));
    //dollar
    if FindColortolerance(x,y,2413294,650,60,720,150,30)
    then mouse(x,y, 10, 10, true);
    MoveMouse(712,89);
    wait(13000+random(3000));

    //find banker
    if FindColortolerance(x,y,5782083,261,300,552,530,10)
    then mouse(x,y, 3, 3, true);
    wait(3000+random(200));
    if FindColortolerance(x,y,5782083,261,300,552,530,10)
    then mouse(x,y, 3, 2, false);
    wait(400+random(200));
    mouse(x,y+43, 20, 2, true);
    wait(1500+random(200));

    //deposit
    mouse(433,396, 6, 6, true);
    wait(200+random(200));
    repeat
    wait(100);
    until FindColortolerance(x,y,7168585,439,101,548,126,10);
    if FindColortolerance(x,y,7168585,439,101,548,126,10)
    then mouse(x,y+10, 5, 5, true);
    wait(800+random(500));

    b:=+1
    end;

    procedure walkmine;
    begin
    wait(2000+random(400));
     mouse(627,123, 10, 10, true);
     MoveMouse(712,89);
     wait(200+random(300));
    mouse(730,65, 5, 2, true);
    MoveMouse(712,89);
    wait(5000+random(200));

    mouse(780,79, 5, 2, true);
    MoveMouse(712,89);
    wait(9000+random(200));

    mouse(749,148, 5, 2, true);
    MoveMouse(712,89);
    wait(7000+random(200));

    mouse(735,149, 5, 2, true);
    MoveMouse(712,89);
    wait(6000+random(200));

    mouse(717,128, 5, 2, true);
    MoveMouse(712,89);
    wait(6000+random(1000));
    if FindColortolerance(x,y,1136166,700,125,745,155,30)
    then mouse(x,y-5, 3, 3, true)
    else mouse(730,150, 3, 3,true);
    MoveMouse(712,89);
    wait(6000+random(3000))


    mouse(680-random(4),125, 3, 2, true);
    wait(5000+random(500));
    end;

    begin
    repeat
    walkmine;
    wait(1000+random(300));
    if FindColorTolerance(x,y,3228273,0,0,560,460,5)
    then mouse(x,y, 2, 2, true);

    repeat iron
    until  FindColorTolerance(x,y,540185,227,562,300,569,30);


    if (b>6+random(4)) then pauze;
    walkbank;

    until false;
    end.
    ....

  4. #4
    Join Date
    Dec 2011
    Posts
    273
    Mentioned
    0 Post(s)
    Quoted
    39 Post(s)

    Default

    Sjlou... you shouldve let him learn...
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

  5. #5
    Join Date
    Jul 2007
    Posts
    238
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    look at the script..he's going nowhere with it
    ....

  6. #6
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    absolute coords clicking?
    Current activity: Recovering from vacation
    - Nulla pars vitae vacare officio potest -
    SRL membership? Can I buy that?
    Scripts - AGS - SWF - WAR - EMS - W100S-EM
    If you need scripting help, you can pm me. Remember, if you need help you have to ask for it properly though

  7. #7
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Also, that's a SCAR script which uses OSI, don't post asking for help here, ask over at the correct forum.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  8. #8
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry your edit got me nowhere....

    u made script for using with simba????
    never used it...

  9. #9
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ohh nvm in scar u need to add osi stuff ;DDD
    but whole cords changed.... now need to edit it =(

    thx for help!

  10. #10
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    The script you posted is for the program SCAR, from http://scar-divi.com, and the forums are here http://forums.scar-divi.com/

    That's where you need to ask for help, not here.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  11. #11
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    scar has smart too

  12. #12
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Quote Originally Posted by Main View Post
    scar has smart too
    But still, wrong forums, he posted help on an OSI script. We technically don't support that
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  13. #13
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    But still, wrong forums, he posted help on an OSI script. We technically don't support that
    so, we're nice nice people and help our big(little?) brother

  14. #14
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    SCAR wants user at their forums, so pushing them there for help when asking here is the polite thing to do.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


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
  •