;Urban Dictionary Script by Ford_Lawnmower irc.mindforge.org #USA-Chat
menu Channel,Status {
  .$iif($group(#UD) == On,$style(1)) Urban Dictionary
  ..$iif($group(#UD) == On,$style(2)) Trigger On: .enable #UD
  ..$iif($group(#UD) == Off,$style(2)) Trigger Off: .disable #UD
  ..Add Badwords: {
    if (!$hget(censored)) { hmake censored 5 }
    $?="Enter the badword" 
    if ($!) {
      if (!$hfind(censored,$!).data) { 
        hadd  censored $calc($hget(censored,0).item + 1) $!
        echo -a $! added to badword list 
      }
      else { echo -a $! is already in my database. }
    }
  }
  ..Delete Badwords: {
    $?="Enter the bad word or the item number!"
    if ($!) {
      if ($! isnum) && ($hget(censored,$!)) {
        echo -a $hget(censored,$!) was deleted!
        hdel  censored $!
        halt
      } 
      if ($! isalpha) && ($hfind(censored,$!).data) {
        echo -a $! has been deleted from my database!
        hdel censored $hfind(censored,$!).data
      } 
      else { echo -a Can't find $! in my database. Try checking the list. }
    }
  }
  ..List Badwords:censored.list
}
#UD off
On $*:Text:/^(!|@)Slang.*/Si:#: {
  if (!$timer($+(UD,$network,$nick))) {
    .timer $+ $+(UD,$network,$nick) 1 6 noop
    var %method $iif($regml(1) == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $chan,.notice $nick))
    UD %method $2-
  }
}
#UD end
alias slang { UD echo -a $1- }
alias -l UD {
  var %sockname $+(UD,$network,$2,$ticks)
  var %UD.url $iif($3,$replace($+(/define.php?page=,$iif($ceil($calc($3 / 7)),$v1,1),&term=,$iif($3 !isnum,$3-,$4-)),$chr(32),+),/random.php)
  sockopen %sockname www.urbandictionary.com 80
  sockmark %sockname $1-2 %UD.url $iif($3 isnum,$iif($calc($3 % 7),$v1,7),1) 0 0
}
On *:sockopen:UD*: {
  if (!$sockerr) {
    sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.1
    sockwrite -n $sockname Host: www.urbandictionary.com
    sockwrite -n $sockname $crlf
  }
  else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
}
On *:sockread:UD*: {
  if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  else {
    var %UD | sockread %UD
    if (Location: http://www.urbandictionary.com/define.php?term isin %UD) {
      UD $gettok($sock($sockname).mark,1-2,32) 1 $gettok(%UD,-1,61)
      sockclose $sockname
      return
    }
    if (<div id='not_defined_yet'> isin %UD) { $gettok($sock($sockname).mark,1-2,32) Sorry that word has yet to be defined. }
    if (<td class='index'> isin %UD) { sockmark $sockname $puttok($sock($sockname).mark,$calc($gettok($sock($sockname).mark,5,32) + 1),5,32)  }
    if ($gettok($sock($sockname).mark,5,32) == $gettok($sock($sockname).mark,4,32)) {
      if ($gettok($sock($sockname).mark,6,32) == word && $httpstrip(%UD)) { 
        if (<span style='font-weight: normal'> !isin %UD) { $gettok($sock($sockname).mark,1-2,32) 06Word -04 $censored($httpstrip(%UD)) }
        sockmark $sockname $puttok($sock($sockname).mark,0,6,32)
      }
      if ($regex(%UD,/<div class='(.*)'>/)) { sockmark $sockname $puttok($sock($sockname).mark,$regml(1),6,32) }      
      if ($gettok($sock($sockname).mark,6,32) == definition && $httpstrip(%UD)) { put $gettok($sock($sockname).mark,1-2,32) 06Definition -04 $censored($replace($v1,$chr(13),$chr(32))) }
      if ($gettok($sock($sockname).mark,6,32) == example && $httpstrip(%UD)) { put $gettok($sock($sockname).mark,1-2,32) 06Example -04 $censored($replace($v1,$chr(13),$chr(32))) } 
      if (<a href="/author.php?author= isin %UD) { 
        put $gettok($sock($sockname).mark,1-2,32) 06Author -04 $censored($httpstrip(%UD) - $+(07,http://www.urbandictionary.com,$gettok($sock($sockname).mark,3,32)))
        sockclose $sockname
        return
      }
      if (%UD == <td class='word'>) { sockmark $sockname $puttok($sock($sockname).mark,word,6,32) }
    }
  }
}
alias -l httpstrip { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x) | return $remove($replace(%x,&amp;,&,&quot;,"),&nbsp;,&lt;) }
alias -l Put {
  if (!$regex($1,/(\.|^)(msg|notice|echo)$/Si)) || (!$3) { echo -st **Put error** Syntax /Put msg #channel text - or - /Put notice nickname text  | return }
  var %tokens $0, %Tstart 3, %Dtimer 1500
  if ($timer($+(Put,$2,$network)).secs) { %Dtimer = $calc($v1 * 1000) }  
  while ($len($($+($,%Tstart,-,%tokens),2)) > 430) {
    dec %tokens
    if ($len($($+($,%Tstart,-,%tokens),2)) <= 430) {
      .timer -m 1 %Dtimer $1-2 $+(04,$($+($,%Tstart,-,%tokens),2)))
      inc %Dtimer 1500
      %Tstart = $calc(%tokens + 1)
      %tokens = $0
    }
  }
  .timer -m 1 %Dtimer $1-2 $+(04,$($+($,%Tstart,-,%tokens),2)))
  .timer $+ $+(Put,$2,$network) -m 1 $calc(%Dtimer + 1500) noop 
}
alias  censored {
  if (!$hget(censored)) { hmake censored 5 }
  var %censored.string = $1-, %censored.words = $gettok($1-,0,32)
  while %censored.words {
    if ($hfind(censored,$left($gettok(%censored.string,%censored.words,32),4) $+ *,1,w).data) || ($hfind(censored,$gettok(%censored.text,%censored.word,32)).data) {
      %censored.string = $replace(%censored.string,$gettok(%censored.string,%censored.words,32),!@#&)
    }
    dec %censored.words
  }
  return %censored.string
}
alias censored.list {
  var %censored.counter = $hget(censored,0).item
  while %censored.counter {
    echo -a $hget(censored,%censored.counter).item $hget(censored,%censored.counter).data
    dec %censored.counter
  }
}
On *:Unload: { hfree censored }
On *:Start: {
  if (!$hget(censored)) { hmake censored 5 }
  if ($isfile(censored.hsh)) { hload censored censored.hsh }
}
On *:Exit: { if ($hget(censored)) { hsave censored censored.hsh } }
On *:Disconnect: { if ($hget(censored)) { hsave censored censored.hsh } }

Commenting Options