Computer Science Canada :: View topic - Turing Chat

var stream : int := 0 % Used for sending data
var msgBack : string % The message that gets sent back and forth
var address : string % IP address for each computer
var message : string % Message that you send
var status : int % Status host/client
var name : string % Screen name

%%%%%%%%%%%%% all the emotions %%%%%%%%%%%%%%%%%%%%%%%%
var happy : int := Pic.FileNew ("C:/emotions/smile.bmp")
var sad : int := Pic.FileNew ("C:/emotions/sad.bmp")

const PORT := 5555 % Port to connect through

put "Welcome to Turing chat!"
put ""
put "Please enter your chat name"
get name % Input Screen name
put ""
loop
put name, " what would you like to do?"
put "1: Host a session"
put "2: Join a session"
get status

if status = 1 then
put "Waiting for a user to join...."
stream := Net.WaitForConnection (PORT, address) % Wait for a user to connect

elsif status = 2 then
put "What is the IP of the computer you want to connect to?"
get address
stream := Net.OpenConnection (address, PORT) % Connect to the IP inputted

else % If 1 or 2 is not chosen, choice will be looped
put "Please choose 1 or 2"
cls
end if

exit when status = 1 % Exits when 'status' is 1 ..
exit when status = 2 % or when 'status' is 2 so it can continue
end loop
cls
put "Connected to ", address

loop
if hasch then % If key pressed
color (red)
put name, ": " ..
get message : * % Store all input in varariable 'message' when enter is pressed
put : stream, name, ": ", message % Send the message , alone with screen name, over the stream

if message = "cls" then
cls
end if

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Image Codes for users use
if message = ":)" then
Pic.Draw (happy, 0, 0, picCopy)
end if
if message = ":(" then
Pic.Draw (sad, 0, 0, picCopy)
end if

exit when message = "quit" % To exit the chat session
end if
if Net.LineAvailable (stream) then % If a line of text has been sent
get : stream, msgBack : * % Grab the line of text, if one is waiting
color (blue)
put msgBack % Print the received message to the screen

end if
end loop
put "Connection has been terminated...."

Author:	Cervantes [ Sat Feb 18, 2006 11:09 am ]
Post subject:
The text you type should be sent to the other computer without rendering it. That is, if I type "Hey Tycoon! :)" it should be sent through to you as is, without changing the ":)" to a smilie graphic. You should have a render_text procedure, or some such, to search through the text and change all emoticons to their appropriate graphics. It should also draw the text in the appropriate location. The server and client should run this procedure each time a new message appears, either a message from themselves or from the other one. Also, you could use a less invasive method to get input. The "if hasch then" is a good start, but it only works well enough with getch. Sticking a get inside the "if hasch then" will only make getting the first character painless; you're still going to have to wait to get the rest of the characters. I suggest you use a text field to get user input. This could be a Turing's GUI Textfield, or you could try making one of your own. Alternatively, you could use mine[/shameless plug].

Author:	MysticVegeta [ Sat Feb 18, 2006 4:20 pm ]
Post subject:
Hmm well for the smilies, you can always export all the words into a flex array and check for emoticons... Its somewhere on the source code I posted a String.split(x:string) module...

Author:	Cervantes [ Sat Feb 18, 2006 4:49 pm ]
Post subject:
MysticVegeta wrote: Hmm well for the smilies, you can always export all the words into a flex array and check for emoticons... Its somewhere on the source code I posted a String.split(x:string) module... How does your String.split function return a flexible array? So far as I know, that's not permitted. Why split it into a flexible array? You've got the message as a string, and you can do plenty of string manipulation on that message without splitting it up into a flexy array. Though it would work, it takes unnecessary memory to store the (essentially) same message again, as a flexy array. I've searched around for this much fabled String module of yours, and have yet to find anything. The closest I got was a "stringSplit" function, that is hugely redundant (you could take out those first two for loops entirely). The only string module I've found is my own.