SRL Archive - Other Scripts

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+zrtvz7luz7VrzLJovr' +
'ddkrQ51r9x1sFy0L5sxrRis7NTkrE61cBv08Nuy79pwLZdr7NSmLV' +
'B0cJvz8Vux8FpurldqrRRmR73Qjk=');
highid := BitmapFromString(6, 6, 'beNoBbACT/7t1qMNSpsNPpMNO' +
'osFMnr9Knb5JvcFgvMJeu8FducFctsFbs8BX0L1u0r1sz71rzr5pz' +
'L1oyb9m2rl23bh027h02Lpy17tx1L1v3bR83rR63bV63LZ42bh117' +
'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+zrtvz7luz7VrzLJovr' +
'ddkrQ51r9x1sFy0L5sxrRis7NTkrE61cBv08Nuy79pwLZdr7NSmLV' +
'B0cJvz8Vux8FpurldqrRRmR73Qjk=');
highid := BitmapFromString(6, 6, 'beNoBbACT/7t1qMNSpsNPpMNO' +
'osFMnr9Knb5JvcFgvMJeu8FducFctsFbs8BX0L1u0r1sz71rzr5pz' +
'L1oyb9m2rl23bh027h02Lpy17tx1L1v3bR83rR63bV63LZ42bh117' +
'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.

please repost it in either

 or [scar] tags so i can actually read it =)

From: TomTuff
please repost it in either

 or [scar] tags so i can actually read it =)

Here ya go.

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.