connection waynes

on *:start: {
  if (%Logger == on) {
    window -nk0e @Logger
    echo @Logger =================
    echo @Logger  MiniScript Logger
    echo @Logger =================
    ;echo -sa *Logger enabled
  }
  echo -s =================
  echo -s Welcome to MiniScript
  echo -s =================
  echo -s By Tasman 2010
  echo -s [ Private Only
  if (%autoconn == on) {
    echo -s Automatic Connection to the buzzen server is enabled, please wait...
    .timercon1 1 1 connect
  }
}
on *:sockread:n.s:{
  while ($sock(n.s).rq) {
    var %r | sockread %r
    if ($sockbr = 0) halt
    tokenize 32 $regsubex(%r,/(\;)*?\]|\[\/style\])/ig,$null)
    if ($1 == :FlashIrcServer.1) && (successful isin $1-) { halt }
    if ($1 == :FlashIrcServer.1) && (hostname isin $1-) { halt }
    if (PRIVMSG isin $1-) && (
TIME
 isin $1-) { halt }
    if ($4 == PID) set %pid $6
    if (%proxy == on) {
      if ($1-4 == HTTP/1.0 200 Connection established) w n.s loginh %u $md5(%p)
      if ($1-3 == HTTP/1.0 200 OK) w n.s loginh %u $md5(%p)
    }
    if ($2 = WHISPER) l $1 PRIVMSG $4-
    if ($1 == PING) sockwrite -n $sockname PONG $2-
    l $1-
  }
}
on *:sockread:n.l:{
  while ($sock(n.l).rq) {
    var %r | sockread %r | tokenize 32 %r
    if ($sockbr = 0) halt
    if ($1 = USER) w n.s loginh %u $md5(%p)
    ;if (PRIVMSG isin $1-) { echo @SIGNALS *privmsg n.l: $1- }
    if ($1 = PRIVMSG) && ($left($2,1) != $chr(37)) w n.s WHISPER $comchan($2,1) $2 $3-
    if ($1 = JOIN) && ($numtok($2,44) > 1) w n.s JOIN $numtok($1,44)
    if ($1 == PING) sockwrite -n $sockname PONG $2-
    if ($sock(n.s)) w n.s $1-
  }
}
alias w {
  if ($sock($1).status != active) { .timer -m 1 10 w $1- | halt }
  sockwrite -n $1- | halt
}
on *:sockopen:n.s: {
  echo -a **Please wait, connecting to the Buzzen Server...
  echo -a -
  if (%proxy == on) {
    sockwrite -n $sockname CONNECT 69.197.23.17:6668 HTTP/1.0 $+ $str($crlf, 2)
  }
}
alias l { sockwrite -n n.l $1- | halt }
else { echo -s Automatic Connection to the Buzzen server is Disabled, To connect type "/con", to view current Passport type "/view", to change Passport type "/pp EMAIL PASSWORD", or to enable Automatic connection on start type "/ac on" }
alias ac {
  if ($1 == on) { set %autoconn on | echo -a Automatic connection to the buzzen server on start is now enabled }
  if ($1 == off) { set %autoconn off | echo -a Automatic connection to the buzzen server on start is now disabled }
}
alias view { echo -a Your Current Passport email is " $+ %u $+ " }
alias pp { echo -a please restart the script after it automatically reconnects to the buzzen server, it must set your new passport before you can use it | set %u $1 | set %p $2- | pause s 2 | sockclose n.* | socklisten n.i | server localhost $sock(n.i).port }
alias con { connect }
alias connect { sockclose n.* | socklisten n.i | server localhost $sock(n.i).port }
on *:socklisten:n.i:{
  sockaccept n.l
  sockclose n.i
  if (%proxy == on) { sockopen n.s $proxy | halt }
  else { sockopen n.s 69.197.23.17:6668 }
}
alias profile {
  set %pnick $1
  .sockwrite -n n.s PID $1
  .timerprofile 1 1 openprofile $1
}
alias openprofile {
  if (%pid != $null) { echo -a **Alternatively the link for %pnick $+ 's profile is http://www.buzzen.net/profile.aspx?pid= $+ %pid | set %homepage http://www.buzzen.net/profile.aspx?pid= $+ %pid | MiniBrowser }
  else { .echo -a ERROR: Could not retrieve profile for user: $1 }
}
alias proxy { var %curprox = $replace($read(Texts\proxy.txt),$chr(58),$chr(32)) | echo -a Proxy = %curprox | return %curprox }