; /penis - A script by Katlyn Caswel (aka Dominic Quentin) [katlyn@swiftirc.net]
; To use, type /penis
; Sample output: <Katlyn>                   8==========D
; For bugs or comments, please e-mail me at the above address
; xoxo Katlyn ;]

alias penis {
  var %penis = $rand(1,32)
  var %shaftlength = $rand(1,15)
  var %jizzlength = $rand(1,10)
  var %constructlength = 1
  var %shaftconstructlength = 1
  var %jizzylength = 1
  unset %jizzy
  unset %shaftconstruct
  unset %construct
  while (%shaftconstructlength < %shaftlength) {
    %shaftconstruct = %shaftconstruct $+ =
    inc %shaftconstructlength
  }
  while (%constructlength < %penis) {
    var %construct = %construct $+ $chr(160)
    inc %constructlength
  }
  while (%jizzylength < %jizzlength) {
    var %jizz = %jizz $+ ~
    inc %jizzylength
  }
  msg $active %construct $+ 8 $+ %shaftconstruct $+ D $+ %jizz
}

; /hands - A script by Katlyn Caswel (aka Dominic Quentin) [katlyn@swiftirc.net]
; To use, type /hands [person-here] (If no person specified, will message entire channel or
; person you're PMing)
; Sample output: <Katlyn> \\o Throw yo \o/ hands \o/ up in the sky, Sephiroth o//
; For bugs or comments, please e-mail me at the above address
; xoxo Katlyn ;]

alias hands {
  var %x = 1
  if ($1 != $null) {
    say \\o Throw ya \o/ hands \o/ up in the sky, $1 o//
    return
  }
  elseif ($chan == $null) && ($1 == $null) {
    say \\o Throw ya \o/ hands \o/ up in the sky, $active o//
  }
  while ($nick($chan,%x)) {
    msg $chan \\o Throw ya \o/ hands \o/ up in the sky, $ifmatch o//
    inc %x
  }
}