ClanScript

alias clansearch2 {
  sockopen $+(clansearch2,%clan2id) runehead.com 80
  set -u60 %clansearch2. [ $+ [ %clan2id ] $+ . $+ [ temp ] ] $1-
}
on *:sockopen:clansearch2*:{
  if ($sockerr > 0) return
  sockwrite -n $sockname $eval(GET http://www.runehead.com/clans/search.php?searchtype=exact&search=,0) $+ %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ])
  sockwrite -n $sockname
}

on *:sockclose:clansearch2*:{
  if (%clanid [ $+ [ $right($sockname,-11) ] ] > 3) {
    %clanmsg [ $+ [ $right($sockname,-11) ] ] 5Other clans: %leftoverclans  [ $+ [ $right($sockname,-11) ] ]
    set -u20 %leftoverclans  [ $+ [ $right($sockname,-11) ] ]
  }
}

on *:sockread:clansearch2*:{
  if ($sockerr > 0) return
  :nextread
  sockread %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ]
  if ($sockbr == 0) return
  if ( ml.php?clan= isin %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ] ) {
    if ( %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ nick ] ] != $null ) { 
      if (%clanmsg2 [ $+ [ $right($sockname,-11) ] ] == said) {
        if (%clanid [ $+ [ $right($sockname,-11) ] ] >= 1) {
          inc %clanid [ $+ [ $right($sockname,-11) ] ] 1
          %y = 02 $+ %clanid [ $+ [ $right($sockname,-11) ] ] $+ 5) $htmlfree(%clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ])
          %z = %leftoverclans [ $+ [ $right($sockname,-11) ] ]
          %leftoverclans [ $+ [ $right($sockname,-11) ] ] = %z %y
        }
        else {
          inc %clanid [ $+ [ $right($sockname,-11) ] ] 1
          %x = 2 $+ $replace(%clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ], <td style='width:90px; border-color:#404040;'><a href=',http://www.runehead.com/clans/)
          %y = 02 $+ %clanid [ $+ [ $right($sockname,-11) ] ] $+ 5) $replace(%x,'>,$chr(32) $+ 05)
          %clanmsg [ $+ [ $right($sockname,-11) ] ] 05Top Result: $left(%y,-9)
        }
      }
      else {
        set -u20 %clanid [ $+ [ $right($sockname,-11) ] ] 1
        set -u20 %clanmsg2 [ $+ [ $right($sockname,-11) ] ] said
        %clanmsg [ $+ [ $right($sockname,-11) ] ] 5Clan Search:2 %query2 [ $+ [ $right($sockname,-11) ] ] 5is in:      
        %x = 2 $+ $replace(%clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ], <td style='width:90px; border-color:#404040;'><a href=',http://www.runehead.com/clans/)
        %y = 0215) $+ $replace(%x,'>,$chr(32) $+ 05)
        %clanmsg [ $+ [ $right($sockname,-11) ] ] 05Top Result: $left(%y,-9)
      }
      if ( </html> isin %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ] ) {
        unset %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ nick ] ]
      }
      else {
        set -u60 %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ nick ] ] %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ nick ] ]
      }
    }
    else {
      echo 5Clan Search:2 %query2 [ $+ [ $right($sockname,-11) ] ] 5is in2 $right(%clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ],-10)
    }
    if ( div id="footer" isin %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ] ) {
      sockclose $sockname | return
    }
  }
  elseif ( no results were found isin %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ temp ] ] ) {
    if ( %clansearch2. [ $+ [ $right($sockname,-11) ] $+ . $+ [ nick ] ] != $null ) {
      %clanmsg [ $+ [ $right($sockname,-11) ] ] 5Clan Search:2 %query2 [ $+ [ $right($sockname,-11) ] ] 5Wasn't found to be in any clan.
    }
    else {
      echo 5Clan Search:2 %query2 [ $+ [ $right($sockname,-11) ] ] 5Wasn't found to be in any clan.
    }
  }
  goto nextread
}

on $*:text:/^[@`.,!]Clan */Si:#GenericDev: { 
  if ($2) {
    if ($len($2) > 12) {
      set -u60 %clanmsg [ $+ [ %clan2id ] ] $iif(%clanchar [ $+ [ %clan2id ] ] == @,msg %channel [ $+ [ %clan2id ] ],notice %clansearch2. [ $+ [ %clan2id ] $+ . $+ [ nick ] ])      
      %clanmsg 5Length of name must be 02125 characters or less
      halt
    }
    else {
      inc %clan2id 1
      set -u60 %clansearch2. [ $+ [ %clan2id ] $+ . $+ [ nick ] ] $nick
      clansearch2 $2-
      set -u60 %query2 [ $+ [ %clan2id ] ] $replace($2-,$chr(32),$chr(95))
      set -u60 %Channel [ $+ [ %clan2id ] ] $chan
      set -u60 %clanchar [ $+ [ %clan2id ] ] $left($1,1)
      set -u60 %clanmsg [ $+ [ %clan2id ] ] $iif(%clanchar [ $+ [ %clan2id ] ] == @,msg %channel [ $+ [ %clan2id ] ],notice %clansearch2. [ $+ [ %clan2id ] $+ . $+ [ nick ] ])      
    }
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}