Random Insanity Alliance Forum, Mark V

Cactuar Zone => Random lnsanity => Topic started by: Brian on December 01, 2011, 11:08:32 pm

Title: wordbrutha for mirc
Post by: Brian on December 01, 2011, 11:08:32 pm

so, i finally got everything working for one. just stick it into your remotes script section.
to add words to the wordbrutha type /hadd brutha [word] [brutha]
If someone can post a list to pastbin or something of all the word bruthas id be more then happy to figgure out a way to make it so you can just download the hastable so you dont have to add them all yourself.

Code: [Select]

;to add words to the wordbrutha type /hadd brutha [word] [brutha]

on *:START: {
  /hmake brutha 10
  if ($isFile(bruthas.hsh)) {
    /hload brutha bruthas.hsh
  }
  else {
    /brutha.init
    /hsave -o brutha bruthas.hsh
  }
}

on *:EXIT: {
  /hsave -o brutha bruthas.hsh
  /hfree brutha
}


on *:INPUT:#: {
  if ($left($1, 1) !isin $+(/,$readini($mircini, text, commandchar))) {
    var %w = 1
    var %text
    var %acro = <brutha> | ; the design you want your brutha to take
    while ($gettok($1-, %w, 32) != $null) { | ; we include != $null incase the user types a 0
      var %word = $ifmatch
      if ($hget(brutha, %word) != $null) var %text = %text $replace(%acro, <brutha>, $ifmatch)
      else var %text = %text %word
      /inc %w
    }
    /msg $chan %text
    /halt
  }

Edit: you might also want to change the word filter to the word filter