Sythe.org — A Virtual Goods Trading Hub

wantonman · #1 09-27-2010, 02:24 AM

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.

radiclerobby *BANNED* · #2 10-03-2010, 09:46 PM

working on it give me a min

radiclerobby *BANNED* · #3 10-03-2010, 09:52 PM

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

Sythe.org — A Virtual Goods Trading Hub

Take me to

Runescape Markets

Other Game Markets

Support Center

Register an Account