BOT

alias license {
  sockopen text boe-e.com 80
}
on *:sockopen:text: {
  sockwrite -n $sockname GET /License.html HTTP/1.1
  sockwrite -n $sockname Host: boe-e.com
  sockwrite -n $sockname $crlf
}
on *:sockread:text: {
  var %temp
  var %license
  sockread %temp
  set %license $remove($remove(%temp,<div>),</div>)
  if (%license == yes) {
    $eval(%command)
    unset %tempnick
    unset %tempchan
    unset %command
  } 
  elseif (%license == no) {
    notice %tempnick We are sorry, however your License has Expired.
  } 
}
on *:TEXT:+*:#seco.gaming: {
  set %tempnick $nick
  set %tempchan $chan
  ;set variables here so they can be passed, only variables not supported by SOCKREAD that are needed for commands
  if ($1 == +whatevercommand) {
    if (%license == yes) { notice %tempnick Works! | set %command | notice %tempnick Whatever2 }
    if (%license == no) { notice %tempnick We are sorry, however your License has expired. }
  }
  elseif ($1 == +secondcommand) {
    set %command msg %tempchan User %tempname has initiated secondcommand
  }
  else {
    unset %tempnick
    unset %tempchan
    notice $nick  $+ $remove( $+ $1 $+ ,+) $+  is a unknown command.
  }
  license
}