no need to make one line for each one. you can use $gettok as well useing 1 inc count to count each one. also you should use local vars by useing var %em
maybe somthing like this..

on *:TEXT:-emoticon-:#:{
  var %em =].=[.=D.=0.=|.=3.=F.=x, %ffs $gettok(%em,$r(1,8),46) 
  inc $+(%,emoticon,%ffs) 
  describe # 1,0randomly picks a emotion... 
  .timer 1 1 msg # 0,1 $+ %ffs 
  .timer 1 2 msg # 1,0You are number $($+(%,emoticon,%ffs),2) to see this emoticon. 
}