i ned help looping my procedurs , and when 2 begin and start a loop!

ok so here is my script its for a game called neverland online...

ok so it works only once then it stops. i need for it to loop forever...

ok so here is the script details. -- battleinstagator clicks bitmaps to move the character untill
a monster/monsters show.

-- monsterkill clicks the position of the monster to initiate a character attack.

---------------------------------------------

ok so here's the deal, i need battlejnstagator to loop until monstakill starts.... and to restart the loop after monstakill has finished..
as for monstakill i need it to begin and loop at the proper timing (beginning when battleinstagator stops loops and ending when battle instagator restarts its loop) so jt can run smoothly...

Code:

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.

well i am no code monky id appreciate some help as i shall give credit to the script helpa !11
thank you for reading this and may we learn to the mastery our teachers have built us to fly.

 

working on it give me a min

 

Code:

program goodmenhavepenis;
var
nbmp,lowid,highid,x,y:integer;

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


function battleinstagator:boolean;
begin
  if(findbitmap(lowid,x,y))then
  begin
    wait(2000);
    clickmouse(x,y,true);
  end;
  if(findbitmap(highid,x,y))then
  begin
    wait(2000);
    clickmouse(x,y,true);
  end;
  result:= findbitmap(nbmp,x,y)
end;


procedure monsterkill;
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;

// Main loop//
begin
cleardebug;
activateclient;
repeat
while(not(battleinstagator))do
monsterkill;
until(false);
end.

this should work not 100% sure what you were meaning