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.*
}
Sign in to comment.
PowerDragon   -  Nov 21, 2006

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

 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.