ChatterBox

I've decided to work on a small project but I'm new at programming and don't know exactly how.

I want this to be a small chatroom for 2 people and it might look like this to the user.

Global theirmessage$="Okay."
.start
message$=Input("")
Print "You: " + message
Delay 2000
Print "Other Person: " + theirmessage
Goto start

(message$ = "Let's Play!")


I would not like the line: Global theirmessage$="Okay.",
instead I would like it to be a message that the other person sent.


If you have questions or have some code I could use, please reply.


Also, I posted this in the Blitz+ section before [here], but someone told me to post here.

ey ppz, no nagging about non-3d'ness eh .. :P

What you want is some network code. Very difficult for beginers, I'm afraid.Basicly, you would use the DirectPlay functions in B3d to Conect to the other perdon, and then exchange messages, acknolagements ect.
However, this isn't quite what Blitz was designed for, so I would advise you to try somthing simpler first.

did you click on the [here] link?

Er.. No. Good point. I like his style.

No, I'm talking to you arent I.
Argh!
Nice age to start programming though.By 18 you'll know enough to skip university and go staight into a job :-8

*snorts*

Exactley.

Maybe you could use StartNetGame() ? It allows you to open a netgame. You need to enter an IP adres. If you run the program twice on the same PC, you don't need to fill it in. Messages can be sent with the SendNetMsg command:

	;-----------------------------------------------------------------------------------	
	;								DirectPlay example
	;-----------------------------------------------------------------------------------	
	;run this example twice, once as a server and once as a client.
	
	Graphics 800, 600, 0, 3
	SetBuffer BackBuffer()

	;start network game
	Select StartNetGame()
	Case 0
				End
	Case 1
				Print "Joined!"
	Case 2
				Print "Server!"
	End Select
	
	;create player
	player = CreateNetPlayer("Bram")
	
	x = Rand(400) + 200
	y = Rand(300) + 150

	;main loop	
	While Not KeyHit(1)
	
		Cls
		
		;cursor keys to move around		
		If KeyDown(203) Then x = x - 10
		If KeyDown(205) Then x = x + 10
		If KeyDown(200) Then y = y - 10
		If KeyDown(208) Then y = y + 10
		
		;send message
		io = MilliSecs() / 50
		If io > ioi Then 
			SendNetMsg 1, y + x * 800, player, 0, 1
			ioi = io
		End If
		
		;incoming messages
		If RecvNetMsg() Then
			msgType	  = NetMsgType()
			msgFrom   = NetMsgFrom()
			msgData   = NetMsgData$()
			a# = msgData   / 800
			b# = msgData Mod 800
		End If
			
		;draw player
		Color 255, 255, 0
		Oval x, y, 20, 20, True
		;draw player
		Color 255, 0, 0
		Oval a, b, 20, 20, True
		
		Flip
	
	Wend
	
End