SRL Archive - Other Scripts

I use this when i'm away from the computer, (If you talk to me on msn, you've probably seen it).

It's very basic, but works great. If you have a screen saver it will move the mouse every 55 seconds (The lowest screen saver wait time is 1 minute, So no matter what it avoids Screen Saver).

Clicks on the person, sends a message, then minimizes it and continues waiting.

The "StatusM" const is just a status thing. Layout of reply:

(StatusM) Auto Message: AutoMsg
[b](Away) Auto Message: I'M AWAY!![/b]

I think it works only for Blue taskbars (I used Blue) and screen resolution 1024, 768. <3

Const
  AutoMsg = 'I''M AWAY!!';
  StatusM = 'Away';
  ScreenSaver = True;

var
  backx, backy, kw, kh, count: Integer;

procedure ScreenSaverAvoid;
begin
  MoveMouseSmooth(random(kw), random(kh));
  SetTimeout(55, 'ScreenSaverAvoid');
end;

procedure MClick(x, y: integer; Left: boolean);
begin
  MoveMouseSmooth(x, y);
  wait(50);
  Clickmouse(x, y, left);
end;

function BeingTalkedTo(var x, y: integer): boolean;
begin
 if(findcolortolerance(x, y, 7957811, 97, 738, 1023, 767, 3))and
   (findcolortolerance(x, y, 11596996, 97, 738, 1023, 767, 3))and
   (findcolortolerance(x, y, 687333, 97, 738, 1023, 767, 3))then
  begin
    Backx:= x;
    Backy:= y;
   result:= true;
  end;
end;

procedure Minimize;
begin
  wait(50);
  MClick(Backx, Backy, true);
  Wait(200);
end;

procedure reply;
var
  x, y: integer;
begin
  if(BeingTalkedTo(x, y))then
 begin
   MClick(x, y, true);
   wait(500);
   sendkeys('('+StatusM+') Auto Message: '+AutoMsg+chr(13));
   wait(500);
   MiniMize;
   writeln('Replied.. ' + inttostr(count));
  count:= count + 1;
 end;
end;

begin
 count:= 1;
  cleardebug;
  getclientdimensions(kw, kh);
 if(ScreenSaver)then
   SetTimeout(55, 'ScreenSaverAvoid');
 repeat
   wait(2000);
   reply;
 until(false);
end.

Hmmm i did mine a bit differently. I had it set so when the pop up thing comes own in right hand of screen it would click it. And it had a bit map of the word says. So it wouldnt click when they were just signing in. But i think your way is better. :D

From: Pyro
Hmmm i did mine a bit differently. I had it set so when the pop up thing comes own in right hand of screen it would click it. And it had a bit map of the word says. So it wouldnt click when they were just signing in. But i think your way is better. :D

When you click someone on the taskbar you can just start typing instead of having to click in the box ;) Waste of time i reckon' - I'm going to go to school and leave it on all day, I'll see how it goes.

Lol whats with the bold. Yea i had it find the bitmap of the nudge squiggly face. Then click to a bit down and a bit to the left and it worked

I left it on for 8 hours and it replied to 74 people :) No errors at all.

;D

From: XxKanexX
I left it on for 8 hours and it replied to 74 people :) No errors at all.

;D

Well someones sure popular. I dont even think i have that many contacts lol

From: XxKanexX
I left it on for 8 hours and it replied to 74 people :) No errors at all.

;D

lol, If I got that many msgs, I would change my account name :p

I made somthing like this for my first script. It used a bitmap of the flashing orange bit, and if it would find it, then it would click it type your away message(no const :() and then close it.

From: Flyboy
lol, If I got that many msgs, I would change my account name :p

If someone Msg's me twice then it counts as 1 message. So some people played with it and tryed to make it stuff up.

Didn't happen ;)
I have around 170+ contacts though. (From my recollection)

ARGH :p, you ruined a convo with me, mopar, and ben when i invited you :p

Great job!

From: Sdcit
ARGH :p, you ruined a convo with me, mopar, and ben when i invited you :p

Great job!

Lol yeh i got back home and checked your convo :p It kept interupting when you talked to mopar or driger ;)

Damn Kane, you need to delete some of those contacts. I only have 46 on my private MSN, and that is mostly from people with double accounts (Like you, abby, Joel etc….).
On my noob MSN I problly have like 180+ people :p