alias cyborg {
  if ($remove($len($1),$chr(32)) isnum 2-10) {
    set %supchan $active
    set %cy.name $remove($1,!,@,#,$,%,^,&,*,-,+,_,=,[,],;,:,',",<,>,.,,/,|)
    sockopen cy cyborg.namedecoder.com 80
 
  }
  else echo -at Use /cyborg <name> (must be between 2-10 letters)
}
on *:sockread:cy:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %'
    sockread %'
    if (*<p class="mediumheader">*.*.*</p>* iswm %') {
      if (%supchan ischan) { msg %supchan $z(%') | unset %supchan }
      else echo -a $z(%') 
      sockclose cy
      unset %cy.name
      halt
    }
  }
}
alias -l z {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9))
  return %x
}
on *:sockopen:cy:{
  sockwrite -n $sockname GET /index.php?acronym= $+ %cy.name $+ &design=edox&design_click-edox.x=41&design_click-edox.y=78 HTTP/1.1
  sockwrite -n $sockname Host: cyborg.namedecoder.com $+ $crlf $+ $crlf
}

Commenting Options