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
}