Something

up { return $upper($left($1,1)) $+ $right($1,-1) $2- }
/.remove nicks.txt
alias whoson1 {
  set %num $nick($chan,0)
  set %z 0
  while (%z < %num) {
    inc %z 1
    /write nicks.txt $nick($chan,%z)
  }
  return
}
on *:TEXT:!spin*:#:{
  whoson1
  timer 1 1 msg $chan  $up($nick) starts to spin the bottle...
  timer 1 3 msg $chan  it starts to slow down and comes to a stop on...
  timer 1 4 msg $chan  $nick(#,$rand(1,$nick(#,0,a))) - Heres a rubber, and theres the closet
}