Forums Scripts & Popups Socket help

alias freechess {
    ;;configuration goes here;;
    set %freechess.window @freechess
    set %freechess.server freechess.org
    set %freechess.port 5000
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   if ($sock(freechess)) sockclose freechess
    sockopen freechess %freechess.server %freechess.port
    if (!$window(%freechess.window)) window -aek0 %freechess.window
}

on 1:sockopen:freechess:{
    if ($sockerr) { aline %freechess.window Error connecting to $+(%freechess.server,:,%freechess.port) | halt }
   aline %freechess.window Connected.
}

on 1:sockread:freechess:{
    var %data
    sockread %data
    aline %freechess.window %data
}
on 1:input:%freechess.window:if ($mid($1-,1,1) != /) && (!$ctrlenter) sockwrite -n freechess $1-

on 1:sockread:freechess:{
    var %data
    sockread %data
    aline %freechess.window %data
    if (%data == !help) {
        sockwrite -n $sockname Here is your help:
        sockwrite -n $sockname blah blah blah
    }
}