SRL Archive - Other Scripts

MSN Super auto-nudger

aznrx

2006-08-24 16:57:18

Aznrx Msn Auto Nudger


////////////////////////////////////////////////////////////////////////
// AZNRX MSN SUPER NUDGER v2.3                                        //
////////////////////////////////////////////////////////////////////////
// Description - Opens an Msn conversation window with someone then   //
//               either nudges, blocks, spams or ALL THREE!           //
//               Then closes it and repeats selected options.         //         
////////////////////////////////////////////////////////////////////////
// Notes - Will only work if victims mini display picture icon        //
//         (The one beside their name on your buddy list) is colored. //
//       - If you want to test this out on a computer run account,    //
//         add smarterchild to your buddy list.                       //
//       - Try to pick a unique color for Instruction 3.              //
//       - Progress report is buggy, feel free tell me how to make    //
//         it better.                                                 //
//       - Thanks to Janilabo for x1, x2, y1, y2 idea.                //
////////////////////////////////////////////////////////////////////////
// Instructions -                                                     //
////////////////////////////////////////////////////////////////////////
//  1. Have Msn messenger client open, nothing blocking your victims  //
//     mini display icon.                                             //
//  2. Press play or type Ctrl + Alt + R or hit the F9 button.        //
//  3. Click Select Color button and select your victims mini display //
//     picture icon (The one beside their name on your buddy list).   //
//  4. Next, fill in all the other neccessary fields.                 //
////////////////////////////////////////////////////////////////////////

program MsnNudger;
var
  many  : integer;
  color : integer;
  color2: integer;
  x,y   : integer;
  x1,y1 : integer;
  x2,y2 : integer;
  count : integer;
  nudge : Integer;
  nudgee: integer;
  Block : Integer;
  blockee: integer;
  spamee : integer;
  frmDesign : TForm;
  Banner : TLabel;
  Label1 : TLabel;
  TimesT : TLabel;
  whatspam : TLabel;
  Button1 : TButton;
  HowMany : TEdit;
  Start : TButton;
  Button2 : TButton;
  Bottomright : TButton;
  Nudgebox : TCheckBox;
  Blockbox : TCheckBox;
  Spambox : TCheckBox;
  say : TEdit;
  SayS  : String;

////////////////////////////////////////////////////////////////////////

Procedure LoadDTMBlock;
begin
 Block := DTMFromString('78DA63CC63646008634001D72420342394CF3' +
       '80FC8B24755F37D9231AA9A0E202B1855CDD53B2F51D5880359CE' +
       'A86A1816A3A9F90424FC5195EC3B7A17558D02A69B5DA7EF40555' +
       '38DE9E6753B6FA2A80100CEE91260');
end;

////////////////////////////////////////////////////////////////////////

Procedure LoadDTMNudge;
begin
 Nudge := DTMFromString('78DA63D4676460F8C480020E1519816946289' +
       'F3117C80A435573C55909554D2790158AAA263A6716AA1A5620EB' +
       '39AA9A1F3B97A0AA01B1DEA0AA796BA088AA8619C8FA82AAC6386' +
       '539AA1A7120CB09554DDE89BD286A0080EC10C4');
end;
////////////////////////////////////////////////////////////////////////

procedure report;
begin
if (Nudgebox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You nugged victim '+IntToStr(nudgee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (Blockbox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You blocked victim '+IntToStr(blockee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (spambox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You spammed victim '+IntToStr(spamee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (Blockbox.checked) and (Nudgebox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You nugged victim '+IntToStr(nudgee)+' times')
writeln(' You blocked victim '+IntToStr(blockee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (spambox.checked) and (Nudgebox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You nugged victim '+IntToStr(nudgee)+' times')
writeln(' You spammed victim '+IntToStr(spamee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (Blockbox.checked) and (spambox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You spammed victim '+IntToStr(spamee)+' times')
writeln(' You blocked victim '+IntToStr(blockee)+' times')
writeln('============================================')
writeln('')
writeln('')
end else
if (Blockbox.checked) and (Nudgebox.checked) and (Spambox.checked)=true then
begin
ClearDebug;
writeln('============================================')
writeln('             [ AznRx Created ]              ')
writeln('============================================')
writeln(' You nugged victim '+IntToStr(nudgee)+' times')
writeln(' You blocked victim '+IntToStr(blockee)+' times')
writeln(' You spammed your vitctim '+IntToStr(spamee)+' times')
writeln('============================================')
writeln('')
writeln('')
end;
end;
////////////////////////////////////////////////////////////////////////

procedure buttonclick(sender: TObject);
begin
  pickcolor(color,x,y)
end;

procedure buttonclick2(sender: TObject);
begin
  pickcolor(color2,x1,y1)
end;

procedure buttonclick3(sender: TObject);
begin
  pickcolor(color2,x2,y2)
end;

////////////////////////////////////////////////////////////////////////

procedure openvictim;
begin
if(findcolor(x,y,color,x1,y1,x2,y2))then
begin
      clickmouse(x,y,True);
      wait(100)
      clickmouse(x,y,True);
      wait(500)
end;
end;

////////////////////////////////////////////////////////////////////////

procedure NudgeN;
begin
  if(FindDTM(nudge,x,y,4, 30,1027, 740)=True)then
  begin
   wait(200)
   clickmouse(x,y,True);
   wait(900+random(1000))
   Nudgee:=Nudgee+1;
  end;
end;

procedure BlockB;
begin
  if(FindDTM(block,x,y,4, 30,1027, 740)=True)then
  begin
   wait(200)
   clickmouse(x,y,True);
   wait(200)
   clickmouse(x,y,True);
   wait(800+random(1000))
   Blockee:=Blockee+1;
  end;
end;

procedure SpamS;
begin
if(FindDTM(nudge,x,y,4, 30,1027, 740)=True)then
  begin
   wait(200)
   movemouse(x,y+20);
   clickmouse(x,y+20,true);
   sendkeys(SayS+chr(13));
   wait(800+random(1000));
   Spamee:=Spamee+1;
  end;
end;

////////////////////////////////////////////////////////////////////////

procedure closevictim;
begin
Sendkeys(chr(27));
wait(800+random(1000)) // so it doesnt lag up your computer
end;

////////////////////////////////////////////////////////////////////////

Procedure DeclareVar;
begin
  many := StrToInt(howmany.Text);
  SayS := String(say.text);
end;

Procedure ButtonClick5(sender: TObject);
begin
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 276;
frmDesign.Height := 262;
frmDesign.Caption := 'AznRx Msn Nudger ';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Banner := TLabel.Create(frmDesign);
Banner.Parent := frmDesign;
Banner.Left := 9;
Banner.Top := 8;
Banner.Width := 250;
Banner.Height := 41;
Banner.Cursor := crCross;
Banner.Caption := 'AznRx  Msn Nudger';
Banner.Color := clBtnFace;
Banner.Font.Color := clSilver;
Banner.Font.Height := -33;
Banner.Font.Name := 'Impact';
Banner.Font.Style := [];
Banner.ParentColor := False;
Banner.ParentFont := False;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 60;
Label1.Top := 167;
Label1.Width := 85;
Label1.Height := 13;
Label1.Caption := 'Nudge your victim';
TimesT := TLabel.Create(frmDesign);
TimesT.Parent := frmDesign;
TimesT.Left := 176;
TimesT.Top := 167;
TimesT.Width := 24;
TimesT.Height := 13;
TimesT.Caption := 'times';
whatspam := TLabel.Create(frmDesign);
whatspam.Parent := frmDesign;
whatspam.Left := 18;
whatspam.Top := 135;
whatspam.Width := 72;
whatspam.Height := 13;
whatspam.Caption := 'What to spam :';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @buttonclick;
Button1.Left := 14;
Button1.Top := 63;
Button1.Width := 73;
Button1.Height := 25;
Button1.Cursor := crCross;
Button1.Hint := 'Set mini display color';
Button1.Caption := 'Set Color';
Button1.ParentShowHint := False;
Button1.ShowHint := True;
Button1.TabOrder := 8;
HowMany := TEdit.Create(frmDesign);
HowMany.Parent := frmDesign;
HowMany.Left := 151;
HowMany.Top := 165;
HowMany.Width := 19;
HowMany.Height := 18;
HowMany.TabOrder := 9;
HowMany.Text := '10';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.OnClick:= @buttonclick5;
Start.Left := 12;
Start.Top := 193;
Start.Width := 244;
Start.Height := 25;
Start.Cursor := crCross;
Start.Caption := 'Start Madness';
Start.TabOrder := 10;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.OnClick:= @buttonclick2;
Button2.Left := 101;
Button2.Top := 63;
Button2.Width := 75;
Button2.Height := 25;
Button2.Hint := 'Top left of your victims mini display pic';
Button2.Caption := 'Top Left';
Button2.ParentShowHint := False;
Button2.ShowHint := True;
Button2.TabOrder := 11;
Bottomright := TButton.Create(frmDesign);
Bottomright.Parent := frmDesign;
Bottomright.ONCLICK:= @buttonclick3;
Bottomright.Left := 186;
Bottomright.Top := 63;
Bottomright.Width := 75;
Bottomright.Height := 25;
Bottomright.Hint := 'Bottom right of your victims mini display pic';
Bottomright.Caption := 'Bottom Right';
Bottomright.ParentShowHint := False;
Bottomright.ShowHint := True;
Bottomright.TabOrder := 12;
Nudgebox := TCheckBox.Create(frmDesign);
Nudgebox.Parent := frmDesign;
Nudgebox.Left := 14;
Nudgebox.Top := 94;
Nudgebox.Width := 52;
Nudgebox.Height := 17;
Nudgebox.Caption := 'Nudge';
Nudgebox.TabOrder := 13;
blockbox := TCheckBox.Create(frmDesign);
blockbox.Parent := frmDesign;
blockbox.Left := 101;
blockbox.Top := 94;
blockbox.Width := 46;
blockbox.Height := 17;
blockbox.Caption := 'Block';
blockbox.TabOrder := 14;
Spambox := TCheckBox.Create(frmDesign);
Spambox.Parent := frmDesign;
Spambox.Left := 186;
Spambox.Top := 94;
Spambox.Width := 49;
Spambox.Height := 17;
Spambox.Caption := 'Spam';
Spambox.TabOrder := 15;
say := TEdit.Create(frmDesign);
say.Parent := frmDesign;
say.Left := 93;
say.Top := 131;
say.Width := 167;
say.Height := 21;
say.TabOrder := 16;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

function ShowFormModal: Boolean;
begin
  Result:= False;
  if(frmDesign.ShowModal = mrOk)then
    Result:= True;
end;

function SafeShowFormModal: Boolean;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  result:= ThreadSafeCall('ShowFormModal', v);
end;

////////////////////////////////////////////////////////////////////////

begin
count:=0;
nudgee:=0;
blockee:=0;
spamee:=0;

LoadDTMNudge;
LoadDTMBlock;
activateclient;
SafeInitForm;
SafeShowFormModal;
declarevar;

repeat

openvictim;
report;

if (nudgebox.checked)=true then
begin
NudgeN;
end;

if (Blockbox.checked)=true then
begin
BlockB;
end;

if (spambox.checked)=true then
begin
SpamS;
end;

closevictim;
count:=count+1
report;
until(count=many);
end.

Please post feedback, comments, bugs, or how I can improve, here.
- Aznrx

aznrx

2006-08-27 15:40:41

11 views no replies!? common leave some feedback

XX Replay XX

2006-10-03 07:04:44

i pissed so many people off with this lol i got blocked by like 9 people it was fucking funny nice job man pretty good scripting too

gansta

2006-10-06 21:16:31

sweet i so want to try it

Martin

2006-10-07 10:31:22

Lol nice script, you should tell people to download www.a-patch.tk so that you can get no waiting time until next nudge

botmaster

2006-11-21 15:02:30

MMMh… by the looks of it its a nice script, would be better if you uploaded it though and attached it to your post, otherwise people have to copy + paste it into SCAR, which sometimes results in garbled code that needs to be cleaned up.

Haven't managed to get it to run yet, still cleaning up the mess it left while pasting; half of the stuff is in comments :\. By the looks of it a very annoying (potentially deadly) script! :mrgreen:

GoF

2006-12-09 13:18:13

Yea, well good job, but nudgebombing is easy to do with cheat engine too by freezing the value of the timer to 1 (changes to 0 for like 20 seconds when u nudge)… And theres programs to spam too… Just set ur smilies off and put a shitload of smilies in the message (note: close the conversation if u started it with smilies on…) And just hit ctrl+alt+V and enter and repeat fast, will make the person lag ALOT. Did that to my friend and he died in wild and lost stuff… Was pissed. But a good script i guess.

hootman

2007-01-29 02:37:49

nice

WhoCares357

2007-01-29 12:45:04

Like those forms :) Good job.

Lorax

2007-01-29 13:55:25

I am not fond of such scripts, I don't really see the purpose..
But othervise (except the concept) I think it looks okay, forms and such ..