Results 1 to 3 of 3

Thread: Help with my script <0_0> plzy!!

  1. #1
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default Help with my script <0_0> plzy!!

    ok so here is a script for this game 天书奇谈-n1.hithere.com-NeverlandOnline
    and yeah well its an auto attkaer so i can lel up but the problen with my script is that my loop ends and i dont know how to restart it =x_x=





    program goodmenhavepenis;
    var
    nbmp,lowid,highid,x,y:integer;
    ////////////////////////////////////////////////////////////////////
    procedure
    battleinstagator;
    begin
    repeat
    nbmp := BitmapFromString(6, 6, 'beNoBbACT/2gi58Bh+NJv/+F28L' +
    'lcXhwAnFAS68By/9mF/+V90Jw3RAEArmAW//ay+M6GyKBIx5dCTAw' +
    'AuGog57p25sB/9dOWm3I8YygAxno8/9qK+dKN/96ukWZDbTENtmcs' +
    '/Mhi+Mx1/9+sr4FfczIIu/+FPKE=');
    lowid := BitmapFromString(6, 6, 'beNoBbACT/7RBwLhlw7ZnxbRmx' +
    '7FlvLdcn75Gx7psyrZtzLRszK9pvrdfl7k+zrtvz7luz7VrzL Jovr' +
    'ddkrQ51r9x1sFy0L5sxrRis7NTkrE61cBv08Nuy79pwLZdr7N SmLV' +
    'B0cJvz8Vux8FpurldqrRRmR73Qjk=');
    highid := BitmapFromString(6, 6, 'beNoBbACT/7t1qMNSpsNPpMNO' +
    'osFMnr9Knb5JvcFgvMJeu8FducFctsFbs8BX0L1u0r1sz71rz r5pz' +
    'L1oyb9m2rl23bh027h02Lpy17tx1L1v3bR83rR63bV63LZ42b h117' +
    'ty27J827J827R72LZ51bd30lBjRWw=');
    findbitmap(lowid,x,y);
    wait(2000);
    clickmouse(x,y,true);
    if
    findbitmap(highid,x,y)
    then
    wait(2000);
    clickmouse(x,y,true);
    until
    findbitmap(nbmp,x,y)
    end;
    //////////////////////////////////////////////////////////////////
    procedure
    monsterkill;
    begin
    repeat
    nbmp := BitmapFromString(6, 6, 'beNoBbACT/2gi58Bh+NJv/+F28L' +
    'lcXhwAnFAS68By/9mF/+V90Jw3RAEArmAW//ay+M6GyKBIx5dCTAw' +
    'AuGog57p25sB/9dOWm3I8YygAxno8/9qK+dKN/96ukWZDbTENtmcs' +
    '/Mhi+Mx1/9+sr4FfczIIu/+FPKE=');
    lowid := BitmapFromString(6, 6, 'beNoBbACT/7RBwLhlw7ZnxbRmx' +
    '7FlvLdcn75Gx7psyrZtzLRszK9pvrdfl7k+zrtvz7luz7VrzL Jovr' +
    'ddkrQ51r9x1sFy0L5sxrRis7NTkrE61cBv08Nuy79pwLZdr7N SmLV' +
    'B0cJvz8Vux8FpurldqrRRmR73Qjk=');
    highid := BitmapFromString(6, 6, 'beNoBbACT/7t1qMNSpsNPpMNO' +
    'osFMnr9Knb5JvcFgvMJeu8FducFctsFbs8BX0L1u0r1sz71rz r5pz' +
    'L1oyb9m2rl23bh027h02Lpy17tx1L1v3bR83rR63bV63LZ42b h117' +
    'ty27J827J827R72LZ51bd30lBjRWw=');
    if
    findbitmap(nbmp,x,y)
    then
    wait(4000);
    clickmouse(208,195,true);
    wait(4000);
    clickmouse(138,228,true);
    until
    findbitmap(lowid,x,y)
    or
    findbitmap(highid,x,y)
    end;
    //================================================== ===============
    begin
    cleardebug;
    activateclient;
    battleinstagator;
    monsterkill;
    end.

  2. #2
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    please repost it in either [simba] or [scar] tags so i can actually read it =)

  3. #3
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    Quote Originally Posted by TomTuff View Post
    please repost it in either [simba] or [scar] tags so i can actually read it =)
    Here ya go.

    Pascal Code:
    program GoodMenHavePenis;

    var
      nBMP, LowID, HighID: Integer;

    procedure LoadBMPs;
    begin
      nBMP := BitmapFromString(6, 6, 'beNoBbACT/2gi58Bh+NJv/+F28L' +
           'lcXhwAnFAS68By/9mF/+V90Jw3RAEArmAW//ay+M6GyKBIx5dCTAw' +
           'AuGog57p25sB/9dOWm3I8YygAxno8/9qK+dKN/96ukWZDbTENtmcs' +
           '/Mhi+Mx1/9+sr4FfczIIu/+FPKE=');

      LowID := BitmapFromString(6, 6, 'beNoBbACT/7RBwLhlw7ZnxbRmx' +
          '7FlvLdcn75Gx7psyrZtzLRszK9pvrdfl7k+zrtvz7luz7VrzL Jovr' +
          'ddkrQ51r9x1sFy0L5sxrRis7NTkrE61cBv08Nuy79pwLZdr7N SmLV' +
          'B0cJvz8Vux8FpurldqrRRmR73Qjk=');

      HighID := BitmapFromString(6, 6, 'beNoBbACT/7t1qMNSpsNPpMNO' +
          'osFMnr9Knb5JvcFgvMJeu8FducFctsFbs8BX0L1u0r1sz71rz r5pz' +
          'L1oyb9m2rl23bh027h02Lpy17tx1L1v3bR83rR63bV63LZ42b h117' +
          'ty27J827J827R72LZ51bd30lBjRWw=');
    end;

    ////////////////////////////////////////////////////////////////////

    procedure BattleInstagator;
    var
      x, y: Integer;
    begin
      repeat
        FindBitmap(LowID, x, y);
        Wait(2000);
        ClickMouse(x, y, True);
        if(FindBitmap(HighID, x, y))then
        begin
          Wait(2000);
          ClickMouse(x, y, True);
        end;
      until(FindBitmap(nBMP, x, y));
    end;

    //////////////////////////////////////////////////////////////////

    procedure MonsterKill;
    var
      x, y: Integer;
    begin
      repeat
        if(FindBitmap(nBMP, x, y))then
        begin
          Wait(4000);
          ClickMouse(208, 195, True);
          Wait(4000);
          ClickMouse(138, 228, True);
        end;
      until(FindBitmap(LowID, x, y)or(FindBitmap(HighID, x, y)));
    end;

    procedure ScriptTerminate;
    begin
      FreeBitmap(nBMP);
      FreeBitmap(LowID);
      FreeBitmap(HighID);
    end;

    //=================================================================

    begin
      ClearDebug;
      ActivateClient;
      LoadBMPs;
      BattleInstagator;
      MonsterKill;
    end.

    Doesn't work, I'm sure. Just compiles and looks better.

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
  •