Random emoticon

By dull on Apr 28, 2008

when somebody typed -emoticon-, your nick automaticly chooses a emoticon. with installed counter.
I only posted it for fun... hope you enjoy it.

on *:TEXT:-emoticon-*:#:{
  /set %em $rand(1,8)
  if (%em == 1) { inc %1s | describe # 1,0randomly picks a emotion... | msg # 0,1=] | msg # 1,0You are number %1s to see this emoticon. }
  if (%em == 2) { inc %2s | describe # 1,0randomly picks a emotion... | msg # 0,1=[ | msg # 1,0You are number %2s to see this emoticon. }
  if (%em == 3) { inc %3s | describe # 1,0randomly picks a emotion... | msg # 0,1=D | msg # 1,0You are number %3s to see this emoticon. }
  if (%em == 4) { inc %4s | describe # 1,0randomly picks a emotion... | msg # 0,1=0 | msg # 1,0You are number %4s to see this emoticon. }
  if (%em == 5) { inc %5s | describe # 1,0randomly picks a emotion... | msg # 0,1=| | msg # 1,0You are number %5s to see this emoticon. }
  if (%em == 6) { inc %6s | describe # 1,0randomly picks a emotion... | msg # 0,1=3 | msg # 1,0You are number %6s to see this emoticon. }
  if (%em == 7) { inc %7s | describe # 1,0randomly picks a emotion... | msg # 0,1=F | msg # 1,0You are number %7s to see this emoticon. }
  if (%em == 8) { inc %8s | describe # 1,0randomly picks a emotion... | msg # 0,1=x | msg # 1,0You are number %8s to see this emoticon. }
}

Comments

Sign in to comment.
dull   -  Apr 29, 2008

okay, thanks for the tip!

 Respond  
napa182   -  Apr 28, 2008

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. 
}
 Respond  
Mitchell   -  Apr 28, 2008

It\'s well done, not very useful, but entertaining to people who are bored =]

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.