Stuff

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 7Based on the uptime of my12 Xp 7box, $&
    my e-Penis is12 %in inches ( $+ %cm cm) 7erect! $&
    Largest erection ever was12 %r.in inches ( $+ %r.cm cm) $+ 7! 
}


; 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)
  }

}