Public feed #725993

Someone

public text v1 · immutable
Raw Edit
·published 2007-10-04 20:24 UTC
rendered paste body
This urban script, when it cant find a result it is suppossed to do /notice NICK WORDHELOOKEDUP was not found on urbandictionary.com, but instead it does /notice NICKWORDHELOOKEDUP was not found on urbandictionary.com (it is missing a space and i cant figure where to put it)



on $*:text:/^[!@]urban/Si:#: { 
  if ($2 == $null) $iif($left($1,1) == @,msg $chan,notice $nick) You must specify something to search for, Syntax: !@urban word 
  else { 
    inc %uuc 
    set %uuway [ $+ [ %uuc ] ] $iif($left($1,1) == @,msg $chan,notice $nick) 
    set %uusearch [ $+ [ %uuc ] ] $replace($2-,$chr(32),+) 
    sockopen $+(nopurban.,%uuc) www.urbandictionary.com 80 
  } 
} 
on *:sockopen:nopurban.*: { 
  sockwrite -nt $sockname GET /define.php?term= $+ %uusearch [ $+ [ $gettok($sockname,2,46) ] ] HTTP/1.1 
  sockwrite -nt $sockname Host: www.urbandictionary.com 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:nopurban.*: { 
  var %uutext [ $+ [ $gettok($sockname,2,46) ] ] 
  sockread %uutext [ $+ [ $gettok($sockname,2,46) ] ] 
  if (*isn't defined* iswm %uutext [ $+ [ $gettok($sockname,2,46) ] ]) { 
    %uuway [ $+ [ $gettok($sockname,2,46) ] ] $+ %uusearch [ $+ [ $gettok($sockname,2,46) ] ] was not found on urbandictionary.com 
    unset %uuway [ $+ [ $gettok($sockname,2,46) ] ] 
    unset %uusearch [ $+ [ $gettok($sockname,2,46) ] ] 
    unset %uutext [ $+ [ $gettok($sockname,2,46) ] ] 
    sockclose $sockname 
  } 
  if (*<p>* iswm %uutext [ $+ [ $gettok($sockname,2,46) ] ]) { 
    set %uuvar [ $+ [ $gettok($sockname,2,46) ] ] $gettok(%uutext [ $+ [ $gettok($sockname,2,46) ] ],2,62) 
  } 
  if (*<p style="font-style: italic* iswm %uutext [ $+ [ $gettok($sockname,2,46) ] ]) { 
    %uuway [ $+ [ $gettok($sockname,2,46) ] ] 07Urban Definition of12 %uusearch [ $+ [ $gettok($sockname,2,46) ] ] $+ : $remove(%uuvar [ $+ [ $gettok($sockname,2,46) ] ],&quot;,&quot,<a href="/define.php?term=,<br /,</p) 
    %uuway [ $+ [ $gettok($sockname,2,46) ] ] 07Example:12 $remove($gettok(%uutext [ $+ [ $gettok($sockname,2,46) ] ],2,62),/p>,</p,&quot;,<br /,&lt;?,?&gt;,<a href="/define.php?term=,") 
    unset %uuway [ $+ [ $gettok($sockname,2,46) ] ] 
    unset %uuvar [ $+ [ $gettok($sockname,2,46) ] ] 
    unset %uusearch [ $+ [ $gettok($sockname,2,46) ] ] 
    unset %uutext [ $+ [ $gettok($sockname,2,46) ] ] 
    sockclose $sockname 
  }