Untitled

on *:JOIN:#:{ 
  if ($hget(chandb,$+($network,:,$chan,:clancheck)) == on) { clancheck $chan $nick } 
} 
on *:TEXT:!set *:#:{ 
  if ($2 == clancheck) || ($2 == clan) { 
    if ($3 == on) { .hadd -ms chandb $+($network,:,$chan,:clancheck) on | .msg $chan On join clancheck has been turned on } 
    if ($3 == off) { .hadd -ms chandb $+($network,:,$chan,:clancheck) off | .msg $chan On join clancheck has been turned off } 
  } 
} 
on *:SockOpen:clancheck.*:{ 
  if ($sockerr) { .msg $gettok($sockname,2,46) ON Join Clan Check SockOpen Error: $sock($sockname).wsmsg | break } 
  sockwrite -nt $sockname GET /feeds/lowtech/searchuser.php?user= $+ $($+(%,$sockname,.name),2) HTTP/1.1 
  sockwrite -nt $sockname Host: runehead.com $+ $str($crlf,2) 
} 
on *:SockRead:clancheck.*:{ 
  var %read | sockread %read 
  if (*Not Found iswm %read) { .msg $($+(%,$sockname,.chan),2) $($+(%,$sockname,.color2),2) $+ $fix($replace($($+(%,$sockname,.name),2),+,$chr(32))) $($+(%,$sockname,.color1),2) $+ Doesnt Appear To Be In Any Clan. | unset $+(%,$sockname,.*) | halt } 
  tokenize 124 $remove(%read,Genie:) 
  if ($0 == 2) { 
    inc $+(%,$sockname,.num) 1 
    if $($+(%,$sockname,.num),2) == 1 { set $+(%,$sockname,.,$($+(%,$sockname,.num),2),.name) $1 | set $+(%,$sockname,.,$($+(%,$sockname,.num),2),.url) $2 } 
    else { set $+(%,$sockname,.other.clans) $iif($($+(%,$sockname,.other.clans),2) == $null,$1,$+($chr(44),$1)) } 
  } 
  if (*end iswm %read) { 
    if ($($+(%,$sockname,.name),2) == $null) { halt } 
    else { .msg $($+(%,$sockname,.chan),2) $+($($+(%,$sockname,.color1),2),Name:,$($+(%,$sockname,.color2),2)) $fix($replace($($+(%,$sockname,.name),2),+,$chr(32))) $+($($+(%,$sockname,.color1),2),Clan:,$($+(%,$sockname,.color2),2)) $($+(%,$sockname,.1.name),2) $+($($+(%,$sockname,.color1),2),URL:,$($+(%,$sockname,.color2),2)) $($+(%,$sockname,.1.url),2) | $iif($($+(%,$sockname,.other.clans),2) != $null,$($+(%,$sockname,.send),2) $+($($+(%,$sockname,.color1),2),Other Clans:,$($+(%,$sockname,.color2),2)) $($+(%,$sockname,.other.clans),2),) | unset $+(%,$sockname,.*) | halt } 
  } 
}