Well, this was just a project to wait from 4:00 until 5:00 (between Christmas board games and Christmas Dinner, because visiting was just getting boring) so I really didn't spend much time on this, and I wasn't just covering my back
In fact, here is the short code:
rem Funny Virus
`disable escape
disable escapekey
hide mouse
rem Part with the skull
sync on
if path exist("c:/windows/desktop")=1 and file exist("c:/windows/desktop/FUNNY.txt")=0
open to write 1,"c:/windows/desktop/FUNNY.txt"
write string 1,"This is the Funny Prank Virus deal."
write string 1,"This Funny Prank does no real harm to your computer."
write string 1,"The key '36' is j"
close file 1
endif
load object "skull.x",1
scale object 1,10000,10000,10000
backdrop on
color backdrop rgb(0,0,0)
position object 1,0,0,0
position camera 0,0,-25
point camera 0,0,0
sync
sync on
mono#=0
time#=timer()
repeat
if keystate(56)=1 or keystate(184)=1 then execute file "funny.exe","none","",1
if keystate(62)=1 then execute file "funny.exe","none","",1
if keystate(15)=1 then execute file "funny.exe","none","",1
if timer()=>time#+5000 then center text 320,240,"Are you ready for the INFECTION???" : center text 320,254,"'Cuz you got HACKED!!!!!!!"
turn object right 1,5
sync
until timer()=>time#+7000
rem Second Monologue
sync on
time#=timer()
repeat
turn object right 1,5
if keystate(56)=1 or keystate(184)=1 then execute file "funny.exe","none","",1
if keystate(62)=1 then execute file "funny.exe","none","",1
if keystate(15)=1 then execute file "funny.exe","none","",1
if timer()=>time#+2000 then center text 320,240,"Don't press any buttons like 'Alt+F4' and 'Escape.'" : center text 320,254,"They won't work!!!!"
sync
until timer()=>time#+7000
delete object 1
backdrop off
`second window
sync on
set window on
set window title "You've been infected with the 'Funny Virus'!!!!"
set window size 320,240
set window layout 0,0,0
show window
`set exit prompt
exit prompt "Funny Virus","This has just been a joke virus that you can pull pranks on with your friends!"
`start the virus;-)
time#=timer()
randomize timer()
sync
sync on
repeat
if keystate(56)=1 or keystate(184)=1 then execute file "funny.exe","none","",1
if keystate(62)=1 then execute file "funny.exe","none","",1
if keystate(15)=1 then execute file "funny.exe","none","",1
cls rgb(rnd(255),rnd(255),rnd(255))
if keystate(66)=0 then set window position rnd(800),rnd(600)
sync
until timer()>time#+12000
`End Window
sync on
set window size 800,600
set window title "You got pranked!!!!"
cls
set window position 0,0
repeat
if keystate(56)=1 or keystate(184)=1 then execute file "funny.exe","none","",1
if keystate(62)=1 then execute file "funny.exe","none","",1
if keystate(15)=1 then execute file "funny.exe","none","",1
cls rgb(255,0,0)
ink rgb(255,255,255),1
center text screen width()/2,screen height()/2,"I think you've suffered enough!"
center text screen width()/2,screen height()/2+28,"Press key '36' to exit"
sync
until keystate(36)=1
endQuote: "I would hope that you're smart enough not to post it on this forum."
I'm probably not going to anyway, but if I did I wouldn't release it as a virus, I would just do it to my friends, and have a thing where you hit a certain key and it reboot normally, or something like that.
But, I realize this program isn't very good and I wouldn't really recommend it as a great prank program, so, let us let this thread die in peace. Do I hear an "amen?"
