alias epenis {

  ; Set current length variables (inches & centimeters),
  ; using a square root function to determine erection size.
  ;
  var %up = $uptime(system,3)
  var %in = $sqrt($calc(0.0005 * %up))
  var %cm = %in * 2.540

  ; If no record is set, or current uptime exceeds record
  ; uptime, set/adjust stored record value.
  ;
  if ((%sysuptime !isnum) || (%sysuptime < %up)) {
    set %sysuptime %up
  }

  ; Set record values.
  ;
  var %r.in = $sqrt($calc(0.0005 * %sysuptime))
  var %r.cm = %r.in * 2.540

  ; No more than 2 decimals to keep it legible.
  ;
  %in = $round(%in,2)
  %cm = $round(%cm,2)
  %r.in = $round(%r.in,2)
  %r.cm = $round(%r.cm,2)

  ; Proceed to show my (big) erection to the rest/a friend.
  ;
  say 14Based on the uptime of my4 XP 14box, $&
    my e-Penis is4 %in inches ( $+ %cm cm) 14erect! ( $+ $uptime(system,1) $+ ) $&
    14Largest erection ever was4 %r.in inches ( $+ %r.cm cm) $+ 14! ( $+ $duration(%sysuptime) $+ )
}


; Check current uptime against record upon exiting mIRC.
;
on *:exit:{

  ; If no record is set, or current uptime exceeds record
  ; uptime, set/adjust stored record value.
  ;
  if ((%sysuptime !isnum) || (%sysuptime < $uptime(system,3))) {
    set %sysuptime $uptime(system,3)
  }