OPTION _EXPLICIT

$COLOR:32



CONST Port = "7319", IP = "172.93.60.23"

CONST FullPort = "TCP/IP:" + Port

CONST FullIP = FullPort + ":" + IP



DIM SHARED AS LONG client 'up to 1000 connections

DIM AS STRING recieved

DIM SHARED AS STRING nam

DIM SHARED AS LONG MainDisplay, TextArea, InputArea

DIM SHARED AS _FLOAT NextPing, server_active

DIM SHARED AS _BYTE TimeStamp 'toggle type display variables

DIM SHARED AS _UNSIGNED LONG DefaultColor, AudibleAlert



DIM ChatLen AS LONG, ChatLog AS STRING, tempString AS STRING



MainDisplay = _NEWIMAGE(1280, 720, 32)

TextArea = _NEWIMAGE(1280, 600, 32)

InputArea = _NEWIMAGE(1280, 120, 32)

DefaultColor = White

TimeStamp = -1

AudibleAlert = -1



SCREEN MainDisplay



client = _OPENCLIENT(FullIP)

IF client THEN

    PRINT "Connected to Steve's Chat!"

    server_active = ExtendedTimer + 300 'server is now counted as being "active" for the next 5 minutes

    GET #client, , ChatLen

    ChatLog = SPACE$(ChatLen)

    DO

        GET #client, , tempString

        ChatLog = ChatLog + tempString

        _LIMIT 30

    LOOP UNTIL LEN(ChatLog) >= ChatLen



    INPUT "Enter your name =>"; nam

    SendMessage "/NAME:" + nam

    _KEYCLEAR 'clear the input buffer, Steve, you big idiot!

    '_KEYHIT will still hold the name in that buffer as it's independent to INPUT!



    CLS

    PRINT ChatLog



    NextPing = ExtendedTimer

    DO '                                                      main program loop

        recieved$ = GetMessage

        ProcessInput recieved$ '                      deal with any server command type messages

        IF recieved$ <> "" THEN '                          we got something from the clien

            _DEST TextArea

            IF TimeStamp THEN COLOR Yellow: PRINT "[" + TIME$ + "]  ";: COLOR DefaultColor

            PRINT recieved$ '                              it should just be a message of some sort

        END IF

        InputJunk



        IF ExtendedTimer > NextPing THEN 'send a message to the server that we're still active

            SendMessage "/PING:" '        that message is a simple PING

            NextPing = ExtendedTimer + 30 'and send this every 30 seconds so we don't disconnect.

        END IF



        IF ExtendedTimer > server_active THEN

            PRINT: PRINT "Sorry.  It appears the server has went offline."

            PRINT "We are now terminating this chat client."

            PRINT: PRINT "Please try back again later."

            _DELAY 2: _KEYCLEAR: SLEEP: SYSTEM

        END IF



        CLS , 0, MainDisplay

        _PUTIMAGE (0, 600)-(1279, 719), InputArea, MainDisplay

        _PUTIMAGE (0, 0)-(1279, 599), TextArea, MainDisplay



        _DISPLAY

        _LIMIT 30

    LOOP

ELSE

    PRINT "Sorry.  Could not connect at this time."

    PRINT "Check Firewall, port forwarding, or other internet TCP/IP blockades."

    END

END IF



SUB ProcessInput (what AS STRING)

    SELECT CASE what

        CASE "/PING:" 'the server send us back a /PING response

            server_active = ExtendedTimer + 300

            what = ""

    END SELECT

    IF AudibleAlert _ANDALSO RIGHT$(what, 22) = " has entered the chat!" THEN BEEP

END SUB





SUB InputJunk

    DIM AS LONG k

    DIM AS STRING temp

    STATIC send$

    _DEST InputArea

    CLS , LightGray

    k = _KEYHIT

    SELECT CASE k

        CASE ASC("v"), ASC("V")

            IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN

                send$ = send$ + _CLIPBOARD$

            ELSE

                send$ = send$ + CHR$(k)

            END IF

        CASE 32 TO 255

            send$ = send$ + CHR$(k)

        CASE 8

            send$ = LEFT$(send$, LEN(send$) - 1)

        CASE 13

            'do some client side command handling, in case we change some local settings ourselves.

            temp = _TRIM$(send$)

            IF UCASE$(LEFT$(temp, 6)) = "/NAME:" THEN

                nam$ = LEFT$(MID$(temp$, 7), 10)

                send$ = "/NAME:" + nam$

            END IF

            IF UCASE$(LEFT$(temp, 12)) = "/TIMESTAMPS:" THEN

                send$ = ""

                temp$ = UCASE$(_TRIM$(MID$(temp$, 13)))

                IF TimeStamp = 0 THEN

                    IF temp$ = "ON" THEN TimeStamp = -1: SystemMessage "Timestamps are now ON."

                ELSE

                    IF temp$ = "OFF" THEN TimeStamp = 0: SystemMessage "Timestamps are now OFF."

                END IF

                EXIT SUB

            END IF

            IF UCASE$(LEFT$(temp, 7)) = "/ALERT:" THEN

                send$ = ""

                temp$ = UCASE$(_TRIM$(MID$(temp$, 8)))

                IF AudibleAlert = 0 THEN

                    IF temp$ = "ON" THEN AudibleAlert = -1: SystemMessage "Audible Alerts are now ON, for when people join the server."

                ELSE

                    IF temp$ = "OFF" THEN AudibleAlert = 0: SystemMessage "Audible Alerts are now OFF, for when people join the server."

                END IF

                EXIT SUB

            END IF



            SELECT CASE UCASE$(temp)

                CASE "/QUIT", "EXIT", "/QUIT:", "/EXIT:"

                    SendMessage "/EXIT:"

                    SYSTEM

                CASE "/USERS", "/USER", "/LIST", "/USERS:", "/USER:", "/LIST:", "/USERLIST", _

                        "/USERSLIST", "/USERLIST:", "/USERSLISTS:"

                    SendMessage "/USERLIST:"

                    send$ = ""

            END SELECT

            IF send$ <> "" THEN SendMessage send$

            send$ = ""

    END SELECT

    IF TimeStamp THEN COLOR Yellow: PRINT "[" + TIME$ + "]  ";: COLOR DefaultColor

    PRINT nam + ": " + send$ + " (" + STR$(LEN(send$)) + "/65500)"

    _DEST TextArea

    IF _EXIT THEN

        SendMessage "/EXIT:"

        SYSTEM

    END IF

END SUB



SUB SystemMessage (sysmes AS STRING)

    _DEST TextArea

    COLOR Yellow

    PRINT sysmes

    COLOR DefaultColor

    _DEST InputArea

END SUB



SUB SendMessage (msg AS STRING)

    DIM AS STRING temp

    DIM AS _UNSIGNED INTEGER i

    msg = LEFT$(msg, 65535)

    i = LEN(msg)

    IF i = 0 THEN EXIT SUB 'don't bother sending blank messages.

    temp = MKI$(i) + msg

    PUT client, , temp

    _DELAY .1 'wait a moment before we return to get/send more messages

    msg = "" 'reset to blank after we send it

END SUB



FUNCTION GetMessage$

    DIM AS _UNSIGNED _BYTE b

    DIM AS _UNSIGNED INTEGER i

    DIM AS STRING recieved

    GET #client, , i

    recieved = SPACE$(i)

    GET #client, , recieved

    GetMessage = recieved

END FUNCTION





FUNCTION ExtendedTimer##

    'Simplified version of the TimeStamp routine, streamlined to only give positive values based on the current timer.

    'Note:  Only good until the year 2100, as we don't do all the fancy calculations for leap years.

    'A timer should work quickly and efficiently in the background; and the less we do, the less lag we might insert

    'into a program.



    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER

    DIM s AS _FLOAT, day AS STRING

    day = DATE$

    m = VAL(LEFT$(day, 2))

    d = VAL(MID$(day, 4, 2))

    y = VAL(RIGHT$(day, 4)) - 1970

    SELECT CASE m 'Add the number of days for each previous month passed

        CASE 2: d = d + 31

        CASE 3: d = d + 59

        CASE 4: d = d + 90

        CASE 5: d = d + 120

        CASE 6: d = d + 151

        CASE 7: d = d + 181

        CASE 8: d = d + 212

        CASE 9: d = d + 243

        CASE 10: d = d + 273

        CASE 11: d = d + 304

        CASE 12: d = d + 334

    END SELECT

    IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february

    d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year

    d = d + (y + 2) \ 4 'add in days for leap years passed

    s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds

    ExtendedTimer## = (s + TIMER)

END FUNCTION

OPTION _EXPLICIT



CONST Port = "7319", IP = "172.93.60.23"

CONST FullPort = "TCP/IP:" + Port

CONST FullIP = FullPort + ":" + IP

CONST SaveFile = "Chat History.log"





TYPE User_type

    name AS STRING * 10

    handle AS LONG

    last_active AS _FLOAT

END TYPE



DIM SHARED AS LONG NumClients 'up to 1000 connections

DIM SHARED AS User_type users(1000)

DIM AS LONG host, i

DIM AS STRING recieved, ChatLog



OpenHost host 'start the hosting program

OPEN SaveFile FOR BINARY AS #123

ChatLog = SPACE$(LOF(123))

GET #123, 1, ChatLog '                                     get the old chat's history.





DO '                                                       main program loop

    AddNewClient host '                                    now we've checked for any new clients

    ValidateClients '                                      and we've validated that everyone is still connected

    FOR i = 1 TO NumClients

        IF _CONNECTED(users(i).handle) = 0 THEN _CONTINUE 'we don't have to get or send data to someone disconnected

        recieved$ = GetMessage(users(i).handle)

        IF recieved$ <> "" THEN '                          we got something from the client

            Processmessage recieved, i '                   process it and do whatever we need to

            _DELAY .05 'a fragment of a second so we will hopefully not "merge" messages.

        END IF

    NEXT

    _LIMIT 30

LOOP



SUB Processmessage (msg AS STRING, client AS LONG)

    DIM AS LONG p, i

    DIM AS STRING cmd, tmp, broadcast

    SHARED ChatLog AS STRING

    IF msg = "" THEN EXIT SUB

    tmp = msg 'if there's no command string, it's just text to send and chat with.



    'first, look for a command string

    IF LEFT$(msg, 1) = "/" THEN 'all command strings start with a slash

        p = INSTR(msg, ":")

        IF p THEN 'we have what should be a command delimiter ("/name:" or "/msg:", ect)

            cmd = MID$(msg, 2, p - 2) 'the command should now be delimited

            tmp = MID$(msg, p + 1) 'and whatever we do with the command should be left over

        END IF

    END IF



    SELECT CASE _TRIM$(UCASE$(cmd$))

        CASE "USERLIST" 'get current list of user's online

            tmp = "Current Users Online"

            FOR i = 2 TO NumClients

                IF _TRIM$(users(i).name) <> "" THEN tmp = tmp + " -- " + users(i).name

            NEXT

            SendMessage client, tmp

            PRINT "SENT -->"; tmp

        CASE "NAME" 'change name

            IF users(client).name = SPACE$(10) THEN

                broadcast = tmp + " has entered the chat!"

            ELSE

                broadcast = _TRIM$(users(client).name) + " has been changed to " + tmp

            END IF

            users(client).name = tmp



        CASE "MSG" 'private message

            'tmp here contains both who and what we want to say

        CASE "PING" 'client should send a ping response every few minutes so we know it's active.

            users(client).last_active = ExtendedTimer 'update activity timer

            SendMessage client, "/PING:" 'respond to let it know we're still alive as well

        CASE "QUIT", "EXIT"

            CLOSE users(client).handle

            broadcast = _TRIM$(users(client).name) + " disconnected."

            FOR i = client TO NumClients - 1

                users(i).handle = users(i + 1).handle

                users(i).name = users(i + 1).name

                users(i).last_active = users(i + 1).last_active

            NEXT

            NumClients = NumClients - 1

        CASE "" 'there was no command

            broadcast = LEFT$(_TRIM$(users(client).name) + ": " + msg, 65535)

        CASE ELSE 'unrecognized command

            SendMessage client, _TRIM$(users(0).name) + ": Command Not Recognized"

    END SELECT



    IF broadcast <> "" THEN 'we need to send a message to all clients

        PRINT broadcast

        FOR i = 1 TO NumClients

            SendMessage i, broadcast

        NEXT

        broadcast = broadcast + CHR$(10)

        PUT #123, , broadcast

        ChatLog = ChatLog + broadcast

        broadcast = "" 'clear the broadcast message after sending it

    END IF

    msg = ""

END SUB



SUB SendMessage (client AS LONG, msg AS STRING)

    DIM AS STRING temp

    DIM AS _UNSIGNED INTEGER i

    msg = LEFT$(msg, 65535) 'make certain our message fits the limits for this little program.

    i = LEN(msg)

    IF i = 0 THEN EXIT SUB 'don't bother sending blank messages.

    temp = MKI$(i) + msg

    PUT #users(client).handle, , temp

END SUB









FUNCTION GetMessage$ (client AS LONG)

    DIM AS _UNSIGNED INTEGER i

    DIM AS STRING recieved

    GET #client, , i

    recieved = SPACE$(i)

    GET #client, , recieved

    GetMessage = recieved

END FUNCTION







SUB OpenHost (host AS LONG)

    DIM AS STRING myname

    _TITLE "Steve Mini Messanger Host"

    host = _OPENHOST(FullPort) 'port on Steve's laptop which is going to host the chat server

    IF host THEN

        PRINT "[Beginning new host chat session!]"

        NumClients = 0 'client 0 is the host itself, so it can also be used as a client

        users(0).handle = _OPENCLIENT(FullIP)

        IF users(0).handle = 0 THEN PRINT "ERROR: could not attach host's personal client to host!"

        'Input "Enter your name:", myname$  'to custom server feedback

        myname$ = "[HOST]" '  which I don't personally care to do each time I start the host

        PRINT "[Chat session active! Connected to server as ["; myname$; "]"

    ELSE

        PRINT "ERROR: Could not begin new host!"

        PRINT "Diagnose firewall, port forwarding, and other issues, and then try again later."

        END

    END IF ' host

END SUB





SUB AddNewClient (host AS LONG)

    DIM AS LONG newclient, l

    SHARED AS STRING ChatLog

    newclient = _OPENCONNECTION(host) ' receive any new connection

    IF newclient THEN

        NumClients = NumClients + 1

        users(NumClients).handle = newclient

        users(NumClients).name = "" 'make certain to blank name until the /name command comes in to set it

        users(NumClients).last_active = ExtendedTimer

        IF NumClients > 1 THEN 'the server doesn't need the log itself

            l = LEN(ChatLog)

            PRINT "LOG SENT -- Length"; l, NumClients

            PUT #newclient, , l



            _DELAY .05

            PUT #newclient, , ChatLog

        END IF

    END IF

END SUB





SUB ValidateClients

    DIM AS LONG i, clientcheck

    DIM AS STRING disconnectmessage

    clientcheck = 2 'skip 1 as it would always be the hosts client-connection to itself

    DO UNTIL clientcheck > NumClients

        IF ExtendedTimer - users(clientcheck).last_active > 300 THEN '300 seconds of inactivity

            disconnectmessage = _TRIM$(users(clientcheck).name) + " disconnected."

            PRINT disconnectmessage

            FOR i = 1 TO NumClients

                SendMessage i, disconnectmessage

            NEXT

            CLOSE users(clientcheck).handle

            FOR i = clientcheck TO NumClients - 1

                users(i).handle = users(i + 1).handle

                users(i).name = users(i + 1).name

                users(i).last_active = users(i + 1).last_active

            NEXT

            NumClients = NumClients - 1

        ELSE

            clientcheck = clientcheck + 1

        END IF

    LOOP

END SUB



FUNCTION ExtendedTimer##

    'Simplified version of the TimeStamp routine, streamlined to only give positive values based on the current timer.

    'Note:  Only good until the year 2100, as we don't do all the fancy calculations for leap years.

    'A timer should work quickly and efficiently in the background; and the less we do, the less lag we might insert

    'into a program.



    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER

    DIM s AS _FLOAT, day AS STRING

    day = DATE$

    m = VAL(LEFT$(day, 2))

    d = VAL(MID$(day, 4, 2))

    y = VAL(RIGHT$(day, 4)) - 1970

    SELECT CASE m 'Add the number of days for each previous month passed

        CASE 2: d = d + 31

        CASE 3: d = d + 59

        CASE 4: d = d + 90

        CASE 5: d = d + 120

        CASE 6: d = d + 151

        CASE 7: d = d + 181

        CASE 8: d = d + 212

        CASE 9: d = d + 243

        CASE 10: d = d + 273

        CASE 11: d = d + 304

        CASE 12: d = d + 334

    END SELECT

    IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february

    d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year

    d = d + (y + 2) \ 4 'add in days for leap years passed

    s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds

    ExtendedTimer## = (s + TIMER)

END FUNCTION