| View previous topic :: View next topic |
| Author |
Message |
ColdDoT
Grandmaster Cheater
 Reputation: 0
Joined: 18 May 2006
Posts: 703
Location: The netherlands
|
 Posted: Fri Apr 20, 2007 8:31 am Post subject: [Pointless Release]NudgeIt |
 |
|
THIS IS POINTLESS
Now it becomes a hipe to have a nudge in your engine
(credits to spuce i think, Kaspesky used also nudge)
So here is the code for it (made in 3 minutes)
| Code: | procedure TMainForm.NudgeItClick(Sender: TObject);
var
i, storex, storey : integer;
begin
storex := MainForm.Left;
storey := MainForm.Top;
For i := 1 to 25 do begin
MainForm.Left := MainForm.Left + RandomRange(-3, 3);
MainForm.Top := MainForm.Top + RandomRange(-3, 3);
Sleep(5);
end;
MainForm.Left := storex;
MainForm.Top := storey;
end; |
And around rule 363 add this
| Code: | | procedure NudgeItClick(Sender: TObject); |
And put a button on your forum and name it NudgeIt and dubbel click on it
(if this does not work's then add a onclick event on it)
Greets ColdDoT
_________________
Last edited by ColdDoT on Fri Apr 20, 2007 12:40 pm; edited 1 time in total |
|
| Back to top |
|
 |
the_undead
Expert Cheater
 Reputation: 1
Joined: 12 Nov 2006
Posts: 235
Location: Johannesburg, South Africa
|
| Posted: Fri Apr 20, 2007 11:21 am Post subject: |
|
|
wtf is the point
_________________
|
|
| Back to top |
|
|
ColdDoT
Grandmaster Cheater
Reputation: 0
Joined: 18 May 2006
Posts: 703
Location: The netherlands
|
| Posted: Fri Apr 20, 2007 12:04 pm Post subject: |
|
|
| the_undead wrote: | | wtf is the point |
wtf is this for comment ????
I only provide it for u guys so people dont have to reinvent the will 
_________________
|
|
| Back to top |
|
|
the_undead
Expert Cheater
Reputation: 1
Joined: 12 Nov 2006
Posts: 235
Location: Johannesburg, South Africa
|
| Posted: Fri Apr 20, 2007 12:16 pm Post subject: |
|
|
reinvent the will? Dont you mean "wheel"?
You talk about it like its amazingly revolutionary code or something. Its pointless. Totally pointless. Kaspersky and associated "coders" have got no originality and fill their engines with useless gimmicky crap... ...like this.
_________________
|
|
| Back to top |
|
|
ColdDoT
Grandmaster Cheater
Reputation: 0
Joined: 18 May 2006
Posts: 703
Location: The netherlands
|
| Posted: Fri Apr 20, 2007 12:39 pm Post subject: |
|
|
i never said this is revolutionarie ?
ya sorry for will *** ment to be wheel
Ok lemme change it in Pointless release
_________________
|
|
| Back to top |
|
|
the_undead
Expert Cheater
Reputation: 1
Joined: 12 Nov 2006
Posts: 235
Location: Johannesburg, South Africa
|
| Posted: Fri Apr 20, 2007 12:43 pm Post subject: |
|
|
Sorry if I came off as though I'm flaming or something... just saying 
_________________
|
|
| Back to top |
|
|
ColdDoT
Grandmaster Cheater
Reputation: 0
Joined: 18 May 2006
Posts: 703
Location: The netherlands
|
| Posted: Fri Apr 20, 2007 12:51 pm Post subject: |
|
|
| the_undead wrote: | | Sorry if I came off as though I'm flaming or something... just saying |
No problem
(To bad that a lot of people are trying to act cool *i think i'm to included a bit*)
_________________
|
|
| Back to top |
|
|
ESPN8theocho
Master Cheater
 Reputation: 0
Joined: 02 Sep 2006
Posts: 252
Location: Data.Wz
|
| Posted: Sat Apr 21, 2007 12:32 am Post subject: |
|
|
old news...but
i have a different one in mine O_o
| Code: | procedure TMainForm.Shake1Click(Sender: TObject);
var
N : Integer; //Counter
TL,TT : Integer; //Backup for LEFT and TOP of teh FORM
begin
TL := Left; //Backups Left of the Form
TT := Top; //Backups Top of the Form
//*********************************************************************
for N:=1 to 100 do begin //Counter Time
Left:= (TL-10) + (Random(20)); {Shake Range in Horizontal Driection}
Top := (TT-10) + (Random(20)); {Shake Range in Vertical Driection}
end;
//*********************************************************************
Left := TL; //Restores Left of the Form
Top := TT; //Restores Top of the Form
Refresh;
end;
|
creds to meh =)
_________________
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
