Results 1 to 9 of 9

Thread: scar script terribly slow

  1. #1
    Join Date
    Jun 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default scar script terribly slow

    Hey i have Scar Divi CDE srl 4.00

    I made a script up and for some reason its going terribly slow the mouse takes 1 minute to move 3 inches whats the problem?


    here is the script:

    program New;


    {.include SRL/SRL.scar}

    var
    x,y: Integer;
    i: Integer;

    const

    BettyColor= 4129088;
    BlueColor= 128;
    BettyHairColor= 128;

    procedure check;
    begin
    wait(100);
    mmouse(1271, 344, 1, 1);
    wait(100 + Random(50));
    holdmouse(1271, 344, true);
    wait(100 + Random(50))
    mmouse(1271, 537, 1, 1);
    wait(100 + Random(50))
    releasemouse(1271, 537, true);
    wait(100 + Random(50))
    end;

    procedure login;
    begin
    movemouse(695, 499)
    wait(100)
    clickmouse(695, 499, true)
    wait(100)
    sendkeys('takataka50'+chr(13))
    sendkeys('hihihi')
    movemouse(584, 531)
    wait(100)
    clickmouse(584, 531, true)
    wait(7000+random(1000))
    movemouse(608, 540)
    wait(100)
    clickmouse(608, 540, true)
    wait(3000)
    end;

    Procedure betty;

    begin
    If(findcolortolerance(x, y, Bettycolor, 252, 208, 761, 543, 5)) then
    begin
    wait(500+random(500))
    mmouse(x, y, 2, 2)
    wait(5+random(10))
    mouse(x, y, 2, 2, true)
    wait(5000+random(1000))
    mmouse(596, 658, 2, 2)
    wait(500+random(500))
    mouse(596, 658, 2, 2, true)
    wait(500+random(500))
    mmouse(466, 608, 2, 2)
    wait(500+random(500))
    mouse(466, 608, 2, 2, true)
    wait(3000)
    end else
    wait(15000)
    findcolortolerance(x, y, Bettycolor, 252, 208, 761, 543, 5)
    mmouse(596, 658, 2, 2)
    wait(500+random(500))
    mouse(596, 658, 2, 2, true)
    wait(500+random(500))
    mmouse(466, 608, 2, 2)
    wait(500+random(500))
    mouse(466, 608, 2, 2, true)
    wait(3000)

    end;




    procedure buyDC;
    begin
    i:= 0;
    repeat
    i:= i + 1;
    mmouse(626, 291, 2, 2)
    wait(100+random(50))
    mouse(626, 291, 2, 2, false)
    wait(100+random(50))
    mmouse(608, 362, 2, 2)
    wait(100+random(50))
    mouse(608,362, 2, 2, true)
    wait(100+random(50))
    mmouse(675, 289, 2, 2)
    wait(100+random(50))
    mouse(675, 289, 2, 2, false)
    wait(100+random(50))
    mmouse(670, 362, 2, 2)
    wait(100+random(50))
    mouse(670, 362, 2, 2, true)
    until(i >=50);
    end;

    procedure logout1;
    begin
    wait(500)
    movemousesmooth(494, 192)
    wait(500)
    clickmouse(494, 192, true)
    wait(500)
    movemousesmooth(595, 407)
    wait(500)
    clickmouse(595, 407, true)
    wait(500)
    end;

    procedure Worldselecter1;
    begin
    movemousesmooth(541, 525)
    wait(100)
    clickmouse(541, 525, true)
    wait(1000)
    movemousesmooth(944, 526)
    wait(100)
    clickmouse(944, 526, true)
    wait(1000)
    movemousesmooth(488, 550)
    wait(100)
    clickmouse(488, 550, true)
    wait(35000)
    end;

    procedure Worldselecter2;
    begin
    movemousesmooth(541, 525)
    wait(100)
    clickmouse(541, 525, true)
    wait(1000)
    movemousesmooth(944, 526)
    wait(100)
    clickmouse(944, 526, true)
    wait(1000)
    movemousesmooth(1272, 419)
    holdmouse(1272, 419, true)
    movemousesmooth(1272, 178)
    releasemouse(1272, 178, true)
    movemousesmooth(488, 550)
    wait(100)
    clickmouse(488, 550, true)
    wait(35000)
    end;

    procedure Worldselecter3;
    begin
    movemousesmooth(541, 525)
    wait(100)
    clickmouse(541, 525, true)
    wait(1000)
    movemousesmooth(944, 526)
    wait(100)
    clickmouse(944, 526, true)
    wait(1000)
    movemousesmooth(1272, 519)
    holdmouse(1272, 519, true)
    movemousesmooth(1272, 478)
    releasemouse(1272, 478, true)
    movemousesmooth(488, 550)
    wait(100)
    clickmouse(488, 550, true)
    wait(35000)
    end;




    begin
    repeat
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter1;
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter2;
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter3;
    until(false)
    end.



    i tried ur way bobbo hobbo but is still dusnt work

  2. #2
    Join Date
    Aug 2007
    Location
    Vancouver
    Posts
    394
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    post the script plox

  3. #3
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Strongman, that happen to me, just close ever program and stuff thats running on youtr computer exept for scar and rs and it should work fine.

  4. #4
    Join Date
    Jun 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i tried ur way bobbo hobbo but is still dusnt work



    ANYONE GOT ideas

  5. #5
    Join Date
    Aug 2007
    Location
    Vancouver
    Posts
    394
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    you have some big waits in their, heres just one of them.
    SCAR Code:
    wait(7000+random(1000))
    that means it will wait about 8 seconds. so that might be the problem.
    also use mouse, click mouse will getcha banned!

  6. #6
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Set your mousespeed higher.

    MouseSpeed := 13;
    Interested in C# and Electrical Engineering? This might interest you.

  7. #7
    Join Date
    Jun 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    Set your mousespeed higher.

    MouseSpeed := 13;
    ok below program
    i put in var

    var
    x,y: Integer;
    i: Integer;
    MouseSpeed := 13;

    this is what i did but it says

    Line 9: [Error] (14690:1): Duplicate identifier 'MouseSpeed' in script

  8. #8
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by strongman View Post
    ok below program
    i put in var

    var
    x,y: Integer;
    i: Integer;
    MouseSpeed := 13;

    this is what i did but it says

    Line 9: [Error] (14690:1): Duplicate identifier 'MouseSpeed' in script
    put it inside the mainloop

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

    Default

    Your mainloop would look like this after the mousespeed put in

    SCAR Code:
    begin
    Mousespeed := 13  //i added the mousespeed here
    repeat
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter1;
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter2;
    check;
    login;
    check;
    betty;
    check;
    buyDC;
    logout1;
    Worldselecter3;
    until(false)
    end.

    someone a little better a scripter than i correct me if i'm wrong, but i think thats right
    Quote Originally Posted by That guy that wrote forefeathers
    <munklez>haha im too lazy, girls annoy me
    <munklez> they always wanna like, do stuff
    <munklez> and i just wanna program
    <munklez> and they always take all my money

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Slow script?
    By Floor66 in forum OSR Help
    Replies: 5
    Last Post: 12-29-2008, 09:11 AM
  2. Replies: 2
    Last Post: 03-02-2008, 09:26 AM
  3. Why is this so slow?
    By Jason2gs in forum OSR Help
    Replies: 4
    Last Post: 03-03-2007, 06:40 PM

Posting Permissions

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