用L脚本语言开发一个简单的局域网聊天程序

#scp

#这是一个简单的局域网聊天程序的例子

定义:字符串,string1
定义:字符串,string2
#addr1是对方的地址
#addr2是自己的地址
#如果addr1和addr2相同，就是自己和自己聊天
定义:地址,addr1,127.0.0.1,27015
定义:地址,addr2,127.0.0.1,27015

定义:整数,字节数,0
#在自己的UDP端口上监听
定义:网络连接,conn2,UDP
监听:conn2,addr2
#连接对方的UDP端口
定义:网络连接,conn1,UDP
连接:conn1,addr1

定义:函数,routine
开始:函数,routine

等待:用户输入,string1
发送:conn1,string1
接收:conn2,string2
取大小:字符串,string2,字节数
如果:字节数>0,显示:string2
#睡眠1毫秒
睡眠:1

结束:函数,routine


当:1,调用:函数,routine