
Originally Posted by
TomTuff
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.