Results 1 to 3 of 3

Thread: Help!!!!

  1. #1
    Join Date
    Jan 2008
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Help!!!!

    ?????????????????????????????????????????????????? ?????????????
    H E L P!!!!!!!!!!





    What has happened when you compile and it says "Identifier Expected" on the "end." line.
    What do i do?
    post back for details.


    SCAR Code:
    {============================================
              G I N O  and  B E R T

                    Presents
           
      A   U   T   O   -   C  H   O   P   P   E   R
    ===========================================}


    {Instructions:
    1) Drag crosshairs to RuneScape window
    2) Fill in Username and Password
    3) Press play and enjoy!

    ===========================================}


    program RunescapeLogger;

    var x,y,Tree:Integer;

    procedure LoadBmps;
    begin
      Tree := BitmapFromString(12, 12, 'beNqrl0qsl+JkZQSik0f3IyOI' +
           'YES9VARYAVxcsJRJt90aSIpOYoWrBKqBsPmCmSFSyAiuDFMNnLFiy' +
           'bxjh/ZA1EAUQBDcEKUDjEASqAbZEDQ1aDYC1cCVIdsFtxGuBqtpQA' +
           'UQNXBlQK6jFi+QBIYAmgIIgogE6vBAxOEKMIMXYg5mgCNzgWri7DW' +
           'QRTIBnEOytw==');
    end;

    procedure ExistingUser;
    begin
      MoveMouse(459,289);
      Wait(300);
      ClickMouse(459, 289, true);
      Wait(300);
    end;

    procedure TypeUserAndPass;
    begin
     SendKeys('donomonotor');  //Type your username in here
     Wait(1000);
     SendKeys(Chr(13));
     Wait(300);
     SendKeys('1g1i1n1o');  //Type your password in here
     Wait(500);
     MoveMouse(299,321);
     ClickMouse(299,321, true);

    end;

    procedure LogIn;
    begin
     MoveMouse(386,334);
     Wait(4000);
     Clickmouse(386,334, true);
    end;

    procedure GetToPlace;
    begin
     Wait(2000);
     MoveMouse(643,80);
     Wait(1500);
    end;

    procedure FindBmps;
    begin
    if(FindBitmap(tree,x,y))then
    begin
    MoveMouse(x,y);
    wait(200+random(100));
    ClickMouse(x,y,true);
    ClickMouse(x,y,true);
    end;

    begin
     ClearDebug;
     activateclient;
     Wait(700)
     LoadBmps;
     Wait(1000);
     ExistingUser;
     Wait(500);
     TypeUserAndPass;
     Wait(2500);
     LogIn;
     Wait(1500);
     GetToPlace;
     Wait(1000);
     FindBmps;
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    Belgium
    Posts
    333
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure FindBmps;
    begin
      if(FindBitmap(tree,x,y))then
      begin
        MoveMouse(x,y);
        wait(200+random(100));
        ClickMouse(x,y,true);
        ClickMouse(x,y,true);
      end;  // forget and end here
    end;

    Some extra advice:
    - Next time please use scar tags
    - fix your standards
    - don't use ClickMouse, it's detectable

  3. #3
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yep, Pyshor was right. This is like the 100th time I try and help but someone has beat me to it. So I can only offer more help by saying, just count your "begin"s and "case"s (I think those are the only two, not thinkin too hard atm), and make sure you have the same amount of "end"s.

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
  •