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
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
