I get an Access Error message with this script and I am not sure why. Can
anyone help. I have pasted inline and attached. I just want it to connect
and join a channel and stay in the channel at this point.
Thanks for your help.
Paul Tretter
----------------------------------------------
REBOL[]
size: 1000
input-buffer: make string! size
output-buffer: make string! size
irc-port: [
scheme: 'tcp
host: "irc.mindspring.com"
port-id: 6667
]
port: open/direct irc-port
insert port "NICK tret^/"
insert port "USER tret rebol.dyndns.org irc.mindspring.com tret^/"
insert port "JOIN #REBOLGODS^/"
forever [
if 0 < length? input-buffer [clear input-buffer]
read-io port input-buffer size
if find input-buffer "PING" [
insert output-buffer "PONG irc.mindspring.com^/"
write-io port output-buffer size
]
print input-buffer
]
halt
rebol[]
size: 1000
input-buffer: make string! size
output-buffer: make string! size
irc-port: [
scheme: 'tcp
host: "irc.mindspring.com"
port-id: 6667
]
port: open/direct irc-port
insert port "NICK tret^/"
insert port "USER tret rebol.dyndns.org irc.mindspring.com tret^/"
insert port "JOIN #REBOLGODS^/"
forever [
if 0 < length? input-buffer [clear input-buffer]
read-io port input-buffer size
if find input-buffer "PING" [
insert output-buffer "PONG irc.mindspring.com^/"
write-io port output-buffer size
]
print input-buffer
]
halt
