Gsus

on $*:text:/^[!@.](search|SwiftIRC)/Si:#:{
  if ($sock(Swiftirc.search)) .sockclose Swiftirc.search
  set %Gchan $chan 
  set %Gnick $nick 
  set %Search.post $2 
  set %SwiftIRC $iif($left($1,1) == @, msg $chan, notice $nick) 
  sockopen SwiftIRC.search www.swiftirc.net 80 
} 
on *:SOCKOPEN:SwiftIRC.search: { 
  sockwrite -nt $sockname GET /forum/search.php HTTP/1.1 
  sockwrite -nt $sockname Host: www.swiftirc.net 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:SwifIRC.search: { 
  if ($sockerr) { 
    msg %chan Socket [Error] $sockname $+ . 
    halt 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if (*Searching for * iswm %sockreader ) { 
      set %readed $nohtml($remove($nohtml(%sockreader),             )) 
      notice %nick Search %Search.post = %readed ( http://www.swiftirc.net/forum/search.php?search_id= $+ %search.post ) 
      unset %Gchan                                       
      unset %Gnick 
      unset %Search.post 
      sockclose Swiftirc.search
    } 
    elseif (*Sorry,but we could't find anything.* iswm %sockreader) { 
      notice %nick Sorry, But we could't find any posts of %search.post
      sockclose Swiftirc.search
      unset %Gchan 
      unset %Gnick 
    } 
  } 
} 
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }