Here

alias bot {
  if ($sock(bot)) {
    sockclose bot
    window -c @mbot
  }
  else {
    sockopen bot $server 6667
    window -ek0 @mbot
  }
}

alias bjp {
  tokenize 32 #$1 #
  sockwrite -nt bot $iif(mbot ison $1,part,join) $1
}
alias bsay if (mbot ison #) sockwrite -nt bot PRIVMSG # $1-

on *:SOCKOPEN:bot: {
  sockwrite -nt bot USER mbot 8 * Socketbot
  sockwrite -nt bot NICK mbot
}

on *:SOCKREAD:bot: {
  var %bsock
  sockread %bsock
  tokenize 32 %bsock
  if (*PING* iswm $1) sockwrite -nt bot PONG $server
  aline @mbot $1-
  elseif ($2 == PRIVMSG) && ($regex($4,/^:(
([^
 ]+))/)) && ($regml(2) != ACTION) {
    sockwrite -nt bot NOTICE $right($gettok($1,1,33),-1) $regml(1) $replacex($regml(2),PING,$ctime,TIME,$fulldate,VERSION,mIRC v7.19 socket bot)
  }
}