Endless ranting and rude insults

[Dan Friedman]

function endlessRanting revUserAction
  switch revUserAction
  case "Whining"
    put 20 into minutesWasted
    put 0 into amountLearned
    put 0 into numFriendsMade
    break
  case "Ranting"
    put 10 into minutesWasted
    put 0 into amountLearned
    put 0 into numFriendsMade
    break
  case "Rude"
    put 20 into minutesWasted
    put 0 into amountLearned
    put -10 into numFriendsMade
    break
  default
    put random(1000000) into amountLearned
    put random(the number of lines in revUserBase) into numFriendsMade
    put 0 into minutesWasted
    break
  end switch
  
  return minutesWasted,amountLearned,numFriendsMade
end endlessRanting