Check this one out, I made it in ten minutes, so don't flame me!!!
Beginning:
Cls
Ink Rgb(255,0,0),1
Print "Do you wan't to install a cool file?"
Ink Rgb(0,255,0),1
Print "Y / N"
Do
If inkey$()="y" Then Goto Yea1
If inkey$()="n" Then Goto No
Loop
Yea1:
Cls : Ink Rgb(255,0,0),1
Print "Good"
Wait 3000
Ink Rgb(0,0,255),1
Print "Installing Files, Please Wait"
Ink Rgb(0,255,0),1
Wait 3000 : Print "."
Ink Rgb(255,0,0),1
Wait 2000 : Print ".."
Ink Rgb(0,0,255),1
Wait 2000 : Print "..."
Ink Rgb(0,255,0),1
Wait 2000 : Print "...."
Ink Rgb(255,0,0),1
Wait 2000 : Print "....."
Ink Rgb(0,0,255),1
Wait 2000 : Print "......"
Ink Rgb(0,255,0),1
Wait 2000 : Print "......."
Ink Rgb(255,0,0),1
Wait 2000 : Print "........"
Ink Rgb(0,0,255),1
Wait 2000 : Print "........."
Ink Rgb(0,255,0),1
Wait 2000 : Print ".........."
Cls : Wait 2000 : Print "Congratulations You Have Sucessfully Installed My Virus"
Wait 3000 : Print "Just To Let You Know, Theres No Way You Can Delete It!!!"
Wait 3000 : Print "I Hope You Like What It Does To Your Computer"
Wait 3000 : Cls Rgb(255,0,0) : Disable EscapeKey : Wait Mouse : End
No:
Cls : Ink Rgb(0,0,255),1
Print "Ok You May Have Made The Right Choice"
Wait 3000 : Disable EscapeKey : Wait Mouse : End
This pissed my mom off, lol!!!
Don't Wanna Be An American Idiot!
[href]www.tstimes.net/lkforum[/href]