#lang racket
;bind ports, set buffer mode.
(define-values (input-port output-port) (tcp-connect "laserblue.org" 6667))
(file-stream-buffer-mode output-port 'block)


;initial send initial connection information.
(write-bytes #"USER Kaylin * laserblue.org :Kaylin\r\n" output-port)
(write-bytes #"NICK Kayscript\r\n" output-port)
(flush-output output-port)


(define (irc-connect input-port output-port)
  (if (regexp-match-peek #rx".*?\r\n" input-port);if it's a full line
      (cond
        ;reply to ping commands (send the wrong reply so I get an error message)
        [(regexp-match-peek #rx"^PING.*?\r\n" input-port 0 512) (write-bytes (regexp-replace #"PING" (car (regexp-match #rx"^PING.*?\r\n" input-port)) #"WRONGREPLY") output-port)
                                                                (flush-output output-port)
                                                                (printf "Replied to server PING.\r\n")
                                                                (irc-connect input-port output-port)]
        ;login when prompted
        [(regexp-try-match #rx"^:NickServ.*?msg NickServ identify <password>.*?\r\n" input-port 0 512) (write-bytes #"PRIVMSG NickServ :identify notreallymypw\r\n" output-port)
                                                                                                       (flush-output output-port)(printf "Identified to NickServ.\r\n")
                                                                                                       (write-bytes #"JOIN #laserblue\r\n" output-port)
                                                                                                       (flush-output output-port)(printf "Joined #laserblue.\r\n")(irc-connect input-port output-port)]
        ;if the server disconnects the client...
        [(regexp-try-match #rx"^ERROR.*?\r\n" input-port 0 512) (close-output-port output-port) #|paddy.mahoney:Notice that output-port here refers to the binding made in line 32, rather than the enclosing lambda. |#
                                                                (close-input-port input-port)
                                                                (printf "Server closed the connection.\r\nAttempting to reconnect...\r\n")
                                                                (sleep 30)
                                                                (define-values (input-port output-port) (tcp-connect "laserblue.org" 6667))
                                                                (irc-connect input-port output-port) #|ignore the fact that this does not relog it merely connects to the server |#]


        ;discard all other lines.
        [(regexp-match #rx"^.*?\r\n" input-port 0 512)(irc-connect input-port output-port)]
        [else (irc-connect input-port output-port)])
      (error "Not a full line.")))

(irc-connect input-port output-port)