Results 1 to 5 of 5

Thread: My dance (need help) (first script of my own

  1. #1
    Join Date
    Nov 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My dance (need help) (first script of my own

    SCAR Code:
    program FindDTM;
    {.include SRL/SRL.scar}

    Var
    DanceDTM:integer;
    DancingDTM:integer;

    Procedure LoadDTM;
    begin
      DanceDTM := DTMFromString('78DA633CC5C4C0F08891011998C9738169982' +
           '8E361A09ADBA86A60B2703507806AAE125073920835E7816AEE10' +
           '507316A8E619013567806ADE135073900835C7806A9EE0570300D' +
           '32D0F85');
           
      DancingDTM := DTMFromString('78DA637462626028636440066B56B18169982' +
           '8A327504D16AA1A982C5C8D23504D3A0135264035B904D49803D5' +
           '3412506304543381801A7B22CC01B9B993801A57A09A2944A8A92' +
           '3A0C607A8261FBF1A00B6FD09AD');

    end;

    Procedure FindIt;
    begin
     if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
      movemousesmooth(x, y);
       wait(1200);
        clickmouse(x, y, true);then
       if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
      movemousesmooth(x, y);
     wait(1400)
    clickmouse(x, y, true);
    end;

    begin
    LoadDTM;
    FindIt;
    end.



    I have no idea whats wrong it says

    Line 27: [Error] (15525:24): Identifier expected in script C:\Program Files\SCAR 2.03\Scripts\dance.scar

  2. #2
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is what i changed: first dont use movemousesmooth and clickmouse. use mouse instead. it moves and then clicks so its better and it isnt detectable.
    SCAR Code:
    program FindDTM;
    {.include SRL/SRL.scar}

    Var
    DanceDTM:integer;
    DancingDTM:integer;

    Procedure LoadDTM;
    begin
      DanceDTM := DTMFromString('78DA633CC5C4C0F08891011998C9738169982' +
           '8E361A09ADBA86A60B2703507806AAE125073920835E7816AEE10' +
           '507316A8E619013567806ADE135073900835C7806A9EE0570300D' +
           '32D0F85');

      DancingDTM := DTMFromString('78DA637462626028636440066B56B18169982' +
           '8A327504D16AA1A982C5C8D23504D3A0135264035B904D49803D5' +
           '3412506304543381801A7B22CC01B9B993801A57A09A2944A8A92' +
           '3A0C607A8261FBF1A00B6FD09AD');

    end;

    Procedure FindIt;
    begin
     if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
       Mouse( x, y, 4, 4, true);
       if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
     Mouse( x, y, 4, 4, true);
    end;

    begin
    setupsrl;
    LoadDTM;
    FindIt;
    end.

    thats what i changed and it compiles. ask if you need more info.

  3. #3
    Join Date
    Nov 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If u have an msn could you please pm me it i dont know what ur talking about with the mouse i know its with srl but.. i dont know to use it

    ive only been trying to learn scar for about 2 days :S

    ty it works there is massive lag when i try to make it repeat with
    SCAR Code:
    Procedure FindIt;
    begin
     if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
       Mouse( x, y, 4, 4, true);
        if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
      Mouse( x, y, 4, 4, true);
     repeat
    until(false)
    end;

  4. #4
    Join Date
    Nov 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, if you are going to use the SRL include (which I highly reccommend because all the other includes are out of date) then look through it very good first. Learn all of it's procedures / functions and then start your first script. You have to learn all of those in order to make a good script. And as XCanadamanX said above, don't use movemousesmooth and clickmouse, use MMouse and Mouse. You have to learn all of SRL's procedures and functions to make a good working script.

    - Da Der Der
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  5. #5
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ballistaboy View Post
    ty it works there is massive lag when i try to make it repeat with
    SCAR Code:
    Procedure FindIt;
    begin
     if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
       Mouse( x, y, 4, 4, true);
        if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
      Mouse( x, y, 4, 4, true);
     repeat
    until(false)
    end;
    You repeat whatever is in between Repeat and Until. So in this case you are repeating nothing. You throw the script into an endless loop with no waits that doesn't do anything, which is quite possibly the very best possible recipe for uber-lag.

    Just move your Repeat command up above what you want to repeat, and add a wait somewhere in the repeat loop and you should be fine.

    Code:
    Procedure FindIt;
    begin
      Repeat
        if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
          Mouse( x, y, 4, 4, true);
        if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
          Mouse( x, y, 4, 4, true);
        Wait(500);
      until(false)
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Kirby Dance!
    By Kyle Undefined in forum First Scripts
    Replies: 0
    Last Post: 11-29-2008, 09:30 AM
  2. Need help with a dance!!!
    By Death12652 in forum Blogs and Writing
    Replies: 11
    Last Post: 11-03-2008, 03:19 PM
  3. Dance anyone?
    By starlightning in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 07-20-2007, 11:43 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
  •