I was VERY bored, so I looked up an 8ball script, and used part of it for the following script.
What you do is type !song.

on *:TEXT:!song*:#:{
  /set %song $rand(1,30)
  if (%song == 1) .msg $chan Dream Police
  if (%song == 2) .msg $chan All the Young Dudes
  if (%song == 3) .msg $chan Make It
  if (%song == 4) .msg $chan Uncle Salty
  if (%song == 5) .msg $chan Draw the Line
  if (%song == 6) .msg $chan I Hate Myself for Loving You
  if (%song == 7) .msg $chan All Day and All of the Night
  if (%song == 8) .msg $chan No Surprize
  if (%song == 9) .msg $chan Movin' Out
  if (%song == 10) .msg $chan Sweet Emotion
  if (%song == 11) .msg $chan Complete Control
  if (%song == 12) .msg $chan Personality Crisis
  if (%song == 13) .msg $chan Livin' on the Edge
  if (%song == 14) .msg $chan Rag Doll
  if (%song == 15) .msg $chan Love in an Elevator
  if (%song == 16) .msg $chan She Sells Sanctuary
  if (%song == 17) .msg $chan King of Rock
  if (%song == 18) .msg $chan Nobody's Fault
  if (%song == 19) .msg $chan Bright Light Fright
  if (%song == 20) .msg $chan Walk This Way (Run DMC)
  if (%song == 21) .msg $chan Hard To Handle
  if (%song == 22) .msg $chan Always On The Run
  if (%song == 23) .msg $chan Back in the Saddle
  if (%song == 24) .msg $chan Beyong Beautiful
  if (%song == 25) .msg $chan Dream On
  if ($song == 26) .msg $chan Cat Scratch Fever
  if (%song == 27) .msg $chan <Censored> Type Thing
  if (%song == 28) .msg $chan Mama Kin
  if (%song == 29) .msg $chan Toys in the Attic
  if (%song == 30) .msg $chan Train Kept a Rollin'
}