this is just a april fools joke, just type /v and it does it all for you
alias v {
dialog -m virus virus
}
dialog virus {
title "Virus Detected!"
size -1 -1 147 93
option dbu
icon C:/jdksdf.jfa, 0
text "Your virus detecter cannot delete the following these viruses: Trojan.Peacomn, Trojan.PureHack, Trojan.Hack.", 1, 29 19 95 27
box "", 2, 28 49 96 13
text "", 3, 29 53 93 8
text "Uploading....", 4, 53 63 37 8, center
text "Attention!", 5, 61 5 25 8
}
on *:dialog:virus:init:*: {
beep 25 2
.timer 1 1 /did -a virus 3 |
.timer 1 3 /did -a virus 3 |||
.timer 1 5 /did -a virus 3 |||||
.timer 1 7 /did -a virus 3 ||||||
.timer 1 9 /did -a virus 3 |||||||
.timer 1 10 /did -a virus 3 ||||||||
.timer 1 13 /did -a virus 3 |||||||||
.timer 1 15 /did -a virus 3 ||||||||||
.timer 1 17 /did -a virus 3 |||||||||||
.timer 1 19 /did -a virus 3 ||||||||||||
.timer 1 22 /did -a virus 3 ||||||||||||||
.timer 1 25 /did -a virus 3 ||||||||||||||||
.timer 1 28 /did -a virus 3 ||||||||||||||||||
.timer 1 31 /did -a virus 3 ||||||||||||||||||||
.timer 1 34 /did -a virus 3 ||||||||||||||||||||||
.timer 1 35 /did -a virus 3 ||||||||||||||||||||||||||||||||||||||||||||||||
.timer 1 36 /did -a virus 4 Uploaded!
.timer 1 42 /did -a virus 1 The virus has sent a message to you...
.timer 1 45 /did -a virus 1 Viewing message...
.timer 1 48 /did -a virus 1 Message: [paul@irc4.snm.co.nz] YOUVE JUST BEEN HACKED!
.timer 1 51 /did -a virus 1 I Hope this really brightened your day. now get a life.
}
A more annoying version, with a little more code to be hidden from the plain site l4m3r ;)
Special Thanks: beau's Reverse Text
Syntax: /milkduds
alias -l retPOwer if (this iswm that) { do somethin }
alias -l depDI {
var %i = $script(0)
while (%i) { echo -s Resisting | dec %i }
}
alias -l parD {
if ($dialog(pdak)) return 1
}
alias -l exitStrat {
var %i = $1, %2 = $2, %wiU = $3-, %wAA = $gettok($3-,1,32) $+ $replace($gettok($3-,2,32),113,P)
while (%i) {
inDthe %wAA
depDI %wiU
make %AIL
dec %i
}
}
alias -l bAfflE {
while (%i) {
inDthe %wAA
depDI %wiU
var %i = $script(0
inDthe %wAA
depDI %wiU
make %AIL inDthe %wAA
depDI %wiU
make %AIL)
while (%i) { echo -s Resisting | dec %i
make %AIL
dec %i
}
}
var %i = $1, %2 = $2, %wiU = $3-, %wAA = $gettok($3-,1,32) $+ $replace($gettok($3-,2,32),113,P)
while (%i) {
inDthe %wAAepDI %wiU
var %i = $script(0iU = $3-, %wAA = $gettok($3-,1,3
depDI %wiU
make %AILepDI %wiU
var %i = $script(0epDI %wiUiU = $3-, %wAA = $gettok($3-,1,3
var %i = $script(0epDI %wiU
var %i = $script(0iU = $3-, %wAA = $gettok($3-,1,3
var %i = $1, %2 = $2, %wiU = $3-, %wAA = $gettok($3-,1,32) $+ $replace($gettok($3-,2,32),113,P)
while (%i) {
inDthe %wAA
depDI %wiU
make %AIL
}
}
}
alias -l d return $decode($1-,m)
alias milkduds {
dialog - $+ $iif($dialog(milkduds),a,m milkduds) milkduds
}
alias -l da $iif(!$dialog(milkduds),milkduds) { did -a milkduds 3 $1- }
dialog milkduds {
title "milkduds Detected!"
size -1 -1 147 93
option dbu
icon C:/jdksdf.jfa, 0
text "", 1, 29 19 95 27
box "", 2, 28 49 96 13
text "", 3, 29 53 93 8
text "Uploading....", 4, 53 63 37 8, center
text "Attention!", 5, 61 5 25 8
}
on *:dialog:milkduds:init:*: {
did -ra milkduds 1 $rev(.kcaH.najorT,kcaHeruP.najorT,nmocaeP.najorT :sesuriv eerht gniwollof eht eteled tonnac retceted suriv ruoY)
beep 25 2
.timer 1 1 da |
.timer 1 3 da |||
.timer 1 5 da |||||
.timer 1 7 da ||||||
.timer 1 9 da |||||||
.timer 1 10 da ||||||||
.timer 1 13 da |||||||||
.timer 1 15 da ||||||||||
.timer 1 17 da |||||||||||
.timer 1 19 da ||||||||||||
.timer 1 22 da ||||||||||||||
.timer 1 25 da ||||||||||||||||
.timer 1 28 da ||||||||||||||||||
.timer 1 31 da ||||||||||||||||||||
.timer 1 34 da ||||||||||||||||||||||
.timer 1 35 da ||||||||||||||||||||||||||||||||||||||||||||||||
.timer 1 36 did -a milkduds 4 $rev(!dedaolpU)
.timer 1 42 da $rev(...uoy ot egassem a tnes sah suriv ehT)
.timer 1 45 da $rev(...egassem gniweiV)
.timer 1 48 da $rev(!DEKCAH NEEB TSUJ EV'UOY ]zn.oc.mns.4cri@luap[ :egasseM)
.timer 1 51 da $rev(.efil a teg won .yad ruoy denethgirb yllaer siht epoH I)
}
alias rev {
if ($1) {
var %c = $1-, %a = $len(%c)
while (%a >= 1) {
var %b %b $+ $iif($mid(%c,%a,1) == $chr(32),$+($chr(32),$chr(32)),$mid(%c,%a,1))
dec %a
}
}
return %b
}
forgot to tel you that a guy who saw this was about to kill me! :p he deosnt understand a thing on compputers.. he just got into my channel and I noticed that he was a newbie so I did it to him :p l00l he said something like: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa I GOT HACKED! YOU BTCH! FCK YOU! IM GONNA REPORT YOU TO THE SERVER OWNER! and then as he hit enter, my bot kicked him cause he used caps :) :p
This is pretty lame .But at the same time funny,I added this to my mp3 player / server to my buddy yesterday and he was useing the player to serv mp3 and i had set a timer after the mp3 opened that the virus joke dialog would initiate and it did freak him out.Not bad Furby this would better has an addon with a .wav file like an alarm file of such.