on $*:TEXT/^[!@.]exp */si:#: {
  if (!$2) {
    /notice $nick 1Please state a level.
  }
  else {
    if ($sock(exp)) /sockclose exp
    set %exp.lvl $2
    set %exp.return /notice $nick
    if (@ isin $1) set %exp.return /msg $chan
    sockopen exp www.pastebin.ca 80
  }
}
on *:SOCKOPEN:exp: {
  sockwrite -nt $sockname GET /raw/420070 HTTP/1.1
  sockwrite -nt $sockname Host: www.pastebin.ca
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:exp: {
  var %exp.read
  sockread %exp.read
  if (* %exp.lvl * iswm %exp.read) {  set %exp.exp $remove(%exp.read, %exp.lvl ,$chr(61))
    %exp.return 1Level:4 %exp.lvl 1 $+ $chr(124) Exp needed:4 %exp.exp
    unset %exp.*
    sockclose $sockname
  }
}