This is a basic IRC socket bot/connection/whatever.

I did NOT make this, nor do I take responsibility for it. I've been looking at this and various other tutorials/scripts to aid me in learning about sockets myself. I thought it'd be nice to share it with others who don't go to mircscripts.org

The original link to this: http://www.mircscripts.org/showdoc.php?type=tutorial&id=1541

It helped me understand a bit :

-NOTE: I advise looking at the tutorial if you don't understand this, it'll describe it far better than I possibly could. ^__^

;sb_open host [port]
alias sb_open {
  if ($sock(sb)) return
  if ($window(@sb_debug)) titlebar @sb_debug - Connecting
  .enable #sb_connecting
  sockopen sb $$1 $iif($2,$2,6667)
}

;sb_close
alias sb_close sb_cleanup

;sb_quit [message]
alias sb_quit sb_out QUIT $iif($0,: $+ $1-)

;sb_out 
alias sb_out {
  if ($sock(sb) == $null) return
  if ($window(@sb_debug)) echo 10 -ti2 @sb_debug >> $1-
  sockwrite -n sb $1-
}

;sb_debug
alias sb_debug {
  window -e @sb_debug
  if ($_online) titlebar @sb_debug - Nick: $_me
  else titlebar @sb_debug - Disconnected
}

alias -l sb_cleanup {
  if ($window(@sb_debug)) titlebar @sb_debug - Disconnected
  sockclose sb
  .disable #sb_connecting
  .timer 1 0 unset %sb_me
  .signal -n sbeDISCONNECT
}

alias -l sb_nick return SockBot
alias -l sb_nick2 return SB[ $+ $r(1000,9999) $+ ]
alias -l sb_user return bot
alias -l sb_realname return Socket Bot Sample 1.0 - myndzi

alias _getnick return $gettok($_strip:($1),1,33)
alias _getuser return $gettok($gettok($1,2,33),1,64)
alias _gethost return $gettok($1,2,64)
alias _strip: return $iif(:* iswm $1,$right($1,-1),$1)
alias _me if ($isid) return %sb_me | set %sb_me $$1 | if ($window(@sb_debug)) titlebar @sb_debug - Nick: %sb_me
alias _online return $iif($sock(sb),$true,$false)

on *:input:@sb_debug:{
  if ($left($1,1) == $readini($mircini,text,commandchar)) && (!$ctrlenter) return
  sb_out $1-
  haltdef
}

on *:sockopen:sb:{
  if ($sockerr) return $sb_cleanup
  sb_out NICK $sb_nick
  sb_out USER $sb_user * * :  $+ $sb_realname
}
on *:sockread:sb:{
  if ($sockerr) return $sb_cleanup
  var %t
  while ($sock(sb).rq) {
    sockread %t | tokenize 32 %t
    if ($sockbr == 0) return
    if ($window(@sb_debug)) echo 11 -ti2 @sb_debug << $1-
    if ($1 == PING) sb_out PONG $2-
    else .signal -n sbe_ $+ $2 $1-
  }
}
on *:sockwrite:sb:if ($sockerr) return $sb_cleanup
on *:sockclose:sb:return $sb_cleanup

on *:signal:sbe_NICK:if ($_getnick($1) == $_me) _me $_strip:($3)
on *:signal:sbe_PRIVMSG:{
  if (:ACTION * iswm $4-) .signal -n sbeACTION $1 ACTION $3 $left($5-,-1)
  elseif (:* iswm $4-) .signal -n sbeCTCP $1 CTCP $3 $mid($_strip:($4-),2,-1)
  else .signal -n sbeTEXT $1 TEXT $3 $_strip:($4-)
}
on *:signal:sbe_NOTICE:{
  if (:* iswm $4-) .signal -n sbeCTCPREPLY $1 CTCPREPLY $3 $mid($_strip:($4-),2,-1)
  elseif (. isin $_getnick($1)) .signal -n sbeSNOTICE $1 SNOTICE $3 $_strip:($4-)
  else .signal -n sbeNOTICE $1 NOTICE $3 $_strip:($4-)
}

#sb_connecting off
on *:signal:sbe_433:sb_out NICK $sb_nick2
on *:signal:sbe_422:sb_connected $3
on *:signal:sbe_376:sb_connected $3

alias -l sb_connected {
  _me $1
  if ($window(@sb_debug)) titlebar @sb_debug - Nick: $_me
  .disable #sb_connecting
  .signal -n sbeCONNECT
}
#sb_connecting end