alias sockbot { sockopen sockbot $1 $iif($2 == $null,6667,$2) }
on *:sockopen:sockbot:{
sockwrite -n $sockname USER Sockbot "" "" :Socket Bot
sockwrite -n $sockname NICK Sockbot
}
on *:sockread:sockbot:{
sockread %sockbot
if (ping * iswm %sockbot) { sockwrite -n $sockname $replace(%sockbot,PING,PONG) }
}