Mumbling snippet

By Cherish on Nov 11, 2006

Just put it into remonte and now you will be mumbling sometimes ;]

on *:text:*:#: {
  write ward.txt $1-
  if (%ward.los == $null) {
    set %ward.los $rand(10,30)
  }
  if (%ward.los == %ward.sta) {
    set %ward.chan $chan
    ward
  }
  else { inc %ward.sta }
}

alias ward {
  set %ward.len $rand(3,10)
  var %y = 1
  while (%y <= %ward.len) {
    set %ward.line $rand(1,$lines(ward.txt))
    set %ward.word $rand(1,$numtok($read(ward.txt,%ward.line),32))
    set %ward.words $addtok(%ward.words,$gettok($read(ward.txt,%ward.line),%ward.word,32),32)
    inc %y
  }
  describe %ward.chan mumbling: %ward.words $+ .
  unset %ward.*
}

Comments

Sign in to comment.
PowerDragon   -  Nov 21, 2006

I don\'t really see a use for it. >.>

More
 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.