Results 1 to 6 of 6

Thread: Need some help, first ever script. (Power Wcer)

  1. #1
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need some help, first ever script. (Power Wcer)

    First of all, i'm a complete newb to scripting. I've just been reading WhoCares357's lovely beginners guide, and i decided to throw a few things together and try make my own oak power woodcutter... failed of course, and i need some help, I know it has no AntiRandoms, etc, i just want to get this working before i start other stuff .
    This is what i have so far, the bitmap is of the "n O" of 'Chop down Oak" that appears when you put your cursor over an oak tree. I'm also not sure how to end the script, help would be appreciated.
    Also, i get a "Line 27: [Error] (27:1): Semicolon (';') expected in script" when i try to run it.. Any help or advice would be awesome, thanks.

    SCAR Code:
    program PowerWoodcutter;

    var
    Oak: Integer;
    x,y: Integer;

    const
    OakColour = 4559234;

    procedure LoadBmps;
    begin
      Oak := BitmapFromString(23, 14, 'beNrVkTEKwCAQBIUU2qn/f5FYx' +
           'E79TTbZIEEJJGeaLFPsITeFp9R/42siswZvlhiAwOBq2vEGYJR5YM' +
           'AWDeOI5LKCUhMRS2IMwDrNIpbAANivr28lrX8iYe/SLtJd6pTkR5L' +
           'mGQ2Mtbot8nNub32sj4apbO5fg8Y=');

    end;

    procedure UseBitmap;
    begin
    if(FindBitmapIn(Oak,x,y,0,0,250,30)) then
     begin
       Wait(1000+random(200));
       ClickMouse(x,y,true);
     end else;
     
    begin;               // line 27 <--
    if(FindColor(x,y,OakColour,0,0,514,335)) then
     begin
       MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
       Wait(100+random(10));
       ClickMouse(x,y,true);
     end;
     
    end;
    begin;
    wait(1000)
    end.

  2. #2
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    program PowerWoodcutter;

    var
      Oak: Integer;
      x,y: Integer;

    const
      OakColour = 4559234;

    procedure LoadBmps;
    begin
      Oak := BitmapFromString(23, 14, 'beNrVkTEKwCAQBIUU2qn/f5FYx' +
           'E79TTbZIEEJJGeaLFPsITeFp9R/42siswZvlhiAwOBq2vEGYJR5YM' +
           'AWDeOI5LKCUhMRS2IMwDrNIpbAANivr28lrX8iYe/SLtJd6pTkR5L' +
           'mGQ2Mtbot8nNub32sj4apbO5fg8Y=');
    end;

    procedure UseBitmap;
    begin
      if(FindBitmapIn(Oak,x,y,0,0,250,30)) then
      begin
        Wait(1000+random(200));
        ClickMouse(x,y,true);
      end else
      if(FindColor(x,y,OakColour,0,0,514,335)) then
      begin
        MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20); // <- USE MMOUSE
         Wait(100+random(10));
         ClickMouse(x,y,true);  <- USE MOUSE
      end;
    end;
    begin;
      wait(1000)
    end.

    Okay, there is your correct code... More or less.

    DO NOT USE MOVEMOUSE OR CLICKMOUSE! USE MOUSE AND MMOUSE!

    SCAR's original procedures are completely detectable. DO NOT use them.

    Also, instead of the bitmap you should just use SRL's function:
    SCAR Code:
    IsUpText(UpText: String): Boolean
    Works like a dream, and makes it so you don't have to make a bitmap for every text you need.

    Finally, watch your standards. Make sure you read the guide on standards in the Beginners Tutorial section. The Sticky one.

    Anyways, good luck with your script, if you need more help. Add my msn, or pm me.

    *Edit: Your issue was, you had a ; after end else its not needed. Also, you had one after the begin on the line after that.

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  3. #3
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the response, i thought my standards were pretty good, ^_^

    edit: now i get a "Line 27: [Error] (27:1): Unknown identifier 'MMouse' in script"

    :/

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by orange View Post
    Thanks for the response, i thought my standards were pretty good, ^_^

    edit: now i get a "Line 27: [Error] (27:1): Unknown identifier 'MMouse' in script"

    :/
    You have to include SRL.

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks again

  6. #6
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    No problem

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. 50+ Script Pack(Flaxer, Fisher, Trainer, Wcer)
    By jaxjoker in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-27-2009, 06:55 AM
  2. Power cutter First script
    By dallas574 in forum First Scripts
    Replies: 1
    Last Post: 04-30-2008, 01:40 AM
  3. SmAcKmE Power Wcer v1.1 (Need Testers)
    By SmAcKmE in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 05-20-2007, 12:17 AM
  4. SmAcKmE Power Wcer
    By SmAcKmE in forum First Scripts
    Replies: 1
    Last Post: 05-19-2007, 06:21 PM
  5. power wcer
    By haurp00ned in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 05-07-2007, 05:00 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
  •